g = ParametricPlot3D[{Cos[t](3+Cos[u]),Sin[t](3+Cos[u]),Sin[u]}, 図を描いて、 {t,0,2Pi},{u,0,2Pi}] 変数 g に代入する Display["!psfix > mygraph.ps", g] g をファイルに出力
oyabun% lpr mygraph.ps