         text "MjgqAIkqQ$§|"
         p1 (point 100 30)
         p2 (point 100 60)
-        pc (point 200 150)
+        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)


(def default-args
  {:width 600
   :height 200
   :precision 0.5
   :font base-font
   :min-font-size 13
   :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
   })

        c2 (rect-center r2)]
    (doto g
      setup
      ;(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)
      (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 :color Color/GREEN)

      (draw-dot pc)
      )))

(let [img (create-image (:width default-args) (:height default-args) test-painter)]
  (save-image img "D:/Temp/test.png"))

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