- while ( $i < $#curve ) {
- my $rect = SDL::Rect->new( -x => int($curve[$i++]), -y => int($curve[$i++]), -w => 1, -h => 1 );
- $app->fill( $rect, $red );
- $app->update( $rect );
+ 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++]);
+ line(
+ int($curve[$i++]),
+ int($curve[$i++]),
+ int($curve[$i++]),
+ int($curve[$i++]),
+ sub { $app->pixel( @_, $path_color ) }
+ );