像在Mathematica 5中一样对3D图形进行样式设置

mathematica-frontendwolfram-mathematica

Styling 3D plots as it was in Mathematica 5

我喜欢安静和不受干扰的色域以及Mathematica 5中3D图的照明。

是否可以像在Mathematica 5中一样对Mathematica 7中的3D图进行样式设置？

1
2
3

Plot3D[Sin[x y], {x, 0, Pi}, {y, 0, Pi}, ImageSize -> 360]
<< Version5`Graphics`
Plot3D[Sin[x y], {x, 0, Pi}, {y, 0, Pi}, ImageSize -> 360]

Screenshot

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

v5style = {{"Ambient", RGBColor[{0.356, 0.294, 0.4}]}, {"Directional",
RGBColor[{0.56, 0., 0.}],
ImageScaled[{2, 0, 2}]}, {"Directional", RGBColor[{0., 0.56, 0.}],
ImageScaled[{2, 2, 2}]}, {"Directional",
RGBColor[{0., 0., 0.56}], ImageScaled[{0, 2, 2}]}};

PostScriptGraphics /: MakeBoxes[PostScriptGraphics[str_String], _] :=
Cell[GraphicsData["PostScript", str], CellAutoOverwrite -> True,
CellBaseline -> Center]
v5vsv7[\\[Theta]_] := {Developer`LegacyGraphics[];
v5Graphics =
Graphics`Legacy`Plot3D[Sin[x y], {x, 0, Pi}, {y, 0, Pi},
ImageSize -> 360,
ViewPoint -> RotationTransform[\\[Theta], {0, 0, 1}][{3, 0, 3}]];
v5PostScript = ExportString[v5Graphics,"APS"];
Developer`SymbolicGraphics[];
PostScriptGraphics[v5PostScript],
Graphics3D[First@Graphics3D@v5Graphics,
FilterRules[Last@Graphics3D@v5Graphics, Options[Graphics3D]],
ViewPoint -> RotationTransform[\\[Theta], {0, 0, 1}][{3, 0, 3}],
PlotRangePadding -> None,
ImageSize -> 360] /. (Lighting -> _) -> (Lighting -> v5style)};

Grid@Table[v5vsv7[\\[Theta]], {\\[Theta], 0, 2 Pi, Pi}]

相关讨论

先生我想W已经很好地回答了您的问题。这是一个可以玩耍的玩具，包括其他调色板。它以W先生使用的值开头。

1
2
3
4
5
6
7
8
9
10
11
12

Manipulate[
Plot3D[Sin[x y], {x, 0, Pi}, {y, 0, Pi}, PlotLabel -> cf,
ImageSize -> 360, ColorFunction -> cf, Mesh -> mesh,
Lighting -> {{"Ambient", cs},
{"Directional", RGBColor[{s, 0., 0.}],
ImageScaled[{2, 0, 2}]}, {"Directional", RGBColor[{0., s, 0.}],
ImageScaled[{2, 2, 2}]}, {"Directional", RGBColor[{0., 0., s}],
ImageScaled[{0, 2, 2}]}}],
{{cf, None,"color function"}, Prepend[ColorData["Gradients"], None]},
{{cs, RGBColor[{0.356, 0.294, 0.4}]}, ColorSlider},
{{s, .5,"brightness"}, 0, 1, Appearance ->"Labeled"},
{{mesh, 15}, 0, 30, 1, Appearance ->"Labeled"}]

manipulatte

相关讨论

1个漂亮的显示器。我的英语不足以在这里理解" unisturbed "的含义。你能解释一下吗？
@belisarius我刚刚用Manipulate更新了它。降低亮度以获得较少的干扰(即"较暗")渲染。干杯
"在三维图形中，ColorFunction仅与选项设置Lighting-> False。"一起使用，而默认情况下为Plot3D Lighting-> True。因此，仅通过指定不同的ColorFunction不能解决问题。
@belisarius " Undisturbed "只是" quiet "的同义词，此处带有" peaceful "和" unworried "的细微差别。
如我所见，@ David评论已启用。问题可能出在您的网络浏览器上。尝试重新加载页面(在FireFox中，可以通过按Ctrl F5来完成，Opera在菜单中具有另一个组合和相应的项目)。
@Alexey硬重装对我来说不起作用。但是，几个小时后我打开页面时，一切恢复正常。 SO恶魔？
@belisarius回复："打扰了"。这是一个完全主观的，几乎是诗意的问题。有人会说"暗"和"受干扰"是邻居。我把它的意思是"柔和，而不是华丽"。这与Alexy的看法略有不同。 (但这是他的观点，在这里确实很重要。)
@David有时我在这里也会遇到类似的问题，并且使用缓存清理进行硬重装始终会有所帮助。我认为，当在本网站的页面中使用的JavaScript在网站上进行更新但在浏览器的缓存中未完全更新或未完全更新时，会发生这种情况。
@Alexey单击地址栏右上角的箭头是否可以重新加载"硬"？
@David否。如果从上次加载更改了页面，它只会加载同一页面。这个站点的问题更加细微：其界面基于JavaScript文件，这些文件不是页面本身的一部分，而是根据已加载页面的整个代码的要求被加载(如果浏览器认为它们已更改)。没有这些文件，该站点的所有交互功能将无法使用。这些文件可能由于某种原因在浏览器的缓存中损坏或在服务器上更改并且不兼容(如果未在浏览器的缓存中更新)。解决方法是清除缓存并重新加载页面。
@David Hard重新加载(FireFox中的Ctrl F5)强制浏览器加载页面(但其他所需文件不加载)，即使此页面"未在服务器上更改"(作为浏览器"认为")。缓存清除会强制浏览器加载显示页面所需的所有内容，而不仅仅是页面本身。因此，通用解决方案始终是清理缓存，然后重新加载页面(在这种情况下，不需要硬重新加载)。唯一的问题是Microsoft Internet Explorer：如果按下相应的按钮，它不会始终清除其所有缓存内容。这是Internet Explorer所有版本的众所周知的错误。
@David如果您使用Internet Explorer，您可能会对这个小的免费程序感兴趣，该程序可以解决Internet Explorer的提及错误。
@谢谢，但是我只使用Firefox和Safari。
@David因此，如果您在此站点上遇到问题，请清除缓存，然后重新加载页面！

这个距离是否足够接近，或者距离您的要求还有很长的路要走？

1
2
3
4
5
6

new = {{"Ambient", RGBColor[{0.356, 0.294, 0.4}]}, {"Directional",
RGBColor[{0.56, 0., 0.}], ImageScaled[{2, 0, 2}]}, {"Directional",
RGBColor[{0., 0.56, 0.}], ImageScaled[{2, 2, 2}]}, {"Directional",
RGBColor[{0., 0., 0.56}], ImageScaled[{0, 2, 2}]}};

Plot3D[Sin[x y], {x, 0, Pi}, {y, 0, Pi}, Lighting -> new, Mesh -> 20]

enter

相关讨论

我只是为Lighting选项的颜色选择感到困惑。在版本5的文档页面上，所有颜色都很简单：
对于v.5 LightSources选项，默认值为{{{1,0,1}, RGBColor[1,0,0]}, {{1,1,1}, RGBColor[0,1,0]}, {{0,1,1}, RGBColor[0,0,1]}}，对于AmbientLight选项，默认值为GrayLevel[0]。并且LightSources被描述为点光源。
但是，当然，将这些设置简单替换为Lighting并不能提供所需的照明。
设置Mesh->23或PlotPoints->25, Mesh->Full会产生与版本5中相同的网格。
@Alexey，" point "源应该类似于" Directional "，但是我缩放了数字，因此它们的亮度降低了。环境光基于我为默认设置找到的光，但略作调整以达到更好的匹配。
@Wizard先生最后考虑了这种新的视觉外观后，我感到自己不满意。这种样式失去了版本5样式的某些特殊吸引力，可能与中心的黄色照明有关。我认为这是巨大的损失，因为该情节看起来很无语。您可以尝试解决此问题吗？
@Alexey，我明白你的意思了。我会再尝试。
@ Mr.Wizard另请参阅我的问题的编辑部分。可能有用。
@Alexey，看着那些旋转(以及更多的细微步骤)，我不知道是否有可能真正逼近旧样式。我不知道该如何补偿照明方法的差异。
@Wizard先生，您怎么看，照明算法的区别到底是什么？
@Alexey，我不知道足以回答这个问题。可以使用不同的着色方法，以及模拟的材质特性(例如镜面反射率)。另外，" Point "和" Directional "与我之前指出的不同。值得探索。
@ Mr.Wizard使用" Point "而不是" Directional "不可能获得相似的结果吗？我尝试使用它，但是生成的图太暗了。可以减轻重量吗？
@Alexey我也尝试过" Point "，并且光的方向似乎是错误的(而不是强度)。也许随着坐标的正确旋转它将接近，但是我现在没有时间尝试。
@Wizard先生，我刚刚注意到，使用" Point "，旋转绘图时，绘图的颜色不会更改。这意味着" Point "光源固定在坐标系中并随绘图旋转。
@ Mr.Wizard据我了解，您已经在某种程度上获得了Lighting的Automatic选项的默认值。您是如何处理的？
@Alexey，来自此MathGroup线程。我以前没有链接到它，因为我认为它不会进一步帮助。