Turtle
This is a turtle drawing that I saw on google and thought it was cute so I drew it with code.
(defn make-arc [deg]
(repeat deg [:fwd 1 :right 1])
)
(defn make-arc2 [deg2]
(repeat deg2 [:fwd 1.50 :right 1])
)
(defn make-arc3 [deg3]
(repeat deg3 [:fwd 1 :right 1.20])
)
(defn make-arc4 [deg4]
(repeat deg4 [:fwd 1 :left 1.20])
)
(defn make-arc5 [deg4]
(repeat deg4 [:fwd 1 :right 2])
)
(defn make-arc6 [deg4]
(repeat deg4 [:fwd 1 :left 1.80])
)
(defn make-arc7 [deg2]
(repeat deg2 [:fwd 1 :right 10])
)
(defn make-arc8 [deg2]
(repeat deg2 [:fwd 1 :left 10])
)
(defn make-arc9 [deg2]
(repeat deg2 [:fwd 1 :left 5])
)
(defn eyes []
(concat [:color "black"]
[:right 95 ]
[:pen :up](make-arc6 17) [:pen :down]
(make-arc8 3)(make-arc8 2)(make-arc6 20)
(make-arc8 1)(make-arc9 17)(make-arc8 30) (make-arc8 10) (make-arc6 23) (make-arc9
30)
[:pen :up :left 63 :fwd 25 :left 95]
[:pen :down ] (make-arc9 35)
)
)
(defn circles []
(concat [:color "green"]
(repeat 36[:right 10 :fwd 1])
[:pen :up :right 90 :fwd 20 :pen :down]
(repeat 30 [:right 13 :fwd 1])
))
(defn draw [shape]
(js/browserdraw
(into-array (flatten shape))))
(draw
(concat [:color "green"]
(repeat 1
(concat
(make-arc 135)(make-arc2 25)(make-arc3 20)
(make-arc2 20)(make-arc4 20)(make-arc2 25)
[:right 50](make-arc 40)[:right 20]
(make-arc3 30) [:left 90](make-arc3 15)
(make-arc5 30)[:right 120](make-arc4 25)
(make-arc6 25)[:left 110](make-arc5 10)
[:pen :up ](make-arc5 340)[:pen :down]
(make-arc5 10)[:left 35] (make-arc 45)
[:right 40](make-arc 45)[:right 85]
[:pen :up :fwd 17 :left 90 ] [:pen :down]
(eyes)[:pen :up :right 60 :fwd 30 :left 100] (eyes)[:pen :up :right 75 :fwd 20 :pen :down]
(circles)[:pen :up :left 90 :fwd 33 :pen :down :left 70 ]
(make-arc3 3)(make-arc7 8)(make-arc 53) (make-arc7 8)(make-arc3 8)(make-arc7 2)
[:pen :up :right 50 :fwd 50 :pen :down ]
(make-arc 50)(make-arc2 115)[:right 60]
(repeat 54 [:fwd 2.9 :right 1 ])[:left 95
:fwd 7 :left 85]
(repeat 50 [:fwd 3 :left 1 ])[:right 10]
(make-arc9 20)
[:pen :up :right 10 :fwd 3 :right 75 :pen
:down :fwd 17] (make-arc7 16)(make-arc 30)
[:fwd 3 :pen :up :fwd 10 :left 75 :pen :down :fwd 19 :left 65](repeat 30[:right 3 :fwd
1]) [:right 37](make-arc 65)[:right 35]
(repeat 30[:right 3.2 :fwd 1])[:fwd 7 :left
75 :fwd 10 :pen :up :fwd -27 :left 90 :fwd
19 :right 130 :pen :down](make-arc5 10)
[:right 110](make-arc 20)[:left 165 ](make-arc 20)[:right 125](make-arc 20)
[:pen :up :right 117 :fwd 27 :left 33 :pen :down :right 20](make-arc 15)(make-arc7 6) (make-arc2 8)[:right 87 :pen :up :fwd 7 :right 70 :pen :down](make-arc 20)[:pen :up :right 90 :fwd 47 :right 90 :fwd 15 :pen :down :left 10 :fwd -7 :right 100](repeat 23 [:right 4 :fwd 1])[:fwd 7][:right 50](make-arc 65)[:right 55 :fwd 5](repeat 20 [:right 4 :fwd 1])[:fwd 5 :left 83 :fwd 18 :left 70 :fwd 11 :left 112 :fwd 13 :right 90](repeat 30[:left 3 :fwd 1])[:left 70 :fwd 10 :left 100 :fwd 10](make-arc9 10)[:pen :up :right 150 :fwd 12 :right 115 :fwd 14 :pen :down :right 200 :fwd 8 :right 120 :fwd 17 :left 155 :fwd 14](repeat 5 [:fwd 1 :right 15])[:right 85 :fwd 19 :left 165 :pen :up :fwd 38 :pen :down :right 27] (repeat 36[:right 12 :fwd 1])
[:pen :up :right 90 :fwd 18 :pen :down] (repeat 30 [:right 15 :fwd 1])[:pen :up :right 145 :fwd 105 :left 60 :fwd 10 :pen :down](repeat 36[:right 12 :fwd 1]) [:pen :up :right 90 :fwd 18 :pen :down] (repeat 30 [:right 15 :fwd 1])[:right 80 :pen :up :fwd 120 :pen :down :left 150 :fwd 30 :right 50](make-arc2 30 ) [:right 50 :fwd 35 :left 88](repeat 8[:left 1 :fwd 1])[:left 85 :fwd 33 :right 65 (make-arc 25) :right 30 (make-arc 16):pen :up :left 120 :fwd 19 :left 95 :pen :down :fwd 12 :right 35 (repeat 20 [:fwd 2 :right 1]) :right 40 (make-arc 22):pen :up :right 90 :fwd 42 :pen :down :fwd 2 :right 45 (make-arc5 10) :right 120 :pen :up :fwd 59 :pen :down :left 105 (make-arc 20) :right 58 :fwd 60 :right 50 ( make-arc5 15) :left 125 :pen :up :fwd 25 :pen :down :left 135 :fwd 15 :right 30 (make-arc 45) :right 45 :fwd 30 :pen :up :fwd -35 :left 110 :fwd 5 :pen :down :fwd 17 :left 63 ] (repeat 18 [:fwd 2 :left 1])[:left 97] (repeat 22 [:fwd 2 :left 1])[:left 90 (repeat 16 [:fwd 2 :left 1]) :pen :up :left 60 :fwd 25 :right 35 :pen :down (make-arc4 27) :left 30 (make-arc4 25) :left 70 (make-arc4 35) :left 67 (repeat 13 [:fwd 2.3 :left 1])]
))
))
(println "Done!")