Added arc() shape

This commit is contained in:
Devine Lu Linvega
2019-08-02 14:13:42 +09:00
parent c21f39edbe
commit 44699fa08e
8 changed files with 107 additions and 61 deletions

View File

@@ -1,5 +1,6 @@
; animated recusive spiral
; by @local_guru
(def frame-rect (frame))
(defn rec
(v)
(if (gt v 0)

View File

@@ -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)