     :params {:x 180 :y 120 :text "TEST"
              :color Color/BLUE
              :alpha 0.5
-             :font {:name "Courier New"
+             :font {:name "Helvetica"
                     :bold true
                     :italic false
                     :underline true
                     :strikethrough false
                     :size 100}}}
    {:type :primitive-line
-    :params {:x 180 :y 120 :w 0 :h 300 :color Color/RED}}
+    :params {:x 180 :y 120 :w 0 :h 150 :color Color/RED
+             :stroke {:width 15 :cap :round}
+             :alpha 0.7}}
    {:type :primitive-line
-    :params {:x 180 :y 120 :w 10 :h 0 :color Color/RED}}
+    :params {:x 180 :y 120 :w 30 :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

  (enable-anti-aliasing g2d)
  (dorun
    (for [item (flatten items)]
      (let [params (merge default-primitive-params
                                        (:params item))]
      (set-style g2d params)
      (draw-primitive g2d (:type item) (complete-coordinates params))))))


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

