FM / demos

/usr/share/doc/perl-GD/demos

Name	Size	Mode	Actions
brushes.pl	923	0755	edit dl rm
copies.pl	1091	0755	edit dl rm
draw_colors.pl	944	0755	edit dl rm
fills.pl	590	0755	edit dl rm
fonttest	936	0755	edit dl rm
font_list.png	22078	0644	edit dl rm
gd_example.cgi	683	0755	edit dl rm
png2jpeg.pl	563	0644	edit dl rm
polyline.pl	8848	0644	edit dl rm
polys.pl	785	0755	edit dl rm
shapes.pl	1293	0755	edit dl rm
tile.png	280	0644	edit dl rm
transform.pl	1013	0755	edit dl rm
truetype_test	864	0755	edit dl rm
ttf.pl	736	0755	edit dl rm

Edit: /usr/share/doc/perl-GD/demos/ttf.pl (736B)

#!/usr/bin/perl use lib '../blib/lib','../blib/arch'; use GD 1.20; use constant font => '../t/Generic.ttf'; $im = new GD::Image(400,250); warn $GD::VERSION; ($white,$black,$red,$blue,$yellow) = ( $im->colorAllocate(255, 255, 255), $im->colorAllocate(0, 0, 0), $im->colorAllocate(255, 0, 0), $im->colorAllocate(0,0,255), $im->colorAllocate(255,250,205) ); $im->interlaced(1); # cool venetian blinds effect # Some TTFs $im->stringTTF($black,font,12.0,0.0,20,20,"Hello world!") || die $@; $im->stringTTF($red,font,14.0,0.0,20,80,"Hello world!")|| die $@;; $im->stringTTF($blue,font,30.0,-0.5,60,100,"Goodbye cruel world!")|| die $@;; binmode STDOUT; # print the image to stdout print $im->png;