 
 (defn stroke-int
   ([rgb] (.stroke *applet* (int rgb)))
-  ([rgb alpha] (.stroke *applet* (int rgb) (int alpha))))
+  ([rgb alpha] (.stroke *applet* (int rgb) (float alpha))))
 
 (defn stroke-cap [cap] (.strokeCap *applet* (int cap)))
 


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

(defn hour [] (.hour *applet*))

(defn hue [what] (.hue *applet* (int what)))



(defn fill-int
  ([rgb] (.fill *applet* (int rgb)))
  ([rgb alpha] (.fill *applet* (int rgb) (float alpha))))

(defn fill
  ([rgb] (fill-int rgb))
