Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Re: 3D Arrows

  • To: mathgroup at smc.vnet.net
  • Subject: [mg88255] Re: 3D Arrows
  • From: "peter.steneteg at gmail.com" <peter.steneteg at gmail.com>
  • Date: Wed, 30 Apr 2008 04:21:55 -0400 (EDT)
  • References: <fus8fk$842$1@smc.vnet.net>

On 25 Apr, 11:32, "Robert M. Lurie" <RMLU... at ALUM.MIT.EDU> wrote:
> Apparently Arrows is only a 2D graphic. Is there a way to make an arrow
> in 3D?
> Robert M Lurie

Wanted the same thing, made a quick implementation...

Between[a_, b_, x_] := b - (b - a)/Norm[b - a]*x;
Cone3D[s_, e_, w_] := Module[{v, b, b1, b2, A, r},
   v = e - s;
   A = RotationMatrix[\[Pi]/10, v];
   b = {v[[2]], -v[[1]], 0};
   b = b/Norm[b]*w;
   r = {};
   For[i = 0, i < 20, i++,
    b1 = RotationMatrix[i*\[Pi]/10, v].b;
    b2 =  RotationMatrix[(i + 1)*\[Pi]/10, v].b;
    AppendTo[r, Polygon[{e, s + b1, s + b2}]];
    AppendTo[r, Polygon[{s, s + b1, s + b2}]];
    ];
   r
   ];
Arrow3D[s_, e_, cw_, aw_, al_] := Module[{m},
   m = Between[s, e, al];
   {Cylinder[{s, m}, cw], Cone3D[m, e, aw]}
   ];

Graphics3D[{EdgeForm[], Arrow3D[{2, 0, 0}, {0, 0, 0}, 0.1, 0.3, 0.4]}]







  • Prev by Date: Re: Does Mathematica really need more printed, introductory documentation?
  • Next by Date: Re: locator snap
  • Previous by thread: Re: 3D Arrows
  • Next by thread: OpenerView (with cells?)