1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
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;
}
|
