draw dashes over the spline

diff --git a/Makefile.PL b/Makefile.PL
index 3ce7503..7b7f128 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -10,6 +10,7 @@ requires 'SDL';
 requires 'Carp';
 requires 'Data::Dump';
 requires 'Math::CatmullRom';
+requires 'Algorithm::Line::Bresenham';
 #requires '';
 
 auto_include;

diff --git a/trace-path.pl b/trace-path.pl
index 02be19c..258206d 100755 (executable)
--- a/trace-path.pl
+++ b/trace-path.pl
@@ -9,7 +9,7 @@ use SDL::Color;
 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);
@@ -54,7 +54,17 @@ sub curve {
 
        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;
 }