Love Confession
I like the word love. I dedicate this code to my family, friends and everyone I love.
(defn draw [shape scale]
(js/browserdraw
(into-array (flatten shape))
scale))
(defn semi [dia angle]
(->> [:fwd (/ (* 3.1415926535897932384626433832795 dia) (* 40 angle)) :right 0.05]
(cycle)
(take (* 80 angle))))
(as-> [:color "red"] A
(into A [:fwd 80 :right 90 :pen :up :fwd 30 :right 90 :pen :down :color "red" :fwd 78.5 :left 90 :fwd 60 :pen :up :fwd 40 :right 180 :color "red" :pen :down])
(into A (semi 150 360))
(into A [:right 180 :pen :up :fwd 80 :color "red" :pen :down :left 110 :fwd 85 :right 180 :fwd 85 :left 140 :fwd 85 :right 70 :pen :up :fwd 20 :color "red" :pen :down :fwd 60 :right 180 :fwd 60 :left 90 :fwd 40 :left 90 :fwd 60 :right 180 :fwd 60 :left 90 :fwd 40 :left 90 :fwd 60 :pen :up :fwd 30 :color "red" :pen :down :left 90 :fwd 80 :right 180 :fwd 80 :left 90 :fwd 60 :left 90 :fwd 80])
(draw A 0.75))
(println "Done!")