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

#!/usr/bin/perl use GD; $im = new GD::Image(100,50); # allocate black -- this will be our background $black = $im->colorAllocate(0, 0, 0); # allocate white $white = $im->colorAllocate(255, 255, 255); # allocate red $red = $im->colorAllocate(255, 0, 0); # allocate blue $blue = $im->colorAllocate(0,0,255); #Inscribe an ellipse in the image $im->arc(50, 25, 98, 48, 0, 360, $white); # Flood-fill the ellipse. Fill color is red, and will replace the # black interior of the ellipse $im->fill(50, 21, $red); binmode STDOUT; # print the image to stdout print $im->png;