A = (1, 1)
AB = 2.4 (slider from 0 to 5, step 0.1)
c = Circle(A, AB)
Z, B = Intersect(c, d)
AD = 1.2 (slider from 0 to 7, step 0.1)
e = Circle(B, AD)
f = Circle(A, AD)
a = OrthogonalLine(A, d)
b = OrthogonalLine(B, d)
Y, C = Intersect(e, b)
g = OrthogonalLine(C, b)
D = Intersect(a, g)
h = Segment(A, B)
i = Segment(B, C)
j = Segment(C, D)
k = Segment(D, A)
poly1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
AE = 2.4 (slider from 0 to 5, step 0.1)
m, I, J, K, L, faceABJI, faceBCKJ, faceCDLK, faceADLI, faceIJKL, arêteAI, arêteBJ, arêteCK, arêteDL, arêteIJ, arêteJK, arêteKL, arêteIL = Prism(poly1, AE)
l_Patron = 1 (slider from 0 to 1, step 0.01)
n, E, F, G, H, M, N, O, P, Q, R, S, T, U, V, faceEFGH, faceEFNM, faceFGPO, faceGHRQ, faceEHST, faceMNUV, arêteEF, arêteFG, arêteGH, arêteEH, arêteEM, arêteMN, arêteFN, arêteFO, arêteOP, arêteGP, arêteGQ, arêteQR, arêteHR, arêteHS, arêteST, arêteET, arêteNU, arêteUV, arêteMV = Net(m, l_Patron)