Gecko [ georgetownmover.com ]

Linux sagir-us1.hostever.us 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
LiteSpeed
Server IP : 104.247.108.91 & Your IP : 216.73.216.105
Domains : 74 Domain
User : georgeto

Name	Size	Permission	Date
brushes.pl	923 B	-rwxr-xr-x	2021-12-22 15:12
copies.pl	1.07 KB	-rwxr-xr-x	2021-12-22 15:12
draw_colors.pl	944 B	-rwxr-xr-x	2021-12-22 15:12
fills.pl	590 B	-rwxr-xr-x	2021-12-22 15:12
font_list.png	21.56 KB	-rw-r--r--	2017-04-20 11:27
fonttest	936 B	-rwxr-xr-x	2017-04-20 11:27
gd_example.cgi	683 B	-rwxr-xr-x	2021-12-22 15:12
polyline.pl	8.64 KB	-rw-r--r--	2021-12-22 15:12
polys.pl	785 B	-rwxr-xr-x	2021-12-22 15:12
shapes.pl	1.26 KB	-rwxr-xr-x	2021-12-22 15:12
tile.png	280 B	-rw-r--r--	2017-04-20 11:27
transform.pl	698 B	-rwxr-xr-x	2021-12-22 15:12
truetype_test	864 B	-rwxr-xr-x	2021-12-22 15:12
ttf.pl	736 B	-rwxr-xr-x	2021-12-22 15:12

Rename

#!/usr/bin/perl

use GD;

$im = new GD::Image(300,300);
($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->transparent($white);	# white color is transparent
$im->interlaced(1);		# cool venetian blinds effect

# Create a flat wide rectangle paintbrush
$brush = new GD::Image(10,10);
$brush->colorAllocate(255,255,255); # white
$brush->colorAllocate(0,0,0);	# black
$brush->transparent($white);	# white is transparent
$brush->filledRectangle(0,0,5,2,$black); # a black rectangle

# Draw a friendly title (ha!)
$im->string(gdLargeFont,150,10,"Hello world!",$red);
$im->string(gdSmallFont,150,28,"Goodbye cruel world!",$blue);
$im->stringUp(gdTinyFont,280,250,"I'm climbing the wall!",$black);
$im->charUp(gdMediumBoldFont,280,280,"Q",$black);

# Draw an oval
$im->setBrush($brush);
$im->arc(100,100,100,150,0,360,gdBrushed);

$poly = new GD::Polygon;
$poly->addPt(30,30);
$poly->addPt(100,10);
$poly->addPt(190,290);
$poly->addPt(30,290);
$im->polygon($poly,gdBrushed);

$im->fill(132,62,$blue);
$im->fill(100,70,$red);
$im->fill(40,40,$yellow);

binmode STDOUT;

# print the image to stdout
print $im->png;