Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Fixing padding inside Inset

• To: mathgroup at smc.vnet.net
• Subject: [mg114917] Fixing padding inside Inset
• From: Yaroslav Bulatov <yaroslavvb at gmail.com>
• Date: Thu, 23 Dec 2010 03:51:01 -0500 (EST)

Below I have a Graphics3D and a corresponding Graphics using Inset
command. The box in Inset graphics is slightly larger and is cut off.
I can't seem to get them to display identically, any suggestions?

shape = {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}}]}]}, {}, {}, {}, {}}}]};
gr1 = Graphics3D[shape, ImageSize -> 160,
  PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}, ImageMargins -> 0,
  PlotRangePadding -> 0, ImagePadding -> 0]
gr2 = Graphics[Inset[gr1], ImageSize -> 160, ImagePadding -> 0,
  ImageMargins -> 0, PlotRangePadding -> 0]

• Follow-Ups:
  • Re: Fixing padding inside Inset
    • From: Leonid Shifrin <lshifr@gmail.com>