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