MathGroup Archive 2001

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

Search the Archive

AW: Drawing transparent objects.

  • To: mathgroup at
  • Subject: [mg30230] AW: [mg30189] Drawing transparent objects.
  • From: Matthias.Bode at
  • Date: Fri, 3 Aug 2001 00:56:00 -0400 (EDT)
  • Sender: owner-wri-mathgroup at

Dear Colleague,

please try:

Show[Show[Map[Plot3D[{#, GrayLevel[0]}, {x, 0, 2}, {y, 2, 6},
DisplayFunction -> Identity] &, {Sin[x*y], Cos[x*y]}]] /. Polygon[p_] :>
Line[Append[p, First[p]]],  DisplayFunction -> $DisplayFunction]

(*This example by Prof. Dr. Frank Brand, Visual Analysis GmbH*)

If you are interested in "hand-woven graphics" I have such as well. 

Best regards,
Matthias Bode
Sal. Oppenheim jr. & Cie. KGaA
Koenigsberger Strasse 29
D-60487 Frankfurt am Main
Tel.: +49(0)69 71 34 53 80
Mobile: +49(0)172 6 74 95 77
Fax: +49(0)69 71 34 63 80
E-mail: matthias.bode at

-----Ursprungliche Nachricht-----
Von: Johannes Ludsteck [mailto:johannes.ludsteck at]
Gesendet: Donnerstag, 2. August 2001 09:16
An: mathgroup at
Betreff: [mg30189] Drawing transparent objects.

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 

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: Re: How to clear OverBar[p]
  • Next by Date: RE: Drawing transparent objects.
  • Previous by thread: Re: "Limit involving square root"
  • Next by thread: MathLink for Excel XP?