#!/usr/bin/perl
#
#

use grafikm;
@TYP=("","BA","PI","VL");

for ($x=1;$x<4;$x++) {
	$graf=grafikm->init;
	$graf->loadtmp;
	$graf->Vars;
	$graf->rmdata;
	$data{filename}="../www.prorata.de/tessst$x.gif";
	$data{GRA}=$TYP[$x];
	$data{size}=35;
	$graf->setdata(\%data);
	&inser($graf);
	$graf->createimg;
	$html.="<INPUT TYPE=\"IMAGE\" NAME=\"bild$x\" SRC=\"/tessst$x.gif\"><BR>\n";
	my $X=$baseq::VARS{"bild$x.x"};
	my $Y=$baseq::VARS{"bild$x.y"};
	$html.="<BR>X=$X Y=$Y x=$x<BR>";
	$treff=$graf->polygonhit($X,$Y);
	if (defined $treff) {
		$html.="TREFFER: ".$treff->{lfd}." ".$treff->{txt}."<BR>";
	}
}






$graf->printhtml("TITEL",$html);

$graf->exit;












####################
sub inser {
$graf=shift;

$data{color}="";
$data{lfd}=1;
$data{num}=7.3;
$data{txt}="Hallo";
$graf->newdataset(\%data);

$data{lfd}=6;
$data{num}=3.4;
$data{txt}="Frank";
$graf->newdataset(\%data);

$data{lfd}=5;
$data{num}=2.7;
$data{txt}="Heinz";
$graf->newdataset(\%data);

$data{lfd}=4;
$data{num}=8.2;
$data{txt}="Martin";
$graf->newdataset(\%data);


$data{lfd}=2;
$data{num}=4.6;
$data{txt}="Neu neu";
$graf->newdataset(\%data);

$data{lfd}=3;
$data{num}=3.6;
$data{txt}="Stefan";
$data{color}="";
$graf->newdataset(\%data);

$data{lfd}=7;
$data{num}=9.6;
$data{txt}="Keine Ahnung";
$data{color}="";
$graf->newdataset(\%data);

$data{lfd}=8;
$data{num}=4.6;
$data{txt}="Noch einer";
$data{color}="";
$graf->newdataset(\%data);

$data{lfd}=9;
$data{num}=4.6;
$data{txt}="Noch einer";
$data{color}="";
$graf->newdataset(\%data);

$data{lfd}=10;
$data{num}=4.6;
$data{txt}="Noch einer";
$data{color}="";
$graf->newdataset(\%data);

$data{lfd}=11;
$data{num}=4.6;
$data{txt}="Noch einer";
$data{color}="";
$graf->newdataset(\%data);

$data{lfd}=12;
$data{num}=4.6;
$data{txt}="Noch einer";
$data{color}="";
$graf->newdataset(\%data);

$data{lfd}=13;
$data{num}=4.6;
$data{txt}="Noch einer";
$data{color}="";
$graf->newdataset(\%data);



$data{color}="";
$data{lfd}=14;
$data{num}=7.3;
$data{txt}="Hallo";
$graf->newdataset(\%data);

$data{lfd}=15;
$data{num}=3.4;
$data{txt}="Frank";
$graf->newdataset(\%data);

$data{lfd}=16;
$data{num}=2.7;
$data{txt}="Heinz";
$graf->newdataset(\%data);

$data{lfd}=17;
$data{num}=8.2;
$data{txt}="Martin";
$graf->newdataset(\%data);


$data{lfd}=18;
$data{num}=4.6;
$data{txt}="Neu neu";
$graf->newdataset(\%data);

$data{lfd}=19;
$data{num}=3.6;
$data{txt}="Stefan";
$data{color}="";
$graf->newdataset(\%data);

$data{lfd}=20;
$data{num}=9.6;
$data{txt}="Keine Ahnung";
$data{color}="";
$graf->newdataset(\%data);

$data{lfd}=21;
$data{num}=4.6;
$data{txt}="Noch einer";
$data{color}="";
$graf->newdataset(\%data);

$data{lfd}=22;
$data{num}=4.6;
$data{txt}="Noch einer";
$data{color}="";
$graf->newdataset(\%data);

$data{lfd}=23;
$data{num}=4.6;
$data{txt}="Noch einer";
$data{color}="";
$graf->newdataset(\%data);

$data{lfd}=14;
$data{num}=4.6;
$data{txt}="Noch einer";
$data{color}="";
$graf->newdataset(\%data);

$data{lfd}=25;
$data{num}=4.6;
$data{txt}="Noch einer";
$data{color}="";
$graf->newdataset(\%data);

$data{lfd}=26;
$data{num}=4.6;
$data{txt}="Noch einer";
$data{color}="";

$graf->newdataset(\%data);
#$data{datasets}[0]->{N}=7.3;
#$data{datasets}[1]->{N}=51;
#$data{datasets}[2]->{N}=28;
#$data{datasets}[3]->{N}=29;


}
#############################