Author: Daniel Mentrard

Taille

Pliage

Dépliage

t = 3.5 (slider from 0 to 3.5, step 0.1)
Hauteur = 2 (slider from 0 to 2.5, step 0.1)
O = (1.9272350085690406, 0.5188577828412249)
Diagonale = 1.1 (slider from 0 to 2, step 0.1)
Zoom = 1 (slider from -5 to 5, step 0.1)
Vues = (-0.5, 0.5)
ya: y(Vues)
costheta: cos(ya)
sintheta: sin(ya)
xa: x(Vues)
cosphi: cos(xa)
xy: -(Zoom) * cosphi * sintheta
sinphi: sin(xa)
B_1 = (-0.5, 0)
Y: (x(B_1) + Zoom * cosphi, y(B_1) + Zoom * sinphi * sintheta)
v = Vector(B_1, Y)
B = Translate(O, Vector[Diagonale * v])
D = Mirror(B, O)
Z: (x(B_1), y(B_1) + Zoom * costheta)
w = Vector(B_1, Z)
C = Translate(O, Vector[Hauteur * w])
X: (x(B_1) + Zoom * sinphi, y(B_1) + xy)
u = Vector(B_1, X)
A = Translate(O, Vector[Diagonale * u])
H = Midpoint(A, B)
E = Mirror(A, O)
G = Midpoint(E, D)
z = Vector(O, G)
H' = Translate(H, Vector[-(Hauteur) * z])
N = Translate(G, Vector[Hauteur * z])
g = Segment(N, C)
q = Circle(N, If[t < g, t, g])
P, Q = Intersect(q, g)
m = Segment(P, H')
a = OrthogonalLine(Vues, yAxis)
b = OrthogonalLine(Vues, xAxis)
c: cos(ya)
d = Segment(O, A)
e = Segment(O, B)
f = Segment(O, C)
F = Mirror(C, O)
h = Segment(D, O)
i = Segment(E, O)
j = Segment(O, F)
poly1, e_1, d_1, a_1, b_1 = Polygon(E, D, A, B)
I = Midpoint(C, H)
J = Midpoint(C, I)
K = Midpoint(J, O)
L = Midpoint(J, K)
M = Mirror(L, J)
p = Conic(H, M, C, G, F)
poly3, e_3, d_3, p_1 = Polygon(D, P, E)
l = Vector(O, H)
r = Circle(H', If[t < m, t, m])
R, S = Intersect(r, m)
poly2, b_2, r_1, a_2 = Polygon(R, A, B)
T = Midpoint(d_1)
U = Midpoint(b_1)
n = Vector(O, T)
T' = Translate(T, Vector[Hauteur * n])
s = Segment(C, T')
c_1 = Circle(T', If[t < s, t, s])
V, W = Intersect(c_1, s)
poly4, d_2, v_1, a_3 = Polygon(V, A, D)
u_1 = Vector(O, U)
U' = Translate(U, Vector[Hauteur * u_1])
f_1 = Segment(C, U')
h_1 = Circle(U', If[t < f_1, t, f_1])
C_1, D_1 = Intersect(h_1, f_1)
poly5, e_2, c_2, b_3 = Polygon(C_1, B, E)