     (.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."

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

(defn set-style [g2d params]
  (doto g2d
    (.setColor (:color params))))

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

(ns slide-explorer.core
  (:import (java.awt AlphaComposite Color Font Graphics Graphics2D Polygon RenderingHints)
           (java.awt.font TextAttribute)
           (javax.swing JFrame JPanel)))

