Added (crop), fixes #29

2019-07-16 10:10:16 +09:00
parent 79f85782ab
commit e9a84b376a
4 changed files with 37 additions and 1 deletions
--- a/examples/crop.lisp
+++ b/examples/crop.lisp
@@ -0,0 +1,16 @@
+; crop
+
+(
+  (clear)
+
+  ; Filter
+
+  (def filter-action 
+    (lambda () (crop (rect 100 100 400 400))))
+
+  ; Draw photo 
+  
+  (open 
+    "../../PREVIEW.jpg" 
+    filter-action)
+)
--- a/examples/resize.lisp
+++ b/examples/resize.lisp
@@ -1,4 +1,4 @@
-; pixels
+; resize

 (
  (clear)