Help for this page

Select Code to Download


  1. or download this
    for (my $n=1;$n<=$neighboorCNT;$n++) {
      if ($neighborEdges->{$n}) {
  2. or download this
    for my $n (@$neighborEdges){
  3. or download this
    sub Determinant {
  return ($_[0]*$_[3] - $_[2]*$_[1]);
}
  4. or download this
    sub SegmentIntersection {
  my @points = @{$_[0]};
...
    return $n1 > $d && $n2 > $d && $n1 < 0 && $n2 < 0;
  }
}