Re: Not plotting section of outfitting graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg42067] Re: Not plotting section of outfitting graphics
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Wed, 18 Jun 2003 02:10:32 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <bcmqde$stj$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
something like
OutOfRangeQ[Polygon[pnts_], {z1_, z2_}] :=
And @@ (z1 >= Last[#] || z2 <= Last[#] & /@ pnts)
gr = Graphics3D[
Plot3D[Sin[x + y]/(1/100 + Abs[x*y]), {x, -Pi, Pi}, {y, -Pi, Pi},
PlotPoints -> 60, DisplayFunction -> Identity]];
Show[gr /. p_Polygon :> If[OutOfRangeQ[p, {-2, 2}], Hold[Sequence[]], p]
//
ReleaseHold, DisplayFunction -> $DisplayFunction]
Or do you like a plane clipping ?
Regards
Jens
Student wrote:
>
> Hi,
>
> Is it possible, and how, (I guess it might be an option) to tell
> Mathematica not to draw a solid flat surface in Plot3D where the curve is
> getting out of the alloted range, but to leave it blank instead.
>
> Thanks.