#!/usr/bin/perl -w
use Chart::Composite;
print "1..1\n";
my $obj = Chart::Composite->new( 600, 500 );
my @legend_ary;
my ( $legend, @zeile );
my @all_aryref;
open( OUT, ">samples/composite_1.png" ) or die "cannot write file samples/composite_1.png\n";
my $i = 0;
my $e = 0;
my $max_val = 0;
while (<DATA>)
{
if ( $_ =~ /EOF/i )
{
last;
}
chomp;
$i++;
( $legend, @zeile ) = split /\|/, $_;
$obj->add_dataset(@zeile);
if ( $i != 1 )
{
push @legend_ary, $legend; # Erste Zeile ist die x-Achsenbezeichnung und gehört nicht zur Legende
for ( 0 .. $#zeile ) { $zeile[$_] > $max_val ? $max_val = $zeile[$_] : 1; } # den Maximalen Wert ermitteln
}
$all_aryref[ $e++ ] = [@zeile];
}
if ( $max_val =~ /^\d+$/ )
{
$max_val = 100 * int( 1 + $max_val / 100 );
} # den Scalenwert die nächste 100er Stellen setzen
# Der zweite Charttyp überdeckt immer den ersten
$obj->set(
'legend' => "top",
'legend_labels' => \@legend_ary,
'x_ticks' => "vertical",
'composite_info' => [ [ 'StackedBars', [ 8, 7, 6, 5 ] ], [ 'Bars', [ 1, 2, 3, 4, 9 ] ], ],
'same_y_axes' => "true",
'y_label' => "Anzahl",
'min_val1' => 0,
'max_val1' => $max_val,
'max_val2' => $max_val,
'space_bars' => 1,
'brush_size' => 10,
'legend' => 'bottom',
'title' => 'Composite Demo Chart',
'legend_example_height' => 'true',
'legend_example_height0..3' => '50',
'legend_example_height4..9' => '4',
);
$obj->png( \*OUT );
close OUT;
print "ok 1\n";
exit 0;
__END__
Datum|01.09.2003|02.09.2003|03.09.2003|04.09.2003
Anzahl gesamt|322|244|227|223
Anzahl Stufe 1 bis 4 gesamt|226|173|159|145
Anzahl JL|77|46|44|61
Anzahl DL|19|25|24|17
Anzahl 1. Stufe|28|22|11|27
Anzahl 2. Stufe|12|11|4|7
Anzahl 3. Stufe|50|39|55|34
Anzahl 4. Stufe|136|101|89|77
Anzahl Formulare|547|352|249|174
EOF