Net of a pyramid

Sides of a base polygon

VirSTEM

Net

a

h

h = 10 (slider from 0 to 10, step 1)
a = 4 (slider from 3 to 8, step 1)
B = Point(xAxis)
A = Point(xAxis)
poly1, f, g, h_{1}, i, j, k, l, m, C, D, E, F, G, H = Polygon(A, B, a)
VirSTEM = (-4.408, 4.128)
c, J, faceABJ, faceBCJ, faceCDJ, faceDEJ, faceEFJ, faceAFJ, face1, face3, edgeAJ, edgeBJ, edgeCJ, edgeDJ, edgeEJ, edgeFJ, edge1, edge5 = Pyramid(poly1, h)
b = 0.94 (slider from 0 to 1, step 0.01)
d, I, K, L, M, N, O, V, Z, P, Q, R, S, T, U, W, A_1, faceIKLMNO, faceIKP, faceKLQ, faceLMR, faceMNS, faceNOT, faceIOU, face2, face4, edgeIK, edgeKL, edgeLM, edgeMN, edgeNO, edgeIO, edge2, edge6, edgeIP, edgeKP, edgeKQ, edgeLQ, edgeLR, edgeMR, edgeMS, edgeNS, edgeNT, edgeOT, edgeOU, edgeIU, edge3, edge4, edge7, edge8 = Net(c, b)
n, p = AngularBisector(edgeLM, edgeKL)
q, r = AngularBisector(edgeIK, edgeKL)
B_1 = Intersect(r, p)
s = Segment(B_1, J)