 
 (def default-args
   {:width 600
-   :height 200
-   :precision 0.5
+   :height 300
+   :precision 0.7
    :font base-font
-   :min-font-size 13
+   :min-font-size 14
    :max-font-size 60
    :max-test-radius 350
-   :padding 2
-   :shape-mode :word-box ; :word-box, :glyph-box
+   :order-priority 0.7
+   :padding 3
+   :shape-mode :glyph-box ; :word-box, :glyph-box
    :allow-rotation true
    :color-fn #'default-color-fn
    })

        c2 (rect-center r2)]
    (doto g
      setup
      ;(draw-rect (rectangle 0 0 (dec w) (dec h)))
      ;(fill-rect r1)
      ;(draw-rect r1)
      ;(fill-rect r2)
      ;(draw-rect r2)
      ;(draw-string-centered text p1 :font font)
      ;(draw-string-centered text p2 :font font)
      ;(draw-dot c1)
      ;(draw-dot c2)

      (draw-dot pc)
      ;(draw-dots (test-ring 50 0.2) pc)
      ;(draw-dots (test-ring 10 0.2) pc)

      (draw-dots (test-sequence default-args {:text "Alpha"}) pc)
      )))

(let [img (create-image 400 300 test-painter)]
  (save-image img "D:/Temp/test.png"))

; ########################

        text "MjgqAIkqQ$§|"
        p1 (point 100 30)
        p2 (point 100 60)
        pc (point (/ (:width default-args) 2.0) (/ (:height default-args) 2.0))
        r1 (string-centered-bounds g font text p1)
        r2 (string-centered-bounds g font text p2)
        a1 (Area. r1)
