#! /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");

   $nm->setStyle(($COLOR{green}) x 10 , (gdTransparent) x 5);

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(261+0,179+0,261+93,179+21,$COLOR{blue}); # CNodeRabo-CNodeAZC
   $nm->line(261+0,179+-1,261+93,179+20,$COLOR{blue}); # CNodeRabo-CNodeAZC
   $nm->line(261+0,179+1,261+93,179+22,$COLOR{blue}); # CNodeRabo-CNodeAZC
   $nm->line(261+0,179+-2,261+93,179+19,$COLOR{blue}); # CNodeRabo-CNodeAZC
   $nm->line(261+0,179+2,261+93,179+23,$COLOR{blue}); # CNodeRabo-CNodeAZC

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(159+0,179+39,159+102,179+0,$COLOR{blue}); # CNodeUniGor-CNodeAZC
   $nm->line(159+0,179+38,159+102,179+-1,$COLOR{blue}); # CNodeUniGor-CNodeAZC
   $nm->line(159+0,179+40,159+102,179+1,$COLOR{blue}); # CNodeUniGor-CNodeAZC
   $nm->line(159+0,179+37,159+102,179+-2,$COLOR{blue}); # CNodeUniGor-CNodeAZC
   $nm->line(159+0,179+41,159+102,179+2,$COLOR{blue}); # CNodeUniGor-CNodeAZC
   $nm->setStyle(($COLOR{red}) x 8 , (gdTransparent) x 8);

   $COLOR{mycolor}=$nm->colorAllocate(0,180,97);
   $nm->line(199+0,316+23,199+128,316+0,$COLOR{blue}); # CNodeJorg-CNodeCope
   $nm->line(199+0,316+22,199+128,316+-1,$COLOR{blue}); # CNodeJorg-CNodeCope
   $nm->line(199+0,316+24,199+128,316+1,$COLOR{blue}); # CNodeJorg-CNodeCope
   $nm->line(199+0,316+21,199+128,316+-2,$COLOR{blue}); # CNodeJorg-CNodeCope
   $nm->line(199+0,316+25,199+128,316+2,$COLOR{blue}); # CNodeJorg-CNodeCope

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(327+0,316+0,327+61,316+15,$COLOR{blue}); # CNodeCeTIM3-CNodeCope
   $nm->line(327+0,316+-1,327+61,316+14,$COLOR{blue}); # CNodeCeTIM3-CNodeCope
   $nm->line(327+0,316+1,327+61,316+16,$COLOR{blue}); # CNodeCeTIM3-CNodeCope
   $nm->line(327+0,316+-2,327+61,316+13,$COLOR{blue}); # CNodeCeTIM3-CNodeCope
   $nm->line(327+0,316+2,327+61,316+17,$COLOR{blue}); # CNodeCeTIM3-CNodeCope

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(355+0,337+8,355+35,337+0,$COLOR{blue}); # CNodeCeTIM2-CNodeDirkx
   $nm->line(355+0,337+7,355+35,337+-1,$COLOR{blue}); # CNodeCeTIM2-CNodeDirkx
   $nm->line(355+0,337+9,355+35,337+1,$COLOR{blue}); # CNodeCeTIM2-CNodeDirkx
   $nm->line(355+0,337+6,355+35,337+-2,$COLOR{blue}); # CNodeCeTIM2-CNodeDirkx
   $nm->line(355+0,337+10,355+35,337+2,$COLOR{blue}); # CNodeCeTIM2-CNodeDirkx
   $nm->line(327+0,316+0,327+161,316+111,$COLOR{blue}); # CNodeCope-CNodeEvert
   $nm->line(327+0,316+-1,327+161,316+110,$COLOR{blue}); # CNodeCope-CNodeEvert
   $nm->line(327+0,316+1,327+161,316+112,$COLOR{blue}); # CNodeCope-CNodeEvert
   $nm->line(327+0,316+-2,327+161,316+109,$COLOR{blue}); # CNodeCope-CNodeEvert
   $nm->line(327+0,316+2,327+161,316+113,$COLOR{blue}); # CNodeCope-CNodeEvert
   $nm->line(249+0,420+0,249+239,420+175,$COLOR{blue}); # CNodeRV-CNodeGandalf
   $nm->line(249+0,420+-1,249+239,420+174,$COLOR{blue}); # CNodeRV-CNodeGandalf
   $nm->line(249+0,420+1,249+239,420+176,$COLOR{blue}); # CNodeRV-CNodeGandalf
   $nm->line(249+0,420+-2,249+239,420+173,$COLOR{blue}); # CNodeRV-CNodeGandalf
   $nm->line(249+0,420+2,249+239,420+177,$COLOR{blue}); # CNodeRV-CNodeGandalf
   $nm->line(388+0,331+0,388+100,331+264,$COLOR{blue}); # CNodeCeTIM3-CNodeGandalf
   $nm->line(388+-1,331+0,388+99,331+264,$COLOR{blue}); # CNodeCeTIM3-CNodeGandalf
   $nm->line(388+1,331+0,388+101,331+264,$COLOR{blue}); # CNodeCeTIM3-CNodeGandalf
   $nm->line(388+-2,331+0,388+98,331+264,$COLOR{blue}); # CNodeCeTIM3-CNodeGandalf
   $nm->line(388+2,331+0,388+102,331+264,$COLOR{blue}); # CNodeCeTIM3-CNodeGandalf

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(249+0,343+77,249+86,343+0,$COLOR{blue}); # CNodeRV-CNodeHuub
   $nm->line(249+0,343+76,249+86,343+-1,$COLOR{blue}); # CNodeRV-CNodeHuub
   $nm->line(249+0,343+78,249+86,343+1,$COLOR{blue}); # CNodeRV-CNodeHuub
   $nm->line(249+0,343+75,249+86,343+-2,$COLOR{blue}); # CNodeRV-CNodeHuub
   $nm->line(249+0,343+79,249+86,343+2,$COLOR{blue}); # CNodeRV-CNodeHuub
   $nm->line(327+0,316+0,327+8,316+27,$COLOR{blue}); # CNodeCope-CNodeHuub
   $nm->line(327+-1,316+0,327+7,316+27,$COLOR{blue}); # CNodeCope-CNodeHuub
   $nm->line(327+1,316+0,327+9,316+27,$COLOR{blue}); # CNodeCope-CNodeHuub
   $nm->line(327+-2,316+0,327+6,316+27,$COLOR{blue}); # CNodeCope-CNodeHuub
   $nm->line(327+2,316+0,327+10,316+27,$COLOR{blue}); # CNodeCope-CNodeHuub

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(327+0,316+0,327+14,316+55,$COLOR{blue}); # CNodeCope-CNodeIMI
   $nm->line(327+-1,316+0,327+13,316+55,$COLOR{blue}); # CNodeCope-CNodeIMI
   $nm->line(327+1,316+0,327+15,316+55,$COLOR{blue}); # CNodeCope-CNodeIMI
   $nm->line(327+-2,316+0,327+12,316+55,$COLOR{blue}); # CNodeCope-CNodeIMI
   $nm->line(327+2,316+0,327+16,316+55,$COLOR{blue}); # CNodeCope-CNodeIMI

   $COLOR{mycolor}=$nm->colorAllocate(0,180,129);
   $nm->line(341+0,337+34,341+49,337+0,$COLOR{blue}); # CNodeCeTIM2-CNodeIMI
   $nm->line(341+0,337+33,341+49,337+-1,$COLOR{blue}); # CNodeCeTIM2-CNodeIMI
   $nm->line(341+0,337+35,341+49,337+1,$COLOR{blue}); # CNodeCeTIM2-CNodeIMI
   $nm->line(341+0,337+32,341+49,337+-2,$COLOR{blue}); # CNodeCeTIM2-CNodeIMI
   $nm->line(341+0,337+36,341+49,337+2,$COLOR{blue}); # CNodeCeTIM2-CNodeIMI

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(390+0,140+197,390+86,140+0,$COLOR{blue}); # CNodeCeTIM2-CNodeJacob
   $nm->line(390+-1,140+197,390+85,140+0,$COLOR{blue}); # CNodeCeTIM2-CNodeJacob
   $nm->line(390+1,140+197,390+87,140+0,$COLOR{blue}); # CNodeCeTIM2-CNodeJacob
   $nm->line(390+-2,140+197,390+84,140+0,$COLOR{blue}); # CNodeCeTIM2-CNodeJacob
   $nm->line(390+2,140+197,390+88,140+0,$COLOR{blue}); # CNodeCeTIM2-CNodeJacob

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(199+0,339+0,199+149,339+70,$COLOR{blue}); # CNodeJorg-CNodeJasper
   $nm->line(199+0,339+-1,199+149,339+69,$COLOR{blue}); # CNodeJorg-CNodeJasper
   $nm->line(199+0,339+1,199+149,339+71,$COLOR{blue}); # CNodeJorg-CNodeJasper
   $nm->line(199+0,339+-2,199+149,339+68,$COLOR{blue}); # CNodeJorg-CNodeJasper
   $nm->line(199+0,339+2,199+149,339+72,$COLOR{blue}); # CNodeJorg-CNodeJasper

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(341+0,371+0,341+7,371+38,$COLOR{blue}); # CNodeIMI-CNodeJasper
   $nm->line(341+-1,371+0,341+6,371+38,$COLOR{blue}); # CNodeIMI-CNodeJasper
   $nm->line(341+1,371+0,341+8,371+38,$COLOR{blue}); # CNodeIMI-CNodeJasper
   $nm->line(341+-2,371+0,341+5,371+38,$COLOR{blue}); # CNodeIMI-CNodeJasper
   $nm->line(341+2,371+0,341+9,371+38,$COLOR{blue}); # CNodeIMI-CNodeJasper
   $nm->line(159+0,20+198,159+317,20+0,$COLOR{blue}); # CNodeUniGor-CNodeKaag
   $nm->line(159+0,20+197,159+317,20+-1,$COLOR{blue}); # CNodeUniGor-CNodeKaag
   $nm->line(159+0,20+199,159+317,20+1,$COLOR{blue}); # CNodeUniGor-CNodeKaag
   $nm->line(159+0,20+196,159+317,20+-2,$COLOR{blue}); # CNodeUniGor-CNodeKaag
   $nm->line(159+0,20+200,159+317,20+2,$COLOR{blue}); # CNodeUniGor-CNodeKaag

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(390+0,310+27,390+3,310+0,$COLOR{blue}); # CNodeCeTIM2-CNodeKees
   $nm->line(390+-1,310+27,390+2,310+0,$COLOR{blue}); # CNodeCeTIM2-CNodeKees
   $nm->line(390+1,310+27,390+4,310+0,$COLOR{blue}); # CNodeCeTIM2-CNodeKees
   $nm->line(390+-2,310+27,390+1,310+0,$COLOR{blue}); # CNodeCeTIM2-CNodeKees
   $nm->line(390+2,310+27,390+5,310+0,$COLOR{blue}); # CNodeCeTIM2-CNodeKees

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(327+0,287+29,327+12,287+0,$COLOR{blue}); # CNodeCope-CNodeLvLn
   $nm->line(327+-1,287+29,327+11,287+0,$COLOR{blue}); # CNodeCope-CNodeLvLn
   $nm->line(327+1,287+29,327+13,287+0,$COLOR{blue}); # CNodeCope-CNodeLvLn
   $nm->line(327+-2,287+29,327+10,287+0,$COLOR{blue}); # CNodeCope-CNodeLvLn
   $nm->line(327+2,287+29,327+14,287+0,$COLOR{blue}); # CNodeCope-CNodeLvLn

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(339+0,287+0,339+49,287+44,$COLOR{blue}); # CNodeCeTIM3-CNodeLvLn
   $nm->line(339+0,287+-1,339+49,287+43,$COLOR{blue}); # CNodeCeTIM3-CNodeLvLn
   $nm->line(339+0,287+1,339+49,287+45,$COLOR{blue}); # CNodeCeTIM3-CNodeLvLn
   $nm->line(339+0,287+-2,339+49,287+42,$COLOR{blue}); # CNodeCeTIM3-CNodeLvLn
   $nm->line(339+0,287+2,339+49,287+46,$COLOR{blue}); # CNodeCeTIM3-CNodeLvLn

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(345+0,337+28,345+45,337+0,$COLOR{blue}); # CNodeCeTIM2-CNodeLvLz
   $nm->line(345+0,337+27,345+45,337+-1,$COLOR{blue}); # CNodeCeTIM2-CNodeLvLz
   $nm->line(345+0,337+29,345+45,337+1,$COLOR{blue}); # CNodeCeTIM2-CNodeLvLz
   $nm->line(345+0,337+26,345+45,337+-2,$COLOR{blue}); # CNodeCeTIM2-CNodeLvLz
   $nm->line(345+0,337+30,345+45,337+2,$COLOR{blue}); # CNodeCeTIM2-CNodeLvLz
### link CNodeIMI-CNodeLvLz to short: 7
   $nm->dashedLine(381+0,440+38,381+27,440+0,$COLOR{gray}); # CNodeROCl-CNodeMark
   $nm->line(454+0,427+2,454+34,427+0,$COLOR{blue}); # CNodeEvert-CNodeMartenSoe1
   $nm->line(454+0,427+1,454+34,427+-1,$COLOR{blue}); # CNodeEvert-CNodeMartenSoe1
   $nm->line(454+0,427+3,454+34,427+1,$COLOR{blue}); # CNodeEvert-CNodeMartenSoe1
   $nm->line(454+0,427+0,454+34,427+-2,$COLOR{blue}); # CNodeEvert-CNodeMartenSoe1
   $nm->line(454+0,427+4,454+34,427+2,$COLOR{blue}); # CNodeEvert-CNodeMartenSoe1

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(388+0,331+0,388+66,331+92,$COLOR{blue}); # CNodeCeTIM3-CNodeMartenSoe2
   $nm->line(388+-1,331+0,388+65,331+92,$COLOR{blue}); # CNodeCeTIM3-CNodeMartenSoe2
   $nm->line(388+1,331+0,388+67,331+92,$COLOR{blue}); # CNodeCeTIM3-CNodeMartenSoe2
   $nm->line(388+-2,331+0,388+64,331+92,$COLOR{blue}); # CNodeCeTIM3-CNodeMartenSoe2
   $nm->line(388+2,331+0,388+68,331+92,$COLOR{blue}); # CNodeCeTIM3-CNodeMartenSoe2

   $COLOR{mycolor}=$nm->colorAllocate(26,0,180);
   $nm->line(10+0,20+0,10+378,20+311,$COLOR{blue}); # CNodeCeTIM3-CNodeMeca
   $nm->line(10+0,20+-1,10+378,20+310,$COLOR{blue}); # CNodeCeTIM3-CNodeMeca
   $nm->line(10+0,20+1,10+378,20+312,$COLOR{blue}); # CNodeCeTIM3-CNodeMeca
   $nm->line(10+0,20+-2,10+378,20+309,$COLOR{blue}); # CNodeCeTIM3-CNodeMeca
   $nm->line(10+0,20+2,10+378,20+313,$COLOR{blue}); # CNodeCeTIM3-CNodeMeca
### link CNodeCeTIM3-CNodeOBLc to short: 5
   $nm->dashedLine(390+0,150+187,390+407,150+0,$COLOR{gray}); # CNodeCeTIM2-CNodePolder
   $nm->dashedLine(797+0,50+100,797+0,50+0,$COLOR{gray}); # CNodeVeldbies-CNodePolder
   $nm->line(348+0,409+0,348+33,409+69,$COLOR{blue}); # CNodeJasper-CNodeROCl
   $nm->line(348+-1,409+0,348+32,409+69,$COLOR{blue}); # CNodeJasper-CNodeROCl
   $nm->line(348+1,409+0,348+34,409+69,$COLOR{blue}); # CNodeJasper-CNodeROCl
   $nm->line(348+-2,409+0,348+31,409+69,$COLOR{blue}); # CNodeJasper-CNodeROCl
   $nm->line(348+2,409+0,348+35,409+69,$COLOR{blue}); # CNodeJasper-CNodeROCl

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(249+0,337+83,249+141,337+0,$COLOR{blue}); # CNodeCeTIM2-CNodeRV
   $nm->line(249+0,337+82,249+141,337+-1,$COLOR{blue}); # CNodeCeTIM2-CNodeRV
   $nm->line(249+0,337+84,249+141,337+1,$COLOR{blue}); # CNodeCeTIM2-CNodeRV
   $nm->line(249+0,337+81,249+141,337+-2,$COLOR{blue}); # CNodeCeTIM2-CNodeRV
   $nm->line(249+0,337+85,249+141,337+2,$COLOR{blue}); # CNodeCeTIM2-CNodeRV
   $nm->line(199+0,339+0,199+50,339+81,$COLOR{blue}); # CNodeJorg-CNodeRV
   $nm->line(199+-1,339+0,199+49,339+81,$COLOR{blue}); # CNodeJorg-CNodeRV
   $nm->line(199+1,339+0,199+51,339+81,$COLOR{blue}); # CNodeJorg-CNodeRV
   $nm->line(199+-2,339+0,199+48,339+81,$COLOR{blue}); # CNodeJorg-CNodeRV
   $nm->line(199+2,339+0,199+52,339+81,$COLOR{blue}); # CNodeJorg-CNodeRV

   $COLOR{mycolor}=$nm->colorAllocate(0,180,10);
   $nm->line(354+0,200+0,354+34,200+131,$COLOR{blue}); # CNodeCeTIM3-CNodeRabo
   $nm->line(354+-1,200+0,354+33,200+131,$COLOR{blue}); # CNodeCeTIM3-CNodeRabo
   $nm->line(354+1,200+0,354+35,200+131,$COLOR{blue}); # CNodeCeTIM3-CNodeRabo
   $nm->line(354+-2,200+0,354+32,200+131,$COLOR{blue}); # CNodeCeTIM3-CNodeRabo
   $nm->line(354+2,200+0,354+36,200+131,$COLOR{blue}); # CNodeCeTIM3-CNodeRabo
   $nm->line(354+0,90+110,354+52,90+0,$COLOR{blue}); # CNodeRabo-CNodeRudi
   $nm->line(354+-1,90+110,354+51,90+0,$COLOR{blue}); # CNodeRabo-CNodeRudi
   $nm->line(354+1,90+110,354+53,90+0,$COLOR{blue}); # CNodeRabo-CNodeRudi
   $nm->line(354+-2,90+110,354+50,90+0,$COLOR{blue}); # CNodeRabo-CNodeRudi
   $nm->line(354+2,90+110,354+54,90+0,$COLOR{blue}); # CNodeRabo-CNodeRudi
   $nm->line(261+0,90+89,261+145,90+0,$COLOR{blue}); # CNodeAZC-CNodeRudi
   $nm->line(261+0,90+88,261+145,90+-1,$COLOR{blue}); # CNodeAZC-CNodeRudi
   $nm->line(261+0,90+90,261+145,90+1,$COLOR{blue}); # CNodeAZC-CNodeRudi
   $nm->line(261+0,90+87,261+145,90+-2,$COLOR{blue}); # CNodeAZC-CNodeRudi
   $nm->line(261+0,90+91,261+145,90+2,$COLOR{blue}); # CNodeAZC-CNodeRudi
   $nm->setStyle(($COLOR{red}) x 8 , (gdTransparent) x 8);
   $nm->line(406+0,90+0,406+70,90+44,$COLOR{blue}); # CNodeJacob2-CNodeRudi
   $nm->line(406+0,90+-1,406+70,90+43,$COLOR{blue}); # CNodeJacob2-CNodeRudi
   $nm->line(406+0,90+1,406+70,90+45,$COLOR{blue}); # CNodeJacob2-CNodeRudi
   $nm->line(406+0,90+-2,406+70,90+42,$COLOR{blue}); # CNodeJacob2-CNodeRudi
   $nm->line(406+0,90+2,406+70,90+46,$COLOR{blue}); # CNodeJacob2-CNodeRudi
   $nm->dashedLine(375+0,300+0,375+13,300+31,$COLOR{gray}); # CNodeCeTIM3-CNodeRund
   $nm->dashedLine(339+0,287+0,339+36,287+13,$COLOR{gray}); # CNodeLvLn-CNodeRund

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(327+0,316+0,327+24,316+39,$COLOR{blue}); # CNodeCope-CNodeThomas
   $nm->line(327+-1,316+0,327+23,316+39,$COLOR{blue}); # CNodeCope-CNodeThomas
   $nm->line(327+1,316+0,327+25,316+39,$COLOR{blue}); # CNodeCope-CNodeThomas
   $nm->line(327+-2,316+0,327+22,316+39,$COLOR{blue}); # CNodeCope-CNodeThomas
   $nm->line(327+2,316+0,327+26,316+39,$COLOR{blue}); # CNodeCope-CNodeThomas
### link CNodeIMI-CNodeThomas to short: 18

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(159+0,218+0,159+40,218+121,$COLOR{blue}); # CNodeJorg-CNodeUniGor
   $nm->line(159+-1,218+0,159+39,218+121,$COLOR{blue}); # CNodeJorg-CNodeUniGor
   $nm->line(159+1,218+0,159+41,218+121,$COLOR{blue}); # CNodeJorg-CNodeUniGor
   $nm->line(159+-2,218+0,159+38,218+121,$COLOR{blue}); # CNodeJorg-CNodeUniGor
   $nm->line(159+2,218+0,159+42,218+121,$COLOR{blue}); # CNodeJorg-CNodeUniGor

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(159+0,218+0,159+168,218+98,$COLOR{blue}); # CNodeCope-CNodeUniGor
   $nm->line(159+0,218+-1,159+168,218+97,$COLOR{blue}); # CNodeCope-CNodeUniGor
   $nm->line(159+0,218+1,159+168,218+99,$COLOR{blue}); # CNodeCope-CNodeUniGor
   $nm->line(159+0,218+-2,159+168,218+96,$COLOR{blue}); # CNodeCope-CNodeUniGor
   $nm->line(159+0,218+2,159+168,218+100,$COLOR{blue}); # CNodeCope-CNodeUniGor

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(476+0,50+90,476+321,50+0,$COLOR{blue}); # CNodeJacob-CNodeVeldbies
   $nm->line(476+0,50+89,476+321,50+-1,$COLOR{blue}); # CNodeJacob-CNodeVeldbies
   $nm->line(476+0,50+91,476+321,50+1,$COLOR{blue}); # CNodeJacob-CNodeVeldbies
   $nm->line(476+0,50+88,476+321,50+-2,$COLOR{blue}); # CNodeJacob-CNodeVeldbies
   $nm->line(476+0,50+92,476+321,50+2,$COLOR{blue}); # CNodeJacob-CNodeVeldbies
   $nm->line(476+0,140+0,476+200,140+53,$COLOR{blue}); # CNodeJacob-HNodeQCG
   $nm->line(476+0,140+-1,476+200,140+52,$COLOR{blue}); # CNodeJacob-HNodeQCG
   $nm->line(476+0,140+1,476+200,140+54,$COLOR{blue}); # CNodeJacob-HNodeQCG
   $nm->line(476+0,140+-2,476+200,140+51,$COLOR{blue}); # CNodeJacob-HNodeQCG
   $nm->line(476+0,140+2,476+200,140+55,$COLOR{blue}); # CNodeJacob-HNodeQCG
  
   
      $nm->copy($gredot,256,174,0,0,10,10); # CNodeAZC
   $nm->string(gdSmallFont,268,172,AZC,$COLOR{$gray});
   $nm->copy($gredot,389,326,0,0,10,10); # CNodeCeTIM1
   $nm->string(gdSmallFont,401,324,CeTIM1,$COLOR{$gray});
   $nm->copy($gredot,385,332,0,0,10,10); # CNodeCeTIM2
   $nm->string(gdSmallFont,397,330,CeTIM2,$COLOR{$gray});
   $nm->copy($gredot,383,326,0,0,10,10); # CNodeCeTIM3
   $nm->string(gdSmallFont,347,324,CeTIM3,$COLOR{$gray});
   $nm->copy($gredot,322,311,0,0,10,10); # CNodeCope
   $nm->string(gdSmallFont,298,309,Cope,$COLOR{$gray});
   $nm->copy($gredot,350,340,0,0,10,10); # CNodeDirkx
   $nm->string(gdSmallFont,362,338,Dirkx,$COLOR{$gray});
   $nm->copy($gredot,483,422,0,0,10,10); # CNodeEvert
   $nm->string(gdSmallFont,495,420,Evert,$COLOR{$gray});
   $nm->copy($gredot,483,590,0,0,10,10); # CNodeGandalf
   $nm->string(gdSmallFont,441,588,Gandalf,$COLOR{$gray});
   $nm->copy($gredot,330,338,0,0,10,10); # CNodeHuub
   $nm->string(gdSmallFont,306,336,Huub,$COLOR{$gray});
   $nm->copy($gredot,336,366,0,0,10,10); # CNodeIMI
   $nm->string(gdSmallFont,318,364,IMI,$COLOR{$gray});
   $nm->copy($gredot,471,135,0,0,10,10); # CNodeJacob
   $nm->string(gdSmallFont,441,133,Jacob,$COLOR{$gray});
   $nm->copy($gredot,471,129,0,0,10,10); # CNodeJacob2
   $nm->string(gdSmallFont,483,127,Jacob2,$COLOR{$gray});
   $nm->copy($gredot,343,404,0,0,10,10); # CNodeJasper
   $nm->string(gdSmallFont,307,402,Jasper,$COLOR{$gray});
   $nm->copy($gredot,194,334,0,0,10,10); # CNodeJorg
   $nm->string(gdSmallFont,170,332,Jorg,$COLOR{$gray});
   $nm->copy($gredot,471,15,0,0,10,10); # CNodeKaag
   $nm->string(gdSmallFont,483,13,Kaag,$COLOR{$gray});
   $nm->copy($gredot,388,305,0,0,10,10); # CNodeKees
   $nm->string(gdSmallFont,400,303,Kees,$COLOR{$gray});
   $nm->copy($gredot,334,282,0,0,10,10); # CNodeLvLn
   $nm->string(gdSmallFont,346,280,LvLn,$COLOR{$gray});
   $nm->copy($gredot,340,360,0,0,10,10); # CNodeLvLz
   $nm->string(gdSmallFont,352,358,LvLz,$COLOR{$gray});
   $nm->copy($grydot,403,435,0,0,10,10); # CNodeMark
   $nm->string(gdSmallFont,415,433,Mark,$COLOR{$gray});
   $nm->copy($gredot,449,424,0,0,10,10); # CNodeMartenSoe1
   $nm->string(gdSmallFont,389,422,MartenSoe1,$COLOR{$gray});
   $nm->copy($gredot,449,418,0,0,10,10); # CNodeMartenSoe2
   $nm->string(gdSmallFont,461,416,MartenSoe2,$COLOR{$gray});
   $nm->copy($gredot,5,15,0,0,10,10); # CNodeMeca
   $nm->string(gdSmallFont,17,13,Meca,$COLOR{$gray});
   $nm->copy($gredot,378,323,0,0,10,10); # CNodeOBLc
   $nm->string(gdSmallFont,354,321,OBLc,$COLOR{$gray});
   $nm->copy($grydot,792,145,0,0,10,10); # CNodePolder
   $nm->string(gdSmallFont,756,143,Polder,$COLOR{$gray});
   $nm->copy($gredot,376,473,0,0,10,10); # CNodeROCl
   $nm->string(gdSmallFont,388,471,ROCl,$COLOR{$gray});
   $nm->copy($gredot,244,415,0,0,10,10); # CNodeRV
   $nm->string(gdSmallFont,232,413,RV,$COLOR{$gray});
   $nm->copy($gredot,349,195,0,0,10,10); # CNodeRabo
   $nm->string(gdSmallFont,361,193,Rabo,$COLOR{$gray});
   $nm->copy($gredot,401,85,0,0,10,10); # CNodeRudi
   $nm->string(gdSmallFont,377,83,Rudi,$COLOR{$gray});
   $nm->copy($grydot,370,295,0,0,10,10); # CNodeRund
   $nm->string(gdSmallFont,382,293,Rund,$COLOR{$gray});
   $nm->copy($gredot,346,350,0,0,10,10); # CNodeThomas
   $nm->string(gdSmallFont,358,348,Thomas,$COLOR{$gray});
   $nm->copy($gredot,154,213,0,0,10,10); # CNodeUniGor
   $nm->string(gdSmallFont,166,211,UniGor,$COLOR{$gray});
   $nm->copy($gredot,148,213,0,0,10,10); # CNodeUniGorN
   $nm->string(gdSmallFont,106,211,UniGorN,$COLOR{$gray});
   $nm->copy($gredot,792,45,0,0,10,10); # CNodeVeldbies
   $nm->string(gdSmallFont,744,43,Veldbies,$COLOR{$gray});
   $nm->copy($grydot,792,45,0,0,10,10); # CNodeVhs
   $nm->string(gdSmallFont,804,43,Vhs,$COLOR{$gray});
   $nm->copy($gredot,671,188,0,0,10,10); # HNodeQCG
   $nm->string(gdSmallFont,683,186,QCG,$COLOR{$gray});
   $nm->copy($grydot,490,385,0,0,10,10); # HNodeRuben
   $nm->string(gdSmallFont,502,383,Ruben,$COLOR{$gray});
   $nm->copy($gredot,319,316,0,0,10,10); # proxy1
   $nm->string(gdSmallFont,331,314,proxy1,$COLOR{$gray});
   $nm->copy($gredot,394,330,0,0,10,10); # proxy2
   $nm->string(gdSmallFont,406,328,proxy2,$COLOR{$gray});
   $nm->copy($grydot,238,420,0,0,10,10); # proxy3
   $nm->string(gdSmallFont,250,418,proxy3,$COLOR{$gray});

   $nm->string(gdSmallFont,500,580,"Generated at: Sun Oct  5 12:09:53 2003 (rev: 1033)",$COLOR{$blue});



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