正12面體內的正四面體製作
正12面體
Dodecahedron( <Point>, <Point> )
Dodecahedron(A,B,vector((0,0,1)))
正4面體
Tetrahedron(A, G, Vector(D, P))
rotate(Tetrahedron(A, G, Vector(D, P)),0°,z軸)
rotate(Tetrahedron(A, G, Vector(D, P)),k2*72°,z軸)
rotate(Tetrahedron(A, G, Vector(D, P)),72°+k3*72°,z軸)
rotate(Tetrahedron(A, G, Vector(D, P)),144°+k4*72°,z軸)
rotate(Tetrahedron(A, G, Vector(D, P)),216°+k5*72°,z軸)