Author: Daniel Mentrard

Eveloppes

B_1 = (0.07457309810623064, -0.1282573505982313)
Vues = (1.075571373332727, 0.5370768323367453)
xa: x(Vues)
sinphi: sin(xa)
cosphi: cos(xa)
ya: y(Vues)
sintheta: sin(ya)
Zoom = 1 (slider from 0.1 to 5, step 0.1)
xy: -Zoom cosphi sintheta
g = 1.9000000000000004 (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.623022073759439, 1.1964170136236592)
k = 2 (slider from -5 to 5, step 0.1)
costheta: cos(ya)
Z: (x(B_1) + 0, y(B_1) + Zoom costheta)
w = Vector(B_1, Z)
a = OrthogonalLine(Vues, yAxis)
b = OrthogonalLine(Vues, 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)
F = Mirror(C, O)
h = Segment(D, O)
i = Segment(E, O)
j = Segment(O, F)
I = Midpoint(A, C)
J = Midpoint(I, C)
K = Midpoint(J, O)
L = Midpoint(K, J)
M = Mirror(L, J)
p = Conic(A, M, C, E, F)
G = Midpoint(C, D)
H = Midpoint(C, G)
N = Midpoint(O, H)
P = Midpoint(N, H)
Q = Mirror(P, H)
q = Conic(D, Q, C, B, F)
R = Midpoint(B, A)
S = Midpoint(R, B)
T = Midpoint(O, S)
U = Midpoint(T, S)
V = Mirror(U, S)
r = Conic(A, V, B, E, D)
W = Translate(E, Vector[g v])
A1 = Mirror(W, O)
l = Segment(W, A1)
B1, C1 = Intersect(r, l)
D1 = Midpoint(C, B1)
E1 = Midpoint(D1, C)
F1 = Midpoint(O, E1)
G1 = Midpoint(F1, E1)
H1 = Mirror(G1, E1)
s = Conic(B1, H1, C, C1, F)
I1 = Translate(D, Vector[-k u])
m = Line(I1, O)
J1, K1 = Intersect(r, m)
L1 = Midpoint(C, K1)
M1 = Midpoint(L1, C)
N1 = Midpoint(O, M1)
O1 = Midpoint(N1, M1)
P1 = Mirror(O1, M1)
t = Conic(K1, P1, C, J1, F)
poly1, e_1, c_1, o = Polygon(C, O, E)
poly2, o_1, c_2, k1 = Polygon(C, K1, O)
poly3, o_2, c_3, d_1 = Polygon(C, D, O)
poly4, o_3, c_4, b1 = Polygon(C, B1, O)
poly5, c1, c_5, o_4 = Polygon(C, O, C1)
poly6, b_1, c_6, o_5 = Polygon(C, O, B)
poly7, j1, c_7, o_6 = Polygon(C, O, J1)
poly8, o_7, a_1, c_8 = Polygon(A, C, O)
poly9, b1_1, o_8, f_1 = Polygon(O, F, B1)
poly10, f_2, o_9, a_2 = Polygon(O, A, F)
poly11, f_3, o_{10}, d_2 = Polygon(O, D, F)
poly12, f_4, o_{11}, k1_1 = Polygon(O, K1, F)
poly13, f_5, o_{12}, j1_1 = Polygon(O, J1, F)
Q1 = Intersect(p, r, 1)
poly14, f_6, e_2, o_{13} = Polygon(E, O, F)
poly15, f_7, c1_1, o_{14} = Polygon(C1, O, F)
poly16, f_8, o_{15}, b_2 = Polygon(O, B, F)
poly17, a_3, o_{16}, b1_2 = Polygon(O, B1, A)
poly18, b1_3, o_{17}, d_3 = Polygon(O, D, B1)
poly19, o_{18}, k1_2, d_4 = Polygon(K1, D, O)
R1 = Intersect(p, r, 3)
poly20, e_3, k1_3, o_{19} = Polygon(K1, O, E)
poly21, o_{20}, e_4, c1_2 = Polygon(E, C1, O)
poly22, o_{21}, c1_3, b_3 = Polygon(C1, B, O)
poly23, j1_2, o_{22}, b_4 = Polygon(O, B, J1)
poly24, a_4, o_{23}, j1_3 = Polygon(O, J1, A)
n = false