80 lines
1.3 KiB
Common Lisp
80 lines
1.3 KiB
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))))
|
|
(def color-2
|
|
(pick
|
|
(guide
|
|
(rect $xy unit unit))))
|
|
(def color-3
|
|
(pick
|
|
(guide
|
|
(rect $xy unit unit))))
|
|
(def color-4
|
|
(pick
|
|
(guide
|
|
(rect $xy unit unit))))
|
|
(def color-5
|
|
(pick
|
|
(guide
|
|
(rect $xy unit unit))))
|
|
(def color-6
|
|
(pick
|
|
(guide
|
|
(rect $xy unit unit))))
|
|
(def color-7
|
|
(pick
|
|
(guide
|
|
(rect $xy unit unit))))
|
|
(def color-8
|
|
(pick
|
|
(guide
|
|
(rect $xy unit unit))))
|
|
|
|
; display
|
|
|
|
(fill
|
|
(circle
|
|
(mul 20 2) pos-row-1 18) color-1)
|
|
(fill
|
|
(circle
|
|
(mul 20 4) pos-row-1 18) color-2)
|
|
(fill
|
|
(circle
|
|
(mul 20 6) pos-row-1 18) color-3)
|
|
(fill
|
|
(circle
|
|
(mul 20 8) pos-row-1 18) color-4)
|
|
(fill
|
|
(circle
|
|
(mul 20 3) pos-row-2 18) color-5)
|
|
(fill
|
|
(circle
|
|
(mul 20 5) pos-row-2 18) color-6)
|
|
(fill
|
|
(circle
|
|
(mul 20 7) pos-row-2 18) color-7)
|
|
(fill
|
|
(circle
|
|
(mul 20 9) pos-row-2 18) color-8)
|
|
;
|
|
(def res
|
|
(add color-1:hex ":" color-2:hex ":" color-3:hex ":" color-4:hex ":" color-5:hex ":" color-6:hex ":" color-7:hex ":" color-8:hex))
|
|
(echo
|
|
(add res ":" res)) |