[英]See a Graphics3D Straight in Mathematica
考虑在3D中显示多个2D图的 Sjoerd解决方案:
myDisk[{x_, y_, z_}, r_] :=
Polygon@Table[
{x, y, z} + r {Cos[\[Phi]], Sin[\[Phi]], 0} // N,
{\[Phi], 0, 2 \[Pi], 2 \[Pi]/200}
]
Graphics3D[
{
EdgeForm[],
{
Red,
myDisk[{1, 1, 0.5}, 0.5],
myDisk[{0, 0, 0.5}, 0.5],
myDisk[{-1, -1, 0.5}, 0.5]
},
{
Blue,
myDisk[{1, -1, -0.5}, 0.5],
myDisk[{0, 0, -0.5}, -0.5],
myDisk[{-1, 1, -0.5}, 0.5]}
}
]
使用ViewPoint我得到:
而我想系统地看到:
任何想法 ?
ViewVertical -> {0, 1, 0}
和ViewPoint -> Top
?的组合
ViewMatrix (查看基本示例)
ViewPoint -> Top
怎么样?
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.