Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2003
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2003

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: piecewise definition of a function
  • Next by Date: Re: Perform an assigment
  • Previous by thread: Re: Graphics3D Edgeless Polygons
  • Next by thread: How can I use the Input as a string, without checking by the kernel