sub curve {
+ if ( $#path < 1 ) {
+ warn "path too short ", dump @path;
+ reset_path;
+ return;
+ }
+
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";