Hallo Reinhard,
Wie kann ich das verhindern?
Ich hätte gerne den Farbverlauf auf der Kugeloberfläche näherungsweise
unabhängig vom Abstand des ViewPoint.
You can get it if you really want ... mit einem Update auf eine
neuere Version. Zum Shading -> True sagt Mma 7: "As of Version 6,
Shading has been superseded by ColorFunction", also rechnen Sie
gegebenenfalls noch unter Version 5.2.
Die Farbgestaltung bleibt in Mma 7.0.1 in einem weiten Bereich
unabhängig vom Abstand
SetOptions[ParametricPlot3D, AxesEdge -> {{1, -1}, {1, -1}, {1, -1}},
AxesLabel -> {"x", "y", "z"}, BoxRatios -> {1, 1, 1},
PlotPoints -> {17, 33}, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}];
X = {Sin[t] Cos[p], Sin[t] Sin[p], Cos[t]};
With[{d = 10^5 (* 2, 5, 10^2, 10^6 *)},
ParametricPlot3D[X, {t, 0, \[Pi]}, {p, -\[Pi], \[Pi]},
ViewPoint -> {d, d, d}]
],
jedoch hat Mma 7.0.1 unter Windows XP SP3 einen Bug: bei d = 10^5
kommt das beigelegte Bildchen, d = 10^6 zeigt keine sinnvolle Ausgabe
mehr und der Versuch, am Bilderrahmen mit der Maus zu zupfen lässt
den Mma-Kernel crashen.
Mit den besten Grüssen
Udo.
------------------------------------------------------------------------