From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 19 May 2010 16:31:10 +0000 (+0200)
Subject: draw curve using pixels
X-Git-Url: http://git.rot13.org/?p=perl-landing-airplanes.git;a=commitdiff_plain;h=d08a4fc30124d3012d9c0b96a77e10884dff01f1

draw curve using pixels
---

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 {