       ;(fill-shape bg)
       ;(draw-shape bg)
       )
-    (doseq [{:keys [text font position rotation]} (filter #(not (nil? %)) word-infos)]
-      (draw-string-centered g text (translate-point c position) :font font :rotation rotation))))
+    (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]

  [{:keys [font] :as args} v]
  (.deriveFont font (calc-font-size args v)))

(defn- build-word-info
  [g args [text value]]
  (let [font* (get-font args value)]
    {:text text
     :font font*
     :word-bounds (string-centered-bounds g font* text)
     :glyph-bounds (string-centered-glyphbounds g font* text)}))


   :max-font-size 60
   :max-test-radius 350
   :padding 2
   :shape-mode :word-box ; :word-box, :glyph-box
   :allow-rotation true
   :color-fn #'default-color-fn
   })

(defn- calc-font-size
