Author: Daniel Mentrard

Pliage

Dépliage

B_1 = (-4.918112227747378, -3.644132843253043)
Vues = (3.9605437611106806, 0.5069270995896857)
xa: x(Vues)
sinphi: sin(xa)
cosphi: cos(xa)
ya: y(Vues)
sintheta: sin(ya)
Zoom = 1 (slider from 1 to 5, 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)
k = 1 (slider from -5 to 5, step 0.1)
costheta: cos(ya)
Z: (x(B_1), y(B_1) + Zoom * costheta)
w = Vector(B_1, Z)
a_1 = OrthogonalLine(Vues, yAxis)
b_1 = OrthogonalLine(Vues, xAxis)
c_1: cos(ya)
Y: (x(B_1) + Zoom * cosphi, y(B_1) + Zoom * sinphi * sintheta)
v = Vector(B_1, Y)
O = (1.0522394184400037, -0.49240214590948966)
a = 1 (slider from -5 to 5, step 0.1)
b = 1 (slider from -5 to 5, step 0.1)
d = 2 (slider from -5 to 5, step 0.1)
K: O + a * u + b * v
L: O - a * u + b * v
M: O - a * u - b * v
N: O + a * u - b * v
α = 0 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
poly1, l, k_1, n, m = Polygon(L, K, N, M)
P: O + a * u + b * v + d * cos(α) * u + d * sin(α) * w
Q: O + a * u - b * v + d * cos(α) * u + d * sin(α) * w
R: O - a * u + b * v - d * cos(α) * u + d * sin(α) * w
S: O - a * u - b * v - d * cos(α) * u + d * sin(α) * w
poly2, k_2, p, q, n_1 = Polygon(K, P, Q, N)
poly3, l_1, m_1, s, r = Polygon(L, M, S, R)
T: O + a * u + b * v + d * cos(α) * v + d * sin(α) * w
U: O - a * u + b * v + d * cos(α) * v + d * sin(α) * w
V: O + a * u - b * v - d * cos(α) * v + d * sin(α) * w
W: O - a * u - b * v - d * cos(α) * v + d * sin(α) * w
poly4, n_2, v_1, w_1, m_2 = Polygon(N, V, W, M)
poly5, k_3, t, u_1, l_2 = Polygon(K, T, U, L)
A: O + a * u + b * v + d * cos(α) * u + d * sin(α) * w + 2.0 * a * cos(2.0 * α) * u + b * sin(2.0 * α) * w
B: O + a * u - b * v + d * cos(α) * u + d * sin(α) * w + 2.0 * a * cos(2.0 * α) * u + b * sin(2.0 * α) * w
poly6, b_2, q_1, p_1, a_2 = Polygon(B, Q, P, A)
Patron = 1 (slider from 1 to 11, step 1)
D = Midpoint(R, M)
S' = Translate(S, Vector[-(2.0 * v)])
C: S' + 2.0 * a * sin(α) * u + d * sin(α) * v
e = Segment(S, C)
M' = Translate(M, Vector[-(2.0) * v])
E: M' + 2.0 * a * sin(α) * u + d * sin(α) * v
f = Segment(M, E)
h = Segment(E, C)
N' = Translate(N, Vector[-(2.0) * v])
Q'_1 = Translate(Q, Vector[-(2.0) * v])
F: Q'_1 - 2.0 * a * sin(α) * u + b / 500.0 * sin(α) * w + d * sin(α) * v
i = Segment(Q, F)
G: N' - 2.0 * a * sin(α) * u + b / 500.0 * sin(α) * w + d * sin(α) * v
j = Segment(N, G)
d_1 = Segment(G, F)
Q'_2 = Translate(Q, Vector[-(2.0) * v])
B'_1 = Translate(B, Vector[-(2.0) * v])
H: Q'_2 - 2.0 * b * sin(α) * w + d * sin(α) * v
I: B'_1 - 2.0 * b * sin(α) * w + d * sin(α) * v
e_1 = Segment(B, I)
f_1 = Segment(I, H)
g_1 = Segment(H, Q)
K' = Translate(K, Vector[2.0 * v])
P'_1 = Translate(P, Vector[2.0 * v])
J: P'_1 - 2.0 * a * sin(α) * u - d * sin(α) * v
A_1: K' - 2.0 * a * sin(α) * u - d * sin(α) * v
h_1 = Segment(P, J)
i_1 = Segment(J, A_1)
j_1 = Segment(A_1, K)
H_1: O + a * u - b * v + d * cos(α) * u + d * sin(α) * w + 2.0 * a * cos(2.0 * α) * u + b * sin(2.0 * α) * w + 2.0 * a * cos(3.0 * α) * u + 2.0 * b * sin(3.0 * α) * w
s_1 = Segment(B, H_1)
C_1: O + a * u + b * v + d * cos(α) * u + d * sin(α) * w + 2.0 * a * cos(2.0 * α) * u + b * sin(2.0 * α) * w + 2.0 * a * cos(3.0 * α) * u + 2.0 * b * sin(3.0 * α) * w
c = Segment(H_1, C_1)
r_1 = Segment(C_1, A)
D_1 = Midpoint(N, P)
E_1: O + 3.0 * a * u + b * v + d * cos(α) * v + d * sin(α) * w
F_1 = Midpoint(k_1)
A' = Translate(A, Vector[2.0 * v])
P' = Translate(P, Vector[2.0 * v])
G_1: A' + 2.0 * a * sin(-(2.0 * α)) * u + d * sin(-(α)) * v - 2.0 * b * sin(α) * w
t_1 = Segment(A, G_1)
I_1: P' + 2.0 * a * sin(-(2.0 * α)) * u + d * sin(-(α)) * v - 2.0 * b * sin(α) * w
c_2 = Segment(G_1, I_1)
d_2 = Segment(I_1, P)
K_1: P'_1 + 2.0 * a * u - 4.0 * a * sin(α) * u - 2.0 * d * sin(α) * v
f_2 = Segment(J, K_1)
L_1: P + 2.0 * a * u - 2.0 * a * sin(α) * u - d * sin(α) * v
e_2 = Segment(P, L_1)
g_2 = Segment(L_1, K_1)
h_2 = Segment(M, W)
N_1: O - a * u - b * v - d * cos(α) * v + d * sin(α) * w
O_1 = Mirror(L_1, F_1)
P_1 = Mirror(K_1, F_1)
M_1: O - a * u - b * v - d * cos(α) * u + d * sin(α) * w + d * sin(α) * v - d * sin(α) * w
i_2 = Segment(M, M_1)
J_1: O - a * u - 3.0 * b * v - d * cos(α) * u + d * sin(α) * w + 2.0 * d * sin(α) * v
j_2 = Segment(N_1, J_1)
p_2 = Segment(J_1, M_1)