Hallo Mathematica-User!
Gibt es eine Moeglichkeit, Polygone mit konkaven
Teilen in einem 3D - Bild zu zeichnen ?
Die Beispiele in Wolframs Mathematica-Buch (Chapter 2.9,
Page 431, 432) funktionieren nur fuer konvexe
Polygone, d.h. die nirgendwo nach Innen gekruemmt
sind. Wenn man genau hinschaut, sieht man auch warum:
Es werden Dreiecke mit dem 1.Punkt als ein Eck und
die anderen Punkte entsprechend als die beiden
anderen Ecken gefuellt Dieses Verfahren funktioniert
aber, wie gesagt, nur fuer konvexe Objekte.
Beispiel:
list0={{0,0,0},{0,0,1},{1,0,1},{0.3,0,0.7}};
list1={{0,1,0},{0,1,1},{1,1,1},{0.3,1,0.7}};
Show[Graphics3D[Polygon[list0]],Graphics3D[Polygon[list1]]];
Merkwuerdigerweise macht Mathematica es richtig,
wenn man nur 2-dimensionale Bilder erzeugt. Wenn
man diese aber mit "StackGraphics" aus dem Package
Graphics`Graphics3D` stapelt, macht er's wieder
falsch !!
Beispiel:
list2={{0,0},{0,1},{1,1},{0.3,0.7}};
plot=Show[Graphics[Polygon[list2]]];
Needs["Graphics`Graphics3D`"];
Show[StackGraphics[{plot,plot}]];
viele Gruesse,
Claus
..............................................................................
Claus Fuetterer
Institut fuer theoretische Physik e-mail: cf@XXXXXXX.de
Universitaet des Saarlandes Tel. : +49-(0)681-302 3957
D-66041 Saarbruecken +49-(0)681-302 2402 (secretary)
Germany FAX : +49-(0)681-302 4316
http://www.uni-sb.de/~c.fuetterer
..............................................................................
|