[Date Index]
[Thread Index]
[Author Index]
Re: 3D Arrows
*To*: mathgroup at smc.vnet.net
*Subject*: [mg88135] Re: 3D Arrows
*From*: "Fred Klingener" <gigabitbucket at gmail.com>
*Date*: Sat, 26 Apr 2008 03:42:12 -0400 (EDT)
*References*: <fus8fk$842$1@smc.vnet.net>
*Reply-to*: "Fred Klingener" <gigabitbucket at gmail.com>
"Robert M. Lurie" <RMLURIE at ALUM.MIT.EDU> wrote in message
news:fus8fk$842$1 at smc.vnet.net...
> Apparently Arrows is only a 2D graphic. Is there a way to make an arrow
> in 3D?
Robert,
I use a short stack of Cylinders. Here's a stack of five, apex at p_,
pointing in direction n_.
arrowhead3D[p_, n_] :=
Module[{l = 0.2, d = 0.1, s = 5}, {EdgeForm[None],
Table[Cylinder[{p - (i - 1) l n/s, p - i l n/s}, d i/s/2], {i, s}]}]
p = {1, 1, 1};
n = {1, 1, 1};
Graphics3D[{Point[p], Line[{{0, 0, 0}, n}], arrowhead3D[p, n]}]
The form is pretty cheap but not-ready-for-publication. Absolute size would
be a good idea, but I didn't need it at the time.
Hth,
Fred Klingener
Prev by Date:
**Re: 3D Arrows**
Next by Date:
**Re: Re: Print vs Print[text, Plot]? (*now Do and Table*)**
Previous by thread:
**Re: 3D Arrows**
Next by thread:
**Re: 3D Arrows**
| |