34 lines
391 B
Common Lisp
34 lines
391 B
Common Lisp
; transforms
|
|
|
|
(clear)
|
|
|
|
(def theme
|
|
(get-theme))
|
|
|
|
(transform:move 150 150)
|
|
|
|
(fill
|
|
(circle 0 0 150) theme:b_inv)
|
|
|
|
(transform:move 300 0)
|
|
|
|
(transform:rotate
|
|
(rad 90))
|
|
|
|
(fill
|
|
(circle 0 0 150) theme:b_high)
|
|
|
|
(transform:move 300 0)
|
|
|
|
(transform:rotate
|
|
(rad 90))
|
|
|
|
(fill
|
|
(circle 0 0 150) theme:b_med)
|
|
|
|
(transform:move 300 0)
|
|
|
|
(fill
|
|
(circle 0 0 150) theme:b_low)
|
|
|
|
(transform:reset) |