ImageMagick：如何在合成后的白色斑块中心添加标签？

1. 获取斑块在画布中的绝对中心坐标 #

因为单张斑块图像和大画布尺寸一致，直接通过ImageMagick的trimbox属性（或identify命令的%@格式）就能拿到斑块在原图像（即大画布）中的边界框，无需额外计算偏移量：

命令行方式（可在Perl中调用） #

用identify提取边界框信息，输出格式为widthxheight+x+y，其中x,y是斑块左上角在画布的坐标：

identify -format "%@" single_patch.png

示例输出：120x90+300+450，表示斑块宽120、高90，左上角位于画布的(300,450)位置。基于此计算中心坐标：

# 解析输出
bbox=$(identify -format "%@" single_patch.png)
IFS='x+' read -r w h x y <<< "$bbox"
center_x=$(( x + w / 2 ))
center_y=$(( y + h / 2 ))

Perl中用Image::Magick模块实现 #

直接读取图像的trimbox属性，它返回斑块的左上角和右下角坐标，直接计算中心：

use Image::Magick;

my $patch_img = Image::Magick->new;
$patch_img->Read('single_patch.png');

# 获取边界框：x1,y1,x2,y2
my $trimbox = $patch_img->Get('trimbox');
my ($x1, $y1, $x2, $y2) = split /,/, $trimbox;

# 计算画布中的绝对中心坐标
my $center_x = ($x1 + $x2) / 2;
my $center_y = ($y1 + $y2) / 2;

2. 合成斑块并添加中心标签 #

拿到中心坐标后，即可在大画布上合成斑块并标注，以下是两种实现方式：

命令行批量处理 #

# 初始化大尺寸黑色画布
convert -size 2000x1500 xc:black canvas.png

# 遍历所有斑块文件
for patch in patch_*.png; do
    # 获取中心坐标
    bbox=$(identify -format "%@" "$patch")
    IFS='x+' read -r w h x y <<< "$bbox"
    center_x=$(( x + w / 2 ))
    center_y=$(( y + h / 2 ))
    
    # 合成斑块+添加居中标签
    # 先计算文本偏移，让标签中心对齐斑块中心
    text="Patch $patch"
    text_w=$(convert -pointsize 14 label:"$text" -format "%w" info:)
    text_h=$(convert -pointsize 14 label:"$text" -format "%h" info:)
    align_x=$(( center_x - text_w / 2 ))
    align_y=$(( center_y + text_h / 2 ))
    
    convert canvas.png "$patch" -composite -pointsize 14 -fill white -draw "text $align_x,$align_y '$text'" canvas.png
done

Perl脚本完整实现 #

use Image::Magick;

# 初始化大画布（替换为你的实际尺寸）
my $canvas = Image::Magick->new(size => '2000x1500');
$canvas->ReadImage('xc:black');

# 遍历所有斑块图像
my @patch_files = glob('patch_*.png');
my $label_idx = 1;

foreach my $file (@patch_files) {
    # 读取斑块图
    my $patch = Image::Magick->new;
    $patch->Read($file);
    
    # 获取中心坐标
    my $trimbox = $patch->Get('trimbox');
    my ($x1, $y1, $x2, $y2) = split /,/, $trimbox;
    my $center_x = ($x1 + $x2) / 2;
    my $center_y = ($y1 + $y2) / 2;
    
    # 合成斑块到画布
    $canvas->Composite(image => $patch, compose => 'over');
    
    # 添加居中标签
    my $label = "Label $label_idx";
    # 计算文本尺寸用于对齐
    my $text_img = Image::Magick->new;
    $text_img->Set(pointsize => 14);
    $text_img->Read("label:$label");
    my $text_w = $text_img->Get('width');
    my $text_h = $text_img->Get('height');
    
    $canvas->Annotate(
        text      => $label,
        pointsize => 14,
        fill      => 'white',
        x         => $center_x - $text_w/2,
        y         => $center_y + $text_h/2
    );
    
    $label_idx++;
}

# 保存最终结果
$canvas->Write('final_canvas.png');

关键注意事项 #

• 旧版IM 6.8.9完全支持trimbox属性和%@格式输出，无需担心兼容性问题。
• 若斑块非纯白，可先通过-threshold将斑块转为纯白后再提取trimbox，结果不受影响。

内容的提问来源于stack exchange，提问作者MrSparkly