A = Intersect(xAxis, yAxis)
c = Circle(A, 1)
B = Point(c)
n = 4 (slider from 3 to 100, step 1)
a: 360 / n
l: (2 * sin(π / n))
d = Circle(B, l)
C = Intersect(c, d, 1)
poly1, b, e, f, g, h, i, j, D, E, F, G, H = Polygon(B, C, n)
I = Point(zAxis)
k, faceBCI, faceCDI, faceDEI, faceBEI, arêteBI, arêteCI, arêteDI, arêteEI = Pyramid(poly1, I)
J = Midpoint(arêteDI)
K = Midpoint(arêteEI)
L = Midpoint(arêteBI)
M = Midpoint(arêteCI)
N = Midpoint(b)
P = Midpoint(f)
Q = Midpoint(g)
R = Midpoint(e)
m = Segment(D, E)
p = Segment(E, B)
q = Segment(B, C)
r = Segment(C, D)