Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

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

Search the Archive

Re: No "Arrow3D" ?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg34841] Re: [mg34832] No "Arrow3D" ?
  • From: SteveC <steve at fractalus.com>
  • Date: Sun, 9 Jun 2002 05:10:11 -0400 (EDT)
  • References: <200206080922.FAA26210@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

* 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" ?