如何使用抗锯齿导出GraphicsRow?

时间:2010-12-22 10:12:34

标签: wolfram-mathematica

当我在GraphicsRow下面放置两个对象时,它似乎关闭了它们的抗锯齿。任何人都可以通过抗锯齿功能在下面的示例中看到导出图形行的方法吗?

http://yaroslavvb.com/upload/save/so-aliased.png

我尝试了Style[#,Antialiasing->True]和偏好的各种组合而没有运气。 我最接近的解决方法是Rasterize它们的分辨率为4倍,但这会产生使用AbsoluteThickness更改对象外观的副作用,例如,每个对象周围的框会逐渐淡出。 / p>

picA = Graphics3D[{Opacity[0.5], 
    GraphicsComplex[{{-1., 0., 0.}, {0., -1., 0.}, {0., 0., -1.}, {0.,
        0., 1.}, {0., 1., 0.}, {1., 0., 
       0.}}, {{{EdgeForm[GrayLevel[0.]], 
        GraphicsGroup[{Polygon[{{4, 5, 1}, {1, 5, 3}, {1, 3, 2}, {4, 
             1, 2}, {3, 5, 6}, {5, 4, 6}, {4, 2, 6}, {2, 3, 
             6}}]}]}, {}, {}, {}, {}}}]}];
picB = Graphics3D[{Opacity[0.5], 
    GraphicsComplex[{{-1., 0., 0.}, {-0.5, -0.8660254037844386, 
       0.}, {-0.5, 0.8660254037844386, 1.}, {0., 
       0., -1.}, {0.5, -0.8660254037844386, 1.}, {0.5, 
       0.8660254037844386, 0.}, {1., 0., 
       0.}}, {{{EdgeForm[GrayLevel[0.]], 
        GraphicsGroup[{Polygon[{{6, 7, 4}, {2, 1, 4}}], 
          Polygon[{{1, 2, 5, 3}, {6, 3, 5, 7}, {5, 2, 4, 7}, {3, 6, 4,
              1}}]}]}, {}, {}, {}, {}}}]}];
GraphicsRow[{picA, picB}]

1 个答案:

答案 0 :(得分:0)

快速评论:您是否在“首选项”对话框中启用了消除锯齿功能?