Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*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 2000

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

Search the Archive

Re: Mathematica bug in Graphics3D ??

  • To: mathgroup at smc.vnet.net
  • Subject: [mg22234] Re: [mg22213] Mathematica bug in Graphics3D ??
  • From: Hartmut Wolf <hwolf at debis.com>
  • Date: Sat, 19 Feb 2000 01:33:34 -0500 (EST)
  • Organization: debis Systemhaus
  • References: <200002180734.CAA08264@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Axel Kowald schrieb:
> 
> Hello,
> 
> I'm using Mathematica 4.0.1.0 under NT4 and when I try:
> 
> Show[Graphics3D[Polygon[{{2.5, Sqrt[3]/2, 0}, {3.5, Sqrt[3]/2, 0},
> {4, Sqrt[3], 0}, {3, 2*Sqrt[3], 0}, {2, 2*Sqrt[3], 0},
> {3, Sqrt[3], 0}} ]], Axes -> True]
> 
> Mathematica draws a polygon with only 5 corners where the last point
> {3,Sqrt[3],0} is missing. Am I doing something wrong here or what is
> going on ?
> 

Hallo Axel,

this is a problem encountered very often. When you name g1 to your
Graphics3D and then do (with some knowledge of the rainbow) ...

pp = Transpose[{Hue /@ (0.15 (Range[Length[g1[[1, 1]]]]-1)), 
                Point /@ g1[[1, 1]]}]
    ~Prepend~PointSize[0.05];

Show[g1, Graphics3D[pp]]

... you'll see that your last point of the Polygon lies within its
plane. So in cannot be closed correctly. Just move the points around
(keeping their cyclical order of course)

Show[RotateRight[g1, {0, 0, 1}], Graphics3D[pp]]


Kind regards, Hartmut


  • Prev by Date: Help: Tensor Operators
  • Next by Date: Re: LogLogPlot with dezibel/decible(?)
  • Previous by thread: Mathematica bug in Graphics3D ??
  • Next by thread: Re: Mathematica bug in Graphics3D ??