At the moment i am looking for simple sparse shapes. The program is also spartan.

(use 'g2d.core)

(g2d
(rule R (rect '(+ 1 (* 0.2 (noise 0.2 30))) 0.2))

(rule E (ellipse 0.25 1.0))

(rule P
(invoke R)
(invoke E)
(invoke P { :on :coord :ty 0.23})
)

(start P 99)
)

#generative #Clojure