+
+ warn "lading for $path ",dump(@landing);
+
+ push @landings, [ @landing ];
+}
+
+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;