#!/usr/local/bin/perl -w
use strict;
use Imager;
my $impact = Imager::Font->new(file => '/home/dmueller/test/IMPACT.ttf');
my $times = Imager::Font->new(file => '/home/dmueller/test/times.ttf');
my $img = Imager->new(xsize=>5500, ysize=>6600, bits=>1) || warn Imager->errstr;
my $image = $img->to_paletted(colors=>Imager::Color->new(255,255,255),
class => 'fax',
make_colors => 'none',
translate => 'errdiff',
errdiff => 'stucki') || die Imager->errstr;
$image->string(text=>'14', x=>1750, 'y'=>1220, size=>1470, font=>$impact, color=>'black', aa=>1, align=>0) or warn $image->errstr;
$image->string(text=>'13716', x=>750, 'y'=>3100, size=>1450, font=>$impact, color=>'black', aa=>1, align=>0) or warn $image->errstr;
$image->write(file=>'./foo.tif') or die $image->errstr;
exit;
|
|
