   ([r g b] (.background *applet* (int r) (int g) (int b)))
   ([r g b a] (.background *applet* (int r) (int g) (int b) (int a))))
 
+(def color color-float)
+
 (defn color-mode
   ([mode] (.colorMode *applet* (int mode)))
   ([mode max] (.colorMode *applet* (int mode) (float max)))

  ([rgb] (.stroke *applet* (int rgb)))
  ([rgb alpha] (.stroke *applet* (int rgb) (float alpha))))

(defn stroke-cap [cap] (.strokeCap *applet* (int cap)))

(defn stroke-join [jn] (.strokeJoin *applet* (int jn)))

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

(defn constrain constrain-float)

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