 
 ;; utility functions. clj-processing specific
 
+(defn width [] (.getWidth *applet*))
+
 (defmacro with-translation
   "Berforms body with translation, restores current transformation on exit."
   [translation-vector & body]

;; $$focusGained
;; $$focusLost

(defn framerate [new-rate] (.frameRate *applet* (float new-rate)))

(defn frustum
  [l r b t near far]


;; $$handleDraw
;; $$hex

(defn height [] (.getHeight *applet*))

(defn hint [which] (.hint *applet* (int which)))

