my ( $w, $h ) = ( 800, 480 );
my $mouse_trashold = 10;
my $max_path_length = 200;
my ( $w, $h ) = ( 800, 480 );
my $mouse_trashold = 10;
my $max_path_length = 200;
return unless $#path > 4;
my $curve = Math::CatmullRom->new( splice @path, 0, $#path + $#path / 2 );
my @curve = $curve->curve( $mouse_trashold * $max_path_length / 2 );
return unless $#path > 4;
my $curve = Math::CatmullRom->new( splice @path, 0, $#path + $#path / 2 );
my @curve = $curve->curve( $mouse_trashold * $max_path_length / 2 );
- warn "mouse down ", $event->button_x, ' ', $event->button_y;
+ debug 'mouse down', $event->button_x, $event->button_y;
- warn "mouse up ", $event->button_x, ' ', $event->button_y;
+ debug 'mouse up', $event->button_x, $event->button_y;
$mouse_down = 0;
curve;
} elsif ( $type == SDL_QUIT() ) {
exit;
} elsif ( $type == SDL_KEYDOWN() ) {
my $key = $event->key_name;
$mouse_down = 0;
curve;
} elsif ( $type == SDL_QUIT() ) {
exit;
} elsif ( $type == SDL_KEYDOWN() ) {
my $key = $event->key_name;
my $dx = abs( $last_x - $x );
my $dy = abs( $last_y - $y );
if ( $mouse_down && ( $dx > $mouse_trashold || $dy > $mouse_trashold ) ) {
my $dx = abs( $last_x - $x );
my $dy = abs( $last_y - $y );
if ( $mouse_down && ( $dx > $mouse_trashold || $dy > $mouse_trashold ) ) {