Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

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
>



  • 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