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

      ;(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))))

(defn paint-cloud
  [cloud & args]

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

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

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

