use SDL::Constants;
use SDL::Event;
use Math::CatmullRom;
-#use Algorithm::Line::Bresenham;
+use Algorithm::Line::Bresenham qw(line);
use Carp qw(cluck);
use Data::Dump qw(dump);
my $i = 0;
while ( $i < $#curve ) {
- $app->pixel( int($curve[$i++]), int($curve[$i++]), $red );
+ my $from_x = int($curve[$i++]);
+ my $from_y = int($curve[$i++]);
+ my $to_x = int($curve[$i++]);
+ my $to_y = int($curve[$i++]);
+ line(
+ int($curve[$i++]),
+ int($curve[$i++]),
+ int($curve[$i++]),
+ int($curve[$i++]),
+ sub { $app->pixel( @_, $red ) }
+ );
}
$app->sync;
}