   #_(quil/rotate-y (* (quil/frame-count) 0.003))
   (draw-axes 150)
   (draw-ground (* scale 20))
-  (quil/stroke (quil/color 0))
-  ; TODO: draw geodesic dome outline
+  (draw-dome (:radius display))
   ; TODO: render pixels
-  (doseq [face geodesic/dome-faces]
-    (-> face
-        (as-> points
-          (map #(vec (map (partial * scale (:radius display)) %)) points)   ; scale the points
-          (vec points)
-          (conj points (first points)))                 ; repeat the last point
-        line-join-points
-        (as-> lines
-          (map (partial apply quil/line) lines))
-        dorun))
   )
 
 

    (quil/ellipse 0 0 radius radius)))


(defn- draw-pixels
  [display]
  (quil/background 255)
  (quil/translate (* 0.50 (quil/width)) (* 0.55 (quil/height)) 0)

      (quil/sketch
        :title "Playasophy Wonderdome"
        :setup setup-sketch
        :draw #(render this)
        :size (:size this)
        :renderer :opengl)))

