A = (1, 1)
AB = 1 (slider from 0 to 5, step 0.1)
c = Circle(A, AB)
Z, B = Intersect(c, d)
AD = 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_1 = 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)
h = 2.1 (slider from 0 to 5, step 0.1)
m, F, faceABF, faceBCF, faceCDF, faceADF, arêteAF, arêteBF, arêteCF, arêteDF = Pyramid(poly1, (-h))