Clojure Chaos

Appreciation

I drew this message using replit which is a coding platform that lets you write code and host apps, and with using some codes such as (pen up, pen down, left, right, fwd) to thank the teacher mariah knowles ,and the EA Carie for all the hardwork.

(defn draw [shape scale]
  (js/browserdraw
   (into-array (flatten shape)) scale))

(defn semi [dia angle]
  (->> [:fwd (/ (* 3.1415926535897932384626433832795 dia) (* 40 angle)) :left 0.05]
    (cycle)
    (take (* 90 angle))))

(defn line [len]
  (->> [:fwd len :right 180 :fwd len]))

(as-> [] A
  (into A [:fwd 116 :right 90 :fwd 200 :right 90])
  (cycle A)    
  (take 20 A)  
  (into [:color "#c73906"] A)
  (into A [:pen :up :fwd 18 :right 90 :fwd 5 :pen :down :fwd 50 :right 180 :fwd 50 :right 90 :fwd 15 :right 180 :fwd 30 :left 180 :fwd 30 :pen :up :fwd 5 :right 90 :pen :down :fwd 50 :right 180 :fwd 24 :right 90 :fwd 15 :left 90 :fwd 26 :right 180 :fwd 50 :pen :up :left 90 :fwd 5 :pen :down :left 75 :fwd 50 :right 150 :fwd 50 :pen :up :right 180 :fwd 25 :pen :down :left 75 :fwd 14 :pen :up :right 180 :fwd 25 :right 90 :fwd 24 :right 180 :pen :down :fwd 50 :right 158 :fwd 53 :left 158 :fwd 50 :pen :up :right 90 :fwd 10 :right 90 :pen :down :fwd 50 :right 180 :pen :up :fwd 22 :pen :down :right 45 :fwd 29 :pen :up :right 180 :fwd 25 :left 45 :fwd 2 :pen :down :left 45 :fwd 27 :right 180 :fwd 31 :right 45 :fwd 24 :pen :up :right 90 :fwd 42 :right 90 :pen :down :fwd 35 (semi 25 160) :fwd 35 :pen :up :right 180 :fwd 70 :right 90 :fwd 90 :pen :down :right 90 (semi 18 180) :fwd 30 :left 110 :fwd 30 (semi 18 180) :right 80 :fwd 4 :pen :up :left 15 :fwd 80 :left 90 :fwd 40 :right 180 :pen :down :fwd 40 :right 155 :fwd 40 :left 135 :fwd 40 :right 155 :fwd 40 :pen :up :left 90 :fwd 125 :left 90 :fwd 27 :right 90 :pen :down :right 210 (semi 48 220)])
  (draw A 1.5))

(println "Done!")