Thanks for the code to display a Rouleaux tetrahedron (Rt).
I executed the code you posted in Maple 15, but the MathApp you provided a link to gave an error when I tried to execute it in Maple 15. Does this MathApp depend on commands from a later version of Maple?
However I don't think the image the code produced for me is a correct shape. As you can see in Wikipedia's website for Rouleaux_tetrahedron, the correct shape is not a surface of revolution since the faces of a Rt meet at an angle.
The Meissner tetrahedron, a modification of a Rt which changes the latter into a true constant width object, also is not a surface of revolution. The modification process can be seen at web site Meissner_en.pdf.