Author: Daniel Mentrard

Ver los ejes

Para ver las caras que son paralelas entre sí.

Altura = 1 (slider from -5 to 5, step 0.1)
Longitud = 2.2 (slider from -5 to 5, step 0.1)
O = (16.522966274166784, -5.646122543067436)
Zoom = 4.3 (slider from 0.1 to 10, step 0.1)
Vista = (2.1600931028822252, 0.3846971310630961)
xa: x(Vista)
cosphi: cos(xa)
sinphi: sin(xa)
ya: y(Vista)
costheta: cos(ya)
sintheta: sin(ya)
xy: -(Zoom) * cosphi * sintheta
B = (-4.029432352146479, -7.391886132947328)
Z: (x(B), y(B) + Zoom * costheta)
w = Vector(B, Z)
X: (x(B) + Zoom * sinphi, y(B) + xy)
u = Vector(B, X)
P = Translate(O, Vector[Longitud * u])
Y: (x(B) + Zoom * cosphi, y(B) + Zoom * sinphi * sintheta)
v = Vector(B, Y)
Anchura = 1.6000000000000005 (slider from -5 to 5, step 0.1)
Q = Translate(P, Vector[Anchura * v])
d = Circle(Vista, 0.2)
C = Point(d)
e_2 = Ray(Vista, C)
a = OrthogonalLine(Vista, yAxis)
b = OrthogonalLine(Vista, xAxis)
c: cos(ya)
R = Translate(Q, Vector[Altura * w])
S = Mirror(R, O)
T = Mirror(R, Q)
U = Mirror(T, P)
V = Mirror(R, P)
W = Mirror(U, O)
Z_1 = Mirror(T, O)
A1 = Mirror(V, O)
k = Segment(Z_1, U)
l = Segment(U, V)
m = Segment(V, T)
n = Segment(T, W)
p = Segment(W, A1)
q = Segment(A1, Z_1)
r = Segment(A1, R)
s = Segment(R, T)
t = Segment(R, U)
a1 = Segment(Z_1, S)
b1 = Segment(S, W)
c1 = Segment(S, V)
B1 = facecachée3points(W, S, Z_1)
C1 = facecachée3points(Z_1, A1, S)
poly2, c1_1, a1_1, b1_1, s_1 = Polygon(C1, A1, B1, S)
poly4, d1, f1, j1, k1 = fachequadrlatèrecachée(Z_1, U, V, S)
poly5, l1, m1, n1, p1 = fachequadrlatèrecachée(A1, R, U, Z_1)
poly6, q1, r1, s1, t1 = fachequadrlatèrecachée(W, S, V, T)
poly7, a2, b2, c2, d2 = fachequadrlatèrecachée(U, R, T, V)
poly8, e2, f2, g2, h2 = fachequadrlatèrecachée(R, A1, W, T)
poly1, s_2, w_1, t_1, v_1 = Polygon(S, W, T, V)
f = false
Separación = 0.6 (slider from 0 to 2, step 0.1)
A = Midpoint(Z_1, R)
D = Translate(A, Vector[Separación * w])
E = Translate(R, Vector[Separación * w])
F = Translate(A1, Vector[Separación * w])
G = Translate(Z_1, Vector[Separación * w])
H = Translate(U, Vector[Separación * w])
poly3, f_1, e_1, h_1, g_1 = Polygon(F, E, H, G)
F' = Mirror(F, O)
E' = Mirror(E, O)
H' = Mirror(H, O)
G' = Mirror(G, O)
poly3', f', e', h', g' = Polygon(F', E', H', G')
I = Translate(R, Vector[Separación * u])
J = Translate(T, Vector[Separación * u])
K = Translate(U, Vector[Separación * u])
L = Translate(V, Vector[Separación * u])
poly9, k_1, i_1, j, l_1 = Polygon(K, I, J, L)
K' = Mirror(K, O)
I' = Mirror(I, O)
J' = Mirror(J, O)
L' = Mirror(L, O)
poly9', k', i', j', l' = Polygon(K', I', J', L')
M = Translate(A1, Vector[Separación * v])
N = Translate(R, Vector[Separación * v])
D1 = Translate(W, Vector[Separación * v])
E1 = Translate(T, Vector[Separación * v])
poly10, m_1, d1_1, e1, n_1 = Polygon(M, D1, E1, N)
M' = Mirror(M, O)
D1' = Mirror(D1, O)
E1' = Mirror(E1, O)
N' = Mirror(N, O)
poly10', m', d1', e1', n' = Polygon(M', D1', E1', N')

Tool: face cachée 3 points (command facecachée3points)
Input: F, G, H
Output: J

g = Ray(F, G)
F' = Rotate(F, 90.0*°, F)
G' = Rotate(G, 90.0*°, F)
h = Ray(F', G')
i = OrthogonalLine(H, h)
I = Intersect(h, i)
j = OrthogonalLine(I, g)
J = Intersect(g, j)

Tool: fache quadrlatère cachée (command fachequadrlatèrecachée)
Input: D1, E1, F1, G1
Output: poly3, e1, i1, g1, h1

H1 = facecachée3points(D1, G1, F1)
I1 = facecachée3points(F1, E1, D1)
poly3, h1, g1, i1, e1 = Polygon(H1, G1, I1, E1)