+# $plane->blit( $plane->rect, $self->{app}, $to );
+
+ my $radian = atan2(
+ $self->{path}[$pos+1] - $self->{path}[$pos+3],
+ $self->{path}[$pos] - $self->{path}[$pos+2],
+ );
+ my $deg = $radian / 3.1459265 * 180;
+
+ $deg = -$deg + 90; # plain nose at 90 deg.
+
+ my $plane = SDL::Surface->new( -name => 'artwork/airplane.png' );
+ my $rotated = $tool->rotoZoom( $plane, $deg, 1, 1 );
+ $rotated->blit( $rotated->rect, $self->{app}, $to );
+
+ warn "$pos $radian $deg ", $rotated->width, ' ', $rotated->height;