   (end-shape :close))
 
 (defsnippet curve-vertex-s {:renderer :p3d}
-
   (camera 50 200 50 50 0 0 0 0 1)
   (begin-shape)
   (curve-vertex 0 0)

    (vertex (+ base-x 50) (+ base-y 90))
    (vertex (+ base-x 20) (+ base-y 70))
    (vertex (+ base-x 20) (+ base-y 30))
    (end-shape :close)))

(defsnippet bezier-vertex-s {:renderer :p3d}
  (camera -400 250 -100 500 250 0 0 0 1)


(defsnippet begin-shape-end-shape-s {:renderer :p2d}
  (stroke 255 0 0)
  (doseq [[ind begin-mode close-mode]
          [[0 nil nil]
           [1 nil :close]
           [2 :points]
           [3 :lines]
           [4 :triangles]
           [5 :triangle-fan]
           [6 :triangle-strip]
           [7 :quads]
           [8 :quad-strip]]
          :let [base-x (* 150 (mod ind 3))
                base-y (* 150 (quot ind 3))]]
    (if begin-mode
      (begin-shape begin-mode)
      (begin-shape))
    (vertex (+ base-x 50) (+ base-y 10))
    (vertex (+ base-x 80) (+ base-y 30))
