Animation 25

Slide Me!

Reset

A = (-9.891746131821625, 0.10886233294460797)
B = (2.8682371252780414, -3.1568853608249725)
C = (-2.821570712320491, 6.775027728474267)
D = Midpoint(A, B)
E = Midpoint(B, C)
F = Midpoint(C, A)
a = Segment(A, B)
b = Segment(B, C)
c = Segment(C, A)
d = Segment(C, D)
e = Segment(A, E)
f = Segment(B, F)
G = Intersect(d, e)
g = 15.85 (slider from 0 to 22, step 0.01)
A' = Dilate(A, If[0 < g ≤ 1, 1 - g, 0], D)
h = Segment(A, A')
A'_1 = Rotate(A, If[1 < g ≤ 2, ((-(g - 1)) * π), (-π)], D)
A'' = Rotate(A', If[1 < g ≤ 2, ((g - 1) * π), 3.141592653589793], D)
h' = Segment(A'_1, A'')
B' = Dilate(B, If[2 < g ≤ 3, 3 - g, 0], E)
i = Segment(B, B')
B'_1 = Rotate(B, If[3 < g ≤ 4, ((-(g - 3)) * π), (-π)], E)
B'' = Rotate(B', If[3 < g ≤ 4, ((g - 3) * π), 3.141592653589793], E)
i' = Segment(B'_1, B'')
C' = Dilate(C, If[4 < g ≤ 5, 5 - g, 0], F)
j = Segment(C, C')
C'_1 = Rotate(C, If[5 < g ≤ 6, ((-(g - 5)) * π), (-π)], F)
C'' = Rotate(C', If[5 < g ≤ 6, ((g - 5) * π), 3.141592653589793], F)
j' = Segment(C'_1, C'')
H = Midpoint(G, C)
I = Midpoint(G, B)
J = Midpoint(A, G)
C'_2 = Dilate(C, If[6 < g ≤ 7, 7 - g, 0], H)
k = Segment(C, C'_2)
H' = Dilate(H, If[7 < g ≤ 8, 8 - g, 0], G)
l = Segment(H, H')
G' = Dilate(G, If[8 < g ≤ 9, 9 - g, 0], D)
m = Segment(G, G')
A'_2 = Dilate(A, If[9 < g ≤ 10, 10 - g, 0], J)
n = Segment(A, A'_2)
J' = Dilate(J, If[10 < g ≤ 11, 11 - g, 0], G)
p = Segment(J, J')
G'_1 = Dilate(G, If[11 < g ≤ 12, 12 - g, 0], E)
q = Segment(G, G'_1)
poly1, c_1, a_1, b_1 = Polygon(A, B, C)
F' = Dilate(F, If[12 < g ≤ 13, 13 - g, 0], G)
r = Segment(F, F')
F'_1 = Rotate(F, If[14 < g ≤ 15, ((g - 14) * π), 3.141592653589793], G)
F'' = Rotate(F', If[14 < g ≤ 15, ((g - 14) * π), 3.141592653589793], G)
r' = Segment(F'_1, F'')
K = Rotate(F'_1, If[15 < g ≤ 16, ((g - 15) * π), 3.141592653589793], I)
F''' = Rotate(F'', If[15 < g ≤ 16, ((g - 15) * π), 3.141592653589793], I)
r'' = Segment(K, F''')
G'_2 = Rotate(G, If[16 < g ≤ 17, ((g - 16) * π), 3.141592653589793], G)
L = Rotate(G'_1, If[16 < g ≤ 17, ((g - 16) * π), 3.141592653589793], G)
q' = Segment(G'_2, L)
M = Rotate(G'_2, If[17 < g ≤ 18, ((g - 17) * π), 3.141592653589793], J)
L' = Rotate(L, If[17 < g ≤ 18, ((g - 17) * π), 3.141592653589793], J)
q'' = Segment(M, L')
G'_3 = Rotate(G, If[18 < g ≤ 19, ((g - 18) * π), 3.141592653589793], G)
G'' = Rotate(G', If[18 < g ≤ 19, ((g - 18) * π), 3.141592653589793], G)
m' = Segment(G'_3, G'')
N = Rotate(G'_3, If[19 < g ≤ 20, ((g - 19) * π), 3.141592653589793], H)
G''' = Rotate(G'', If[19 < g ≤ 20, ((g - 19) * π), 3.141592653589793], H)
m'' = Segment(N, G''')