From 2503200bcd91f3d447220d52350c387c769e4e47 Mon Sep 17 00:00:00 2001 From: Karchnu Date: Fri, 27 Jul 2012 03:01:55 +0200 Subject: [PATCH] Useless script deleted. --- perl/antipixel/gd_image.pl | 36 ------------------------------------ 1 file changed, 36 deletions(-) delete mode 100644 perl/antipixel/gd_image.pl diff --git a/perl/antipixel/gd_image.pl b/perl/antipixel/gd_image.pl deleted file mode 100644 index fe6e4ed..0000000 --- a/perl/antipixel/gd_image.pl +++ /dev/null @@ -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;