     (q/box 50)
     (q/scale 2 1 0.75)))
 
-#+clj
 (defsnippet shear-x-y {}
   (q/with-translation [125 125]
     (q/rect 0 0 100 50))

  (q/box 50)
  (q/pop-matrix))

#+clj
(defsnippet rotate-x-y-z {:renderer :p3d}
  (q/camera 200 200 200 0 0 0 0 0 -1)
  (q/no-fill)

    (q/shear-x 0.5)
    (q/rect 0 0 100 50)))

(defsnippet translate {:renderer :p3d}
  (q/camera 200 200 200 0 0 0 0 0 -1)
  (q/no-fill)
