Gecko [ georgetownmover.com ]

Linux sagir-us1.hostever.us 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
LiteSpeed
Server IP : 104.247.108.91 & Your IP : 216.73.216.105
Domains : 74 Domain
User : georgeto

Name	Size	Permission	Date
Makefile	2.31 KB	-rw-r--r--	2013-06-26 12:19
error.pl	179 B	-rw-r--r--	2013-06-26 12:19
logo.gif	2.61 KB	-rw-r--r--	2013-06-22 21:40
logo.png	2.86 KB	-rw-r--r--	2013-06-20 21:01
make_index.pl	1.39 KB	-rw-r--r--	2021-12-22 15:41
rgb.txt	16.72 KB	-rw-r--r--	2013-06-20 21:01
sample11.pl	930 B	-rw-r--r--	2015-12-27 16:43
sample12.pl	895 B	-rw-r--r--	2015-12-27 16:43
sample13.pl	805 B	-rw-r--r--	2015-12-27 16:43
sample14.pl	2.45 KB	-rw-r--r--	2015-12-27 16:43
sample15.pl	999 B	-rw-r--r--	2015-12-27 16:43
sample16.pl	1.22 KB	-rw-r--r--	2015-12-27 16:43
sample17.pl	1.04 KB	-rw-r--r--	2015-12-27 16:43
sample18.pl	3.01 KB	-rw-r--r--	2015-12-27 16:43
sample19.pl	2.82 KB	-rw-r--r--	2015-12-27 16:43
sample1A.pl	1.08 KB	-rw-r--r--	2021-12-22 15:41
sample1B.pl	958 B	-rw-r--r--	2015-12-27 16:43
sample21.pl	705 B	-rw-r--r--	2015-12-27 16:43
sample22.pl	563 B	-rw-r--r--	2015-12-27 16:43
sample23.pl	2.69 KB	-rw-r--r--	2015-12-27 16:43
sample29.pl	732 B	-rw-r--r--	2015-12-27 16:43
sample31.pl	706 B	-rw-r--r--	2015-12-27 16:43
sample41.pl	807 B	-rw-r--r--	2015-12-27 16:43
sample42.dat	103 B	-rw-r--r--	2013-06-20 21:01
sample42.pl	974 B	-rw-r--r--	2015-12-27 16:43
sample51.pl	665 B	-rw-r--r--	2015-12-27 16:43
sample52.pl	873 B	-rw-r--r--	2015-12-27 16:43
sample53.pl	1.25 KB	-rw-r--r--	2015-12-27 16:43
sample54.dat	30.73 KB	-rw-r--r--	2013-06-20 21:01
sample54.pl	1.01 KB	-rw-r--r--	2015-12-27 16:43
sample55.pl	665 B	-rw-r--r--	2015-12-27 16:43
sample56.pl	1.16 KB	-rw-r--r--	2015-12-27 16:43
sample57.pl	579 B	-rw-r--r--	2015-12-27 16:43
sample58.pl	715 B	-rw-r--r--	2015-12-27 16:43
sample61.pl	1.33 KB	-rw-r--r--	2015-12-27 16:43
sample62.pl	838 B	-rw-r--r--	2015-12-27 16:43
sample63.pl	1.03 KB	-rw-r--r--	2015-12-27 16:43
sample64.pl	1.42 KB	-rw-r--r--	2021-12-22 15:41
sample71.pl	2.56 KB	-rw-r--r--	2015-12-27 16:43
sample72.pl	1.04 KB	-rw-r--r--	2015-12-27 16:43
sample91.pl	512 B	-rw-r--r--	2015-12-27 16:43
sample92.pl	616 B	-rw-r--r--	2015-12-27 16:43
sample93.pl	491 B	-rw-r--r--	2015-12-27 16:43
sample94.pl	685 B	-rw-r--r--	2015-12-27 16:43
sample95.pl	2.62 KB	-rw-r--r--	2015-12-27 16:43
save.pl	288 B	-rw-r--r--	2015-12-27 16:43

Rename

use strict;
use GD::Graph::bars;
use GD::Graph::hbars;
require 'save.pl';

my @data = ( 
    [ qw( 1st 2nd 3rd 4th 5th 6th 7th 8th 9th ) ],
    [    5,   12,undef,   33,   19,    8,    5,    15,    21],
    [   -6,   -5,   -9,   -8,  -11, -9.3,undef,    -9,   -12]
);

my $refit = 4;

sub y_format
{
    my $value = shift;

if ($value < 0)
    {
	return sprintf('-$%3d', abs($value) * $refit);
    }
    return sprintf('$%3d', $value * $refit);
}

my @names = qw/sample16 sample16-h/;

for my $my_graph (GD::Graph::bars->new, GD::Graph::hbars->new)
{
    my $name = shift @names;
    print STDERR "Processing $name\n";

$my_graph->set( 
	x_label             => 'Day',
	y_label             => 'AUD',
	title               => 'Credits and Debits',
	y_max_value         => 35,
	y_min_value         => -15,
	y_tick_number       => 10,
	y_label_skip        => 2,
	overwrite           => 1, 
	dclrs               => [ qw( green lred ) ],
	axislabelclr        => 'black',
	legend_placement    => 'RB',
	zero_axis_only      => 0,
	y_number_format     => \&y_format,
	x_label_position    => 1/2,

transparent         => 0,
    );

$my_graph->set_legend( 'credits', 'debets' );
    $my_graph->plot(\@data);
    save_chart($my_graph, $name);
}