Select Code to Download

# ... intro stuff...

...
    }
    #------------------------------------
}

sub getArcEnd {
  my ($x, $y, $x2, $y2, $start, $extent) = @_;
...
  return [ $centerX + $radiusX*cos($radians)
           , $centerY - $radiusY*sin($radians) ];
}