From 7b8795f231fe069892a92bff73345efd6f4def9e Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 7 Mar 2011 17:56:06 +0100
Subject: Move bar_png from vdf to Derf::Visual

---
 lib/Derf/Visual.pm | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100644 lib/Derf/Visual.pm

(limited to 'lib')

diff --git a/lib/Derf/Visual.pm b/lib/Derf/Visual.pm
new file mode 100644
index 0000000..ee64040
--- /dev/null
+++ b/lib/Derf/Visual.pm
@@ -0,0 +1,56 @@
+package Derf::Visual;
+use strict;
+use warnings;
+use 5.010;
+use base 'Exporter';
+use GD;
+
+our @EXPORT_OK = qw(GD_bar);
+our $VERSION = '0.1';
+
+sub GD_bar {
+	my (%conf) = @_;
+	my ($w, $h) = @conf{'width', 'height'};
+	my $percent = $conf{percent_filled};
+	my $alpha = $conf{alpha};
+
+	my $bar = GD::Image->new($w, $h);
+
+	my ($w_o, $w_w) = ($w * 0.8, $w * 0.9);
+
+	my $black   = $bar->colorAllocateAlpha(  0,   0,   0, $alpha);
+	my $gray    = $bar->colorAllocateAlpha(127, 127, 127, $alpha);
+	my $lgray   = $bar->colorAllocateAlpha(191, 191, 191, $alpha);
+	my $ok_b    = $bar->colorAllocateAlpha(220, 240, 220, $alpha);
+	my $ok_f    = $bar->colorAllocateAlpha( 59, 191,  50, $alpha);
+	my $wa_b    = $bar->colorAllocateAlpha(240, 240, 220, $alpha);
+	my $wa_f    = $bar->colorAllocateAlpha(191, 191,  50, $alpha);
+	my $cr_b    = $bar->colorAllocateAlpha(240, 220, 220, $alpha);
+	my $cr_f    = $bar->colorAllocateAlpha(191,   0,   0, $alpha);
+	my $white   = $bar->colorAllocateAlpha(255, 255, 255, $alpha);
+
+	my $vwidth = sprintf("%d", ($w - 2) * $percent / 100);
+
+	$bar->rectangle(0, 0, $w - 1, $h - 1, $gray);
+	$bar->filledRectangle(1, 1, $w   - 2, $h - 2, $cr_b);
+	$bar->filledRectangle(1, 1, $w_w - 1, $h - 2, $wa_b);
+	$bar->filledRectangle(1, 1, $w_o - 1, $h - 2, $ok_b);
+	$bar->filledRectangle(1, 1, $vwidth , $h - 2, $ok_f);
+
+	if ($vwidth > $w_o) {
+		$bar->filledRectangle($w_o, 1, $vwidth, $h - 2, $wa_f);
+	}
+
+	if ($vwidth > $w_w) {
+		$bar->filledRectangle($w_w, 1, $vwidth, $h - 2, $cr_f);
+	}
+
+	if ($conf{lined}) {
+		for my $i (1 .. $w / $conf{lined}) {
+			$bar->line($i * $conf{lined}, 1, $i * $conf{lined}, $h - 2,
+				$white);
+		}
+	}
+
+	return $bar;
+}
-- 
cgit v1.2.3