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 57 58 59 60
|
use Chart::Bars;
print "1..1\n";
$g = Chart::Bars->new;
$g->add_dataset ('foo', 'bar', 'junk', 'ding', 'bat');
$g->add_dataset (30000, 40000, 80000, 50000, 90000);
$g->add_dataset (80000, 60000, 30000, 30000, 40000);
$g->add_dataset (50000, 70000, 20200, 80000.8, 40000);
@labels=('eins', 'zwei', 'drei');
#@custom_ticks = (1,2);
%hash = ('transparent' => 'true',
'precision' => 1,
#'integer_ticks_only' => 'true',
'skip_int_ticks' => 10000,
'title' => 'Bars\nChartmodul',
'y_grid_lines' => 'true',
'graph_border' => '4',
'min_val' => '0',
'text_space' => '2',
'sub_title' => 'Untertitel',
'x_label' => 'X-Achse',
'y_label' => 'Y-Achse',
'y_label2' => 'Y-Achse2',
'legend' => 'right',
'legend_labels' => \@labels,
'tick_len' => '3',
'x_ticks' => 'vertical',
'include_zero' => 'true',
'pt_size' => '7',
'skip_x_ticks' => '1',
'grid_lines' =>'true',
'custom_x_ticks' => [0,1],
'colors' => {
'text' => [100,0,200],
'y_label' => [2,255,2],
'y_label2' => [2,255,2],
'y_grid_lines' => [255 ,255,255],
'x_grid_lines' => [255,255,255],
'dataset0' => [255,20,147],
},
'spaced_bars' => 'true',
'y_ticks' => '20' ,
);
$g->set (%hash);
$g->png ("samples/bars.png");
print "ok 1\n";
exit (0);
|