How to crop Graphics3D in V7?
- To: mathgroup at smc.vnet.net
- Subject: [mg94732] How to crop Graphics3D in V7?
- From: Cca <cca at gregosetroianos.mat.br>
- Date: Mon, 22 Dec 2008 05:15:45 -0500 (EST)
- Reply-to: Cca <cca at gregosetroianos.mat.br>
Hello,
Consider this:
fig = Graphics3D[{FontSize ->
28, {Translate[{{Text[b, {1, 0, 0}, {0, -1}],
Text[h, {2, 0, 2}, {1, 0}]},
Polygon[{{0, 0, 0}, {2, 0, 0}, {2, 0, 4}, {0, 0, 4}}]}, {0,
1/Pi, 0}], Opacity[0.5],
Cylinder[{{0, 0, 0}, {0, 0, 4}}, 1/Pi]},
Translate[{Translate[{{Text[h, {2, 0, 0}, {0, -1}],
Text[b, {4, 0, 1}, {1, 0}]},
Polygon[{{0, 0, 0}, {4, 0, 0}, {4, 0, 2}, {0, 0, 2}}]}, {0,
2/Pi, 0}], Opacity[0.5],
Cylinder[{{0, 0, 0}, {0, 0, 2}}, 2/Pi]}, {3.1, 0, 0}],
Text[b < h, Scaled[{0.8, 1, 1}]]},
ViewPoint->{-0.02, -1.6, -1.5},
SphericalRegion->True,
Boxed->False,
Axes->False,
PlotRange->{{-1/Pi, 7.1}, {-0.7, 0.7}, {0, 4}},
ImageSize->{488, Automatic}]
In Mathematica 6, the following works:
Append[fig, ImagePadding -> {{0, 0}, {-120, -150}}]
The image is similar to what we get with
ImageCrop[fig]
However, ImagePadding with negative values no longer works in V7. What combination of options do I have to use to crop the Graphics3D above (without using Inset in Graphics)?
BTW, interactive cropping (Ctrl+drag) is not working in V7 with Windows XP.
Cordialmente,
Carlos César de Araújo
Gregos & Troianos Educacional
http://www.gregosetroianos.mat.br
MSN: cca_gregosetroianos at hotmail.com
Belo Horizonte, MG, Brasil
(31) 3283-1122