10 lines
130 B
Common Lisp
10 lines
130 B
Common Lisp
; pixels
|
|
|
|
((clear)
|
|
|
|
; Draw photo
|
|
|
|
(draw "../../PREVIEW.jpg"
|
|
(frame)
|
|
(lambda () (echo (select (rect 660 344 10 10))))
|
|
)) |