ancho = 280 (slider from -5 to 500, step 1)
t = 18 (slider from 10 to 20, step 1)
basey: ancho + (2 * t)
E: (0, basey - t, 0)
vidrio = 360 (slider from 240 to 480, step 60)
objeto = 60 (slider from 30 to 90, step 30)
basex: vidrio + objeto + t
altura = 240 (slider from -5 to 500, step 0.05)
K: (420, 0, 0)
A = Intersect(xAxis, zAxis)
text1: "basex = " + basex + ""
text2: "basey = " + basey + ""
base, f, g, h, q = Polygon(A, A + (basex - t, 0), A + (basex - t, basey - t), A + (0, basey - t))
tablabase, B, C, D, face1, face3, face4, face2, face5, edge1, edge2, edge3, edge4, edge5, edgeBC, edgeCD, edge6 = Prism(base, (0, 0, t))
caray, i, j, k, r = Polygon(E, E + (basex - t, 0, 0), E + (basex - t, 0, altura + t), E + (0, 0, altura + t))
text3: "altura = " + altura + ""
tablacaray, I, J, L, face11, face13, face14, face12, face15, edge13, edge14, edge15, edge16, edge17, edgeIJ, edgeJL, edge18 = Prism(caray, E + (0, t, 0))
vidriot = 6 (slider from 4 to 12, step 2)
M: A + (0, 0, t)
carayo, m_1, s, a, b = Polygon(M, M + (objeto, 0, 0), M + (objeto, 0, altura), M + (0, 0, altura))
tablacarayo, N, O, P, face16, face18, face19, face17, face20, edge19, edge20, edge21, edge22, edge23, edgeNO, edgeOP, edge24 = Prism(carayo, M + (0, t, 0))
techo, l_1, c, d, e = Polygon(L, L + (0, (-basey), 0), L + (objeto, (-basey), 0), L + (objeto, 0, 0))
tablatecho, Q, R, S, face21, face23, face24, face22, face25, edge25, edge26, edge27, edge28, edge29, edgeQR, edgeRS, edge30 = Prism(techo, L + (0, 0, t))
tapax, f_1, g_1, h_1, i_1, j_1, k_1, n_1, p_1 = Polygon(A, A + (0, 0, altura + (2 * t)), A + (0, (2 * t), altura + (2 * t)), A + (0, (2 * t), (2 * t)), A + (0, basey - (2 * t), (2 * t)), A + (0, basey - (2 * t), altura + (2 * t)), A + (0, basey, altura + (2 * t)), A + (0, basey, 0))
tablatapax, T, U, V, face26, face28, face29, face27, face30, edge31, edge32, edge33, edge34, edge35, edgeTU, edgeUV, edge36, edge37, edge38, edge39, edge40, edge41, edge42, edge43, edge44, edge45, edge46, edge47, edge48, edge49, edge50, edge51, edge52 = Prism(tapax, ((-t), 0, 0))
W: Q + (0, t, 0)
caral1, w, q_1, r_1, s_1 = Polygon(W, W + (basex, 0, 0), W + (basex, 0, t), W + (0, 0, t))
liston1, Z, A_1, B_1, face31, face33, face34, face32, face35, edge53, edge54, edge55, edge56, edge57, edge59, edge60, edge58 = Prism(caral1, W + (0, t, 0))
carav, n_2, t_1, a_1, b_1 = Polygon(N, N + (vidrio, 0, 0), N + (vidrio, 0, altura + (3 * t)), N + (0, 0, altura + (3 * t)))
vidrioplano, C_1, D_1, E_1, face36, face38, face39, face37, face40, edge61, edge62, edge63, edge64, edge65, edge67, edge68, edge66 = Prism(carav, N + (0, (-vidriot), 0))
N_1: N + (0, (-vidriot), altura)
cara3l, l, m, n, p, c_1, d_1, e_1, f_2 = Polygon(N_1, N_1 + (0, 0, (-altura)), N_1 + (vidrio, 0, (-altura)), N_1 + (vidrio, 0, 0), N_1 + (vidrio - t + vidriot, 0, 0), N_1 + (vidrio - t + vidriot, 0, (-altura) + t - vidriot), N_1 + (t - vidriot, 0, (-altura) + t - vidriot), N_1 + (t - vidriot, 0, 0))
liston3, F, G, H, F_1, G_1, H_1, I_1, face6, face8, face9, face10, face41, face42, face43, face7, face44, edge7, edge8, edge9, edge10, edge11, edge12, edge69, edge70, edge71, edgeFG, edgeGH, edge73, edge74, edge75, edge76, edge72 = Prism(cara3l, N_1 + (0, (-t) + vidriot, 0))
carax, k_2, g_2, h_2, i_2 = Polygon(K, K + (0, basey, 0), K + (0, basey, altura + (2 * t)), K + (0, 0, altura + (2 * t)))
tablacarax, J_1, K_1, L_1, face45, face47, face48, face46, face49, edge77, edge78, edge79, edge80, edge81, edge83, edge84, edge82 = Prism(carax, K + (t, 0, 0))
caraobjeto, j_2, l_2, m_2, p_2 = Polygon(D, D + (0, (-basey) + (2 * t), 0), D + (0, (-basey) + (2 * t), altura - (2 * t)), D + (0, 0, altura - (2 * t)))
espacioobjeto, M_1, O_1, P_1, face50, face51, face52, face53, face54, edge85, edge86, edge87, edge88, edge89, edge90, edge91, edge92 = Prism(caraobjeto, D + (objeto, 0, 0))
Pointespacioobjeto = Point(espacioobjeto)
alturaobjeto: altura - (2 * t)
Q_1 = Midpoint(edge91)
baseedificio, q_2, r_2, s_2, t_2 = Polygon(Q_1 + (0, ((-ancho)) / 2, 0), Q_1 + (ancho, ((-ancho)) / 2, 0), Q_1 + (ancho, ancho / 2, 0), Q_1 + (0, ancho / 2, 0))
R_1 = Intersect(edge89, edge92)
S_1 = Midpoint(R_1, C)
pendiente = 54 (slider from 18 to altura, step 18)
carapendiente, s_3, a_2, b_2, c_2 = Polygon(S_1, S_1 + (0, (-ancho), 0), C + (0, (-ancho), pendiente), C + (0, 0, pendiente))
angulo: (atan2(pendiente,Distance[S_1, C]) / π * 180)
ta: (t * a)
pe: (p * e)
text4: "angulo de la pendiente = " + angulo + "° (" + ((pendiente / Distance[S_1, C] * 100)) + "%)"
espacioobjeto2, T_1, U_1, V_1, face55, face57, face58, face56, face59, edge93, edge94, edge95, edge96, edge97, edge99, edge100, edge98 = Prism(caraobjeto, D + ((2 * objeto), 0, 0))