我在 matematica 中制作了此图片,但我需要在 metapost 中制作类似的图片。有什么想法可以做到这一点吗?
sl3d1 = Graphics3D[{{Opacity[.5],
Sphere[{0, 0, 0}, 1]}, {PointSize[.02],
Point[{{1, 0, 0}}]}, {PointSize[.02], Point[{{0, 1, 0}}]},
Opacity[.5], Red,
Polygon[{{-1, -1, 0}, {-1, 1, 0}, {1, 1, 0}, {1, -1, 0}}]}]
sl3d2 = ParametricPlot3D[{Cos[t], Sin[t], 0}, {t, -0, 2*Pi},
PlotStyle -> {Black, Dashing[{.01, .01}]}]
Show[{sl3d1, sl3d2}, Boxed -> False]