 (ns genartlib.algebra
   (:require
     [genartlib.util :refer [between?]]
-    [quil.core :refer [HALF-PI PI TWO-PI atan2 cos sin dist]]))
+    [quil.core :refer [PI atan2 cos sin dist sqrt abs]]))
 
 (defn avg
   "Returns the average of the arguments"

  "Returns the euclidean distance between two points"
  [[x1 y1] [x2 y2]]
  (dist x1 y1 x2 y2))

  [slope x1 y1]
  (- y1 (* slope x1)))

(defn angle
  "Returns the angle between two points in radians. Values are between
   0 and 2 * PI."
  [x1 y1 x2 y2]
  (let [a (atan2 (- y2 y1) (- x2 x1))]
    (if (neg? a)
      (+ a (* PI 2.0))
