29 lines
571 B
Common Lisp
29 lines
571 B
Common Lisp
; display color from the theme.
|
|
; ex: theme:f_high
|
|
(clear)
|
|
(fill
|
|
(frame) theme:background)
|
|
(def color-box
|
|
(div
|
|
(:h
|
|
(frame)) 10))
|
|
(defn print-value
|
|
(item id)
|
|
(
|
|
(def box-y
|
|
(add
|
|
(mul id color-box)
|
|
(div color-box 2)))
|
|
(fill
|
|
(circle color-box box-y
|
|
(div color-box 2)) item)
|
|
(fill
|
|
(text 140 box-y 30 id) "white")
|
|
(fill
|
|
(text 200 box-y 30
|
|
(of
|
|
(keys theme) id)) "white")
|
|
(fill
|
|
(text 400 box-y 30 item) "white")))
|
|
(map
|
|
(values theme) print-value) |