Spaced out comments more

2020-03-06 17:54:53 +09:00
parent a3122d6bd8
commit dc60122de6
2 changed files with 18 additions and 0 deletions
--- a/examples/pixels/average.lisp
+++ b/examples/pixels/average.lisp
@@ -0,0 +1,15 @@
+; Average color
+(clear) 
+(def photo-rect 
+  (rect 0 0 
+    (div 4240 3) 
+    (div 2400 3)))
+(resize photo-rect:w photo-rect:h)
+(import $path photo-rect)
+(def average-color 
+  (pick 
+    (guide 
+      (rect 774 100 500 500))))
+(fill 
+  (guide 
+    (rect 228 100 500 500)) average-color)