RE: Drawing transparent objects.
- To: mathgroup at smc.vnet.net
- Subject: [mg30237] RE: [mg30189] Drawing transparent objects.
- From: "David Park" <djmp at earthlink.net>
- Date: Fri, 3 Aug 2001 00:56:06 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Johannes,
You need the WireFrame routine in the Shapes package. Here is an example of
a wireframe sphere around a solid cuboid.
Needs["Graphics`Shapes`"]
Needs["Graphics`ParametricPlot3D`"]
sphere[p_, t_] := Sqrt[3]*{Cos[t]*Cos[p], Sin[t]*Cos[p], Sin[p]}
Show[Graphics3D[{Cuboid[{-1, -1, -1}, {1, 1, 1}]}],
WireFrame[ParametricPlot3D[Evaluate[sphere[p, t]],
{p, -Pi, Pi}, {t, 0, 2*Pi}, DisplayFunction ->
Identity]], DisplayFunction -> $DisplayFunction];
It is a little less convoluted with my DrawingCube package.
Needs["Graphics`DrawingCube`"]
Needs["Graphics`ParametricDrawing3D`"]
Needs["Graphics`DrawingShapes`"]
Show[Graphics3D[
{Cuboid[{-1, -1, -1}, {1, 1, 1}],
UseWireFrame[ParametricDraw3D[Evaluate[sphere[p, t]],
{p, -Pi, Pi}, {t, 0, 2*Pi}]]}]];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
> From: Johannes Ludsteck
To: mathgroup at smc.vnet.net
> [mailto:johannes.ludsteck at wiwi.uni-regensburg.de]
>
> Dear MathGroup members,
> I would like to draw transparent three-
> dimensional objects
> (cuboids, graphs of functions and such things),
> i.e. objects with unfilled mesh.
> I searched the Mathematica book for a option or
> graphics directive, but didn't find one.
> Is there a simple way solve the problem or have I
> to do this by defining the graphics objects by
> hand?
>
> Thanks for your help and best regards,
> Johannes Ludsteck
>
> <><><><><><><><><><><><><><><><><><>
> Johannes Ludsteck
> Institut fuer Volkswirtschaftslehre
> Lehrstuhl Prof. Dr. Moeller
> Universitaet Regensburg
> Universitaetsstrasse 31
> 93053 Regensburg
> Tel +49/0941/943-2741
>