Re: Circular Arrow
- To: mathgroup at smc.vnet.net
- Subject: [mg94705] Re: Circular Arrow
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Sun, 21 Dec 2008 05:51:20 -0500 (EST)
- References: <giikjt$9u8$1@smc.vnet.net>
Hi,
a) copy the vector graphic and *not* the bitmap (i.e. as Windows MetaFile)
b) make the radius of the arrow a bit larger
With[{d = 41.3, L = 100.8},
Manipulate[
Graphics3D[{Arrow[
Table[{L, r*d*Cos[\[Theta]], r*d*Sin[\[Theta]]}, {\[Theta], Pi/4,
4*(Pi/2), Pi/50}]]}], {{r, 0.3}, 0.1, 2}]
]
suggest 0.8 instead of 0.3.
c) ImageSize -> 72*32 is 2304 this is larger than the most displays
Regards
Jens
Hugh Goyder wrote:
> Using version 7 I am attempting to draw the graphics below. The
> problem is the circular arrow. I get the circular shaft but the arrow
> head is disconnected. How is the arrow head aligned and how do I get
> it back onto the shaft?
>
> As an aside the graphic is large so that when I copy it as a bitmap
> the antialiasing does not effect the type face. I shrink the graphic
> after I have copied it. Is there a better way of doing this?
>
> Thanks
> Hugh Goyder
>
> With[{d = 41.3, L = 100.8},
> Style[Graphics3D[{
> Arrowheads[Appearance -> "Projected"],
> Cylinder[{{-(L/2), 0, 0}, {L/2, 0, 0}}, d/2],
> Line[{{3*(-(L/2)), 0, 0}, {3*(L/2), 0, 0}}],
> Thickness[0.005],
> Arrow[{{0, d, 0}, {0, 5*d, 0}}],
> Arrow[{{0, 0, 0.6*d}, {0, 0, 2*d}}],
> Arrow[{{0, 0, -0.6*d}, {0, 0, -2*d}}],
> Arrow[{{0, -0.6*d, 0}, {0, -2*d, 0}}],
> {Thickness[0.002],
> Arrowheads[0.03],
>
> Arrow[Table[{L, 0.3*d*Cos[\[Theta]],
> 0.3*d*Sin[\[Theta]]}, {\[Theta], Pi/4, 4*(Pi/2), Pi/50}]]},
> Text["Direction\nof motion", {0, 5*d, 0}, {0, -1.5}],
> Text["Lift", {0, 0, 2*d}, {0, -2}],
> Text["Weight", {0, 0, -2*d}, {0, 2}],
> Text["Drag", {0, -2*d, 0}, {0, -2}],
> Text["Direction\nof spin", {L, 0, -0.5*d},
> {0, 0}]},
> Boxed -> False,
> BaseStyle -> {FontFamily -> "Times", FontSize -> 48},
> ImageSize -> 72*32
> ],
> Antialiasing -> True]
> ]
>