X-Git-Url: http://git.rot13.org/?p=perl-landing-airplanes.git;a=blobdiff_plain;f=trace-path.pl;h=3611481d31779f5f53a2c114127463547c296f98;hp=6239d135ae177554af0c0834432542805225607d;hb=88873314ed5427f7eb71ab8a3d175fedff746506;hpb=1428dfad63cf1b315059112a7b3be76956339f3d

diff --git a/trace-path.pl b/trace-path.pl
index 6239d13..3611481 100755
--- a/trace-path.pl
+++ b/trace-path.pl
@@ -83,6 +83,12 @@ sub reset_path { @path = () }
 
 sub curve {
 
+	if ( $#path < 1 ) {
+		warn "path too short ", dump @path;
+		reset_path;
+		return;
+	}
+	
 	my $mask_col = $mask->pixel( $path[-2], $path[-1] );
 	my $mask_hex = sprintf '%02x%02x%02x', $mask_col->r, $mask_col->g, $mask_col->b;
 	warn "mask $path[-2] $path[1] $mask_hex\n";