Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

JediWizard's scratchpad

by 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;
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2019-11-22 00:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Strict and warnings: which comes first?



    Results (107 votes). Check out past polls.

    Notices?