A = Intersect(xAxis, yAxis)
B = Point(yAxis)
d = 0.8 (slider from 0 to 1, step 0.02)
C = Point(zAxis)
poly1, f, g, h, i, D, E = Polygon(B, A, 4)
a, F, G, H, faceABED, faceACFD, faceDEGF, faceBEGH, faceABHC, faceCFGH, edgeAD_1, edgeDE_1, edgeBE_1, edgeAB_1, edgeAC, edgeDF, edgeEG_1, edgeBH, edgeCF, edgeFG, edgeGH, edgeCH = Prism(A, D, E, B, C)
b, faceADE, faceADG, faceDEG, faceAEG_1, edgeAD, edgeDE, edgeAE_1, edgeAG_1, edgeDG, edgeEG_2 = Pyramid(A, D, E, G)
I = Midpoint(edgeEG_2)
J = Midpoint(edgeDG)
K = Midpoint(edgeAD)
j = Segment(G, K)
k = Segment(J, A)
M = Intersect(j, k)
l = Segment(M, E)
m = Segment(J, E)
n = Segment(D, I)
N = Intersect(n, m)
p = Segment(N, A)
O = Intersect(l, p)
faceADG' = Dilate(faceADG, d, O)
faceAEG' = Dilate(faceAEG_1, d, O)
faceDEG' = Dilate(faceDEG, d, O)
faceADE' = Dilate(faceADE, d, O)
poly2, poly3, poly4, poly5 = ScaledTetrahedron(A, B, E, G, d)
L = (3.1748473618002078, 1.4594431637837868, 0)
P = (-0.00970280345968888, 1.8960177155601432, -0.07667799079324311)
Q = (1.563650833444215, 1.2268923318443674, 0.8224647548947033)
R = (2.84412764233847, 2.410181082803038, 1.1481229540481728)
c, faceLPQ, faceLQR, facePQR, faceLPR, edgeLQ, edgePQ, edgeLP, edgeLR, edgeQR, edgePR = Pyramid(L, Q, P, R)
S = Midpoint(edgePQ)
T = Midpoint(edgeLP)
U = Midpoint(edgePR)
q = Segment(Q, U)
r = Segment(R, S)
s = Segment(Q, T)
V = Intersect(edgeLQ, edgeLP)
t = Segment(S, L)
W = Intersect(t, s)
e = Segment(W, R)
Z = Intersect(q, r)
f_1 = Segment(Z, L)
A_1 = Intersect(f_1, e)
faceLQR' = Dilate(faceLQR, d, A_1)
facePQR' = Dilate(facePQR, d, A_1)
faceLPQ' = Dilate(faceLPQ, d, A_1)
ScaledTetrah = Dilate(faceLPR, d, A_1)
poly6, poly7, poly8, poly9 = ScaledTetrah(d, A, D, F, G)
poly10, poly11, poly12, poly13 = ScaledTetrah(d, A, C, F, G)
poly14, poly15, poly16, poly17 = ScaledTetrah(d, A, B, H, G)
poly18, poly19, poly20, poly21 = ScaledTetrah(d, A, C, H, G)

Tool: ScaledTetrahedron
Constructs the Tetrahedron of the 4 points given first, then scales by the number indicated last. Uses the Center of Mass to scale from
Input: A, D, E, G, d
Output: faceADE', faceADG', faceAEG', faceDEG'

F = (0.9999999999999998, -1.1102230246251565E-16, 1)
H = (0, 1, 1)
b, faceADE, faceADG, faceDEG, faceAEG_1, edgeAD, edgeDE, edgeAE_1, edgeAG_1, edgeDG, edgeEG_2 = Pyramid(A, D, E, G)
I = Midpoint(edgeEG_2)
J = Midpoint(edgeDG)
K = Midpoint(edgeAD)
j = Segment(G, K)
k = Segment(J, A)
M = Intersect(j, k)
l = Segment(M, E)
m = Segment(J, E)
n = Segment(D, I)
N = Intersect(n, m)
p = Segment(N, A)
O = Intersect(l, p)
faceADG' = Dilate(faceADG, d, O)
faceAEG' = Dilate(faceAEG_1, d, O)
faceDEG' = Dilate(faceDEG, d, O)
faceADE' = Dilate(faceADE, d, O)

Tool: CenterOfMass (command CenterOfMassG)
CenterOfMassGen[ <Point>, <Point>, <Point>, <Point> ]
Input: L, P, Q, R
Output: A_1

c, faceLPQ, faceLQR, facePQR, faceLPR, edgeLQ, edgePQ, edgeLP, edgeLR, edgeQR, edgePR = Pyramid(L, Q, P, R)
S = Midpoint(edgePQ)
T = Midpoint(edgeLP)
U = Midpoint(edgePR)
q = Segment(Q, U)
r = Segment(R, S)
s = Segment(Q, T)
t = Segment(S, L)
W = Intersect(t, s)
e = Segment(W, R)
Z = Intersect(q, r)
f_1 = Segment(Z, L)
A_1 = Intersect(f_1, e)

Tool: ScaledTetrah
The reals scaled tetrahedron method
Input: d, L, P, Q, R
Output: facePQR', faceLQR', faceLPQ', faceLPR'

c, faceLPQ, faceLQR, facePQR, faceLPR, edgeLQ, edgePQ, edgeLP, edgeLR, edgeQR, edgePR = Pyramid(L, Q, P, R)
S = Midpoint(edgePQ)
T = Midpoint(edgeLP)
U = Midpoint(edgePR)
q = Segment(Q, U)
r = Segment(R, S)
s = Segment(Q, T)
t = Segment(S, L)
W = Intersect(t, s)
e = Segment(W, R)
Z = Intersect(q, r)
f_1 = Segment(Z, L)
A_1 = Intersect(f_1, e)
faceLQR' = Dilate(faceLQR, d, A_1)
facePQR' = Dilate(facePQR, d, A_1)
faceLPQ' = Dilate(faceLPQ, d, A_1)
faceLPR' = Dilate(faceLPR, d, A_1)