Re: How to crop Graphics3D in V7?
- To: mathgroup at smc.vnet.net
- Subject: [mg94760] Re: [mg94732] How to crop Graphics3D in V7?
- From: "David Park" <djmpark at comcast.net>
- Date: Tue, 23 Dec 2008 06:59:41 -0500 (EST)
- References: <26810135.1229942758924.JavaMail.root@m02>
Carlos,
Try:
Append[fig, PlotRegion -> {{0, 1}, {-.3, 1.4}}]
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
From: Cca [mailto: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=E9sar de Ara=FAjo
Gregos & Troianos Educacional
http://www.gregosetroianos.mat.br
MSN: cca_gregosetroianos at hotmail.com
Belo Horizonte, MG, Brasil
(31) 3283-1122