Pattern Generator

Pattern generator generates random patterns from circles, triangles and squares all you have to do is change few numbers and see what you get. unfortunately, it's not user interactive and you have to change the code itself I've tried repeating the pattern 19999 times and it still worked

example 1

example 2

example 3

example 4

example 5

example 6

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

(defn make-arc [deg]
  (repeat deg [:fwd 144 :right 90 :fwd 70 :left 2 :fwd 2 :right 8]))

(draw
    (concat [:color "#32a6a8"]
            (repeat 90
                    (concat
                     (make-arc 50)
                     [:left 100]))
            [:fwd 90]
            [:pen :up
             :fwd 120
             :pen :down]))

 (println "Done!")