   (q/stroke 0 0 255) ; blue - Z axis
   (q/line 0 0 0 0 0 100))
 
-#+clj
 (defsnippet camera {:renderer :p3d}
   (q/background 255)
   (q/camera 200 200 200 0 0 0 0 0 -1)

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

#+clj
(defsnippet ortho {:renderer :p2d}
  (let [ortho-params [[] [0 300 0 300] [0 300 0 300 0 170]]
        pos [[0 0] [250 0] [127 250]]]

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

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

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