Pythagoras fractal tree: Step 1
Video reference
Step 1: https://youtu.be/UY1-xXJjcs4?feature=shared&t=72
Step 1: GGB Script
t = Slider(0, 1, 0.01, 1, 200)
SetValue(t, 0.5)
A = (0,0)
B = (1, 0)
s = Polygon(A, B, 4)
C0 = Centroid(s)
VC = Vertex(s, 3)
VD = Vertex(s, 4)
F = Point(Semicircle(VD, VC), t)
CR = Centroid(Polygon(F, VC, 4))
CL = Centroid(Polygon(VD, F, 4))
dL = Length(Segment(VD, F))
dR = Length(Segment(VC, F))
side = Perimeter(s)/4
angR = Angle(F, VC, VD)
angL = Angle(VC, VD, F)
sR = Translate( Rotate( Dilate(s, dR/side, C0), -angR, C0), Vector(C0, CR) )
sL = Translate( Rotate( Dilate(s, dL/side, C0), angL, C0), Vector(C0, CL) )
Output = {sR, sL}Thanks for your support: https://www.patreon.com/jcponce
Have fun!