MathGroup Archive 2002

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

Search the Archive

Re: No "Arrow3D" ?


* aes (siegman at stanford.edu) wrote:
> Subject line says it all.

How about generalising

<< Graphics`Shapes`
Arrow3D[vect_List] := {Line[vect], 
      TranslateShape[RotateShape[Cone[.1, .1, 10],
          (vect[[1]][[1]] - vect[[2]][[1]])/(vect[[1]][[2]] - 
                vect[[2]][[2]]),
          (vect[[1]][[2]] - vect[[2]][[2]])/(vect[[1]][[3]] - 
                vect[[2]][[3]]),
          (vect[[1]][[1]] - vect[[2]][[1]])/(vect[[1]][[3]] - 
vect[[2]][[3]])
          ], vect[[2]]]
      
      };
Show[Graphics3D[Arrow3D[{{0, 0, 0}, {1, 1, 1}}]]]l

That'd be cool?

have fun,

SteveC steve at fractalus.com http://www.fractalus.com/steve/


  • Prev by Date: Re: Does a Mathematica IRC channel exist?
  • Next by Date: Re: which Linux does Mathematica run on?
  • Previous by thread: No "Arrow3D" ?
  • Next by thread: RE: No "Arrow3D" ?