8 lines
148 B
Common Lisp
8 lines
148 B
Common Lisp
(clear)
|
|
; drag an image on the window
|
|
(open $path)
|
|
;
|
|
(pixels
|
|
(rect 100 100 400 400) saturation 0)
|
|
(pixels
|
|
(rect 300 300 400 400) contrast 0.5) |