GeoGebra Classroom

# Vera Molnár art style

Topic:
Geometry

## 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)