           sum (->>
                 (map scale colors proportions)
                 (reduce (partial map +)))]
-      (coerce (mapv #(int (/ % cnt)) sum)))))
+      (coerce (mapv #(int (/ % cnt)) sum)))))
(ns inkspot.color
  (:require [clojure.string :as string])
  (:use [inkspot.common :only [parse-int parse-double]])
  ^:clj
  (:import [java.awt Color]))


  (green  [n] (green (int->color n)))
  (blue   [n] (blue (int->color n)))
  (alpha  [n] (alpha (int->color n)))
  (coerce [n] (int->color n)))

(extend-type java.lang.String
  IColor
