MathGroup Archive 2007

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

Search the Archive

Re: drawing with mathematica

  • To: mathgroup at smc.vnet.net
  • Subject: [mg75931] Re: drawing with mathematica
  • From: dimitris <dimmechan at yahoo.com>
  • Date: Sun, 13 May 2007 05:56:40 -0400 (EDT)
  • References: <f23qs4$oar$1@smc.vnet.net>

If somebody does not see what is my problem let me be more specific.

Compare the head of the  three arrows below:

In[2116]:=
xar = Graphics[{Thickness[0.007], Arrow[{0, 0}, {7.5, 0}, HeadLength -
> 0.04, HeadWidth -> 0.5, HeadCenter -> 0]}];
zar = Graphics[{Thickness[0.007], Arrow[{0, 0}, {0, -7.5}, HeadLength -
> 0.04, HeadWidth -> 0.5, HeadCenter -> 0]}];
yar = Graphics[{Thickness[0.007], Arrow[{0, 0}, {-6, -2.4}, HeadLength
-> 0.04, HeadWidth -> 0.5, HeadCenter -> 0]}];
Show[xar, yar, zar, ImageSize -> 800]

Please pay special attention to the look of the vertical (called zar
above) arrow.
Quite nasty appearance; don't you agree?

I think Mathematica encountered a bug in the graphics rendering.

I am interested in any ideas of fixing it.
I have tried

In[2545]:=
xaxis = Graphics[{Thickness[0.007], Line[{{0, 0}, {8, 0}}]}];
xaxisar1 = Graphics[{Thickness[0.007], Line[{{8, 0}, {7.4, 0.15}}]}];
xaxisar2 = Graphics[{Thickness[0.007], Line[{{8, 0}, {7.4,
-0.15}}]}];
yaxis = Graphics[{Thickness[0.007], Line[{{0, 0}, {-5, -2}}]}];
yaxisar1 = Graphics[{Thickness[0.007], Line[{{-5, -2}, {-4.5,
-1.6}}]}];
yaxisar2 = Graphics[{Thickness[0.007], Line[{{-5, -2}, {-4.4,
-2}}]}];
zaxis = Graphics[{Thickness[0.007], Line[{{0, 0}, {0, -7}}]}];
zaxisar1 = Graphics[{Thickness[0.007], Line[{{0, -7}, {-0.2,
-6.5}}]}];
zaxisar2 = Graphics[{Thickness[0.007], Line[{{0, -7}, {0.2,
-6.5}}]}];
Show[xaxis, yaxis, zaxis, xaxisar1, xaxisar2, yaxisar1, yaxisar2,
zaxisar1, zaxisar2, ImageSize -> 800]

but I am looking for a workaround with Arrow. I am aware of HeadShape
option
with Polygon and lines setting but it look not very easy for me.

Thanks a lot!

Dimitris

=CF/=C7 dimitris =DD=E3=F1=E1=F8=E5:
> 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: Re: question 1
  • Next by Date: Re: ListPlot
  • Previous by thread: Re: drawing with mathematica
  • Next by thread: ListPlot