     (.drawRect g2d l t w h)))
 
 (defmethod draw-primitive :primitive-round-rect
-  [g2d shape {:keys [l t w h filled arc-width arc-height]}]
-  (if filled
-    (.fillRoundRect g2d l t w h arc-width arc-height)
-    (.drawRoundRect g2d l t w h arc-width arc-height)))
+  [g2d shape {:keys [l t w h filled arc-radius arc-width arc-height]}]
+  (if filled
+    (.fillRoundRect g2d l t w h
+                    (or arc-radius arc-width)
+                    (or arc-radius arc-height))
+    (.drawRoundRect g2d l t w h
+                    (or arc-radius arc-width)
+                    (or arc-radius arc-height))))
 
 (defn draw-string-center
   "Draw a string centered at position x,y."

             :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

                    :strikethrough false
                    :size 100}}}
   {:type :primitive-line
    :params {:x 180 :y 120 :w 0 :h 300 :color Color/RED}}
   {:type :primitive-line
    :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
