New in Wolfram Mathematica 7: New Graphics Primitives  previous | next 
Use Arrows in 3D Graphics
Use a variety of two- and three-dimensional arrow styles in three-dimensional scenes.
In[1]:=

Click for copyable input
Graphics3D[{Arrowheads[{{.1, 1}}], 

  Arrow[Tube[{{0, 0, 0}, {0, -1, 0}}, .025]], 

  Arrow[Tube[{{0, 0, 0}, {0, 0, 1}}, .025]], 

  Arrow[{{.5, 0, 0}, {.5, -1, 0}}], Arrow[{{.5, 0, 0}, {.5, 0, 1}}], 

  Arrowheads[{{.02, 1, Graphics3D[Sphere[]]}}], 

  Arrow[{{1, 0, 0}, {1, -1, 0}}], Arrow[{{1, 0, 0}, {1, 0, 1}}], 

  Arrowheads[{{.02, 1, Graphics[Disk[]]}}], 

  Arrow[{{1.5, 0, 0}, {1.5, -1, 0}}], 

  Arrow[{{1.5, 0, 0}, {1.5, 0, 1}}]}, 

 PlotRange -> {{0, 1.6}, {-1, 0}, {-.1, 1}}, Boxed -> False]
Out[1]=