Services & ResourcesWolfram ForumsMathGroup Archive

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

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/

• References:
  • No "Arrow3D" ?
    • From: aes <siegman@stanford.edu>