$xy->[0] += $dist*sin(PI*$dir/180);
    $xy->[1] += $dist*cos(PI*$dir/180);