hexagon tiled torus
- To: mathgroup at smc.vnet.net
- Subject: [mg20628] hexagon tiled torus
- From: Guilherme Roschke <gr at network3.entropy.upenn.edu>
- Date: Thu, 4 Nov 1999 02:13:38 -0500
- Organization: University of Pennsylvania
- Sender: owner-wri-mathgroup at wolfram.com
I am trying to draw a torus tiled with regular hexagons. I've been able
to modify the torus in <<Graphics`Shapes` to give one tiled by triangles,
but no luck with regular hexagons.
to make triangles
<<Graphics`Shapes`
torus=Show[Graphics3D[Torus[]]];
triangles=Show[torus/.Polygon[{a_,b_,c_,d_}]:>{Polygon[{a,b,c}],Polygon[{a,c,d}]}];
anybody have any references to digital/computational geometry books that
might cover this problem?
-guilherme
*************************************************
Guilherme Roschke *
Programmer/SysAdmin/Researcher *
Dept. of Anesthesia *
University of Pennsylvania Medical School *
gr at network3.entropy.upenn.edu *
*************************************************