Improve splash alignment

This commit is contained in:
Devine Lu Linvega
2019-07-27 15:41:16 +09:00
parent b844cbbc17
commit 94b062005a
7 changed files with 32 additions and 56 deletions

View File

@@ -1,6 +1,29 @@
; stars
(clear)
;
; times
(defn times
(v f)
(
(f v)
(if
(gt v 1)
(times
(sub v 1) f))))
; convert deg to radians
(defn deg-rad
(deg)
(mul deg
(div PI 180)))
; position on a circle from angle
(defn circle-pos
(cx cy r a) {:x
(add cx
(mul r
(cos a))) :y
(add cy
(mul r
(sin a)))})
; draw
(defn draw-spoke
(cx cy r a)
(