h = 1.2 (slider from 0 to 4, step 0.1)
C = (1, 0, 0)
A = (-2, 0, 0)
a, E, F, G, H, I, J, felületACFE, felületCFJG, felületACGH, felületAEIH, felületEFJI, felületGHIJ, élCF, élAC, élAE, élEF, élCG, élFJ, élGJ, élGH, élAH, élHI, élEI, élIJ = Cube(C, A, xOyPlane)
b, D, felület1, felület2, felület3, felület4, él1, él2, él3, él4 = Pyramid(felületEFJI, h)
c, K, felület5, felület6, felület7, felület8, él5, él6, él7, él8 = Pyramid(felületGHIJ, h)
d, B, felület9, felület10, felület11, felület12, él9, él10, él11, él12 = Pyramid(felületCFJG, h)
e, L, felület13, felület14, felület15, felület16, él13, él14, él15, él16 = Pyramid(felületACFE, h)
f, M, felület17, felület18, felület19, felület20, él17, él18, él19, él20 = Pyramid(felületACGH, h)
g, N, felület21, felület22, felület23, felület24, él21, él22, él23, él24 = Pyramid(felületAEIH, h)