         target-file (:target-file args)]
     (when target-file (save-image img target-file))
     (assoc cloud-info :image img)))
+

    (.dispose graphics)
    word-infos))

(defn- setup
  [g]
  (doto g
    (.setRenderingHint RenderingHints/KEY_ANTIALIASING RenderingHints/VALUE_ANTIALIAS_ON)

  (let [c (point (/ w 2.0) (/ h 2.0))
        bg (translate-area test-area c)]
    (doto g
      setup-graphics-context
      (fill-rect (rectangle 0 0 w h) :color (:background-color args)))
    (when (:debug args)
      (doto g
