 (ns drawer.geometry
-  (:require [drawer.math :as math]))
+  (:require [drawer.math :as math]
+            [drawer.util :as util]))
 
 (defn default-obj-connections
   "Returns the default connections

  [obj :points2d]"
  [obj camera]
  (assoc obj :points2d
         (mapv #(project-point %1 camera)
               (obj :points))))

(defn- get-object-part

  ([camera points connections center speed]
     {:points points
      :connections connections
      :points2d (mapv #(P4->P2 %1 camera) points)
      :rotation {:active (not (every? zero? speed))
                 :speed speed
                 :center center}}))
