Added (resize)
This commit is contained in:
16
examples/resize.lisp
Normal file
16
examples/resize.lisp
Normal file
@@ -0,0 +1,16 @@
|
||||
; pixels
|
||||
|
||||
(
|
||||
(clear)
|
||||
|
||||
; Filter
|
||||
|
||||
(def filter-action
|
||||
(lambda () (resize 0.5 0.5)))
|
||||
|
||||
; Draw photo
|
||||
|
||||
(open
|
||||
"../../PREVIEW.jpg"
|
||||
filter-action)
|
||||
)
|
||||
Reference in New Issue
Block a user