32 lines
559 B
Common Lisp
32 lines
559 B
Common Lisp
; stars
|
|
(clear)
|
|
;
|
|
(defn draw-spoke
|
|
(cx cy r a)
|
|
(
|
|
(stroke
|
|
(line cx cy (:x (circle-pos cx cy r a)) (:y (circle-pos cx cy r a))
|
|
) 2 "white")))
|
|
;
|
|
(defn draw-star
|
|
(cx cy r c)
|
|
(
|
|
(times c
|
|
(λ
|
|
(i)
|
|
(
|
|
(draw-spoke cx cy r
|
|
(deg-rad
|
|
(mul i
|
|
(div 360 c)))))))))
|
|
; main
|
|
(times 100
|
|
(λ
|
|
()
|
|
(
|
|
(draw-star
|
|
(random 100 frame-rect:w)
|
|
(random 100 frame-rect:h)
|
|
(random 10 100)
|
|
(floor
|
|
(random 3 32)))))) |