White Flower Blast

a26


(defn round [n] 
    (layouts/clock-rotate n (std/poly 0.5 0 0.2 n 
           {:stroke (p-color 200 150 100) 
            :fill (p-color 150 100 80 100)}))  )

(def pattern (stack
    (layouts/four-mirror
       (layouts/grid-layout 6 (cycle (map round [3 4 5 6 7 8 9 10]))))
         (layouts/nested-stack 
            (color/setup-colors
                [(p-color 100 200 100)
                 (p-color 200 170 140 200)
                 (p-color 240 255 100 150)] (p-color 255))
                      (layouts/clock-rotate 12
                          (layouts/four-mirror 
                             (std/drunk-line 10  0.1 
                                {:stroke (p-color 0 0 255 100) 
                                 :stroke-weight 5})))
                                (fn [x] (- x 0.2)))  ))

Leave a Reply