MathGroup Archive 2001

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

Search the Archive

Re: Point order


In a message dated 2001/8/11 3:51:02 AM, nova2000 at total.net writes:

>If I draw a polygone of n sides, how do I know if the points are drawn
>in clockwise order or not?
>

Label the points 

Needs["Graphics`MultipleListPlot`"];
Needs["Graphics`Colors`"];

n = 5;

MultipleListPlot[
    Flatten[List @@ 
        RegularPolygon[n, 1, {0, 0}], 1], 
    Flatten[List @@ 
        RegularPolygon[n, 1, {0, 0}, Pi/n, n-1], 1], 
    PlotStyle -> {Red, Blue}, 
    PlotJoined -> True, 
    AspectRatio -> Automatic, 
    Axes -> False, 
    SymbolLabel -> 
      (Table[#<>ToString[k], 
              {k, n}]& /@ {"CCW-", "CW-"}), 
    PlotRange -> All];


Bob Hanlon
Chantilly, VA  USA


  • Prev by Date: factor.exe and factoring
  • Next by Date: Re: 4D scatterplot
  • Previous by thread: Point order
  • Next by thread: Re: Point order