#! /usr/bin/perl
#
#
use GD;

   local($nm);
   local(%COLOR);
   local($bludot,$reddot,$gredot,$grydot,$orgdot,$yeldot);

        $fn="images/leiden4.png";
	$nm = new GD::Image($fn) || die "Could not open file: $fn\n";

	$COLOR{white}  	= $nm->colorAllocate(255,255,255);
	$COLOR{black}  	= $nm->colorAllocate(0,0,0);
	$COLOR{red}    	= $nm->colorAllocate(255,0,0);
	$COLOR{green}  	= $nm->colorAllocate(0,255,0);
	$COLOR{orange} 	= $nm->colorAllocate(255,165,0);
	$COLOR{gray}   	= $nm->colorAllocate(150,150,150);
	$COLOR{blue}   	= $nm->colorAllocate(0,0,255);
	$COLOR{margenta}  	= $nm->colorAllocate(255,0,255);
	$COLOR{cyan}  	= $nm->colorAllocate(0,150,255);

	$COLOR{"gdStyled"}=gdStyled; 

   	$bludot=GD::Image->new("images/bludot10.png");
   	$reddot=GD::Image->new("images/reddot10.png");
   	$gredot=GD::Image->new("images/gredot10.png");
   	$grydot=GD::Image->new("images/grydot10.png");
   	$orgdot=GD::Image->new("images/orgdot10.png");
   	$yeldot=GD::Image->new("images/yeldot10.png");

   $nm->line(199+0,316+23,199+128,316+0,$COLOR{green}); # CNodeJorg-CNodeCope
   $nm->line(341+0,345+26,341+14,345+0,$COLOR{green}); # CNodeIMI-CNodeDirkx
   $nm->line(327+0,316+0,327+161,316+111,$COLOR{green}); # CNodeCope-CNodeEvert
   $nm->line(327+0,316+0,327+8,316+27,$COLOR{green}); # CNodeCope-CNodeHuub
   $nm->line(327+0,316+0,327+14,316+55,$COLOR{green}); # CNodeCope-CNodeIMI
   $nm->line(199+0,339+0,199+149,339+70,$COLOR{green}); # CNodeJorg-CNodeJasper
   $nm->line(341+0,371+0,341+7,371+38,$COLOR{green}); # CNodeIMI-CNodeJasper
   $nm->line(348+0,409+0,348+140,409+18,$COLOR{green}); # CNodeEvert-CNodeJasper
   $nm->line(327+0,310+6,327+66,310+0,$COLOR{green}); # CNodeCope-CNodeKees
   $nm->line(327+0,287+29,327+12,287+0,$COLOR{green}); # CNodeCope-CNodeLvLn
   $nm->line(454+0,423+0,454+34,423+4,$COLOR{green}); # CNodeEvert-CNodeMarten
   
   $nm->copy($gredot,322,311,0,0,10,10); # CNodeCope
   $nm->copy($gredot,350,340,0,0,10,10); # CNodeDirkx
   $nm->copy($gredot,483,422,0,0,10,10); # CNodeEvert
   $nm->copy($gredot,330,338,0,0,10,10); # CNodeHuub
   $nm->copy($gredot,336,366,0,0,10,10); # CNodeIMI
   $nm->copy($gredot,343,404,0,0,10,10); # CNodeJasper
   $nm->copy($gredot,194,334,0,0,10,10); # CNodeJorg
   $nm->copy($gredot,388,305,0,0,10,10); # CNodeKees
   $nm->copy($gredot,334,282,0,0,10,10); # CNodeLvLn
   $nm->copy($gredot,340,360,0,0,10,10); # CNodeLvLz
   $nm->copy($gredot,449,418,0,0,10,10); # CNodeMarten

   $nm->string(gdSmallFont,550,580,"April 2003",$blue);



   open (F,">output/2003-04.jpg") || die;
   print F $nm->jpeg(85);
   close F;