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: [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?


  • Prev by Date: Re: Discrete Fourier Transform
  • Next by Date: Re: Help with Nonlinear Fitting?
  • Previous by thread: Graphics3D Edgeless Polygons
  • Next by thread: Re: Graphics3D Edgeless Polygons