(defn tint
""
([^PApplet sketch gray]
(cond
(string? gray)
(.tint sketch (color sketch gray))
(integer? gray)
(.tint sketch (int gray))
(float? gray)
(.tint sketch (float gray))))
([^PApplet sketch gray alpha]
(cond
(string? gray)
(.tint sketch (color sketch gray) (int alpha))
(integer? gray)
(.tint sketch (int gray) (int alpha))
(float? gray)
(.tint sketch (float gray) (float alpha))))
([^PApplet sketch x y z]
(if (or (integer? x) (integer? y) (integer? z))
(.tint sketch (int x)(int y) (int z))
(.tint sketch (float x)(float y) (float z))))
([^PApplet sketch x y z a]
(if (or (integer? x) (integer? y) (integer? z))
(.tint sketch (int x)(int y) (int z) (int alpha))
(.tint sketch (float x)(float y) (float z) (float alpha)))))
Used in 0 other vars
Comments top
No comments for tint. Log in to add a comment.