correct length calculation for clockwise arcs

This commit is contained in:
Clarence Risher 2011-12-22 06:09:01 -05:00
parent 28b851508e
commit a81e8c4afc
2 changed files with 10 additions and 3 deletions

View file

@ -17,7 +17,11 @@ sub angle {
sub length {
my $self = shift;
return $self->radius * $self->angle;
if($self->orientation eq 'ccw') {
return $self->radius * $self->angle;
} else {
return $self->radius * (2*PI() - $self->angle);
}
}
1;