A = Intersect(yAxis, xAxis)
B = Point(xAxis)
C: (4, 3, 0)
D = Point(yAxis)
m1, a, b, c, d = Polygon(A, B, C, D)
e, E, F, G, H, tahkoABFE, tahkoBCGF, tahkoCDHG, tahkoADHE, tahkoEFGH, särmäAE, särmäBF, särmäCG, särmäDH, särmäEF, särmäFG, särmäGH, särmäEH = Prism(m1, 2)
I = Midpoint(H, F)
f = 1 (slider from 0 to 1, step 0.01)
g, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, tahkoJKLM, tahkoJKON, tahkoKLQP, tahkoLMSR, tahkoJMTU, tahkoNOVW, särmäJK, särmäKL, särmäLM, särmäJM, särmäJN, särmäNO, särmäKO, särmäKP, särmäPQ, särmäLQ, särmäLR, särmäRS, särmäMS, särmäMT, särmäTU, särmäJU, särmäOV, särmäVW, särmäNW = Net(e, f)
Z = Midpoint(N, V)
johto = Segment(J, Z)