Plantilla 3D
Author: Rafael Losada Liste

C = (-8.948399999999996, 6.857399999999999)
A1 = Point(Segment[(0, 0, 0), (10, 0, 0)])
c, A, B, D, E, F, G, cara1, cara3, cara2, caraAA1bEF, caraABGF, caraDEFG, arista2, arista1, aristaAA1b, aristaAB, arista3, aristaBG, aristaDG, aristaDE, aristaA1bE, aristaEF, aristaAF, aristaFG = Cube((0, 0, 0), A1, zAxis)
b: round((100 * x(A1))) / 100
b': b + 0.001
l8 = Sequence(Segment[(0, k, 0), (b', k, 0)], k, 0, b', 1)
l3 = Sequence(Segment[(k, 0, 0), (k, b', 0)], k, 0, b, 1)
a = 0 (slider from 0 to 1, step 0.01)
d, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, caraHIJK, caraHKML, caraHIQP, caraIJSR, caraJKUT, caraLMNO, aristaHK, aristaHI, aristaIJ, aristaJK, aristaKM, aristaLM, aristaHL, aristaHP, aristaPQ, aristaIQ, aristaIR, aristaRS, aristaJS, aristaJT, aristaTU, aristaKU, aristaMN, aristaNO, aristaLO = Net(c, a)
l2 = Sequence(Segment[(k, 0, 0), (k, ((-b') * sin((π * a / 2))), (b' * cos((π * a / 2))))], k, 0, b, 1)
l10 = Sequence(Segment[(0, ((-k) * sin((π * a / 2))), (k * cos((π * a / 2)))), (b', ((-k) * sin((π * a / 2))), (k * cos((π * a / 2))))], k, 0, b', 1)
l4 = Sequence(Segment[(0, k, 0), (((-b') * sin((π * a / 2))), k, (b' * cos((π * a / 2))))], k, 0, b, 1)
l9 = Sequence(Segment[(((-k) * sin((π * a / 2))), 0, (k * cos((π * a / 2)))), (((-k) * sin((π * a / 2))), b, (k * cos((π * a / 2))))], k, 0, b, 1)
l6 = Sequence(Segment[(b', k, 0), (b' + (b' * sin((π * a / 2))), k, (b * cos((π * a / 2))))], k, 0, b, 1)
l11 = Sequence(Segment[(b' + (k * sin((π * a / 2))), 0, (k * cos((π * a / 2)))), (b' + (k * sin((π * a / 2))), b', (k * cos((π * a / 2))))], k, 0, b', 1)
l7 = Sequence(Segment[(k, b', 0), (k, b' + (b' * sin((π * a / 2))), (b' * cos((π * a / 2))))], k, 0, b, 1)
l12 = Sequence(Segment[(0, b' + (k * sin((π * a / 2))), (k * cos((π * a / 2)))), (b', b' + (k * sin((π * a / 2))), (k * cos((π * a / 2))))], k, 0, b, 1)
l5 = Sequence(Segment[(((-b') * sin((π * a / 2))), k, (b' * cos((π * a / 2)))), (((-b') * sin((π * a / 2))), k, (b' * cos((π * a / 2)))) + ((b' * cos((π * a))), 0, (b' * sin((π * a))))], k, 0, b, 1)
l13 = Sequence(Segment[(((-b') * sin((π * a / 2))), 0, (b' * cos((π * a / 2)))) + ((k * cos((π * a))), 0, (k * sin((π * a)))), (((-b') * sin((π * a / 2))), 0, (b' * cos((π * a / 2)))) + ((k * cos((π * a))), b', (k * sin((π * a))))], k, 0, b, 1)