Orientation of Arrowheads
- To: mathgroup at smc.vnet.net
- Subject: [mg108861] Orientation of Arrowheads
- From: Roger Koenker <rkoenker at uiuc.edu>
- Date: Sun, 4 Apr 2010 07:46:22 -0400 (EDT)
For a teaching demo, I'm trying to plot Arrowheads as Octahedrons, but --as documented--
Mathematica wants to orient the Arrowhead according to the orientation of the Arrow
and I would like the Octahedron to be oriented "vertically". Here is my current version:
<< Graphics`polyhedra`
octo = PolyhedronData["Octahedron"];
Graphics3D[{Opacity[.75], Arrowheads[{{.06, 1, octo}}],
Arrow[Tube[{{0, 0, 0}, {1, 1, 1}/Sqrt[3]}, .02]],
Arrowheads[{{.01, 1, Graphics3D[Sphere[]]}}],
Arrow[{{0, 0, 0}, {.577, .577, .1154}}],
Polygon[{{0, 0, 0}, {0, 2, .2}, {2, 2, .4}, {2, 0, .2}}]},
PlotRange -> {{0, 2}, {0, 2}, {0, 2}}, Boxed -> True]
Any suggestions would be most welcome.
url: www.econ.uiuc.edu/~roger Roger Koenker
email rkoenker at uiuc.edu Department of Economics
vox: 217-333-4558 University of Illinois
fax: 217-244-6678 Urbana, IL 61801