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