exact distance for mouse, improved dashes

[perl-landing-airplanes.git] / trace-path.pl

diff --git a/trace-path.pl b/trace-path.pl
index e58fe4f..c0d695d 100755 (executable)
--- a/trace-path.pl
+++ b/trace-path.pl
@@ -38,8 +38,8 @@ our $event = SDL::Event->new;
 
 our $mouse_down = 0;
 
-our $mouse_color = SDL::Color->new( 0x00, 0x80, 0x00 );
-our $path_color  = SDL::Color->new( 0xff, 0x00, 0x00 );
+our $mouse_color = SDL::Color->new( 0x00, 0x00, 0x80 );
+our $path_color  = SDL::Color->new( 0xff, 0xff, 0x80 );
 our $black       = SDL::Color->new( 0x00, 0x00, 0x00 );
 
 my ( $last_x, $last_y ) = ( 0,0 );
@@ -55,15 +55,12 @@ sub curve {
        }
 
        my $curve = Math::CatmullRom->new( @path );
-       my @curve = $curve->curve( $mouse_trashold * 10 );
+       my $points = $#path + 1 - 4; # remove start/end points
+       my @curve = $curve->curve( $points );
        debug 'curve' => @curve;
 
        my $i = 0;
-       while ( $i < $#curve - 4 ) {
-               my $from_x = int($curve[$i++]);
-               my $from_y = int($curve[$i++]);
-               my $to_x   = int($curve[$i++]);
-               my $to_y   = int($curve[$i++]);
+       while ( $i <= $#curve - 4 ) {
                line(
                        int($curve[$i++]),
                        int($curve[$i++]),
@@ -112,9 +109,8 @@ sub handle_events {
                } elsif ( $type == SDL_MOUSEMOTION() ) {
                        my ( $x, $y ) = ( $event->motion_x, $event->motion_y );
                        #debug 'mouse', $mouse_down, $x, $y;
-                       my $dx = abs( $last_x - $x );
-                       my $dy = abs( $last_y - $y );
-                       if ( $mouse_down && ( $dx > $mouse_trashold || $dy > $mouse_trashold ) ) {
+                       my $d = sqrt( ( $x - $last_x ) ** 2 + ( $y - $last_y ) ** 2 );
+                       if ( $mouse_down && $d > $mouse_trashold ) {
                                if ( $#path < $max_path_length ) {
                                        push @path, $x, $y;
                                        my $rect = SDL::Rect->new( -x => $event->motion_x - 1, -y => $event->motion_y -1 , -w => 3, -h => 3 );