     [(/ (* 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

  [obj :points2d]"
  [obj camera]
  (assoc obj :points2d
         (mapv #(P4->P2 %1 camera)
               (obj :points))))

(defn- get-object-part
