Sections
Author: Daniel Mentrard

Przesuń przekrój

Altura = 1.6 (slider from 0.1 to 2.8, step 0.1)
B_1 = (-3.337304061749027, -1.6148568104427135)
Vistas = (3.398661974492743, -0.3125327507386295)
ya: y(Vistas)
costheta: cos(ya)
Zoom = 1 (slider from 0.1 to 5, step 0.1)
Z: (x(B_1) + 0.0, y(B_1) + Zoom * costheta)
w_1 = Vector(B_1, Z)
O = (-5.32124813922595, -3.8087231265220676)
G = Translate(O, w_1)
v = Vector(O, G)
B = (-0.5225554665820148, -0.5593226596174604)
sintheta: sin(ya)
xa: x(Vistas)
cosphi: cos(xa)
xy: -(Zoom) * cosphi * sintheta
sinphi: sin(xa)
Y: (x(B_1) + Zoom * cosphi, y(B_1) + Zoom * sinphi * sintheta)
v_1 = Vector(B_1, Y)
N = Translate(O, v_1)
w = Vector(O, N)
X: (x(B_1) + Zoom * sinphi, y(B_1) + xy)
u_1 = Vector(B_1, X)
K = Translate(O, u_1)
u = Vector(O, K)
g = 1 (slider from -5 to 5, step 0.1)
k = 1 (slider from -5 to 5, step 0.1)
a = OrthogonalLine(Vistas, yAxis)
b = OrthogonalLine(Vistas, xAxis)
c: cos(ya)
e = Line(O, G)
Z1 = Translate(N, u)
A2: B + 2.0 * w - 2.0 * u - 2.0 * Altura * v
A3: B - 2.0 * w - 2.0 * u - 2.0 * Altura * v
S: B + Altura * v
A4: B - 2.0 * w + 2.0 * u - 2.0 * Altura * v
A1: B + 2.0 * w + 2.0 * u - 2.0 * Altura * v
d = Segment(A2, A1)
f = Segment(A1, A4)
h_2 = Segment(A4, A3)
i = Segment(A3, A2)
j = Segment(A2, S)
l = Segment(S, A1)
m = Segment(S, A4)
n = Segment(S, A3)
plano = 0 (slider from 0 to 1, step 0.01)
B1: (1.0 - plano) * A1 + plano * A4
B2: (1.0 - plano) * A2 + plano * A3
q: plano - 0.5
B3 = If(plano < 0.5, (1.0 - 2.0 * plano) * A2 + 2.0 * plano * S, (1.0 - 2.0 * q) * S + 2.0 * q * A3)
B4 = If(plano < 0.5, (1.0 - 2.0 * plano) * A1 + 2.0 * plano * S, (1.0 - 2.0 * q) * S + 2.0 * q * A4)
poly1, b2, b1, b4, b3 = Polygon(B2, B1, B4, B3)
C1: B + 2.0 * w + 4.0 * u - 2.5 * Altura * v
C2: B + 2.0 * w - 4.0 * u - 2.5 * Altura * v
D1: B - 2.0 * w + 4.0 * u - 2.5 * Altura * v
D2: B - 2.0 * w - 4.0 * u - 2.5 * Altura * v
C3: B + 2.0 * w - 4.0 * u + 2.5 * Altura * v
D3: B - 2.0 * w - 4.0 * u + 2.5 * Altura * v
C4: B + 2.0 * w + 4.0 * u + 2.5 * Altura * v
D4: B - 2.0 * w + 4.0 * u + 2.5 * Altura * v
E1: (1.0 - plano) * C1 + plano * D1
E2: (1.0 - plano) * C2 + plano * D2
E3: (1.0 - plano) * C3 + plano * D3
E4: (1.0 - plano) * C4 + plano * D4
poly2, e2, e3, e4, e1 = Polygon(E2, E3, E4, E1)
poly3, a4, a3, a2, a1 = Polygon(A4, A3, A2, A1)
A = Midpoint(A4, A2)
z = Vector(A, S)
liste1 = Sequence(Polygon[Dilate[A4, i, S], Dilate[A3, i, S], Dilate[A2, i, S], Dilate[A1, i, S]], i, 0.0, 1.0, 0.02)