|
|
|
| There's more than one way to do things | |
| PerlMonks |
JediWizard's scratchpadby JediWizard (Deacon) |
| on Sep 27, 2004 at 00:17 UTC ( #394032=scratchpad: print w/replies, xml ) | Need Help?? |
#!/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; |
|