                     :strikethrough false
                     :size 100}}}
    {:type :primitive-line
-    :params {:x 180 :y 280 :w 0 :h 300 :color Color/RED}}
+    :params {:x 180 :y 120 :w 0 :h 300 :color Color/RED}}
    {:type :primitive-line
-    :params {:x 180 :y 280 :w 10 :h 0 :color Color/RED}}
+    :params {:x 180 :y 120 :w 10 :h 0 :color Color/RED}}
    {:type :primitive-arc
     :params {:l 40 :t 30 :w 100 :h 100
              :start-angle 10 :arc-angle 100 :color Color/GREEN

             :filled false
             :closed true}}
   {:type :primitive-text
    :params {:x 180 :y 280 :text "TEST"
             :color Color/BLUE
             :font {:name "Courier New"
                    :bold true
                    :italic false

(def default-primitive-params
  {:filled false :color Color/BLACK})

(defn set-style [g2d {:keys [alpha color]}]
  (doto g2d
    (.setComposite (if (or (not alpha) 
                           (= alpha 1))
                     AlphaComposite/Src
                     (AlphaComposite/getInstance AlphaComposite/SRC_ATOP alpha)))
    (.setColor (if color color Color/BLACK))))

(defn- -? [a b]
  (when (and a b)
