               :cap :butt
               :join :bevel
               :miter-limit 10.0}}]
-   [:primitive-text
+   [:text
     {:x 180 :y 120 :text "Testing..."
      :color :blue
      :alpha 0.4

            :underline false
            :strikethrough false
            :size 60}}]
   [:primitive-line
    {:x 180 :y 220 :w 0 :h 50 :color :red
     :stroke {:width 10 :cap :round}
     :alpha 0.7}]
   [:primitive-line
    {:x 180 :y 220 :w 30 :h 0 :color 0x00AA00
     :alpha 0.6
     :stroke {:width 4}}]
   [:primitive-arc
    {:l 30 :t 20 :w 150 :h 100
     :start-angle 30 :arc-angle 100 :color :green
     :filled true
     :alpha 0.7}]
   ])


        (.drawPolygon g2d xs ys n)))
        (.drawPolyline g2d xs ys n)))

(defmethod draw-primitive :rect
  [g2d shape {:keys [l t w h filled]}]
  (if filled
    (.fillRect g2d l t w h)
    (.drawRect g2d l t w h)))

(defmethod draw-primitive :round-rect
  [g2d shape {:keys [l t w h filled arc-radius arc-width arc-height]}]
  (if filled
    (.fillRoundRect g2d l t w h
