drawing with mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg75887] drawing with mathematica
- From: dimitris <dimmechan at yahoo.com>
- Date: Sat, 12 May 2007 03:18:50 -0400 (EDT)
Hello.
I have the following drawing.
In[5404]:=
$TextStyle={FontFamily->"Times",FontSize\[Rule]23,FontWeight\
[Rule]"Bold"};
In[5405]:=
<<Graphics`Arrow`
In[5510]:=
surf = Block[{$DisplayFunction = Identity}, ParametricPlot[{13*Cos[u],
4*Sin[u]}, {u, 0, 2*Pi}, PlotStyle -> Thickness[0.008],
PlotPoints -> 100]];
surfgray = surf /. Line[x_] :> {GrayLevel[0.95], Polygon[x]};
halfspa = Block[{$DisplayFunction = Identity},
ParametricPlot[13*{Cos[u], Sin[u]}, {u, Pi, 2*Pi}, PlotStyle ->
Thickness[0.008],
PlotPoints -> 100]];
halfspagr = halfspa /. Line[x_] :> {GrayLevel[0.95], Polygon[x]};
xdash = Graphics[{AbsoluteDashing[{4, 8}], Thickness[0.005],
Line[{{-13.7, 0}, {13, 0}}]}];
opoi = Graphics[{PointSize[0.02], Point[{0, 0}]}];
otex = Graphics[Text["0", {-0.3, 0.8}]];
xaxis = Graphics[{Thickness[0.007], Line[{{0, 0}, {8, 0}}]}];
xar = Graphics[{Thickness[0.007], Arrow[{8, 0}, {8.5, 0}, HeadLength -
> 0.04, HeadWidth -> 0.5, HeadCenter -> 0]}];
yaxis = Graphics[{Thickness[0.007], Line[{{0, 0}, {-5, -2}}]}];
yar = Graphics[{Thickness[0.007], Arrow[{-5, -2}, {-6, -2.4},
HeadLength -> 0.04, HeadWidth -> 0.5, HeadCenter -> 0]}];
zaxis = Graphics[{Thickness[0.007], Line[{{0, 0}, {0, -7}}]}];
zar = Graphics[{Thickness[0.007], Arrow[{0, -7}, {0, -7.5}, HeadLength
-> 0.04, HeadWidth -> 0.5, HeadCenter -> 0]}];
xtex = Graphics[Text["\!\(x\_1\)", {8.5, -0.5}]];
ytex = Graphics[Text["\!\(x\_2\)", {-6.7, -2}]];
ztex = Graphics[Text["\!\(x\_3\)", {0.8, -7.7}]];
tangload = Graphics[{Thickness[0.007], Arrow[{0.2, 0.6}, {5, 0.6},
HeadLength -> 0.03, HeadWidth -> 0.5]}];
tangtex = Graphics[Text["P", {5.5, 1}]];
x3tex = Graphics[Text["\!\(x\_3\)=0", {-14.6, 0}]];
thline = Graphics[{Thickness[0.004], Arrow[{0, 0}, {4.1, -1.8},
HeadLength -> 0.02, HeadWidth -> 0.7]}];
thtex = Graphics[Text["=E8", {2.5, -0.5}]];
thang = Graphics[{Thickness[0.004], Circle[{0, 0}, 2, {3*(Pi/2) + Pi/4
+ 0.4, 2*Pi}]}];
thdash1 = Graphics[{Dashing[{0.02, 0.02}], Thickness[0.003],
Line[{{3.2, -1.8}, {-4, -1.8}}]}];
thdash2 = Graphics[{Dashing[{0.02, 0.02}], Thickness[0.003],
Line[{{4.1, -1.8}, {7, 0}}]}];
rtex = Graphics[Text["r", {1, -1}]];
Show[{surfgray, halfspagr, surf, xdash, halfspa, opoi, otex, xaxis,
xar, yaxis, yar, zaxis, zar, xtex, ytex, ztex, tangload,
tangtex, x3tex, thline, thtex, thang, rtex, thdash1, thdash2},
ImageSize -> 950, Axes -> None];
The arrow with the name zar (the vertical one!) appeared in
undesirable form.
Can somebody point me out a way to "fix" its appearance and all of the
arrows
objects to appeared with the same form?
Thanks a lot!
Dimitris