Re: Problem with 3D Polygon
- To: mathgroup at smc.vnet.net
- Subject: [mg33440] Re: Problem with 3D Polygon
- From: digrpat at aol.com (Patrick Callahan)
- Date: Thu, 21 Mar 2002 09:27:26 -0500 (EST)
- References: <a79cit$7ug$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
<<DiscreteMath`Permutations`
<<DiscreteMath`Combinatorica`
<<Graphics`Colors`
Do[
Show[
Graphics3D[
{LightBlue,
Polygon[
Permute[{{1,0,0},{1,0,1},{-1,0,1},{-1,0,0},{-1/2,0,0},{-1/2,0,
1/2},{1/2,0,1/2},{1/2,0,0},{1,0,0}},RandomPermutation[9]]
]
}
,
Lighting -> False,
Boxed -> False
]
],{w,1,1000}]
>When I plot the following
>
>Graphics3D[{LightBlue,
> Polygon[{{1,0,0},{1,0,1},{-1,0,1},{-1,0,0},{-1/2,0,0},{-1/2,0,
> 1/2},{1/2,0,1/2},{1/2,0,0},{1,0,0}}]}],Lighting->False,
> Boxed->False];
>
>I get just a blue rectangle with some of the boundary drawn, not an inverted
>"U" shape. Can someone explain this please.
>
>Kevin
>
>