Как экспортировать GraphicsRow с сглаживанием?

Question

Когда я помещаю два объекта ниже в GraphicsRow, кажется, что он отключает их сглаживание. Кто-нибудь может увидеть способ экспорта графической строки в примере ниже с сглаживанием?

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

Я попробовал различные комбинации Style[#,Antialiasing->True] и Настройки без удачи. Ближайший обходной путь I - Rasterize их в 4-кратном разрешении, но это побочный эффект изменения внешнего вида объектов с AbsoluteThickness, например, Box вокруг каждого объекта становится блеклым.

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}]

Answer 1

просто быстрый комментарий: вы включили сглаживание в диалоге настроек?