Added arc() shape
This commit is contained in:
@@ -1,5 +1,6 @@
|
||||
; animated recusive spiral
|
||||
; by @local_guru
|
||||
(def frame-rect (frame))
|
||||
(defn rec
|
||||
(v)
|
||||
(if (gt v 0)
|
||||
|
||||
@@ -1,6 +1,8 @@
|
||||
; stars
|
||||
(clear)
|
||||
; times
|
||||
|
||||
(def frame-rect (frame))
|
||||
(defn times
|
||||
(v f)
|
||||
(
|
||||
@@ -28,8 +30,11 @@
|
||||
(cx cy r a)
|
||||
(
|
||||
(stroke
|
||||
(line cx cy (:x (circle-pos cx cy r a)) (:y (circle-pos cx cy r a))
|
||||
) "white" 2)))
|
||||
(line cx cy
|
||||
(:x
|
||||
(circle-pos cx cy r a))
|
||||
(:y
|
||||
(circle-pos cx cy r a))) "white" 2)))
|
||||
;
|
||||
(defn draw-star
|
||||
(cx cy r c)
|
||||
|
||||
Reference in New Issue
Block a user