Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Makefile	2.31 KB	-rw-r--r--
error.pl	179 B	-rw-r--r--
logo.png	2.76 KB	-rw-r--r--
make_index.pl	1.39 KB	-rw-r--r--
rgb.txt	16.72 KB	-rw-r--r--
sample11.pl	930 B	-rw-r--r--
sample12.pl	895 B	-rw-r--r--
sample13.pl	805 B	-rw-r--r--
sample14.pl	2.45 KB	-rw-r--r--
sample15.pl	999 B	-rw-r--r--
sample16.pl	1.22 KB	-rw-r--r--
sample17.pl	1.04 KB	-rw-r--r--
sample18.pl	3.01 KB	-rw-r--r--
sample19.pl	2.82 KB	-rw-r--r--
sample1A.pl	1.08 KB	-rw-r--r--
sample1B.pl	958 B	-rw-r--r--
sample21.pl	705 B	-rw-r--r--
sample22.pl	563 B	-rw-r--r--
sample23.pl	2.69 KB	-rw-r--r--
sample29.pl	732 B	-rw-r--r--
sample31.pl	706 B	-rw-r--r--
sample41.pl	807 B	-rw-r--r--
sample42.dat	103 B	-rw-r--r--
sample42.pl	974 B	-rw-r--r--
sample51.pl	665 B	-rw-r--r--
sample52.pl	873 B	-rw-r--r--
sample53.pl	1.25 KB	-rw-r--r--
sample54.dat	30.73 KB	-rw-r--r--
sample54.pl	1.01 KB	-rw-r--r--
sample55.pl	665 B	-rw-r--r--
sample56.pl	1.16 KB	-rw-r--r--
sample57.pl	579 B	-rw-r--r--
sample58.pl	715 B	-rw-r--r--
sample61.pl	1.33 KB	-rw-r--r--
sample62.pl	838 B	-rw-r--r--
sample63.pl	1.03 KB	-rw-r--r--
sample64.pl	1.48 KB	-rw-r--r--
sample71.pl	2.56 KB	-rw-r--r--
sample72.pl	1.04 KB	-rw-r--r--
sample91.pl	512 B	-rw-r--r--
sample92.pl	616 B	-rw-r--r--
sample93.pl	491 B	-rw-r--r--
sample94.pl	685 B	-rw-r--r--
sample95.pl	2.62 KB	-rw-r--r--
save.pl	288 B	-rw-r--r--

Code Editor : sample18.pl

no strict; # TODO fix this
use GD::Graph::bars;
use GD::Graph::hbars;
require 'save.pl';

# CONTRIB Edwin Hildebrand.
#
# See changes in bars.pm: Check for bar height rounding errors when 
# stacking bars.

@dat = qw(
        991006 991007 991114 991117 991118 991119 991120 
        991121 991122 991123 991124 991125 991126 991127 
        991128 991129 991130 991201 991204 991205 991206 
        991207 991208
);

@sub = qw(0 0 0 0 0 0 0 0 1 1 1 1 2 3 1 1 1 1 2 2 6 8 8);
@def = qw(0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0);
@rej = qw(0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0);
@opn = qw(4 4 4 5 4 4 4 4 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3);
@ass = qw(0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0);
@wrk = qw(1 2 2 2 2 2 1 1 2 2 2 1 1 1 1 1 1 1 1 1 3 6 5);
@fin = qw(0 0 0 0 0 0 1 0 0 0 0 1 1 1 2 2 2 2 2 2 2 2 2);
@ver = qw(0 0 0 0 0 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1);
@con = qw(0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0);
@tst = qw(0 0 0 0 0 0 0 0 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1);
@rev = qw(0 0 0 0 0 0 0 0 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1);
@cco = qw(0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 0 0 0 0 0 0);
@cls = qw(0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 1 0 0 0 0);
@sld = qw(0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 2 2 3 3 3 4);

# setup x data
push(@data,\@dat);         # push x labels into plot data
push(@data,\@sub);
push(@data,\@def);
push(@data,\@rej);
push(@data,\@opn);
push(@data,\@ass);         # push x values into plot data
push(@data,\@wrk);         # (push order must match legend label order)
push(@data,\@fin);
push(@data,\@ver);
push(@data,\@con);
push(@data,\@tst);
push(@data,\@rev);
push(@data,\@cco);
push(@data,\@cls);
push(@data,\@sld);

# setup legend labels
@legend = qw(
        Submitted Deferred Rejected Opened Assigned Work
        Finished Verified Configured Tested Reviewed
        Closed-CO Closed Sealed
);

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

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

# set graph legend
    $graph->set_legend(@legend);

# set graph options
    $graph->set(
       'dclrs'            => [ qw(lblue lyellow blue yellow lgreen lred
                                  green red purple orange pink dyellow) ],
       'title'            => "States by Time",
       'x_label'          => "Time",
       'y_label'          => "# OF thingies",
       'long_ticks'       => 1,
       'tick_length'      => 0,
       'x_ticks'          => 0,
       'x_label_position' => .5,
       'y_label_position' => .5,
       'cumulate'         => 1,

'bgclr'            => 'white',
       'transparent'      => 0,
       'interlaced'       => 1,

'y_tick_number'    => 5,
       'y_number_format'  => '%d',
       #'y_max_value'      => 25,
       #'y_min_value'      => 0,
       'y_plot_values'    => 1,
       'x_plot_values'    => 1,
       'zero_axis'        => 1,
    );

$graph->set('x_labels_vertical'=> 1) unless $name =~/-h$/;

$graph->plot(\@data);
    save_chart($graph, $name);
}

${this.title}

Code Editor : sample18.pl