28 lines
319 B
Common Lisp
28 lines
319 B
Common Lisp
(clear)
|
|
;
|
|
(open $path 0.75)
|
|
|
|
; picker to elementary
|
|
|
|
(def unit 10)
|
|
(def f
|
|
(get-frame))
|
|
(def pos-row-1
|
|
(sub f:h 80))
|
|
(def pos-row-2
|
|
(sub f:h 45))
|
|
|
|
; color picker
|
|
|
|
(def color-1
|
|
(pick
|
|
(guide
|
|
(rect $xy unit unit))))
|
|
(echo color-1)
|
|
|
|
; display
|
|
|
|
(fill
|
|
(circle
|
|
(mul 20 2) pos-row-1 18) color-1)
|