RE: combining surface graphics objects
- To: mathgroup at smc.vnet.net
- Subject: [mg34253] RE: [mg34240] combining surface graphics objects
- From: "David Park" <djmp at earthlink.net>
- Date: Sun, 12 May 2002 03:25:52 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Johannes,
I am always learning something from MathGroup questions! I never understood
before what "HiddenSurface" meant. Apparantly, HiddenSurface -> False means
the same as wire frame. I guess that is what your mean by a "transparant
plot".
Having learned that, it is easy to do what you want with my DrawGraphics
package, available at my web site. Here one surface is drawn as a wire frame
and the second surface normally.
Needs["DrawGraphics`DrawingMaster`"]
Draw3DItems[
{Draw3D[x + y, {x, 0, 1}, {y, 0, 1}] // UseWireFrame,
Draw3D[Sin[8 x y], {x, 0, 1}, {y, 0, 1}]},
BoxRatios -> {1, 1, 1/2},
Axes -> True,
ImageSize -> 400];
Draw3D is just like Plot3D except that it extracts the graphics object and
converts it to Graphics3D, without making a side plot. UseWireFrame applies
the WireFrame routine from the Shapes package to the graphics primitives.
One of the main purposes of DrawGraphics is to make it easy to manipulate
and combine graphical objects produced by various plot types.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
> From: Johannes Ludsteck
To: mathgroup at smc.vnet.net
>
>
> Dear Mathgroup members,
> I would like to combine two 'transparent' function plots.
> Mathematica renders 'transparent' plots when the
> option HiddenSurface->False is given, for example:
>
> p1= Plot3D[x+y,
> {x,0,1},{y,0,1},
> HiddenSurface->False]
>
> Now I want to combine it with a second plot:
>
> p2= Plot3D[Sin[8 x y],
> {x,0,1},{y,0,1},
> HiddenSurface->False]
>
> However, when I request
>
> Show[p1,p2]
>
> Mathematica has lost the HiddenSurface option and
> plots both surfaces filled. And even
> worse, it does not accept the option in Show.
>
> Show[p1,p2,
> HiddenSurface->False]
>
> I tried some other solutions, for example using
> SurfaceGraphics explicitly:
> p1=SurfaceGraphics[Table[x+y],{x,0,1,0.1},{y,0,1,0.1}],
> HiddenSurface->False]
>
> p2=SurfaceGraphics[...]
>
> Show[p1,p2]
> However, none of the were successful.
>
> A more heroic goal would be to combine a transparent
> with an non-transparent plot.
>
> Any suggestions?
>
> Thank you very much in advance,
> Johannes Ludsteck
>
>
>
>
>
> <><><><><><><><><><><><><><><><><><>
> Johannes Ludsteck
> Institut fuer Volkswirtschaftslehre
> Lehrstuhl Prof. Dr. Moeller
> Universitaet Regensburg
> Universitaetsstrasse 31
> 93053 Regensburg
> Tel +49/0941/943-2741
>