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