S: (0, 0, 21.64)
d: (35.45 * sqrt(2) / 2)
A: (d, 0, 0)
B: (0, d, 0)
C: ((-d), 0, 0)
D: (0, (-d), 0)
a, faceABCD, faceABS, faceBCS, faceCDS, faceADS, edgeAB, edgeBC, edgeCD, edgeAD, edgeAS, edgeBS, edgeCS, edgeDS = Pyramid(A, B, C, D, S)
M = Midpoint(C, B)
H = Intersect(yAxis, xAxis)
f = Segment(S, M)
g: 25 / 35.45
E = Translate(S, Vector[(g * Vector[S, B])])
F = Translate(S, Vector[(g * Vector[S, C])])
G = Translate(S, Vector[(g * Vector[S, D])])
K = Translate(S, Vector[(g * Vector[S, A])])
q1, e, f_1, g_1, k = Polygon(E, F, G, K)
I = Intersect(f, e)
J = Translate(S, Vector[(g * Vector[S, H])])
h = Segment(J, I)