FM / samples

/usr/share/doc/perl-GDGraph/samples

Name	Size	Mode	Actions
error.pl	179	0644	edit dl rm
logo.gif	2669	0644	edit dl rm
logo.png	2927	0644	edit dl rm
Makefile	2366	0644	edit dl rm
make_index.pl	1425	0644	edit dl rm
rgb.txt	17120	0644	edit dl rm
sample1A.pl	1103	0644	edit dl rm
sample1B.pl	958	0644	edit dl rm
sample11.pl	930	0644	edit dl rm
sample12.pl	895	0644	edit dl rm
sample13.pl	805	0644	edit dl rm
sample14.pl	2508	0644	edit dl rm
sample15.pl	999	0644	edit dl rm
sample16.pl	1249	0644	edit dl rm
sample17.pl	1061	0644	edit dl rm
sample18.pl	3087	0644	edit dl rm
sample19.pl	2887	0644	edit dl rm
sample21.pl	705	0644	edit dl rm
sample22.pl	563	0644	edit dl rm
sample23.pl	2759	0644	edit dl rm
sample29.pl	732	0644	edit dl rm
sample31.pl	706	0644	edit dl rm
sample41.pl	807	0644	edit dl rm
sample42.dat	103	0644	edit dl rm
sample42.pl	974	0644	edit dl rm
sample51.pl	665	0644	edit dl rm
sample52.pl	873	0644	edit dl rm
sample53.pl	1280	0644	edit dl rm
sample54.dat	31468	0644	edit dl rm
sample54.pl	1039	0644	edit dl rm
sample55.pl	665	0644	edit dl rm
sample56.pl	1187	0644	edit dl rm
sample57.pl	579	0644	edit dl rm
sample58.pl	715	0644	edit dl rm
sample61.pl	1367	0644	edit dl rm
sample62.pl	838	0644	edit dl rm
sample63.pl	1053	0644	edit dl rm
sample64.pl	1455	0644	edit dl rm
sample71.pl	2624	0644	edit dl rm
sample72.pl	1060	0644	edit dl rm
sample91.pl	512	0644	edit dl rm
sample92.pl	616	0644	edit dl rm
sample93.pl	491	0644	edit dl rm
sample94.pl	685	0644	edit dl rm
sample95.pl	2682	0644	edit dl rm
save.pl	288	0644	edit dl rm

Edit: /usr/share/doc/perl-GDGraph/samples/sample18.pl (3087B)

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);
}

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); } 1;