 (def font-style Font/BOLD)
 (def base-font (Font. font-family font-style (float 100)))
 
+(defn default-color-fn
+  [value]
+  (let [n (float 0.4)
+        v1 (float value)
+        v2 (float (- 1.0 value))]
+  (Color. v1 n v2)))
+
 (def default-args
   {:width 600
    :height 200

   "Yankee" "Zulu"
   "Adventskalender" "Mittelpunktbestimmung" "Zentralfeuerwaffe"])

(def stats (vec (map (fn [x] [x (/ (rand-int 101) 100.0)]) words)))

(def test-infos (build-word-infos stats))


      ;(fill-shape bg)
      ;(draw-shape bg)
      )
    (doseq [{:keys [text font color position rotation]} (filter #(not (nil? %)) word-infos)]
      (draw-string-centered g text (translate-point c position) :font font :color color :rotation rotation))))

(defn paint-cloud
  [cloud & args]
