Select Code to Download

sub curvedArrow {
    my( $cnv, $x1, $y1, $x2, $y2, $color ) = @_;
...
    return $xc, $yc;
}

#! perl -slw
use strict;
...

MainLoop;
__END__