Permalink
Browse files

Type coercions for map-to (float), added map-to-double

  • Loading branch information...
1 parent 1c6640c commit d7026e7d36c55bb9d957ebbf8a3a7c9756276b32 @rosado committed Sep 17, 2009
Showing with 4 additions and 1 deletion.
  1. +4 −1 src/rosado/processing.clj
@@ -485,7 +485,10 @@
;; $$main
(defn map-to [val istart istop ostart ostop]
- (PApplet/map val istart istop ostart ostop))
+ (PApplet/map (float val) (float istart) (float istop) (float ostart) (float ostop)))
+
+(defn map-to-double [val istart istop ostart ostop]
+ (PApplet/map (double val) (double istart) (double istop) (double ostart) (double ostop)))
(defn mask
([#^ints alpha-array] (.mask *applet* alpha-array)))

0 comments on commit d7026e7

Please sign in to comment.