Select Code to Download

   |
 5 +  F-----------E
...
   |
   +--+--+--+--+--+--
      1  2  3  4  5

DE = [ 5, 3, 5, 5 ]
AB = [ 1, 1, 2, 1 ]
...
EF = [ 5, 5, 1, 5 ]
FA = [ 1, 5, 1, 1 ]
CD = [ 2, 3, 5, 3 ]

AB = [ 1, 1, 2, 1 ]
BC = [ 2, 1, 2, 3 ]
...
DE = [ 5, 3, 5, 5 ]
EF = [ 5, 5, 1, 5 ]
FA = [ 1, 5, 1, 1 ]

A = [ 1, 1 ]
B = [ 2, 1 ]
...
D = [ 5, 3 ]
E = [ 5, 5 ]
F = [ 1, 5 ]

  # segments are in @seg
  my($start_x, $start_y) = ($seg[0]->[0], $seg[0]->[1]);
...
    }
  }
  # polygon points are in @poly