+my $current_mask = 0;
+
+warn "# masks ",dump(@masks), " landings ", dump(@landings);
+
+sub mask_hex {
+ my ( $i, $x, $y ) = @_;
+
+ my $col = $masks[$i]->pixel( $x, $y );
+ my $hex = sprintf '%02x%02x%02x', $col->r, $col->g, $col->b;
+ warn "mask $x $y $hex\n";
+ return $hex;
+}
+
+sub lading_points {
+ my ( $x, $y ) = @_;
+ my @points;
+ foreach my $i ( 0 .. $#masks ) {
+ my $hex = mask_hex( $i, $x, $y );
+ if ( $hex eq '000000' ) {
+ warn "lading point $x $y from mask $i hex $hex\n";
+ foreach ( 1 .. 6 ) {
+ push @points,
+ $landings[$i]->[$_]->[0],
+ $landings[$i]->[$_]->[1];
+ }
+ } else {
+ debug $x, $y, $i, $hex, 'ignored';
+ }
+ warn "mask $i points ",dump( @points );
+ }
+ return @points;
+}