Improve splash alignment
This commit is contained in:
@@ -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)
|
||||
(
|
||||
|
||||
Reference in New Issue
Block a user