tricks.clj

(defn display [[delta time] state]
  (clear)
  (load-identity)
  (translate -1.5 0.0 -6.0)
  (draw-triangles
   (doall (map #(apply vertex %) *tri*)))
  (translate 3.0 0.0 0.0)
  (draw-quads
   (doall (map #(apply vertex %) *sqr*)))
  (app/repaint!))

(defn display-proxy [& args]
  (apply display args))

(def app-options {:reshape reshape
                  :display display-proxy
                  :init init})

(defn start []
  (app/start app-options {}))