# HG changeset patch
# User Mikhail Kryshen <mikhail@kryshen.net>
# Date 1333725553 -14400
# Node ID 17aa55059b07b16ce8f4aa6a7acefc291881381e
# Parent  b5ac04d5fc8a8618878b8612bf384a4d0a48df50
Added with-stroke macro.

diff -r b5ac04d5fc8a -r 17aa55059b07 src/net/kryshen/indyvon/core.clj
--- a/src/net/kryshen/indyvon/core.clj	Fri Apr 06 18:59:04 2012 +0400
+++ b/src/net/kryshen/indyvon/core.clj	Fri Apr 06 19:19:13 2012 +0400
@@ -399,6 +399,15 @@
          (finally
           (.setColor g# old-color#))))))
 
+(defmacro with-stroke [stroke & body]
+  `(let [g# *graphics*
+         old-stroke# (.getStroke g#)]
+     (try
+       (.setStroke g# ~stroke)
+       ~@body
+       (finally
+        (.setStroke g# old-stroke#)))))
+
 (defn with-hints*
   [hints f & args]
   (if hints