Pirámide Cíclope

A = Point(xAxis)
A' = Point(xAxis)
C = Midpoint(Segment[A, A'])
f = OrthogonalLine(C, xAxis)
D = Point(f)
g = Line(D, xAxis)
E = Point(g)
Z = Mirror(E, f)
h = Segment(E, Z)
i = Segment(Z, A')
j = Segment(A', E)
k = Segment(E, A)
l = Segment(A, Z)
T = Intersect(j, l)
m = Line(T, xAxis)
n = Segment(A, A')
p = Segment(D, A)
q = Segment(D, A')
H = Intersect(m, p)
K = Intersect(m, q)
r = Segment(D, C)
L = Intersect(m, k)
M = Intersect(m, i)
s = Segment(L, M)
t = Segment(E, C)
a = Segment(C, Z)
b = false