Half-drop and Random Turn

a22

(def em3
  (framed 10
          (repeat (empty-group) )
          (repeat (diamond {:stroke design-language/my-blue}))
          (half-drop-grid-layout 8
           (random-turn-groups
            (repeat (let [c (fn [col] {:stroke col})]
                      (nested-stack
                       (map c [design-language/my-blue
                               design-language/my-pink
                               design-language/my-green])
                       (group (->SShape {:stroke (p-color 0)} 
                                  [[-1 -1] [1 -1] [-1 1] [-1 -1]] ))
                       (fn [x] (- x 0.25)) ))
                    ))) ))

Leave a Reply