Author: Daniel Mentrard

Taille

B_1 = (-0.05613169804832157, 0.38111372769670443)
M = (1.7211065217225001, 0.64016879023957)
xa: x(M)
sinphi: sin(xa)
cosphi: cos(xa)
ya: y(M)
sintheta: sin(ya)
Zoom = 0.8 (slider from 0.1 to 1, step 0.1)
xy: -(Zoom) * cosphi * sintheta
g = 1 (slider from -5 to 5, step 0.1)
X: (x(B_1) + Zoom * sinphi, y(B_1) + xy)
u = Vector(B_1, X)
O = (3.251338751626869, 0.4654572364315909)
k = 1 (slider from -5 to 5, step 0.1)
costheta: cos(ya)
Z: (x(B_1) + 0.0, y(B_1) + Zoom * costheta)
w = Vector(B_1, Z)
a = OrthogonalLine(M, yAxis)
b = OrthogonalLine(M, xAxis)
c: cos(ya)
Y: (x(B_1) + Zoom * cosphi, y(B_1) + Zoom * sinphi * sintheta)
v = Vector(B_1, Y)
A = Translate(O, Vector[g * u])
d = Segment(O, A)
C = Translate(O, Vector[k * w])
B = Translate(O, Vector[g * v])
e = Segment(O, B)
f = Segment(O, C)
D = Mirror(B, O)
E = Mirror(A, O)
h = Segment(D, O)
i = Segment(E, O)
G = Translate(A, v)
H = Translate(E, v)
poly1, b_1, h_1, e_1, o = Polygon(B, H, E, O)
poly2, b_2, g_1, a_1, o_1 = Polygon(B, G, A, O)
I = Mirror(G, A)
J = Mirror(H, E)
poly3, e_2, j_1, d_1, o_2 = Polygon(E, J, D, O)
K = Mirror(O, A)
L = Mirror(B, G)
M_1 = Mirror(L, K)
poly4, a_2, i_1, m, k_1 = Polygon(A, I, M_1, K)
poly5, g_2, a_3, k_2, l = Polygon(G, A, K, L)
N = Translate(J, w)
P = Translate(E, w)
B' = Translate(B, w)
H' = Translate(H, w)
E' = Translate(E, w)
O' = Translate(O, w)
poly1', b', h', e', o' = Polygon(B', H', E', O')
B'_1 = Translate(B, w)
G' = Translate(G, w)
A' = Translate(A, w)
O'_1 = Translate(O, w)
poly2', b'_1, g', a', o'_1 = Polygon(B'_1, G', A', O'_1)
G'_1 = Translate(G, w)
A'_1 = Translate(A, w)
K' = Translate(K, w)
L' = Translate(L, w)
poly5', g'_1, a'_1, k', l' = Polygon(G'_1, A'_1, K', L')
A'_2 = Translate(A, w)
I' = Translate(I, w)
M' = Translate(M_1, w)
K'_1 = Translate(K, w)
poly4', a'_2, i', m', k'_1 = Polygon(A'_2, I', M', K'_1)
E'_1 = Translate(E, w)
J' = Translate(J, w)
D' = Translate(D, w)
O'_2 = Translate(O, w)
poly3', e'_1, j', d', o'_2 = Polygon(E'_1, J', D', O'_2)
poly6, n, j_2, d_2, d'_1 = Polygon(N, J, D, D')
poly7, i'_1, i_2, m_1, m'_1 = Polygon(I', I, M_1, M')
poly8, c_1, o_3, a_4, a'_3 = Polygon(C, O, A, A')
poly9, p, e_3, j, n_1 = Polygon(P, E, J, N)
poly10, p_1, h'_1, h_2, e_4 = Polygon(P, H', H, E)
poly11, b'_2, b_3, h_3, h'_2 = Polygon(B', B, H, H')
poly12, g'_2, g_3, b_4, b'_3 = Polygon(G', G, B, B')
poly13, l'_1, l_1, g_4, g'_3 = Polygon(L', L, G, G')
poly14, k'_2, k_3, l_2, l'_2 = Polygon(K', K, L, L')
poly15, k'_3, m'_2, m_2, k_4 = Polygon(K', M', M_1, K)
F = Translate(C, w)
Q = Translate(P, w)
R = Translate(H', w)
S = Translate(B', w)
poly16, q, p_2, h'_3, r = Polygon(Q, P, H', R)
poly17, r_1, s, b'_4, h'_4 = Polygon(R, S, B', H')
poly18, q_1, f_1, s_1, r_2 = Polygon(Q, F, S, R)
poly19, s_2, b'_5, c_2, f_2 = Polygon(S, B', C, F)
poly20, f_3, q_2, p_3, c_3 = Polygon(F, Q, P, C)