[P:=MakePoly([[1,0],[1+i,0],[i,0],[0,0],[1+i,1]], [1,4,3,2, jump,1,2,5, jump,2,3,5, jump,3,4,5, jump,4,1,5, jump]), DrawPoly(P,0)]
Les sommets sont numérotés dans l'ordre d'apparition. Le mieux est sans doute de créer une macro qui renvoie le polyèdre en sortie.