   [obj :points2d]"
   [obj camera]
   (assoc obj :points2d
-         (mapv #(project-point %1 camera)
+         (mapv #(P4->P2 %1 camera)
                (obj :points))))
 
 (defn- get-object-part

    [(/ (* px h-dist) fd)
     (/ (* py v-dist) fd)]))

(defn project-point
  "Projects a 4D point onto the 2d plain."
  [point camera]
  (-> point

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