Re: Graphics3D Edgeless Polygons
- To: mathgroup at smc.vnet.net
- Subject: [mg43903] Re: Graphics3D Edgeless Polygons
- From: "Steven T. Hatton" <hattons at globalsymmetry.com>
- Date: Fri, 10 Oct 2003 03:06:27 -0400 (EDT)
- References: <bm0k2k$psb$1@smc.vnet.net> <bm2u7e$6rf$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Jens-Peer Kuska wrote: > 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 Yes, it made the edges go away. When it comes to the Principle of Least Astonishment, I must say, Mathematica is truly amazing! Now my colors are several shades darker than previously, but I haven't played around with things like lighting and specular reflection yet. Steven