Re: Graphics3D Edgeless Polygons
- To: mathgroup at smc.vnet.net
- Subject: [mg43868] Re: Graphics3D Edgeless Polygons
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 9 Oct 2003 01:54:55 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <bm0k2k$psb$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi, p0 = {0, 0, 0}; p1 = {1, 1, 1}; dr = 0.05; ob = {{1, 1, 0}, {1, -1, 0}}; polys = Polygon[{dr(Cos[#]ob[[1]] + Sin[#]ob[[2]]) + p0, dr(Cos[# + da]ob[[1]] + Sin[# + da]ob[[2]]) + p0, dr(Cos[# + da]ob[[1]] + Sin[# + da]ob[[2]]) + p1, dr(Cos[#]ob[[1]] + Sin[#]ob[[2]]) + p1}] & /@ Range[da, 2Pi, da]; and Show[Graphics3D[{EdgeForm[], polys}]] does not help you ? Regards Jens "Steven T. Hatton" wrote: > > This looks like it should be obvious, but it isn't. I'm trying to create a > very narrow cylinder to represent the shaft of a 3-dimensional arrow. This > is the general idea: > > (*ob is a pair of orthonormal "basis" vectors I created relative to > segment(p0,p1) *) > da=2Pi/20; > dr=0.05; > polys = Polygon[ > {dr(Cos[#]orb[[1]] + Sin[#]ob[[2]]) + p0, > dr(Cos[# + da]ob[[1]] + Sin[# + da]ob[[2]]) + p0, > dr(Cos[# + da]ob[[1]] + Sin[# + da]ob[[2]]) + p1, > dr(Cos[#]ob[[1]] + Sin[#]ob[[2]]) + p1 > } > ] & /@ Range[da, 2Pi, da]; > > The problem is the polygons have edges which tend to dominate at this small > scale. I would like to accomplish the same thing Mesh->False does with > other graphics. Mesh->False seems not to work in this situation, and I can > see no way to use EdgeForm[] to accomplish the same kind of effect. > > Suggestions?