Mathematica - ShadowPlot3D zeigt keine Konturen

Warum zeigt der ShadowPlot3D bei der Ausführung nicht die Farben wie in den Beispielen der Hilfe?

Erläuterung

Die Funktion ShadowPlot3D wird durch das Mathematica Standard-AddOn Graphics`Graphics3D` bereitgestellt. Die Funktion zeigt nicht nur einen 3DPlot sondern auch die zugehörigen Konturen an. Seit Version 5.x ist die vordefinierte Einstellung für die Beleuchtung verändert. Das führt dazu, dass die Farben der Konturen nicht angezeigt werden.
Diese verkehrte Darstellung kann aber sehr leicht wieder in den Zustand wie in Version 4.2 versetzt werden. Laden Sie zuerst das nötige AddOn:

Needs["Graphics`Graphics3D`"];

Anschließend setzen Sie vor der Verwendung von ShadowPlot3D die Option Lightning:

SetOptions[ShadowPlot3D, Lighting -> False];

Nun arbeitet der Befehl so wie in der Hilfe dokumentiert.

Es existiert auch eine einfache Möglichkeit dies für jede Mathematica Sitzung voreinzustellen. In Ihrem Mathematica - Hauptverzeichnis befindet sich die Initialisierungsdatei für den Mathematica Kernel. Den Ort der Datei finden Sie so heraus:

ToString[$BaseDirectory] <> "ConfigurationKernelinit.m"

Addieren Sie diese beiden Zeilen zum Ende dieser Datei:

Needs[Graphics`Graphics3D`];
SetOptions[ShadowPlot3D, Lighting -> False];

Bei jedem zukünftigen Aufruf des Mathematica Kernel wird nun dieses AddOn geladen und die neue Standardeinstellung verwendet.