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: }