+
+ 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";
+
+ if ( $mask_hex eq '000000' ) { # push landing point at path end
+ foreach ( 1 .. 6 ) {
+ push @path, $landing[$_]->[0], $landing[$_]->[1];
+ }
+ }
+