#!/usr/bin/perl
#
#

use grafikm;

$graf=grafikm->init;

$data{filename}="../www.prorata.de/tessst.gif";
$data{GRA}="PI";
$data{nachkomma}=1;
#$data{maxdata}=3;
$data{sumtext}="Der Rest";
$data{fontcolor}="e0e0e0";
#$data{shadowcolor}="bbbbbb";
$data{textformatv}="Nr.&L (&P%) ";
$data{textformath}="&Z/&N [&T]";
$data{schmuck}="3D";
$data{printN}=1;
####################
$data{datasets}[0]->{lfd}=1;
$data{datasets}[0]->{num}=6.3;
$data{datasets}[0]->{txt}="Hallo";

$data{datasets}[1]->{lfd}=6;
$data{datasets}[1]->{num}=3.4;
$data{datasets}[1]->{txt}="Frank";

$data{datasets}[2]->{lfd}=5;
$data{datasets}[2]->{num}=1.7;
$data{datasets}[2]->{txt}="Heinz";

$data{datasets}[3]->{lfd}=4;
$data{datasets}[3]->{num}=2.2;
$data{datasets}[3]->{txt}="Martin";

$data{datasets}[4]->{lfd}=3;
$data{datasets}[4]->{num}=3.6;
$data{datasets}[4]->{txt}="Stefan";
$data{datasets}[4]->{color}="cc0000";

$data{datasets}[5]->{lfd}=2;
$data{datasets}[5]->{num}=4.6;
$data{datasets}[5]->{txt}="Neu neu";

$data{N}=7;
#$data{datasets}[0]->{N}=7.3;
#$data{datasets}[1]->{N}=51;
#$data{datasets}[2]->{N}=28;
#$data{datasets}[3]->{N}=29;
#############################

$graf->setdata(\%data);
$graf->maxdata;
$graf->formnum;
$graf->datasort("lfd");
$graf->textcreate;

$graf->SK;
$graf->save;


$graf->exit;