Pyramid Section (for AR)

side = 20 (slider from -5 to 20, step 0.1)
height = 20 (slider from -5 to 20, step 0.1)
SK = 20 (slider from 0 to height, step 0.1)
S: (0, 0, height)
K: (0, 0, z(S) - SK)
A: ((-side), (-side), 0)
B: (side, (-side), 0)
C: (side, side, 0)
D: ((-side), side, 0)
a, ABCD, faceABS, faceBCS, faceCDS, faceADS, edgeAB, edgeBC, edgeCD, edgeAD, edgeAS, edgeBS, edgeCS, edgeDS = Pyramid(A, B, C, D, S)
J = Midpoint(B, C)
O = (0, 0, 0)
α = Angle(J, O, S)
k = Segment(S, O)
SO = Distance(S, O)
c = 1 (slider from 0 to 1, step 0.01)
d, I, L, M, N, P, Q, R, T, faceILMN, faceILP, faceLMQ, faceMNR, faceINT, arestaIL, arestaLM, arestaMN, arestaIN, arestaIP, arestaLP, arestaLQ, arestaMQ, arestaMR, arestaNR, arestaNT, arestaIT = Net(a, c)