Author: Daniel Mentrard

Recorte

B_1 = (-0.9733625096224862, -0.7763386776706983)
Vue = (1.802159953513018, -0.456322783916716)
xa: x(Vue)
sinphi: sin(xa)
cosphi: cos(xa)
ya: y(Vue)
sintheta: sin(ya)
Zoom = 1 (slider from 0.1 to 5, step 0.1)
xy: -(Zoom) * cosphi * sintheta
r = 1.1 (slider from 0.1 to 1.5, step 0.1)
X: (x(B_1) + Zoom * sinphi, y(B_1) + xy)
u = Vector(B_1, X)
O = (0.3743967352260182, 0.24525052162086142)
h = 2.3 (slider from 0.5 to 2.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(Vue, yAxis)
b = OrthogonalLine(Vue, 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[r * u])
d = Segment(O, A)
S = Translate(O, Vector[h * w])
B = Translate(O, Vector[r * v])
e = Segment(O, B)
f = Segment(O, S)
D = Mirror(B, O)
E = Mirror(A, O)
F = Mirror(S, O)
h_1 = Segment(D, O)
i = Segment(E, O)
j = Segment(O, F)
G = Translate(D, u)
H = Translate(B, u)
I = Mirror(H, B)
J = Mirror(G, D)
l = Segment(E, B)
K = Midpoint(l)
L = Midpoint(E, K)
m = Line(O, L)
M = Midpoint(O, L)
N = Midpoint(M, L)
P = Mirror(N, L)
p = Conic(B, P, E, D, A)
n = Segment(J, H)
q = Segment(G, I)
r_1 = Segment(S, D)
s = Segment(S, B)
t = Segment(S, A)
a1 = Segment(S, E)
b1 = AngularBisector(B, O, A)
c1 = AngularBisector(D, O, A)
Q = Midpoint(E, D)
R = Midpoint(E, B)
d1 = Line(R, O)
e1 = Line(Q, O)
S_1, T = Intersect(p, e1)
U, V = Intersect(p, d1)
f1 = Segment(S, T)
g1 = Segment(S, V)
h1 = Segment(S, S_1)
i1 = Segment(S, U)
W = Midpoint(E, T)
A1 = Midpoint(E, V)
B1 = Midpoint(V, B)
j1 = Line(W, O)
k1 = Line(A1, O)
l1 = Line(B1, O)
C1 = Midpoint(B, S_1)
m1 = Line(C1, O)
D1, E1 = Intersect(p, j1)
F1, G1 = Intersect(p, m1)
H1, I1 = Intersect(p, l1)
J1, K1 = Intersect(p, k1)
n1 = Segment(E1, S)
p1 = Segment(I1, S)
q1 = Segment(S, F1)
r1 = Segment(K1, S)
s1 = Segment(S, G1)
t1 = Segment(D1, S)
a2 = Segment(S, J1)
b2 = Segment(S, H1)
c2 = Conic(B, P, E, D, A)
o = 0 (slider from 0 to 1, step 0.1)
L1 = Point(s)
b3 = Line(L1, e)
M1 = Intersect(b3, r_1)
N1 = Intersect(b3, f)
c3 = Segment(O, A)
d3 = Line(N1, c3)
O1 = Intersect(d3, t)
P1 = Intersect(d3, a1)
e3 = Segment(O, S_1)
f3 = Line(N1, e3)
Q1 = Intersect(h1, f3)
g3 = Conic(L1, Q1, O1, M1, P1)
h3 = Conic(L1, Q1, O1, M1, P1)
C = (3.5991722799776897, 0.07293427113794768)
z = Vector(O, C)
g = Translate(c2, z)
k = Translate(h3, z)
S' = Translate(S, z)
B' = Translate(B, z)
d2 = Segment(S', B')
S'_1 = Translate(S, z)
G1' = Translate(G1, z)
e2 = Segment(S'_1, G1')
S'_2 = Translate(S, z)
S_1' = Translate(S_1, z)
f2 = Segment(S'_2, S_1')
D1' = Translate(D1, z)
S'_3 = Translate(S, z)
g2 = Segment(D1', S'_3)
S'_4 = Translate(S, z)
A' = Translate(A, z)
h2 = Segment(S'_4, A')
S'_5 = Translate(S, z)
J1' = Translate(J1, z)
i2 = Segment(S'_5, J1')
S'_6 = Translate(S, z)
U' = Translate(U, z)
j2 = Segment(S'_6, U')
S'_7 = Translate(S, z)
H1' = Translate(H1, z)
k2 = Segment(S'_7, H1')
S'_8 = Translate(S, z)
D' = Translate(D, z)
l2 = Segment(S'_8, D')
S'_9 = Translate(S, z)
F1' = Translate(F1, z)
m2 = Segment(S'_9, F1')
S'_{10} = Translate(S, z)
T' = Translate(T, z)
n2 = Segment(S'_{10}, T')
I1' = Translate(I1, z)
S'_{11} = Translate(S, z)
p2 = Segment(I1', S'_{11})
S'_{12} = Translate(S, z)
V' = Translate(V, z)
q2 = Segment(S'_{12}, V')
K1' = Translate(K1, z)
S'_{13} = Translate(S, z)
r2 = Segment(K1', S'_{13})
S'_{14} = Translate(S, z)
E' = Translate(E, z)
s2 = Segment(S'_{14}, E')
E1' = Translate(E1, z)
S'_{15} = Translate(S, z)
t2 = Segment(E1', S'_{15})
R1 = Translate(N1, z)
S1, T1 = Intersect(k, r2)
a3 = Segment(T1, K1')
U1, V1 = Intersect(k, s2)
i3 = Segment(U1, E')
W1, Z1 = Intersect(k, q2)
j3 = Segment(W1, V')
A2, B2 = Intersect(k, p2)
k3 = Segment(B2, I1')
C2, D2 = Intersect(k, d2)
l3 = Segment(C2, B')
E2, F2 = Intersect(k, e2)
m3 = Segment(E2, G1')
G2, H2 = Intersect(k, f2)
n3 = Segment(G2, S_1')
I2, J2 = Intersect(k, g2)
p3 = Segment(J2, D1')
K2, L2 = Intersect(k, h2)
q3 = Segment(K2, A')
M2, N2 = Intersect(k, i2)
r3 = Segment(M2, J1')
O2, P2 = Intersect(k, j2)
s3 = Segment(O2, U')
Q2, R2 = Intersect(k, k2)
t3 = Segment(Q2, H1')
S2, T2 = Intersect(k, l2)
a4 = Segment(S2, D')
U2, V2 = Intersect(k, m2)
b4 = Segment(U2, F1')
W2, Z2 = Intersect(k, n2)
c4 = Segment(W2, T')
A3, B3 = Intersect(k, t2)
d4 = Segment(B3, E1')
C3 = Translate(R1, Vector[o * w])
u1 = Vector(R1, C3)
D3 = Translate(J2, u1)
E3 = Translate(K2, u1)
F3 = Translate(M2, u1)
G3 = Translate(O2, u1)
I3 = Translate(S'_{15}, u1)
f4 = Segment(I3, G3)
g4 = Segment(I3, F3)
h4 = Segment(I3, E3)
i4 = Segment(I3, D3)
J3 = Translate(G2, u1)
K3 = Translate(E2, u1)
L3 = Translate(B2, u1)
k4 = Translate(k, u1)
M3 = Translate(C2, u1)
j4 = Segment(K3, I3)
l4 = Segment(I3, M3)
m4 = Segment(I3, L3)
e4 = Segment(I3, J3)
H3 = Translate(T1, u1)
n4 = Segment(I3, H3)
N3 = Translate(W1, u1)
O3 = Translate(B3, u1)
p4 = Segment(I3, N3)
q4 = Segment(I3, O3)
P3 = Translate(B3, u1)
Q3 = Translate(B3, u1)
R3 = Translate(W2, u1)
r4 = Segment(I3, R3)
S3 = Translate(U1, u1)
s4 = Segment(I3, S3)
T3 = Translate(U2, u1)
U3 = Translate(S2, u1)
V3 = Translate(Q2, u1)
t4 = Segment(I3, T3)
a5 = Segment(I3, U3)
b5 = Segment(I3, V3)
c5 = Translate(c2, z)
d5 = Translate(h3, z)
e5 = Translate(d5, u1)