Activa Rastro

Limpia Rastros

D = PointIn(a)
C = PointIn(a)
A = (0, 0, 5)
B = (0, 0, -2)
b = Line(A, B)
i = OrthogonalPlane(D, b)
F = Intersect(b, i)
h = OrthogonalPlane(C, b)
E = Intersect(b, h)
A1 = 1
A2 = 2
A3: (2 * A2) - A1
A4: (2 * A3) - A2
A5: (2 * A4) - A3
A6: (2 * A5) - A4
A7: (2 * A6) - A5
A8: (2 * A7) - A6
A9: (2 * A8) - A7
A10: (2 * A9) - A8
A11: (2 * A10) - A9
A12: (2 * A11) - A10
c = OrthogonalPlane((0, 0, 0), Vector[(1, 0, 0)])
n = 6 (slider from 0 to 12, step 1)
B1: E + (A1 / (n + 1) * (F - E))
C1 = OrthogonalLine(B1, c)
D1 = Point(C1)
E1 = If(A1  <  n + 1, D1, D)
B2: E + (A2 / (n + 1) * (F - E))
C2 = OrthogonalLine(B2, c)
D2 = Point(C2)
E2 = If(A2  <  n + 1, D2, D)
B3: E + (A3 / (n + 1) * (F - E))
C3 = OrthogonalLine(B3, c)
D3 = Point(C3)
E3 = If(A3  <  n + 1, D3, D)
B4: E + (A4 / (n + 1) * (F - E))
C4 = OrthogonalLine(B4, c)
D4 = Point(C4)
E4 = If(A4  <  n + 1, D4, D)
B5: E + (A5 / (n + 1) * (F - E))
C5 = OrthogonalLine(B5, c)
D5 = Point(C5)
E5 = If(A5  <  n + 1, D5, D)
B6: E + (A6 / (n + 1) * (F - E))
C6 = OrthogonalLine(B6, c)
D6 = Point(C6)
E6 = If(A6  <  n + 1, D6, D)
B7: E + (A7 / (n + 1) * (F - E))
C7 = OrthogonalLine(B7, c)
D7 = Point(C7)
E7 = If(A7  <  n + 1, D7, D)
B8: E + (A8 / (n + 1) * (F - E))
C8 = OrthogonalLine(B8, c)
D8 = Point(C8)
E8 = If(A8  <  n + 1, D8, D)
B9: E + (A9 / (n + 1) * (F - E))
C9 = OrthogonalLine(B9, c)
D9 = Point(C9)
E9 = If(A9  <  n + 1, D9, D)
B10: E + (A10 / (n + 1) * (F - E))
C10 = OrthogonalLine(B10, c)
D10 = Point(C10)
E10 = If(A10  <  n + 1, D10, D)
B11: E + (A11 / (n + 1) * (F - E))
C11 = OrthogonalLine(B11, c)
D11 = Point(C11)
E11 = If(A11  <  n + 1, D11, D)
B12: E + (A12 / (n + 1) * (F - E))
C12 = OrthogonalLine(B12, c)
D12 = Point(C12)
E12 = If(A12  <  n + 1, D12, D)
polígono1, g, j, k, l, m, p, q, r, s, t, f_2, d, e, f_1, g_1, h_1 = Polygon(D, F, E, C, E1, E2, E3, E4, E5, E6, E7, E8, E9, E10, E11, E12)
α = 4.625122517784973 rad (slider from 0 to 6.283185307179586, step inc)
polígono1' = Rotate(polígono1, (-α), b)
F' = Rotate(F, (-α), b)
E' = Rotate(E, (-α), b)
botonpausa = true
velo = 0.5
inc = 0.08726646259971647 rad (slider from ° to 10°, step °)
f = PolyLine(C, E1, E2, E3, E4, E5, E6, E7, E8, E9, E10, E11, E12, D)
C' = Rotate(C, (-α), b)
E1' = Rotate(E1, (-α), b)
E2' = Rotate(E2, (-α), b)
E3' = Rotate(E3, (-α), b)
E4' = Rotate(E4, (-α), b)
E5' = Rotate(E5, (-α), b)
E6' = Rotate(E6, (-α), b)
E7' = Rotate(E7, (-α), b)
E8' = Rotate(E8, (-α), b)
E9' = Rotate(E9, (-α), b)
E10' = Rotate(E10, (-α), b)
E11' = Rotate(E11, (-α), b)
E12' = Rotate(E12, (-α), b)
D' = Rotate(D, (-α), b)
f' = PolyLine(C', E1', E2', E3', E4', E5', E6', E7', E8', E9', E10', E11', E12', D')
b_1 = Segment(E, C')
c_1 = Segment(F, D')