Source
clj_swing/example.clj:21
top
(defn paint-donut [g]
(let [width 360
height 310
ellipse (new java.awt.geom.Ellipse2D$Double 0 0 80 130)
at (AffineTransform/getTranslateInstance (/ width 2) (/ height 2))]
(doto g
(.setStroke (BasicStroke. 1))
(.setColor (. Color gray)))
(doseq [i (range 0 361 5)]
(.rotate g (Math/toRadians i))
(.draw g (.createTransformedShape at ellipse)))))
Comments top
No comments for paint-donut. Log in to add a comment.