#! /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{yellow}  	= $nm->colorAllocate(255,200,0);

	$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");


#   $COLOR{green}=$nm->colorAllocate(0,180,15);
   $nm->line(199+0,316+23,199+128,316+0,$COLOR{green}); # CNodeJorg-CNodeCope

#   $COLOR{green}=$nm->colorAllocate(15,0,180);
   $nm->line(327+0,316+0,327+61,316+15,$COLOR{green}); # CNodeCeTIM3-CNodeCope

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(341+0,345+26,341+14,345+0,$COLOR{green}); # CNodeIMI-CNodeDirkx

#   $COLOR{green}=$nm->colorAllocate(0,120,180);
   $nm->line(327+0,316+0,327+161,316+111,$COLOR{green}); # CNodeCope-CNodeEvert

#   $COLOR{green}=$nm->colorAllocate(0,180,0);

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(335+0,343+0,335+16,343+12,$COLOR{green}); # HNodeThomas-CNodeHuub

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(327+0,316+0,327+8,316+27,$COLOR{green}); # CNodeCope-CNodeHuub

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(327+0,316+0,327+14,316+55,$COLOR{green}); # CNodeCope-CNodeIMI

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(341+0,337+34,341+49,337+0,$COLOR{green}); # CNodeCeTIM2-CNodeIMI

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(390+0,140+197,390+86,140+0,$COLOR{green}); # CNodeCeTIM2-CNodeJacob

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(199+0,339+0,199+149,339+70,$COLOR{green}); # CNodeJorg-CNodeJasper

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(341+0,371+0,341+7,371+38,$COLOR{green}); # CNodeIMI-CNodeJasper

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(390+0,310+27,390+3,310+0,$COLOR{green}); # CNodeCeTIM2-CNodeKees

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(327+0,287+29,327+12,287+0,$COLOR{green}); # CNodeCope-CNodeLvLn

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(339+0,287+0,339+49,287+44,$COLOR{green}); # CNodeCeTIM3-CNodeLvLn

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(345+0,337+28,345+45,337+0,$COLOR{green}); # CNodeCeTIM2-CNodeLvLz

### link CNodeIMI-CNodeLvLz to short: 7

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(454+0,427+2,454+34,427+0,$COLOR{green}); # CNodeEvert-CNodeMartenSoe1

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(408+0,423+17,408+46,423+0,$COLOR{green}); # HNodeMark-CNodeMartenSoe2

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(388+0,331+0,388+66,331+92,$COLOR{green}); # CNodeCeTIM3-CNodeMartenSoe2
### link CNodeCeTIM3-CNodeOBLc to short: 5

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(249+0,337+83,249+141,337+0,$COLOR{green}); # CNodeCeTIM2-CNodeRV

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(199+0,339+0,199+50,339+81,$COLOR{green}); # CNodeJorg-CNodeRV

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(354+0,200+0,354+34,200+131,$COLOR{green}); # CNodeCeTIM3-CNodeRabo

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(159+0,200+18,159+195,200+0,$COLOR{green}); # CNodeUniGor-CNodeRabo

#   $COLOR{green}=$nm->colorAllocate(0,180,0);

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(159+0,218+0,159+40,218+121,$COLOR{green}); # CNodeJorg-CNodeUniGor

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
   $nm->line(159+0,218+0,159+168,218+98,$COLOR{green}); # CNodeCope-CNodeUniGor

#   $COLOR{green}=$nm->colorAllocate(0,180,0);
  

                                                                                                            

   
   $nm->copy($gredot,389,326,0,0,10,10); # CNodeCeTIM1
   $nm->copy($gredot,385,332,0,0,10,10); # CNodeCeTIM2
   $nm->copy($gredot,383,326,0,0,10,10); # CNodeCeTIM3
   $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,471,135,0,0,10,10); # CNodeJacob
   $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,424,0,0,10,10); # CNodeMartenSoe1
   $nm->copy($gredot,449,418,0,0,10,10); # CNodeMartenSoe2
#   $nm->copy($gredot,378,323,0,0,10,10); # CNodeOBLc
   $nm->copy($gredot,244,415,0,0,10,10); # CNodeRV
   $nm->copy($gredot,349,195,0,0,10,10); # CNodeRabo
   $nm->copy($gredot,154,213,0,0,10,10); # CNodeUniGor
   $nm->copy($gredot,148,213,0,0,10,10); # CNodeUniGorN
   $nm->copy($gredot,403,435,0,0,10,10); # HNodeMark
   $nm->copy($gredot,346,350,0,0,10,10); # HNodeThomas

   $nm->string(gdSmallFont,500,580,"juni 2003",$COLOR{$blue});



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