           (q/box 100))
         (apply q/image gr (nth pos ind))))))
 
-#+clj
 (defsnippet perspective {:renderer :p2d}
   (let [perspective-params [[] [(/ q/PI 2) 0.5 50 300]]
         pos [[0 0] [250 0] [127 250]]]

          (q/box 100))
        (apply q/image gr (nth pos ind))))))

#+clj
(defsnippet print-camera {:renderer :p3d}
  (q/print-camera))

#+clj
(defsnippet print-projection {:renderer :p3d}
  (q/print-projection))

  (q/stroke 0 0 255) ; blue - Z axis
  (q/line 0 0 0 0 0 100))

(defsnippet frustum {:renderer :p3d}
  (q/background 255)
  (q/camera 200 200 200 0 0 0 0 0 -1)
