Select Code to Download

Select or download this

#!/usr/bin/perl

...
  my ($x1,$y1,$x2,$y2) = @_;
  return ($x1*$y2 - $x2*$y1);
}

Select or download this

%Time    Sec.     #calls   sec/call  F  name
58.21 1889.8621  28882029   0.000065     main::SegmentIntersection
30.60  993.5924        1  993.592408     main::find_unintersected_edge
+s
11.12  361.0416  86646087   0.000004     main::Determinant
 0.05    1.7613        1   1.761285     main::find_unique_edges