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

  (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))))))


    :params {:x 180 :y 120 :text "TEST"
             :color Color/BLUE
             :alpha 0.5
             :font {:name "Helvetica"
                    :bold true
                    :italic false
                    :underline true
                    :strikethrough false
                    :size 100}}}
   {:type :primitive-line
    :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 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
