平面相交球面

Question

我在 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]