Removed shapes, fixes #69

examples/pixels/crop.lisp

@@ -0,0 +1,5 @@
+; crop
+
+(clear)
+(open "../static/crystal.jpg")
+(crop (rect 100 100 400 400))

examples/pixels/glitch.lisp

@@ -0,0 +1,18 @@
+; Glitch
+
+(clear)
+
+(defn glitch 
+  (rec) 
+  (if (gt rec 1)
+    (
+      (translate
+        (rect (random 400) (random 400) (random 10) (random 10))
+        (pos (random 400) (random 400)))
+      (glitch (sub rec 1)))))
+
+(import 
+  "../static/crystal.jpg" 
+  (rect 0 0 400 400))
+
+(glitch 500)

examples/pixels/open.lisp

@@ -0,0 +1,4 @@
+; saturate image 
+(open "../static/crystal.jpg")
+(pixels 
+  (frame) saturation 12)

examples/pixels/pixels.lisp

@@ -0,0 +1,7 @@
+; pixels
+
+(clear) 
+(import "../../PREVIEW.jpg" 
+  (frame)) 
+(pixels 
+  (rect 0 0 500 500) saturation 0.5)

examples/pixels/random.lisp

@@ -0,0 +1,17 @@
+; random 
+
+(clear) 
+(defn place 
+  (rec) 
+  (if 
+    (gt rec 0) 
+    (
+      (import "../static/crystal.jpg" 
+        (rect 
+          (random 200) 
+          (random 200) 
+          (random 200) 
+          (random 200))) 
+      (place 
+        (sub rec 1))))) 
+(place 30)