Re:convert graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg30699] Re:convert graphics
- From: raffaelealbanese at libero.it (raffaele albanese)
- Date: Sat, 8 Sep 2001 02:23:03 -0400 (EDT)
- References: <9mngnq$58e$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
The more elegant way is to use the option 'DisplayFunction' directly
from ParametricPlot3D:
ParametricPlot3D[{r*Cos[t], r*Sin[t], Sin[t]*Sin[r]}, {r, 0, 2*Pi},
{t, 0, 2*Pi},
DisplayFunction -> ($DisplayFunction[Insert[#1, EdgeForm[], {1, 1}]]
& )]