Permalink
Browse files

comment the sierpinksi execution so that it's not shown at inopportun…

…e times (i.e. compilation time)
  • Loading branch information...
1 parent 8342756 commit 736aeacdc527433d1bde8386771741654d458b07 @fogus fogus committed Mar 3, 2011
Showing with 10 additions and 11 deletions.
  1. +10 −11 src/joy/sierpinski.clj
View
@@ -6,16 +6,8 @@
[x y (rem (bit-xor x y) 256)]))
(def frame (java.awt.Frame.))
-
-(.setVisible frame true)
-(.setSize frame (java.awt.Dimension. 200 200))
-
(def gfx (.getGraphics frame))
-(.fillRect gfx 100 100 50 75)
-(.setColor gfx (java.awt.Color. 255 128 0))
-(.fillRect gfx 100 150 75 50)
-
(defn clear [g] (.clearRect g 0 0 200 200))
(defn f-values [f xs ys]
@@ -29,6 +21,13 @@
(.setColor gfx (java.awt.Color. v v v))
(.fillRect gfx x y 1 1)))
-(draw-values bit-and 256 256)
-(draw-values + 256 256)
-(draw-values * 256 256)
+(comment
+ (.setVisible frame true)
+ (.setSize frame (java.awt.Dimension. 200 200))
+ (.fillRect gfx 100 100 50 75)
+ (.setColor gfx (java.awt.Color. 255 128 0))
+ (.fillRect gfx 100 150 75 50)
+
+ (draw-values bit-and 256 256)
+ (draw-values + 256 256)
+ (draw-values * 256 256))

0 comments on commit 736aeac

Please sign in to comment.