#!/usr/bin/perl -w

use Image::Magick;

$image=Image::Magick->new;
$image->Set(size=>'100x100');
$image->Read("xc:white");
$image->Raise('3x3');

$image->Draw(stroke=>'red',primitive=>'rectangle',points=>'20,20 25,25
+');
$image->Draw(stroke=>'red',primitive=>'rectangle',points=>'30,20 35,25
+');
$image->Draw(stroke=>'black',primitive=>'line',points=>'25,23 30,23');

binmode STDOUT;
$image->Write('gif:-');
[download]

A nice ImageMagick snippit demonstrated, at least to myself, that it is possible to draw via coords (points=>..), and I think I can create what I need from the tables I have currently.

One4k4 - perlmonks@poorheart.com (www.poorheart.com)