AW: Drawing transparent objects.
- To: mathgroup at smc.vnet.net
- Subject: [mg30230] AW: [mg30189] Drawing transparent objects.
- From: Matthias.Bode at oppenheim.de
- Date: Fri, 3 Aug 2001 00:56:00 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
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
GERMANY
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 oppenheim.de
Internet: http://www.oppenheim.de
-----Ursprungliche Nachricht-----
Von: Johannes Ludsteck [mailto:johannes.ludsteck at wiwi.uni-regensburg.de]
Gesendet: Donnerstag, 2. August 2001 09:16
An: mathgroup at smc.vnet.net
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
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