X-Git-Url: http://git.rot13.org/?p=perl-landing-airplanes.git;a=blobdiff_plain;f=trace-path.pl;fp=trace-path.pl;h=02be19c12f9862987193b0720d1b1e71270e8537;hp=ed1c2379107a22102f7a126fc7b6af69da445218;hb=d08a4fc30124d3012d9c0b96a77e10884dff01f1;hpb=8a5f965f23705d15eb17d9eca1de3f2487868a6f

diff --git a/trace-path.pl b/trace-path.pl
index ed1c237..02be19c 100755
--- a/trace-path.pl
+++ b/trace-path.pl
@@ -54,10 +54,9 @@ sub curve {
 
 	my $i = 0;
 	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 );
+		$app->pixel( int($curve[$i++]), int($curve[$i++]), $red );
 	}
+	$app->sync;
 }
 
 sub handle_events {