Re: How to make curved arrows?
- To: mathgroup at smc.vnet.net
- Subject: [mg28755] Re: [mg28732] How to make curved arrows?
- From: Tom De Vries <tdevries at shop.westworld.ca>
- Date: Fri, 11 May 2001 20:00:33 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hello!
In way to do this would be to use an arc or a sector of a circle to
represent the angle. Here is a simple example....
Needs["Graphics`Colors`"]
pt = {Random[Integer, {-20, 20}], Random[Integer, {5, 20}]};
ang1 = ArcTan[pt[[1]] + 10, pt[[2]]];
ang2 = ArcTan[pt[[1]] - 10, pt[[2]]];
p = Show[Graphics[{Line[{{-10, 0}, {10, 0}, pt, {-10, 0}}], {Red,
Disk[{-10, 0}, 2, {0, ang1}]}, {Blue,
Disk[{10, 0}, 2, {ang2, \[Pi]}]}}], AspectRatio -> Automatic,
PlotRange -> All];
Sincerely,
Tom De Vries
> From: Jose Capco <jcapco at mathematik.uni-ulm.de>
To: mathgroup at smc.vnet.net
> Organization: University of Ulm
> Date: Fri, 11 May 2001 03:38:48 -0400 (EDT)
> To: mathgroup at smc.vnet.net
> Subject: [mg28755] [mg28732] How to make curved arrows?
>
> Dear NG,
>
> I wish to draw a figure in Mathematica that involves indicating the angle of
> some triangle. I thought that the only way to do it is to make acurved arrow
> (I
> hope you know what I mean), please advise me on how I can do this. Thanks in
> advance
>
> Sincerely,
> Jose Capco
>
>