   ([rgb] (.fill *applet* (int rgb)))
   ([rgb alpha] (.fill *applet* (int rgb) (float alpha))))
 
-(defn fill
-  ([rgb] (fill-int rgb))
-  ([rgb alpha] (fill-int rgb alpha)))
+(def fill fill-float)
 
 (defn filter-kind
   ([kind] (.filter *applet* (int kind)))

(defn constrain-int
  [amt low high]
  (PApplet/constrain (int amt) (int low) (int high)))

(defn copy
  ([[sx1 sy1 sx2 sy2] [dx1 dy1 dx2 dy2]]

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

(def background background-float)

(defn background-image
  [#^PImage img] (.background *applet* img))
