#! /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(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,345,301,$COLOR{green}); # CNodeCope-CNodeVHS
   
   $nm->copy($gredot,322,311,0,0,10,10); # CNodeCope
   $nm->copy($gredot,483,422,0,0,10,10); # CNodeEvert
   $nm->copy($gredot,330,338,0,0,10,10); # CNodeHuub
   $nm->copy($gredot,194,334,0,0,10,10); # CNodeJorg
   $nm->copy($gredot,340,295,0,0,10,10); # CNodeVHS

   $nm->string(gdSmallFont,550,580,"Augustus 2002",$blue);



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