If you cut and pasted this code you have a typo in start_angel which may be the problem as start_angle will be undefined.

Deep recursion means that that a sub is recursing more than one hundered times. The code in question is:

412: sub level_angle # (angle)
413: {
414:    my $a = shift;
415:    return level_angle($a-360) if ( $a > 180 );
416:    return level_angle($a+360) if ( $a <= -180 );
417:    return $a;
418: }
[download]

The only way that I can see that this sub could recurse >100 times (and implicate line 415) is if $a > 100 * 360. If $a is undef it will just get returned. You could trace back to see why this should be so but I expect fixing the typo may fix it.

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print