From b5124f2d4b990d1f1a1682d3825d5285bb912c42 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 12 Dec 2010 15:27:29 +0100
Subject: Allow transparency

---
 bin/vzds | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

(limited to 'bin/vzds')

diff --git a/bin/vzds b/bin/vzds
index c8f3817..94c052f 100755
--- a/bin/vzds
+++ b/bin/vzds
@@ -13,7 +13,7 @@ use Term::ANSIColor;
 
 my %opts;
 
-getopts('cg', \%opts);
+getopts('a:cg', \%opts);
 
 my $count = shift // 5;
 
@@ -23,16 +23,19 @@ my $table  = Simplestore::load($file);
 
 my ($w, $h) = (($count < 8) ? ($count * 40) : (7 * 40), ceil($count / 7) * 40);
 
-my $im = GD::Image->new($w, $h);
+my $alpha = $opts{'a'} // 0;
 
-my $black  = $im->colorAllocate(  0,   0,   0);
-my $gray   = $im->colorAllocate(127, 127, 127);
-my $lgray  = $im->colorAllocate(191, 191, 191);
-my $white  = $im->colorAllocate(255, 255, 255);
-my $blue   = $im->colorAllocate(200, 200, 255);
-my $green  = $im->colorAllocate(200, 255, 200);
-my $yellow = $im->colorAllocate(255, 255, 200);
-my $red    = $im->colorAllocate(255, 191, 191);
+my $im = GD::Image->new($w, $h);
+$im->saveAlpha(1);
+
+my $black  = $im->colorAllocateAlpha(  0,   0,   0, $alpha);
+my $gray   = $im->colorAllocateAlpha(127, 127, 127, $alpha);
+my $lgray  = $im->colorAllocateAlpha(191, 191, 191, $alpha);
+my $white  = $im->colorAllocateAlpha(255, 255, 255, $alpha);
+my $blue   = $im->colorAllocateAlpha(200, 200, 255, $alpha);
+my $green  = $im->colorAllocateAlpha(200, 255, 200, $alpha);
+my $yellow = $im->colorAllocateAlpha(255, 255, 200, $alpha);
+my $red    = $im->colorAllocateAlpha(255, 191, 191, $alpha);
 
 my $text;
 
-- 
cgit v1.2.3