MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Clipping Live3DGraphics

  • To: mathgroup at
  • Subject: [mg76800] Re: Clipping Live3DGraphics
  • From: Szabolcs <szhorvat at>
  • Date: Sun, 27 May 2007 05:07:07 -0400 (EDT)
  • Organization: University of Bergen
  • References: <f38rcq$i3b$>

chuck009 wrote:
> My understanding is that Live3DGrahics won't clip the plot to the plot range.  Sometimes it's nice to be able to do this.  The following code will clip a Graphics3D object to the specified inequality passed to ClipGraphics3D.
> For example, suppose I create:
> plot1=Graphics3D[Plot[Exp[x^2+y^2],{x,0,3},{x,0,3}],PlotRange->{{0,1},{0,1},{0,1}},AspectRatio->1,BoxRatios->{1,1,1}];
> If I pass plot1 to Live3DGraphics, it will plot everything.  Suppose though I only wish to view the clipped plot with Abs[z]<=1.  I enter:
> clipped=Fold[ClipGraphics3D,plot1,{z<=1,z>=-1}];
> then pass clipped to the Live applet.  
> Is there an easier way to do this?

If you only need to clip to the PlotRange (and do not care about more 
general clipping regions), then another solution is to use 
PolygonIntersections -> False


<< Graphics`Polyhedra`

g = Show[Stellate@Polyhedron[Icosahedron], PlotRange -> {-1, 1}]

h = Show[g, PolygonIntersections -> False]

Now you can use h with LiveGraphics3D.

You can use this option to break up intersecting polygons too!


P.S. You may find this article interesting:

  • Prev by Date: Re: Mathematica V6. ComplexMap
  • Next by Date: Re: Fun with Manipulate
  • Previous by thread: Clipping Live3DGraphics
  • Next by thread: Re: Clipping Live3DGraphics