 
 (defn hint [which] (.hint *applet* (int which)))
 
-(defn hour [] (.hour *applet*))
+(defn hour [] (PApplet/hour))
 
 (defn hue [what] (.hue *applet* (int what)))
 


(defn no-tint [] (.noTint *applet*))

(defn open [filename] (PApplet/open filename))

;; $$open -- overload


  [a b c d t] (.bezierTangent *applet* (float a) (float b) (float c) (float d) (float t)))

(defn bezier-vertex
  ([x2 y2 x3 y3 x4 y4]
	 (.bezierVertex *applet* 
			  (float x2) (float y2) 
			  (float x3) (float y3) 
			  (float x4) (float y4)))
  ([x1 y1 z1 x2 y2 z2 x3 y3 z3 x4 y4 z4]
	 (.bezierVertex *applet*
			  (float x2) (float y2) (float z2)
			  (float x3) (float y3) (float z3)
			  (float x4) (float y4) (float z4))))
