sub curvedArrow {
    my( $cnv, $x1, $y1, $x2, $y2, $color ) = @_;
    ## set the radius to the distance between p1 & p2
    my $rad = sqrt( abs( $x1 - $x2 )**2 + abs( $y1 - $y2 )**2 );
    my $q = sqrt( ( $x2 - $x1 )**2 + ( $y2 - $y1 )**2 );
    my( $x3, $y3 ) = ( ( $x1 + $x2 ) / 2, ( $y1 + $y2 ) / 2 );

    my $xc = $x3 + sqrt( $rad**2 - ( $q / 2 )**2 ) * ( $y1 - $y2 ) / $q;
    my $yc = $y3 + sqrt( $rad**2 - ( $q / 2 )**2 ) * ( $x2 - $x1 ) / $q;

    my $a1 = atan2( ( $yc - $y1 ), -( $xc - $x1 ) ) * RAD;
    my $a2 = atan2( ( $yc - $y2 ), -( $xc - $x2 ) ) * RAD;


    $cnv->createArc(
        $xc - $rad, $yc - $rad, $xc + $rad, $yc + $rad,
        -style => 'arc', -start => $a1, -extent => -60,
        -outline=> $color
    );

    my $r2 = $rad / 15;

    $cnv->createArc(
        $x1-$r2, $y1-$r2, $x1+$r2, $y1+$r2,
        -start=>$a1-77, -extent=> -30, -fill=> $color
    );

    $cnv->createArc(
        $x2-$r2, $y2-$r2, $x2+$r2, $y2+$r2,
        -start=> ( $a2+107 ) %360, -extent=> -30, -fill=> $color
    );
    return $xc, $yc;
}