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

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

        $fn="images/leiden4.png";

	$w = new GD::Image(20,20);
        $wc= $w->colorAllocate(255,255,255);
	$w->fill(10,10,$wc);

	$nm = new GD::Image($fn) || die "Could not open file: $fn\n";
	($width,$heigth)=$nm->getBounds();
        for ($x=0;$x<$width;$x++) 
        {
	   $nm->copy($w,$x,0,0,0,20,20);
	   $nm->copy($w,$x,$heigth-20,0,0,20,20);
        }
        for ($y=0;$y<$heigth;$y++) 
        {
	   $nm->copy($w,0,$y,0,0,20,20);
	   $nm->copy($w,$width-20,$y,0,0,20,20);
        }

	$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{ltblue}        = $nm->colorAllocate(180,180,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");


   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(797+0,277+318,797+0,277+0,$COLOR{blue}); # CNodeWBRotary1-CNodeAA24
   $nm->line(797+-1,277+318,797+-1,277+0,$COLOR{blue}); # CNodeWBRotary1-CNodeAA24
   $nm->line(797+1,277+318,797+1,277+0,$COLOR{blue}); # CNodeWBRotary1-CNodeAA24
   $nm->line(797+-2,277+318,797+-2,277+0,$COLOR{blue}); # CNodeWBRotary1-CNodeAA24
   $nm->line(797+2,277+318,797+2,277+0,$COLOR{blue}); # CNodeWBRotary1-CNodeAA24

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(694+0,355+0,694+103,355+240,$COLOR{blue}); # CNodeGraficall-CNodeAA24
   $nm->line(694+-1,355+0,694+102,355+240,$COLOR{blue}); # CNodeGraficall-CNodeAA24
   $nm->line(694+1,355+0,694+104,355+240,$COLOR{blue}); # CNodeGraficall-CNodeAA24
   $nm->line(694+-2,355+0,694+101,355+240,$COLOR{blue}); # CNodeGraficall-CNodeAA24
   $nm->line(694+2,355+0,694+105,355+240,$COLOR{blue}); # CNodeGraficall-CNodeAA24

   $COLOR{mycolor}=$nm->colorAllocate(0,180,163);
   $nm->line(205+0,465+0,205+36,465+37,$COLOR{blue}); # CNodeHaagwijk-CNodeAJSoft
   $nm->line(205+-1,465+0,205+35,465+37,$COLOR{blue}); # CNodeHaagwijk-CNodeAJSoft
   $nm->line(205+1,465+0,205+37,465+37,$COLOR{blue}); # CNodeHaagwijk-CNodeAJSoft
   $nm->line(205+-2,465+0,205+34,465+37,$COLOR{blue}); # CNodeHaagwijk-CNodeAJSoft
   $nm->line(205+2,465+0,205+38,465+37,$COLOR{blue}); # CNodeHaagwijk-CNodeAJSoft
   $nm->line(205+0,420+45,205+44,420+0,$COLOR{blue}); # CNodeRV-CNodeAJSoft
   $nm->line(205+-1,420+45,205+43,420+0,$COLOR{blue}); # CNodeRV-CNodeAJSoft
   $nm->line(205+1,420+45,205+45,420+0,$COLOR{blue}); # CNodeRV-CNodeAJSoft
   $nm->line(205+-2,420+45,205+42,420+0,$COLOR{blue}); # CNodeRV-CNodeAJSoft
   $nm->line(205+2,420+45,205+46,420+0,$COLOR{blue}); # CNodeRV-CNodeAJSoft

   $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
### link CNodeLMkempers2-CNodeBDboon to short: 0

   $COLOR{mycolor}=$nm->colorAllocate(0,137,180);
   $nm->line(234+0,26+0,234+216,26+60,$COLOR{blue}); # CNodeLijtweg1-CNodeBroekplein
   $nm->line(234+0,26+-1,234+216,26+59,$COLOR{blue}); # CNodeLijtweg1-CNodeBroekplein
   $nm->line(234+0,26+1,234+216,26+61,$COLOR{blue}); # CNodeLijtweg1-CNodeBroekplein
   $nm->line(234+0,26+-2,234+216,26+58,$COLOR{blue}); # CNodeLijtweg1-CNodeBroekplein
   $nm->line(234+0,26+2,234+216,26+62,$COLOR{blue}); # CNodeLijtweg1-CNodeBroekplein

   $COLOR{mycolor}=$nm->colorAllocate(0,0,180);
   $nm->line(392+0,86+124,392+58,86+0,$COLOR{blue}); # CNodeSOM-CNodeBroekplein
   $nm->line(392+-1,86+124,392+57,86+0,$COLOR{blue}); # CNodeSOM-CNodeBroekplein
   $nm->line(392+1,86+124,392+59,86+0,$COLOR{blue}); # CNodeSOM-CNodeBroekplein
   $nm->line(392+-2,86+124,392+56,86+0,$COLOR{blue}); # CNodeSOM-CNodeBroekplein
   $nm->line(392+2,86+124,392+60,86+0,$COLOR{blue}); # CNodeSOM-CNodeBroekplein

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(354+0,86+114,354+96,86+0,$COLOR{blue}); # CNodeRabo-CNodeBroekplein
   $nm->line(354+-1,86+114,354+95,86+0,$COLOR{blue}); # CNodeRabo-CNodeBroekplein
   $nm->line(354+1,86+114,354+97,86+0,$COLOR{blue}); # CNodeRabo-CNodeBroekplein
   $nm->line(354+-2,86+114,354+94,86+0,$COLOR{blue}); # CNodeRabo-CNodeBroekplein
   $nm->line(354+2,86+114,354+98,86+0,$COLOR{blue}); # CNodeRabo-CNodeBroekplein

   $COLOR{mycolor}=$nm->colorAllocate(0,109,180);
   $nm->line(159+0,197+21,159+71,197+0,$COLOR{blue}); # CNodeUniGor-CNodeBrug
   $nm->line(159+0,197+20,159+71,197+-1,$COLOR{blue}); # CNodeUniGor-CNodeBrug
   $nm->line(159+0,197+22,159+71,197+1,$COLOR{blue}); # CNodeUniGor-CNodeBrug
   $nm->line(159+0,197+19,159+71,197+-2,$COLOR{blue}); # CNodeUniGor-CNodeBrug
   $nm->line(159+0,197+23,159+71,197+2,$COLOR{blue}); # CNodeUniGor-CNodeBrug

   $COLOR{mycolor}=$nm->colorAllocate(5,0,180);
   $nm->line(230+0,32+165,230+4,32+0,$COLOR{blue}); # CNodeLijtweg3-CNodeBrug
   $nm->line(230+-1,32+165,230+3,32+0,$COLOR{blue}); # CNodeLijtweg3-CNodeBrug
   $nm->line(230+1,32+165,230+5,32+0,$COLOR{blue}); # CNodeLijtweg3-CNodeBrug
   $nm->line(230+-2,32+165,230+2,32+0,$COLOR{blue}); # CNodeLijtweg3-CNodeBrug
   $nm->line(230+2,32+165,230+6,32+0,$COLOR{blue}); # CNodeLijtweg3-CNodeBrug

   $COLOR{mycolor}=$nm->colorAllocate(18,0,180);
   $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
   $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

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(450+0,500+95,450+46,500+0,$COLOR{blue}); # CNodeJVC-CNodeDuivenHok
   $nm->line(450+-1,500+95,450+45,500+0,$COLOR{blue}); # CNodeJVC-CNodeDuivenHok
   $nm->line(450+1,500+95,450+47,500+0,$COLOR{blue}); # CNodeJVC-CNodeDuivenHok
   $nm->line(450+-2,500+95,450+44,500+0,$COLOR{blue}); # CNodeJVC-CNodeDuivenHok
   $nm->line(450+2,500+95,450+48,500+0,$COLOR{blue}); # CNodeJVC-CNodeDuivenHok

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(249+0,420+0,249+504,420+175,$COLOR{blue}); # CNodeRV-CNodeGandalf
   $nm->line(249+0,420+-1,249+504,420+174,$COLOR{blue}); # CNodeRV-CNodeGandalf
   $nm->line(249+0,420+1,249+504,420+176,$COLOR{blue}); # CNodeRV-CNodeGandalf
   $nm->line(249+0,420+-2,249+504,420+173,$COLOR{blue}); # CNodeRV-CNodeGandalf
   $nm->line(249+0,420+2,249+504,420+177,$COLOR{blue}); # CNodeRV-CNodeGandalf

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(157+0,342+29,157+39,342+0,$COLOR{blue}); # CNodeJorg2-CNodeGer
   $nm->line(157+0,342+28,157+39,342+-1,$COLOR{blue}); # CNodeJorg2-CNodeGer
   $nm->line(157+0,342+30,157+39,342+1,$COLOR{blue}); # CNodeJorg2-CNodeGer
   $nm->line(157+0,342+27,157+39,342+-2,$COLOR{blue}); # CNodeJorg2-CNodeGer
   $nm->line(157+0,342+31,157+39,342+2,$COLOR{blue}); # CNodeJorg2-CNodeGer

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(157+0,371+0,157+48,371+94,$COLOR{blue}); # CNodeAJSoft-CNodeGer
   $nm->line(157+-1,371+0,157+47,371+94,$COLOR{blue}); # CNodeAJSoft-CNodeGer
   $nm->line(157+1,371+0,157+49,371+94,$COLOR{blue}); # CNodeAJSoft-CNodeGer
   $nm->line(157+-2,371+0,157+46,371+94,$COLOR{blue}); # CNodeAJSoft-CNodeGer
   $nm->line(157+2,371+0,157+50,371+94,$COLOR{blue}); # CNodeAJSoft-CNodeGer

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(496+0,355+145,496+198,355+0,$COLOR{blue}); # CNodeJVC-CNodeGraficall
   $nm->line(496+0,355+144,496+198,355+-1,$COLOR{blue}); # CNodeJVC-CNodeGraficall
   $nm->line(496+0,355+146,496+198,355+1,$COLOR{blue}); # CNodeJVC-CNodeGraficall
   $nm->line(496+0,355+143,496+198,355+-2,$COLOR{blue}); # CNodeJVC-CNodeGraficall
   $nm->line(496+0,355+147,496+198,355+2,$COLOR{blue}); # CNodeJVC-CNodeGraficall

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(341+0,373+0,341+10,373+80,$COLOR{blue}); # CNodeIMI-CNodeGrip
   $nm->line(341+-1,373+0,341+9,373+80,$COLOR{blue}); # CNodeIMI-CNodeGrip
   $nm->line(341+1,373+0,341+11,373+80,$COLOR{blue}); # CNodeIMI-CNodeGrip
   $nm->line(341+-2,373+0,341+8,373+80,$COLOR{blue}); # CNodeIMI-CNodeGrip
   $nm->line(341+2,373+0,341+12,373+80,$COLOR{blue}); # CNodeIMI-CNodeGrip

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(351+0,453+0,351+30,453+25,$COLOR{blue}); # CNodeROCl-CNodeGrip
   $nm->line(351+0,453+-1,351+30,453+24,$COLOR{blue}); # CNodeROCl-CNodeGrip
   $nm->line(351+0,453+1,351+30,453+26,$COLOR{blue}); # CNodeROCl-CNodeGrip
   $nm->line(351+0,453+-2,351+30,453+23,$COLOR{blue}); # CNodeROCl-CNodeGrip
   $nm->line(351+0,453+2,351+30,453+27,$COLOR{blue}); # CNodeROCl-CNodeGrip
   $nm->line(392+0,206+4,392+405,206+0,$COLOR{gray}); # CNodeSOM-CNodeHMKerk2
   $nm->dashedLine(694+0,206+149,694+103,206+0,$COLOR{gray}); # CNodeGraficall-CNodeHMKerk2

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(153+0,36+182,153+127,36+0,$COLOR{blue}); # CNodeUniGorN-CNodeHofwijck
   $nm->line(153+-1,36+182,153+126,36+0,$COLOR{blue}); # CNodeUniGorN-CNodeHofwijck
   $nm->line(153+1,36+182,153+128,36+0,$COLOR{blue}); # CNodeUniGorN-CNodeHofwijck
   $nm->line(153+-2,36+182,153+125,36+0,$COLOR{blue}); # CNodeUniGorN-CNodeHofwijck
   $nm->line(153+2,36+182,153+129,36+0,$COLOR{blue}); # CNodeUniGorN-CNodeHofwijck

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(234+0,32+0,234+46,32+4,$COLOR{blue}); # CNodeLijtweg3-CNodeHofwijck
   $nm->line(234+0,32+-1,234+46,32+3,$COLOR{blue}); # CNodeLijtweg3-CNodeHofwijck
   $nm->line(234+0,32+1,234+46,32+5,$COLOR{blue}); # CNodeLijtweg3-CNodeHofwijck
   $nm->line(234+0,32+-2,234+46,32+2,$COLOR{blue}); # CNodeLijtweg3-CNodeHofwijck
   $nm->line(234+0,32+2,234+46,32+6,$COLOR{blue}); # CNodeLijtweg3-CNodeHofwijck
   $nm->line(390+0,268+69,390+29,268+0,$COLOR{blue}); # CNodeCeTIM2-CNodeHoutmarkt
   $nm->line(390+-1,268+69,390+28,268+0,$COLOR{blue}); # CNodeCeTIM2-CNodeHoutmarkt
   $nm->line(390+1,268+69,390+30,268+0,$COLOR{blue}); # CNodeCeTIM2-CNodeHoutmarkt
   $nm->line(390+-2,268+69,390+27,268+0,$COLOR{blue}); # CNodeCeTIM2-CNodeHoutmarkt
   $nm->line(390+2,268+69,390+31,268+0,$COLOR{blue}); # CNodeCeTIM2-CNodeHoutmarkt
   $nm->line(392+0,210+0,392+27,210+58,$COLOR{blue}); # CNodeSOM-CNodeHoutmarkt
   $nm->line(392+-1,210+0,392+26,210+58,$COLOR{blue}); # CNodeSOM-CNodeHoutmarkt
   $nm->line(392+1,210+0,392+28,210+58,$COLOR{blue}); # CNodeSOM-CNodeHoutmarkt
   $nm->line(392+-2,210+0,392+25,210+58,$COLOR{blue}); # CNodeSOM-CNodeHoutmarkt
   $nm->line(392+2,210+0,392+29,210+58,$COLOR{blue}); # CNodeSOM-CNodeHoutmarkt
   $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
   $nm->setStyle(($COLOR{green}) x 10 , (gdTransparent) x 5);

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

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

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(381+0,440+38,381+27,440+0,$COLOR{blue}); # CNodeROCl-CNodeIntCom
   $nm->line(381+-1,440+38,381+26,440+0,$COLOR{blue}); # CNodeROCl-CNodeIntCom
   $nm->line(381+1,440+38,381+28,440+0,$COLOR{blue}); # CNodeROCl-CNodeIntCom
   $nm->line(381+-2,440+38,381+25,440+0,$COLOR{blue}); # CNodeROCl-CNodeIntCom
   $nm->line(381+2,440+38,381+29,440+0,$COLOR{blue}); # CNodeROCl-CNodeIntCom

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(381+0,478+0,381+115,478+22,$COLOR{blue}); # CNodeROCl-CNodeJVC
   $nm->line(381+0,478+-1,381+115,478+21,$COLOR{blue}); # CNodeROCl-CNodeJVC
   $nm->line(381+0,478+1,381+115,478+23,$COLOR{blue}); # CNodeROCl-CNodeJVC
   $nm->line(381+0,478+-2,381+115,478+20,$COLOR{blue}); # CNodeROCl-CNodeJVC
   $nm->line(381+0,478+2,381+115,478+24,$COLOR{blue}); # CNodeROCl-CNodeJVC
   $nm->line(348+0,337+72,348+42,337+0,$COLOR{blue}); # CNodeCeTIM2-CNodeJasper
   $nm->line(348+-1,337+72,348+41,337+0,$COLOR{blue}); # CNodeCeTIM2-CNodeJasper
   $nm->line(348+1,337+72,348+43,337+0,$COLOR{blue}); # CNodeCeTIM2-CNodeJasper
   $nm->line(348+-2,337+72,348+40,337+0,$COLOR{blue}); # CNodeCeTIM2-CNodeJasper
   $nm->line(348+2,337+72,348+44,337+0,$COLOR{blue}); # CNodeCeTIM2-CNodeJasper

   $COLOR{mycolor}=$nm->colorAllocate(0,180,16);
   $nm->line(348+0,409+0,348+33,409+69,$COLOR{blue}); # CNodeROCl-CNodeJasper
   $nm->line(348+-1,409+0,348+32,409+69,$COLOR{blue}); # CNodeROCl-CNodeJasper
   $nm->line(348+1,409+0,348+34,409+69,$COLOR{blue}); # CNodeROCl-CNodeJasper
   $nm->line(348+-2,409+0,348+31,409+69,$COLOR{blue}); # CNodeROCl-CNodeJasper
   $nm->line(348+2,409+0,348+35,409+69,$COLOR{blue}); # CNodeROCl-CNodeJasper

   $COLOR{mycolor}=$nm->colorAllocate(0,180,32);
   $nm->line(153+0,20+198,153+644,20+0,$COLOR{blue}); # CNodeUniGorN-CNodeKaag
   $nm->line(153+0,20+197,153+644,20+-1,$COLOR{blue}); # CNodeUniGorN-CNodeKaag
   $nm->line(153+0,20+199,153+644,20+1,$COLOR{blue}); # CNodeUniGorN-CNodeKaag
   $nm->line(153+0,20+196,153+644,20+-2,$COLOR{blue}); # CNodeUniGorN-CNodeKaag
   $nm->line(153+0,20+200,153+644,20+2,$COLOR{blue}); # CNodeUniGorN-CNodeKaag

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(153+0,20+198,153+644,20+0,$COLOR{blue}); # CNodeUniGorN-CNodeKaag2
   $nm->line(153+0,20+197,153+644,20+-1,$COLOR{blue}); # CNodeUniGorN-CNodeKaag2
   $nm->line(153+0,20+199,153+644,20+1,$COLOR{blue}); # CNodeUniGorN-CNodeKaag2
   $nm->line(153+0,20+196,153+644,20+-2,$COLOR{blue}); # CNodeUniGorN-CNodeKaag2
   $nm->line(153+0,20+200,153+644,20+2,$COLOR{blue}); # CNodeUniGorN-CNodeKaag2
   $nm->line(390+0,310+27,390+3,310+0,$COLOR{gray}); # CNodeCeTIM2-CNodeKees

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(241+0,453+49,241+63,453+0,$COLOR{blue}); # CNodeHaagwijk-CNodeLCPL
   $nm->line(241+0,453+48,241+63,453+-1,$COLOR{blue}); # CNodeHaagwijk-CNodeLCPL
   $nm->line(241+0,453+50,241+63,453+1,$COLOR{blue}); # CNodeHaagwijk-CNodeLCPL
   $nm->line(241+0,453+47,241+63,453+-2,$COLOR{blue}); # CNodeHaagwijk-CNodeLCPL
   $nm->line(241+0,453+51,241+63,453+2,$COLOR{blue}); # CNodeHaagwijk-CNodeLCPL

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(304+0,453+0,304+47,453+0,$COLOR{blue}); # CNodeGrip-CNodeLCPL
   $nm->line(304+0,453+-1,304+47,453+-1,$COLOR{blue}); # CNodeGrip-CNodeLCPL
   $nm->line(304+0,453+1,304+47,453+1,$COLOR{blue}); # CNodeGrip-CNodeLCPL
   $nm->line(304+0,453+-2,304+47,453+-2,$COLOR{blue}); # CNodeGrip-CNodeLCPL
   $nm->line(304+0,453+2,304+47,453+2,$COLOR{blue}); # CNodeGrip-CNodeLCPL
### link CNodeLMkempers1-CNodeLMdorp to short: 0
   $nm->line(797+0,20+196,797+0,20+0,$COLOR{blue}); # CNodeHMKerk1-CNodeLMstruykverwo1
   $nm->line(797+-1,20+196,797+-1,20+0,$COLOR{blue}); # CNodeHMKerk1-CNodeLMstruykverwo1
   $nm->line(797+1,20+196,797+1,20+0,$COLOR{blue}); # CNodeHMKerk1-CNodeLMstruykverwo1
   $nm->line(797+-2,20+196,797+-2,20+0,$COLOR{blue}); # CNodeHMKerk1-CNodeLMstruykverwo1
   $nm->line(797+2,20+196,797+2,20+0,$COLOR{blue}); # CNodeHMKerk1-CNodeLMstruykverwo1
   $nm->line(797+0,20+267,797+0,20+0,$COLOR{blue}); # CNodeWBRotary2-CNodeLMstruykverwo1
   $nm->line(797+-1,20+267,797+-1,20+0,$COLOR{blue}); # CNodeWBRotary2-CNodeLMstruykverwo1
   $nm->line(797+1,20+267,797+1,20+0,$COLOR{blue}); # CNodeWBRotary2-CNodeLMstruykverwo1
   $nm->line(797+-2,20+267,797+-2,20+0,$COLOR{blue}); # CNodeWBRotary2-CNodeLMstruykverwo1
   $nm->line(797+2,20+267,797+2,20+0,$COLOR{blue}); # CNodeWBRotary2-CNodeLMstruykverwo1
### link CNodeLMkempers1-CNodeLMstruykverwo2 to short: 0

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(159+0,218+0,159+144,218+12,$COLOR{blue}); # CNodeUniGor-CNodeLebkov
   $nm->line(159+0,218+-1,159+144,218+11,$COLOR{blue}); # CNodeUniGor-CNodeLebkov
   $nm->line(159+0,218+1,159+144,218+13,$COLOR{blue}); # CNodeUniGor-CNodeLebkov
   $nm->line(159+0,218+-2,159+144,218+10,$COLOR{blue}); # CNodeUniGor-CNodeLebkov
   $nm->line(159+0,218+2,159+144,218+14,$COLOR{blue}); # CNodeUniGor-CNodeLebkov

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(303+0,200+30,303+51,200+0,$COLOR{blue}); # CNodeRabo-CNodeLebkov
   $nm->line(303+0,200+29,303+51,200+-1,$COLOR{blue}); # CNodeRabo-CNodeLebkov
   $nm->line(303+0,200+31,303+51,200+1,$COLOR{blue}); # CNodeRabo-CNodeLebkov
   $nm->line(303+0,200+28,303+51,200+-2,$COLOR{blue}); # CNodeRabo-CNodeLebkov
   $nm->line(303+0,200+32,303+51,200+2,$COLOR{blue}); # CNodeRabo-CNodeLebkov

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(234+0,32+0,234+27,32+147,$COLOR{blue}); # CNodeAZC-CNodeLijtweg3
   $nm->line(234+-1,32+0,234+26,32+147,$COLOR{blue}); # CNodeAZC-CNodeLijtweg3
   $nm->line(234+1,32+0,234+28,32+147,$COLOR{blue}); # CNodeAZC-CNodeLijtweg3
   $nm->line(234+-2,32+0,234+25,32+147,$COLOR{blue}); # CNodeAZC-CNodeLijtweg3
   $nm->line(234+2,32+0,234+29,32+147,$COLOR{blue}); # CNodeAZC-CNodeLijtweg3
   $nm->line(241+0,400+102,241+157,400+0,$COLOR{blue}); # CNodeHaagwijk-CNodeLorentzhof
   $nm->line(241+0,400+101,241+157,400+-1,$COLOR{blue}); # CNodeHaagwijk-CNodeLorentzhof
   $nm->line(241+0,400+103,241+157,400+1,$COLOR{blue}); # CNodeHaagwijk-CNodeLorentzhof
   $nm->line(241+0,400+100,241+157,400+-2,$COLOR{blue}); # CNodeHaagwijk-CNodeLorentzhof
   $nm->line(241+0,400+104,241+157,400+2,$COLOR{blue}); # CNodeHaagwijk-CNodeLorentzhof
   $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
   $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: 8
   $nm->line(381+0,429+49,381+73,429+0,$COLOR{blue}); # CNodeROCl-CNodeMarten
   $nm->line(381+0,429+48,381+73,429+-1,$COLOR{blue}); # CNodeROCl-CNodeMarten
   $nm->line(381+0,429+50,381+73,429+1,$COLOR{blue}); # CNodeROCl-CNodeMarten
   $nm->line(381+0,429+47,381+73,429+-2,$COLOR{blue}); # CNodeROCl-CNodeMarten
   $nm->line(381+0,429+51,381+73,429+2,$COLOR{blue}); # CNodeROCl-CNodeMarten
   $nm->line(388+0,331+0,388+66,331+98,$COLOR{blue}); # CNodeCeTIM3-CNodeMarten
   $nm->line(388+-1,331+0,388+65,331+98,$COLOR{blue}); # CNodeCeTIM3-CNodeMarten
   $nm->line(388+1,331+0,388+67,331+98,$COLOR{blue}); # CNodeCeTIM3-CNodeMarten
   $nm->line(388+-2,331+0,388+64,331+98,$COLOR{blue}); # CNodeCeTIM3-CNodeMarten
   $nm->line(388+2,331+0,388+68,331+98,$COLOR{blue}); # CNodeCeTIM3-CNodeMarten

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(10+0,20+0,10+195,20+445,$COLOR{blue}); # CNodeAJSoft-CNodeMeca
   $nm->line(10+-1,20+0,10+194,20+445,$COLOR{blue}); # CNodeAJSoft-CNodeMeca
   $nm->line(10+1,20+0,10+196,20+445,$COLOR{blue}); # CNodeAJSoft-CNodeMeca
   $nm->line(10+-2,20+0,10+193,20+445,$COLOR{blue}); # CNodeAJSoft-CNodeMeca
   $nm->line(10+2,20+0,10+197,20+445,$COLOR{blue}); # CNodeAJSoft-CNodeMeca
### link CNodeCeTIM3-CNodeOBLc to short: 5
   $nm->line(388+0,331+0,388+17,331+46,$COLOR{blue}); # CNodeCeTIM3-CNodePlantsoen
   $nm->line(388+-1,331+0,388+16,331+46,$COLOR{blue}); # CNodeCeTIM3-CNodePlantsoen
   $nm->line(388+1,331+0,388+18,331+46,$COLOR{blue}); # CNodeCeTIM3-CNodePlantsoen
   $nm->line(388+-2,331+0,388+15,331+46,$COLOR{blue}); # CNodeCeTIM3-CNodePlantsoen
   $nm->line(388+2,331+0,388+19,331+46,$COLOR{blue}); # CNodeCeTIM3-CNodePlantsoen
   $nm->line(398+0,377+23,398+7,377+0,$COLOR{blue}); # CNodeLorentzhof-CNodePlantsoen
   $nm->line(398+-1,377+23,398+6,377+0,$COLOR{blue}); # CNodeLorentzhof-CNodePlantsoen
   $nm->line(398+1,377+23,398+8,377+0,$COLOR{blue}); # CNodeLorentzhof-CNodePlantsoen
   $nm->line(398+-2,377+23,398+5,377+0,$COLOR{blue}); # CNodeLorentzhof-CNodePlantsoen
   $nm->line(398+2,377+23,398+9,377+0,$COLOR{blue}); # CNodeLorentzhof-CNodePlantsoen

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(241+0,478+24,241+140,478+0,$COLOR{blue}); # CNodeHaagwijk-CNodeROCl
   $nm->line(241+0,478+23,241+140,478+-1,$COLOR{blue}); # CNodeHaagwijk-CNodeROCl
   $nm->line(241+0,478+25,241+140,478+1,$COLOR{blue}); # CNodeHaagwijk-CNodeROCl
   $nm->line(241+0,478+22,241+140,478+-2,$COLOR{blue}); # CNodeHaagwijk-CNodeROCl
   $nm->line(241+0,478+26,241+140,478+2,$COLOR{blue}); # CNodeHaagwijk-CNodeROCl

   $COLOR{mycolor}=$nm->colorAllocate(7,0,180);
   $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

   $COLOR{mycolor}=$nm->colorAllocate(0,155,180);
   $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
   $nm->setStyle(($COLOR{green}) x 8 , (gdTransparent) x 8);

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $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

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(173+0,342+22,173+23,342+0,$COLOR{blue}); # CNodeJorg2-CNodeRobijn
   $nm->line(173+0,342+21,173+23,342+-1,$COLOR{blue}); # CNodeJorg2-CNodeRobijn
   $nm->line(173+0,342+23,173+23,342+1,$COLOR{blue}); # CNodeJorg2-CNodeRobijn
   $nm->line(173+0,342+20,173+23,342+-2,$COLOR{blue}); # CNodeJorg2-CNodeRobijn
   $nm->line(173+0,342+24,173+23,342+2,$COLOR{blue}); # CNodeJorg2-CNodeRobijn
   $nm->setStyle(($COLOR{green}) x 8 , (gdTransparent) x 8);

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(159+0,218+0,159+14,218+146,$COLOR{blue}); # CNodeUniGor-CNodeRobijn
   $nm->line(159+-1,218+0,159+13,218+146,$COLOR{blue}); # CNodeUniGor-CNodeRobijn
   $nm->line(159+1,218+0,159+15,218+146,$COLOR{blue}); # CNodeUniGor-CNodeRobijn
   $nm->line(159+-2,218+0,159+12,218+146,$COLOR{blue}); # CNodeUniGor-CNodeRobijn
   $nm->line(159+2,218+0,159+16,218+146,$COLOR{blue}); # CNodeUniGor-CNodeRobijn

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(173+0,364+0,173+32,364+101,$COLOR{blue}); # CNodeAJSoft-CNodeRobijn
   $nm->line(173+-1,364+0,173+31,364+101,$COLOR{blue}); # CNodeAJSoft-CNodeRobijn
   $nm->line(173+1,364+0,173+33,364+101,$COLOR{blue}); # CNodeAJSoft-CNodeRobijn
   $nm->line(173+-2,364+0,173+30,364+101,$COLOR{blue}); # CNodeAJSoft-CNodeRobijn
   $nm->line(173+2,364+0,173+34,364+101,$COLOR{blue}); # CNodeAJSoft-CNodeRobijn

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(388+0,331+0,388+107,331+59,$COLOR{blue}); # CNodeCeTIM3-CNodeRuben
   $nm->line(388+0,331+-1,388+107,331+58,$COLOR{blue}); # CNodeCeTIM3-CNodeRuben
   $nm->line(388+0,331+1,388+107,331+60,$COLOR{blue}); # CNodeCeTIM3-CNodeRuben
   $nm->line(388+0,331+-2,388+107,331+57,$COLOR{blue}); # CNodeCeTIM3-CNodeRuben
   $nm->line(388+0,331+2,388+107,331+61,$COLOR{blue}); # CNodeCeTIM3-CNodeRuben

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $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

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(327+0,300+16,327+48,300+0,$COLOR{blue}); # CNodeCope-CNodeRund
   $nm->line(327+0,300+15,327+48,300+-1,$COLOR{blue}); # CNodeCope-CNodeRund
   $nm->line(327+0,300+17,327+48,300+1,$COLOR{blue}); # CNodeCope-CNodeRund
   $nm->line(327+0,300+14,327+48,300+-2,$COLOR{blue}); # CNodeCope-CNodeRund
   $nm->line(327+0,300+18,327+48,300+2,$COLOR{blue}); # CNodeCope-CNodeRund

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(375+0,300+0,375+13,300+31,$COLOR{blue}); # CNodeCeTIM3-CNodeRund
   $nm->line(375+-1,300+0,375+12,300+31,$COLOR{blue}); # CNodeCeTIM3-CNodeRund
   $nm->line(375+1,300+0,375+14,300+31,$COLOR{blue}); # CNodeCeTIM3-CNodeRund
   $nm->line(375+-2,300+0,375+11,300+31,$COLOR{blue}); # CNodeCeTIM3-CNodeRund
   $nm->line(375+2,300+0,375+15,300+31,$COLOR{blue}); # CNodeCeTIM3-CNodeRund

   $COLOR{mycolor}=$nm->colorAllocate(0,180,75);
   $nm->line(153+0,59+159,153+31,59+0,$COLOR{blue}); # CNodeUniGorN-CNodeRustenborch
   $nm->line(153+-1,59+159,153+30,59+0,$COLOR{blue}); # CNodeUniGorN-CNodeRustenborch
   $nm->line(153+1,59+159,153+32,59+0,$COLOR{blue}); # CNodeUniGorN-CNodeRustenborch
   $nm->line(153+-2,59+159,153+29,59+0,$COLOR{blue}); # CNodeUniGorN-CNodeRustenborch
   $nm->line(153+2,59+159,153+33,59+0,$COLOR{blue}); # CNodeUniGorN-CNodeRustenborch
   $nm->line(184+0,32+27,184+50,32+0,$COLOR{blue}); # CNodeLijtweg3-CNodeRustenborch
   $nm->line(184+0,32+26,184+50,32+-1,$COLOR{blue}); # CNodeLijtweg3-CNodeRustenborch
   $nm->line(184+0,32+28,184+50,32+1,$COLOR{blue}); # CNodeLijtweg3-CNodeRustenborch
   $nm->line(184+0,32+25,184+50,32+-2,$COLOR{blue}); # CNodeLijtweg3-CNodeRustenborch
   $nm->line(184+0,32+29,184+50,32+2,$COLOR{blue}); # CNodeLijtweg3-CNodeRustenborch
   $nm->setStyle(($COLOR{red}) x 8 , (gdTransparent) x 8);

   $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

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(341+0,355+18,341+10,355+0,$COLOR{blue}); # CNodeIMI-CNodeThomas
   $nm->line(341+-1,355+18,341+9,355+0,$COLOR{blue}); # CNodeIMI-CNodeThomas
   $nm->line(341+1,355+18,341+11,355+0,$COLOR{blue}); # CNodeIMI-CNodeThomas
   $nm->line(341+-2,355+18,341+8,355+0,$COLOR{blue}); # CNodeIMI-CNodeThomas
   $nm->line(341+2,355+18,341+12,355+0,$COLOR{blue}); # CNodeIMI-CNodeThomas

   $COLOR{mycolor}=$nm->colorAllocate(0,16,180);
   $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
### link CNodeMeca-CNodeVAIPS to short: 0
   $nm->setStyle(($COLOR{green}) x 10 , (gdTransparent) x 5);

   $COLOR{mycolor}=$nm->colorAllocate(0,180,171);
   $nm->line(392+0,210+0,392+405,210+0,$COLOR{blue}); # CNodeSOM-CNodeVeldbies
   $nm->line(392+0,210+-1,392+405,210+-1,$COLOR{blue}); # CNodeSOM-CNodeVeldbies
   $nm->line(392+0,210+1,392+405,210+1,$COLOR{blue}); # CNodeSOM-CNodeVeldbies
   $nm->line(392+0,210+-2,392+405,210+-2,$COLOR{blue}); # CNodeSOM-CNodeVeldbies
   $nm->line(392+0,210+2,392+405,210+2,$COLOR{blue}); # CNodeSOM-CNodeVeldbies

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(694+0,277+78,694+103,277+0,$COLOR{blue}); # CNodeGraficall-CNodeWBRotary1
   $nm->line(694+0,277+77,694+103,277+-1,$COLOR{blue}); # CNodeGraficall-CNodeWBRotary1
   $nm->line(694+0,277+79,694+103,277+1,$COLOR{blue}); # CNodeGraficall-CNodeWBRotary1
   $nm->line(694+0,277+76,694+103,277+-2,$COLOR{blue}); # CNodeGraficall-CNodeWBRotary1
   $nm->line(694+0,277+80,694+103,277+2,$COLOR{blue}); # CNodeGraficall-CNodeWBRotary1
   $nm->line(261+0,163+16,261+31,163+0,$COLOR{blue}); # CNodeAZC-CNodeWP
   $nm->line(261+0,163+15,261+31,163+-1,$COLOR{blue}); # CNodeAZC-CNodeWP
   $nm->line(261+0,163+17,261+31,163+1,$COLOR{blue}); # CNodeAZC-CNodeWP
   $nm->line(261+0,163+14,261+31,163+-2,$COLOR{blue}); # CNodeAZC-CNodeWP
   $nm->line(261+0,163+18,261+31,163+2,$COLOR{blue}); # CNodeAZC-CNodeWP

   $COLOR{mycolor}=$nm->colorAllocate(0,180,34);
   $nm->line(392+0,210+0,392+131,210+86,$COLOR{blue}); # CNodeSOM-CNodeZijloever
   $nm->line(392+0,210+-1,392+131,210+85,$COLOR{blue}); # CNodeSOM-CNodeZijloever
   $nm->line(392+0,210+1,392+131,210+87,$COLOR{blue}); # CNodeSOM-CNodeZijloever
   $nm->line(392+0,210+-2,392+131,210+84,$COLOR{blue}); # CNodeSOM-CNodeZijloever
   $nm->line(392+0,210+2,392+131,210+88,$COLOR{blue}); # CNodeSOM-CNodeZijloever

   $COLOR{mycolor}=$nm->colorAllocate(0,180,21);
   $nm->line(523+0,296+0,523+171,296+59,$COLOR{blue}); # CNodeGraficall-CNodeZijloever
   $nm->line(523+0,296+-1,523+171,296+58,$COLOR{blue}); # CNodeGraficall-CNodeZijloever
   $nm->line(523+0,296+1,523+171,296+60,$COLOR{blue}); # CNodeGraficall-CNodeZijloever
   $nm->line(523+0,296+-2,523+171,296+57,$COLOR{blue}); # CNodeGraficall-CNodeZijloever
   $nm->line(523+0,296+2,523+171,296+61,$COLOR{blue}); # CNodeGraficall-CNodeZijloever
   $nm->line(78+0,342+33,78+118,342+0,$COLOR{gray}); # CNodeJorg2-CNodeZwaluwak
   $nm->dashedLine(78+0,218+157,78+81,218+0,$COLOR{gray}); # CNodeUniGor-CNodeZwaluwak

   $COLOR{mycolor}=$nm->colorAllocate(0,180,0);
   $nm->line(82+0,342+100,82+114,342+0,$COLOR{blue}); # CNodeJorg2-CNodeZwaluwmz
   $nm->line(82+0,342+99,82+114,342+-1,$COLOR{blue}); # CNodeJorg2-CNodeZwaluwmz
   $nm->line(82+0,342+101,82+114,342+1,$COLOR{blue}); # CNodeJorg2-CNodeZwaluwmz
   $nm->line(82+0,342+98,82+114,342+-2,$COLOR{blue}); # CNodeJorg2-CNodeZwaluwmz
   $nm->line(82+0,342+102,82+114,342+2,$COLOR{blue}); # CNodeJorg2-CNodeZwaluwmz
   $nm->line(78+0,375+0,78+4,375+67,$COLOR{gray}); # CNodeZwaluwak-CNodeZwaluwmz
   $nm->setStyle(($COLOR{red}) x 8 , (gdTransparent) x 8);
   $nm->line(82+0,442+0,82+123,442+23,$COLOR{blue}); # CNodeAJSoft-CNodeZwaluwmz
   $nm->line(82+0,442+-1,82+123,442+22,$COLOR{blue}); # CNodeAJSoft-CNodeZwaluwmz
   $nm->line(82+0,442+1,82+123,442+24,$COLOR{blue}); # CNodeAJSoft-CNodeZwaluwmz
   $nm->line(82+0,442+-2,82+123,442+21,$COLOR{blue}); # CNodeAJSoft-CNodeZwaluwmz
   $nm->line(82+0,442+2,82+123,442+25,$COLOR{blue}); # CNodeAJSoft-CNodeZwaluwmz
   
      $nm->copy($gredot,792,590,0,0,10,10); # CNodeAA24
   $nm->string(gdSmallFont,774,588.666666666667,AA24,$COLOR{black});
   $nm->copy($gredot,200,460,0,0,10,10); # CNodeAJSoft
   $nm->string(gdSmallFont,210,458.666666666667,AJSoft,$COLOR{black});
   $nm->copy($gredot,256,174,0,0,10,10); # CNodeAZC
   $nm->string(gdSmallFont,266,172.666666666667,AZC,$COLOR{black});
   $nm->copy($grydot,792,15,0,0,10,10); # CNodeBDboon
   $nm->string(gdSmallFont,802,13.6666666666667,BDboon,$COLOR{black});
   $nm->copy($gredot,445,81,0,0,10,10); # CNodeBroekplein
   $nm->string(gdSmallFont,455,79.6666666666667,Broekplein,$COLOR{black});
   $nm->copy($gredot,225,192,0,0,10,10); # CNodeBrug
   $nm->string(gdSmallFont,235,190.666666666667,Brug,$COLOR{black});
   $nm->copy($gredot,389,326,0,0,10,10); # CNodeCeTIM1
   $nm->string(gdSmallFont,399,324.666666666667,CeTIM1,$COLOR{black});
   $nm->copy($gredot,385,332,0,0,10,10); # CNodeCeTIM2
   $nm->string(gdSmallFont,395,330.666666666667,CeTIM2,$COLOR{black});
   $nm->copy($gredot,383,326,0,0,10,10); # CNodeCeTIM3
   $nm->string(gdSmallFont,357,324.666666666667,CeTIM3,$COLOR{black});
   $nm->copy($gredot,322,311,0,0,10,10); # CNodeCope
   $nm->string(gdSmallFont,304,309.666666666667,Cope,$COLOR{black});
   $nm->copy($gredot,350,340,0,0,10,10); # CNodeDirkx
   $nm->string(gdSmallFont,360,338.666666666667,Dirkx,$COLOR{black});
   $nm->copy($gredot,445,590,0,0,10,10); # CNodeDuivenHok
   $nm->string(gdSmallFont,455,588.666666666667,DuivenHok,$COLOR{black});
   $nm->copy($gredot,748,590,0,0,10,10); # CNodeGandalf
   $nm->string(gdSmallFont,718,588.666666666667,Gandalf,$COLOR{black});
   $nm->copy($gredot,152,366,0,0,10,10); # CNodeGer
   $nm->string(gdSmallFont,162,364.666666666667,Ger,$COLOR{black});
   $nm->copy($gredot,689,350,0,0,10,10); # CNodeGraficall
   $nm->string(gdSmallFont,699,348.666666666667,Graficall,$COLOR{black});
   $nm->copy($gredot,346,448,0,0,10,10); # CNodeGrip
   $nm->string(gdSmallFont,356,446.666666666667,Grip,$COLOR{black});
   $nm->copy($gredot,792,211,0,0,10,10); # CNodeHMKerk1
   $nm->string(gdSmallFont,802,209.666666666667,HMKerk1,$COLOR{black});
   $nm->copy($grydot,792,201,0,0,10,10); # CNodeHMKerk2
   $nm->string(gdSmallFont,762,199.666666666667,HMKerk2,$COLOR{black});
   $nm->copy($grydot,792,191,0,0,10,10); # CNodeHMgw2
   $nm->string(gdSmallFont,770,189.666666666667,HMgw2,$COLOR{black});
   $nm->copy($gredot,236,497,0,0,10,10); # CNodeHaagwijk
   $nm->string(gdSmallFont,246,495.666666666667,Haagwijk,$COLOR{black});
   $nm->copy($gredot,275,31,0,0,10,10); # CNodeHofwijck
   $nm->string(gdSmallFont,285,29.6666666666667,Hofwijck,$COLOR{black});
   $nm->copy($gredot,414,263,0,0,10,10); # CNodeHoutmarkt
   $nm->string(gdSmallFont,424,261.666666666667,Houtmarkt,$COLOR{black});
   $nm->copy($gredot,330,338,0,0,10,10); # CNodeHuub
   $nm->string(gdSmallFont,312,336.666666666667,Huub,$COLOR{black});
   $nm->copy($gredot,336,368,0,0,10,10); # CNodeIMI
   $nm->string(gdSmallFont,346,366.666666666667,IMI,$COLOR{black});
   $nm->copy($gredot,403,435,0,0,10,10); # CNodeIntCom
   $nm->string(gdSmallFont,377,433.666666666667,IntCom,$COLOR{black});
   $nm->copy($gredot,491,495,0,0,10,10); # CNodeJVC
   $nm->string(gdSmallFont,501,493.666666666667,JVC,$COLOR{black});
   $nm->copy($gredot,343,404,0,0,10,10); # CNodeJasper
   $nm->string(gdSmallFont,317,402.666666666667,Jasper,$COLOR{black});
   $nm->copy($gredot,194,334,0,0,10,10); # CNodeJorg
   $nm->string(gdSmallFont,176,332.666666666667,Jorg,$COLOR{black});
   $nm->copy($gredot,191,337,0,0,10,10); # CNodeJorg2
   $nm->string(gdSmallFont,169,335.666666666667,Jorg2,$COLOR{black});
   $nm->copy($gredot,792,15,0,0,10,10); # CNodeKaag
   $nm->string(gdSmallFont,774,13.6666666666667,Kaag,$COLOR{black});
   $nm->copy($gredot,792,15,0,0,10,10); # CNodeKaag2
   $nm->string(gdSmallFont,802,13.6666666666667,Kaag2,$COLOR{black});
   $nm->copy($grydot,388,305,0,0,10,10); # CNodeKees
   $nm->string(gdSmallFont,398,303.666666666667,Kees,$COLOR{black});
   $nm->copy($grydot,792,575,0,0,10,10); # CNodeKoster
   $nm->string(gdSmallFont,802,573.666666666667,Koster,$COLOR{black});
   $nm->copy($gredot,299,448,0,0,10,10); # CNodeLCPL
   $nm->string(gdSmallFont,309,446.666666666667,LCPL,$COLOR{black});
   $nm->copy($grydot,792,15,0,0,10,10); # CNodeLMdorp
   $nm->string(gdSmallFont,766,13.6666666666667,LMdorp,$COLOR{black});
   $nm->copy($grydot,792,15,0,0,10,10); # CNodeLMkempers1
   $nm->string(gdSmallFont,750,13.6666666666667,LMkempers1,$COLOR{black});
   $nm->copy($gredot,792,15,0,0,10,10); # CNodeLMkempers2
   $nm->string(gdSmallFont,802,13.6666666666667,LMkempers2,$COLOR{black});
   $nm->copy($gredot,792,15,0,0,10,10); # CNodeLMstruykverwo1
   $nm->string(gdSmallFont,734,13.6666666666667,LMstruykverwo1,$COLOR{black});
   $nm->copy($gredot,792,15,0,0,10,10); # CNodeLMstruykverwo2
   $nm->string(gdSmallFont,802,13.6666666666667,LMstruykverwo2,$COLOR{black});
   $nm->copy($gredot,298,225,0,0,10,10); # CNodeLebkov
   $nm->string(gdSmallFont,308,223.666666666667,Lebkov,$COLOR{black});
   $nm->copy($gredot,229,21,0,0,10,10); # CNodeLijtweg1
   $nm->string(gdSmallFont,195,19.6666666666667,Lijtweg1,$COLOR{black});
   $nm->copy($gredot,226,24,0,0,10,10); # CNodeLijtweg2
   $nm->string(gdSmallFont,236,22.6666666666667,Lijtweg2,$COLOR{black});
   $nm->copy($gredot,229,27,0,0,10,10); # CNodeLijtweg3
   $nm->string(gdSmallFont,195,25.6666666666667,Lijtweg3,$COLOR{black});
   $nm->copy($gredot,393,395,0,0,10,10); # CNodeLorentzhof
   $nm->string(gdSmallFont,403,393.666666666667,Lorentzhof,$COLOR{black});
   $nm->copy($gredot,334,282,0,0,10,10); # CNodeLvLn
   $nm->string(gdSmallFont,344,280.666666666667,LvLn,$COLOR{black});
   $nm->copy($gredot,340,360,0,0,10,10); # CNodeLvLz
   $nm->string(gdSmallFont,350,358.666666666667,LvLz,$COLOR{black});
   $nm->copy($gredot,449,424,0,0,10,10); # CNodeMarten
   $nm->string(gdSmallFont,423,422.666666666667,Marten,$COLOR{black});
   $nm->copy($gredot,5,15,0,0,10,10); # CNodeMeca
   $nm->string(gdSmallFont,15,13.6666666666667,Meca,$COLOR{black});
   $nm->copy($gredot,378,323,0,0,10,10); # CNodeOBLc
   $nm->string(gdSmallFont,360,321.666666666667,OBLc,$COLOR{black});
   $nm->copy($gredot,400,372,0,0,10,10); # CNodePlantsoen
   $nm->string(gdSmallFont,410,370.666666666667,Plantsoen,$COLOR{black});
   $nm->copy($gredot,376,473,0,0,10,10); # CNodeROCl
   $nm->string(gdSmallFont,386,471.666666666667,ROCl,$COLOR{black});
   $nm->copy($gredot,244,415,0,0,10,10); # CNodeRV
   $nm->string(gdSmallFont,254,413.666666666667,RV,$COLOR{black});
   $nm->copy($gredot,349,195,0,0,10,10); # CNodeRabo
   $nm->string(gdSmallFont,359,193.666666666667,Rabo,$COLOR{black});
   $nm->copy($gredot,529,94,0,0,10,10); # CNodeRegenboog
   $nm->string(gdSmallFont,539,92.6666666666667,Regenboog,$COLOR{black});
   $nm->copy($gredot,168,359,0,0,10,10); # CNodeRobijn
   $nm->string(gdSmallFont,178,357.666666666667,Robijn,$COLOR{black});
   $nm->copy($gredot,490,385,0,0,10,10); # CNodeRuben
   $nm->string(gdSmallFont,500,383.666666666667,Ruben,$COLOR{black});
   $nm->copy($gredot,401,85,0,0,10,10); # CNodeRudi
   $nm->string(gdSmallFont,383,83.6666666666667,Rudi,$COLOR{black});
   $nm->copy($gredot,370,295,0,0,10,10); # CNodeRund
   $nm->string(gdSmallFont,380,293.666666666667,Rund,$COLOR{black});
   $nm->copy($gredot,179,54,0,0,10,10); # CNodeRustenborch
   $nm->string(gdSmallFont,133,52.6666666666667,Rustenborch,$COLOR{black});
   $nm->copy($grydot,792,590,0,0,10,10); # CNodeSHFortis
   $nm->string(gdSmallFont,802,588.666666666667,SHFortis,$COLOR{black});
   $nm->copy($gredot,387,205,0,0,10,10); # CNodeSOM
   $nm->string(gdSmallFont,397,203.666666666667,SOM,$COLOR{black});
   $nm->copy($gredot,346,350,0,0,10,10); # CNodeThomas
   $nm->string(gdSmallFont,356,348.666666666667,Thomas,$COLOR{black});
   $nm->copy($gredot,154,213,0,0,10,10); # CNodeUniGor
   $nm->string(gdSmallFont,164,211.666666666667,UniGor,$COLOR{black});
   $nm->copy($gredot,148,213,0,0,10,10); # CNodeUniGorN
   $nm->string(gdSmallFont,118,211.666666666667,UniGorN,$COLOR{black});
   $nm->copy($grydot,5,15,0,0,10,10); # CNodeVAIPS
   $nm->string(gdSmallFont,15,13.6666666666667,VAIPS,$COLOR{black});
   $nm->copy($gredot,792,205,0,0,10,10); # CNodeVeldbies
   $nm->string(gdSmallFont,802,203.666666666667,Veldbies,$COLOR{black});
   $nm->copy($grydot,-9005,46695,0,0,10,10); # CNodeVosko1
   $nm->string(gdSmallFont,-8995,46693.6666666667,Vosko1,$COLOR{black});
   $nm->copy($grydot,-9005,46695,0,0,10,10); # CNodeVosko2
   $nm->string(gdSmallFont,-8995,46693.6666666667,Vosko2,$COLOR{black});
   $nm->copy($gredot,792,272,0,0,10,10); # CNodeWBRotary1
   $nm->string(gdSmallFont,754,270.666666666667,WBRotary1,$COLOR{black});
   $nm->copy($gredot,792,282,0,0,10,10); # CNodeWBRotary2
   $nm->string(gdSmallFont,802,280.666666666667,WBRotary2,$COLOR{black});
   $nm->copy($gredot,287,158,0,0,10,10); # CNodeWP
   $nm->string(gdSmallFont,297,156.666666666667,WP,$COLOR{black});
   $nm->copy($gredot,518,291,0,0,10,10); # CNodeZijloever
   $nm->string(gdSmallFont,528,289.666666666667,Zijloever,$COLOR{black});
   $nm->copy($grydot,73,370,0,0,10,10); # CNodeZwaluwak
   $nm->string(gdSmallFont,83,368.666666666667,Zwaluwak,$COLOR{black});
   $nm->copy($gredot,77,437,0,0,10,10); # CNodeZwaluwmz
   $nm->string(gdSmallFont,87,435.666666666667,Zwaluwmz,$COLOR{black});
   $nm->copy($gredot,439,590,0,0,10,10); # CNodeZwet
   $nm->string(gdSmallFont,421,588.666666666667,Zwet,$COLOR{black});
   $nm->copy($gredot,319,316,0,0,10,10); # proxy1
   $nm->string(gdSmallFont,329,314.666666666667,proxy1,$COLOR{black});
   $nm->copy($gredot,394,330,0,0,10,10); # proxy2
   $nm->string(gdSmallFont,404,328.666666666667,proxy2,$COLOR{black});
   $nm->copy($gredot,238,420,0,0,10,10); # proxy3
   $nm->string(gdSmallFont,212,418.666666666667,proxy3,$COLOR{black});

   $nm->string(gdSmallFont,450,580,"Generated at: Sun Dec 12 12:37:04 2004 (rev: 3472)",$COLOR{black});
   $nm->string(gdSmallFont,0,0,"Generated at: Sun Dec 12 12:37:04 2004 (rev: 3472)",$COLOR{black});   
   open (F,">output/2004-12.jpg") || die "Bad file descriptor images/history.jpg";
   print F $nm->jpeg(85);
   close F;