view release on metacpan or  search on metacpan

lib/Game/RaycastFOV.pm  view on Meta::CPAN

                        $xy,     $yx,     $yy
                    ) unless $light_start < $lslope;
                    $new_start = $rslope;
                }
            }
        }
        last if $blocked;
    }
}

sub swing_circle(&$$$$) {
    push @_, 0, pi2;
    goto &sub_circle;
}

# for reference; converted to XS in version 2.02 with the following
# matching and updated code not being quite so stupid about rounding
# ints and thus not needing a plus 0.5 fudge factor
#sub swing_circle (&$$$$) {
#    my ( $callback, $x, $y, $radius, $swing ) = @_;
#    my $angle = 0;