MathGroup Archive 2001

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

Search the Archive

RE: Drawing transparent objects.


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
>



  • Prev by Date: AW: Drawing transparent objects.
  • Next by Date: Re: Any quantum chemists / physicists?
  • Previous by thread: Re: Drawing transparent objects.
  • Next by thread: Re: Cube to Dodecahedron