correct length calculation for clockwise arcs

2026-07-24 10:05:52 +00:00 · 2011-12-22 06:09:01 -05:00
parent 28b851508e
commit a81e8c4afc
2 changed files with 10 additions and 3 deletions
@@ -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;