Re: Mathematica 6: Shading

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,

gr = Plot3D[Sin[x*y], {x, 0, Pi}, {y, 0, Pi}];

und

gr /. _Polygon :> Sequence[]

hat man ein Dratgitter Model.

und wenn man wirklich die Polygonkanten haben will

(gr /. _Line :> Sequence[]) /.
Polygon[pnts_] :> Line[Append[#, First[#]] & /@ pnts]

Allderdings werden die verdeckten Linien damit nicht beseitigt
das passiert aber mit

gr /. p_Polygon :> {Lighting -> {{"Ambient", RGBColor[1, 1, 1]}}, p}

Gruss
 Jens

Emanuel von Wartburg wrote:
> Hallo Mathematica-User
>
> In Mathematica 5.2 konnte bei 3D-Graphiken mit der Option "Shading -> 
> False" die Farbe der Oberfläche ausgeschaltet werden, so dass nur noch 
> das Gitter (Mesh) sichtbar ist. In Mathematica 6 wurde "Shading" durch 
> "ColorFunction" ersetzt. Weiss jemand, wie man jetzt 3D-Plots macht, 
> die nur aus dem Gitter (Mesh) bestehen?
>
> Besten Dank
> Emanuel von Wartburg
>
>
> ___________________________________________________
>
> ETH Zürich
> Emanuel von Wartburg
> Labor für Ionenstrahlphysik
> HPK H 32
> Schafmattstrasse 20
> 8093 Zürich
>
> vonwartburg@XXXXXXX.ch
> www.ipp.phys.ethz.ch/research/experiments/tandem/
>
> +41 44 633 65 09 Telefon
> +41 44 633 10 67 Fax