*

examples/pixels/import.lisp

@@ -1,27 +0,0 @@
-(clear)
-(def hor-path "/Users/VillaMoirai/Desktop/hor.jpeg")
-(def ver-path "/Users/VillaMoirai/Desktop/ver.jpg")
-; rect
-(import hor-path 
-  (guide (rect 50 50 300 300)))
-
-(import hor-path 
-  (guide (rect 350 50 350 200)))
-
-(import hor-path 
-  (guide (line 700 50 1200 350)))
-
-(import hor-path 
-  (guide (rect 1200 50 200 300)))
-
-(import ver-path 
-  (guide (rect 50 350 300 300)))
-
-(import ver-path 
-  (guide (rect 350 350 350 200)))
-
-(import ver-path 
-  (guide (line 700 350 1200 700)))
-
-(import ver-path 
-  (guide (rect 1200 350 200 300)))

examples/pixels/normalize.lisp

@@ -1,11 +1,6 @@
-; Render script for a6000
-(clear) 
-(def photo-rect 
-  (rect 0 0 
-    (div 4240 2) 
-    (div 2400 2)))
-(resize photo-rect:w photo-rect:h)
-(import $path photo-rect)
-(pixels normalize 
-  (pick photo-rect))
-(export "export" "image/jpeg" 0.9)
+; Normalize photo colors
+
+(open $path 0.5)
+(def average-color 
+  (pick))
+(pixels normalize average-color)

examples/pixels/sharpen.lisp

@@ -0,0 +1,7 @@
+; sharpen photo
+
+(open $path 0.75)
+(def average-color 
+  (pick))
+(convolve 
+  (sharpen))