Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

…e times (i.e. compilation time)
  • Loading branch information...
commit 736aeacdc527433d1bde8386771741654d458b07 1 parent 8342756
@fogus fogus authored
Showing with 10 additions and 11 deletions.
  1. +10 −11 src/joy/sierpinski.clj
View
21 src/joy/sierpinski.clj
@@ -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))
Please sign in to comment.
Something went wrong with that request. Please try again.