Create colors from any number, not only ints

paraseba · Dec 9, 2011 · bea1d2d · bea1d2d
1 parent f4a63be
commit bea1d2d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/types.clj b/src/types.clj
@@ -19,8 +19,8 @@
 
 (defn rgb
   ([r g b]
-   {:pre [(every? integer? [r g b])] :post [(= Color (class %))]}
-   (letfn [(limit [x] (max 0 (min x 255)))]
+   {:pre [(every? number? [r g b])] :post [(= Color (class %))]}
+   (letfn [(limit [x] (max 0 (min (int x) 255)))]
      (Color. (limit r) (limit g) (limit b))))
   ([s]
    {:pre [(or (string? s) (keyword? s) (symbol? s))]