Vera Molnár art style

Inspired by the work of Vera Molnár
https://en.wikipedia.org/wiki/Vera_Moln%C3%A1r
Setup button
## First we need a tool[br]## So we make a polygon[br][br]#P1 = (RandomUniform(0.5, 1), RandomUniform(0.5, 1))[br]#P2 = (RandomUniform(0.5, 1), RandomUniform(-1, -0.5))[br]#P3 = (RandomUniform(-1, -0.5), RandomUniform(-1, -0.5))[br]#P4 = (RandomUniform(-1, -0.5), RandomUniform(0.5, 1))[br][br]#Lp = Zip(Dilate(Polygon(P1, P2, P3, P4), k/5), k, 1...5)[br][br]## Now we can create a tool[br]## I called it: RandomPoly( <List> )[br]## You just need to input a list of numbers, e.g. {1,2,3,4,5}[br][br]## Now we can make some art :)[br][br]Ln = 1...5[br]Lp1 = Zip(Dilate( (RandomUniform(0.5, 1), RandomUniform(0.5, 1)) , k/5), k, Ln)[br]Lp2 = Zip(Dilate( (RandomUniform(0.5, 1), RandomUniform(-1, -0.5)) , k/5), k, Ln)[br]Lp3 = Zip(Dilate( (RandomUniform(-1, -0.5), RandomUniform(-1, -0.5)) , k/5), k, Ln)[br]Lp4 = Zip(Dilate( (RandomUniform(-1, -0.5), RandomUniform(0.5, 1)) , k/5), k, Ln)[br][br][br]LPoly = Zip(Polygon(p1, p2, p3, p4), p1, Lp1, p2, Lp2, p3, Lp3, p4, Lp4 )[br][br]Lv =Flatten( Zip( Zip( Vector( (0, 0), (2*k, 2*j) ), k, 1…5), j, 1…5 ) )[br][br]LDiffPoly = Zip( RandomPoly(Ln), k, 1...25 )[br][br]LFrame = Zip( Translate(poly, v), poly, LDiffPoly, v, Lv )[br][br]r = random()[br]g = random()[br]b = random()
Update button
UpdateConstruction()[br][br]SetColor( LFrame, r, g, b )
Save button
SetActiveView(1)[br]ExportImage("filename", "my-ggb-art.png", "type", "png", "scalecm", 1, "dpi", 600, "view", 1)

Information: Vera Molnár art style