karchnu/some-usable-scripts
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Useless script deleted.

Browse Source
This commit is contained in:
Karchnu 2012-07-27 03:01:55 +02:00
parent 7d1b54a440
commit 2503200bcd
1 changed files with 0 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
perl/antipixel/gd_image.pl
View File

@ -1,36 +0,0 @@
#!/usr/local/bin/perl
use GD;
my $x = 100;
my $y = 15;
my $intersection = $x - 30;
my $espace_entre_mots = 2;
my $w1 = "Alsace";
my $w2 = "Réseau";
my $w3 = "Neutre";
# create a new image
$im = new GD::Image($x,$y);
# allocate some colors
$grey = $im->colorAllocate(140,140,140);
$white = $im->colorAllocate(255,255,255);
$black = $im->colorAllocate(0,0,0);
$red = $im->colorAllocate(255,0,0);
$blue = $im->colorAllocate(0,0,255);
# make the background transparent and interlaced
#$im->transparent($white);
$im->interlaced('true');
# Put a black frame around the picture
$im->rectangle(0, 0, $x -1, $y -1, $black);
$im->filledRectangle(1, 1, $x -2, $y -2, $white);
$im->filledRectangle(2, 2, $intersection - $espace_entre_mots, $y -3, $red);
# make sure we are writing to a binary stream
binmode STDOUT;
# Convert the image to PNG and print it on standard output
print $im->png;