 
 (defn- draw-wireframe [^Graphics2D g2d focal-length transform shape]
   (let [path (GeneralPath.)
-        points (mapv
-                 (comp
-                   (t/perspective focal-length)
-                   (partial t/transform-point transform))
-                 (:points shape))]
+        points-3d (get-3d-points transform shape)
+        points-2d (get-2d-points focal-length points-3d)]
 
 ;    (.setColor g2d Color/RED)
 ;    (doseq [[idx1 idx2] (:lines shape)]

(ns wireframes.renderer.bitmap
  (:require [wireframes.transform :as t]
            [wireframes.shape-primitives :as sp]
            [wireframes.shape-loader :as sl]

        (t/rotate :x (sp/degrees->radians -70))
        (t/translate 0 -1 40))
      (sl/load-shape "resources/newell-teapot/teapot" 16)
      [1000 900])
    "doc/gallery/teapot.png")

  (write-png
