Contents of /disruptive/progressbars/makebar

#!/usr/bin/perl

# Draw a progress bar in a given state
# Copyright (C) Michael Still 2005
# Written 27 March 2005

use strict;
use GD;

my($image, $black, $white, $red, $green, $blue, $count);

# Configuration for the graph
my($graphx, $graphy) = (250, 40);
my($leftmargin, $rightmargin, $topmargin, $bottommargin) = (10, $graphx - 10, 10, $graphy - 10);

# A new image, with some colours and a given background...
$image = new GD::Image($graphx, $graphy);

$red = $image->colorAllocate(255, 0, 0);
$blue = $image->colorAllocate(0, 0, 255);
$black = $image->colorAllocate(0, 0, 0);
$white = $image->colorAllocate(255, 255, 255);

$image->transparent($white);
$image->interlaced('true');
$image->filledRectangle(0, 0, $graphx, $graphy, $white);

$image->rectangle($leftmargin, $topmargin, $rightmargin, $bottommargin, $black);

# And the filled bar...
$image->filledRectangle($leftmargin + 1, $topmargin + 1,
			($ARGV[0] / $ARGV[1]) * ($rightmargin - 1),
			$bottommargin - 1, $blue);

# Dump the image out to a file...
binmode STDOUT;
print $image->png;
1	#!/usr/bin/perl
2
3	# Draw a progress bar in a given state
4	# Copyright (C) Michael Still 2005
5	# Written 27 March 2005
6
7	use strict;
8	use GD;
9
10	my($image, $black, $white, $red, $green, $blue, $count);
11
12	# Configuration for the graph
13	my($graphx, $graphy) = (250, 40);
14	my($leftmargin, $rightmargin, $topmargin, $bottommargin) = (10, $graphx - 10, 10, $graphy - 10);
15
16	# A new image, with some colours and a given background...
17	$image = new GD::Image($graphx, $graphy);
18
19	$red = $image->colorAllocate(255, 0, 0);
20	$blue = $image->colorAllocate(0, 0, 255);
21	$black = $image->colorAllocate(0, 0, 0);
22	$white = $image->colorAllocate(255, 255, 255);
23
24	$image->transparent($white);
25	$image->interlaced('true');
26	$image->filledRectangle(0, 0, $graphx, $graphy, $white);
27
28	$image->rectangle($leftmargin, $topmargin, $rightmargin, $bottommargin, $black);
29
30	# And the filled bar...
31	$image->filledRectangle($leftmargin + 1, $topmargin + 1,
32	($ARGV[0] / $ARGV[1]) * ($rightmargin - 1),
33	$bottommargin - 1, $blue);
34
35	# Dump the image out to a file...
36	binmode STDOUT;
37	print $image->png;