this one is nice too:
(defn draw-line [#^Graphics g y]
(let [dy (- 1.25 (* y height-factor))]
(doseq [x (range 0 width)]
(let [dx (- (* x width-factor) 2.0)]
(let [value (check-bounds dx dy)
scaled (Math/round (* value color-scale))
xscaled (Math/round (* x (/ 255 width)))]
(if (> value 0)
(. g setColor
(Color. 255 (- 255 scaled) scaled))
(. g setColor
(Color. xscaled (- 255 xscaled) xscaled)))
(. g drawRect x y 0 0))))))
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To post to this group, send email to clojure@googlegroups.com
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---
