Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

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



  • Prev by Date: Re: question 1
  • Next by Date: Re: Coordinate conversion with Grad
  • Previous by thread: Re: Block[], OpenRead[], & /@
  • Next by thread: Re: drawing with mathematica