nen.clj

(ns clojure-nen2580.core
  (:require [thi.ng.geom.core :as g]
            [thi.ng.geom.line :as l))

(defn normal [l]
  (let [[p q] (:points l)]
    (g/normalize (g/- q p))))

(defn continuous? [a b]
  (let [na (normal a)
        nb (normal b)]
    (and
     (some (partial g/contains-point? a) (:points b))
     (= 1 (Math/abs (g/dot na nb))))))

(continuous?
 (l/line2 [  0 0] [100 0])
 (l/line2 [100 0] [200 0]))