     [(/ (* px h-dist) fd)
      (/ (* py v-dist) fd)]))
 
-(defn project-point
+(defn P4->P2
   "Projects a 4D point onto the 2d plain."
   [point camera]
   (-> point

(ns drawer.geometry
  (:require [drawer.math :as math]))

(defn default-obj-connections
  "Returns the default connections

  ([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}}))
