Help for this page

Select Code to Download


  1. or download this
        my $b = $blocks[$i];
    my $pv = $hv - 1;
...
    my $pa= atan2( $pv->[_X] - $hv->[_X], $pv->[_Y] - $hv->[_Y] );
    if(  $na < $pa  ) {
        # Not clock-wise:
  2. or download this
        my $pv = $hv - 1;
    $pv = $#{$blo­cks[$i]}   if  $pv < 0;
  3. or download this
        sub _X() { 1 }
    sub _Y() { 2 }
  4. or download this
        if ($blocks[$i][$j][_Y] > $highest) {