Code for RealTime3D (newRTShow)

(* For RealTime3D you need this ourRT3DShow *)Clear[ourRT3DShow] ; ourRT3DShow ... {FontFamily"Times", FontSlant"Italic", FontSize7}]] ;

Clear[newRTShow] ; newRTShow[x_String, th_, vp_] := ourRT3DShow[Characters[x], verticesOfTetrahedronDisplacementsForabcd, th, vp]

Created by Mathematica  (February 18, 2004)