大昔はこうだった (古いバージョンを使うときの参考まで)

Display[] 関数 を `` Display["!psfix > ファイル名", グラフィックス]'' のように 使うと図形を印刷するための PostScript データが作成できる。

例えば

トーラスの図をファイルに記録

g = ParametricPlot3D[{Cos[t](3+Cos[u]),Sin[t](3+Cos[u]),Sin[u]},
{t,0,2Pi}, {u,0,2Pi}]
Display["!psfix > torus.ps", g]