13 lines
190 B
Common Lisp
13 lines
190 B
Common Lisp
; scale file
|
|
(
|
|
; Filter
|
|
|
|
(def filter-action
|
|
(lambda () (pixels
|
|
(frame)
|
|
saturation
|
|
0.5)
|
|
))
|
|
|
|
(open (path "/Users/VillaMoirai/Desktop/clip.jpg") filter-action)
|
|
) |