Next message: Tony Cook: "Re: Bounding-Box: pos-width value incorrect"
I'm using Imager for creating special charts in computational biology. For
this purpose it's critical that I have maximum control over size and
positioning of single characters. Thus, I tried to get the boundaries of the
visible character, which is a lot smaller than the "sign" with all the
surrounding white space, through the bounding_box method. Now, the problem
is that I get a gap between the end of the visible character and the
predicted end x + (bbox[2]-bbox[0]), but only with _some_ characters like
'G' or 'C', whereas 'X' or 'V' work perfectly. I add some sample code below.
Some results I got can be seen under
http://page.inf.fu-berlin.de/~schuster/logotest/
I'm using FreeType2 (libfreetype.6.3.2) with perl5.8.0, font 'arial.ttf'
from Win98. Imager version: 0.41.
I'd be so gratefull for any help, I need this stuff done for my bachelor-
thesis ;-)
Tnx, Benjamin Schuster
You need to add a font-directory through the $path variable! output will be
written to 'logotest.png' in the current dir.
#--------------------------- Code ----------------------------
#!/usr/bin/perl -w
use Imager qw(:handy);
#Letter to draw
$key = 'G';
$xsize = 200;
$ysize = 200;
#letter target-width/heigth
$lw = 150;
$lh = 150;
#Some font path
$path = '.';
my $normFont=NF(file=>"$path/arial.ttf") or die "Couldn't create font:
$Imager::ERRSTR\n";
#Create some colors
my $white = NC('#FFFFFF');
my $black = NC('#000000');
my $red = NC('#FF0000');
my $green = NC('#00FF00');
my $blue = NC('#0000FF');
#create picture
my $i=Imager->new(xsize=>$xsize, ysize=>$ysize);
$i->box(filled=>1,color=>$white);
#get the size of the character to draw
my @bbox = $normFont->bounding_box(string=>$key, size=>$lh, sizew=>$lw);
#Draw a black box determining target-width
$i->box(color=>$black,
xmin=> 25,
xmax=> 25+$lw,
ymin=> 25,
ymax=> 25+$lh,
filled => 0);
#Print the character
$i->string(font=>$normFont,
string=>$key,
x=>25,
y=>25+$lh,
size=>$lh,
sizew=>$lw,
color=>NC('#FF00FF'),
aa=>1);
#Draw a blue box showing the predicted span of the visible character
$i->box(color => $blue,
xmin => 25 + $bbox[0],
xmax => 25 + ($bbox[2]-$bbox[0]),
ymin => 25 + $lh - $bbox[5],
ymax => 25 + $lh - $bbox[4]);
$i->write(file=>'logotest.png');
#--------------------------- End -----------------------------
-------------------------------------------------
This mail sent through IMP: http://horde.org/imp/
