A = (-2.40400675400625, 0.4044624826135319)
B = Point(Circle[A, 3.1317726609701415])
C: A + (1.36900489396411 * Vector[A, B]) + (0.615171288743883 * OrthogonalVector[Segment[A, B]])
D: A + (1.30978792822186 * Vector[A, B]) + (1.24257748776509 * OrthogonalVector[Segment[A, B]])
E: A + (0.760766721044047 * Vector[A, B]) + (1.2268352365416 * OrthogonalVector[Segment[A, B]])
F: A + (0.226753670473083 * Vector[A, B]) + (0.936378466557913 * OrthogonalVector[Segment[A, B]])
G: A + ((-0.111908646003263) * Vector[A, B]) + (0.483197389885808 * OrthogonalVector[Segment[A, B]])
poly1, a, b, c, d, e, f, g = Polygon(A, B, C, D, E, F, G)
h = 1 (slider from 0 to 5, step 0.1)
j, O, P, Q, R, S, T, U, faceABPO, faceBCQP, faceCDRQ, faceDESR, faceEFTS, faceFGUT, faceAGUO, faceOPQRSTU, arêteAO, arêteBP, arêteCQ, arêteDR, arêteES, arêteFT, arêteGU, arêteOP, arêtePQ, arêteQR, arêteRS, arêteST, arêteTU, arêteOU = Prism(poly1, h)