use curve points for plane path

[perl-landing-airplanes.git] / trace-path.pl

diff --git a/trace-path.pl b/trace-path.pl
index b97779c..9a6e865 100755 (executable)
--- a/trace-path.pl
+++ b/trace-path.pl
@@ -167,7 +167,7 @@ sub curve {
        $app->sync;
 
        push @airplanes, Airplane->new( $app );
-       $airplanes[-1]->set_path( @path );
+       $airplanes[-1]->set_path( @curve );
        reset_path;
 }