16 lines
165 B
Common Lisp
16 lines
165 B
Common Lisp
; resize
|
|
|
|
(
|
|
(clear)
|
|
|
|
; Filter
|
|
|
|
(def filter-action
|
|
(lambda () (resize 0.5 0.5)))
|
|
|
|
; Draw photo
|
|
|
|
(open
|
|
"../../PREVIEW.jpg"
|
|
filter-action)
|
|
) |