Select Code to Download

#!/usr/bin/perl

...
                         , $seg->[1][0], $seg->[1][1] );
    sqrt( ($x - $x1) ** 2 + ($y - $y1) ** 2);
}

edge count          = 889
average edge length = 123.835184709118
...
  - 2869

... other edges omitted ...