# 
# PERL mapweaver module by gary68
#
#
#
#
# Copyright(C)2011, Gerhard Schwanz
#
# This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the 
# Free Software Foundation; either version 3 of the License, or(at your option)any later version.
#
# This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with this program; if not, see <http://www.gnu.org/licenses/>
#


package mwNodes; 

use strict;
use warnings;

use OSM::osm 8.21;

use mwConfig;
use mwFile;
use mwRules;
use mwMap;
use mwMisc;
use mwLabel;

use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;

@ISA = qw(Exporter AutoLoader);

@EXPORT = qw(processNodes 
			createPoiDirectory
	);


sub processNodes{
	print "drawing nodes...\n";

	my $lonRef; my $latRef; my $tagRef;
($lonRef, $latRef, $tagRef)= getNodePointers();

	foreach my $nodeId(keys %$lonRef){		my @tags = @{$$tagRef{$nodeId}};
		my $tagsString = "";

		my $ruleRef = getNodeRule(\@tags);
		if(defined $ruleRef){
			# draw disc first !
			if(grep /yes/, $$ruleRef{'disc'}){				my $svgString = "";
				if($$ruleRef{'discsvgstring'}ne ""){					$svgString = $$ruleRef{'discsvgstring'};
			}				else{					$svgString = "fill=\"$$ruleRef{'disccolor'}\" stroke=\"none\" fill-opacity=\"$$ruleRef{'discopacity'}\"";
			}				drawCircle($$lonRef{$nodeId}, $$latRef{$nodeId}, 1, $$ruleRef{'discradius'}, 1, $svgString, 'nodes');
		}
			if(grep /yes/, $$ruleRef{'circle'}){				my $svgString = "";
				if($$ruleRef{'circlesvgstring'}ne ""){					$svgString = $$ruleRef{'circlesvgstring'};
			}				else{					$svgString = "fill=\"none\" stroke=\"$$ruleRef{'circlecolor'}\" stroke-width=\"$$ruleRef{'circlethickness'}\"";
			}				drawCircle($$lonRef{$nodeId}, $$latRef{$nodeId}, 1, $$ruleRef{'circleradius'}, 1, $svgString, 'nodes');
		}
			if(($$ruleRef{'size'}> 0)and($$ruleRef{'icon'}eq "none")){				my $svgString = "";
				if($$ruleRef{'svgstring'}ne ""){					$svgString = $$ruleRef{'svgstring'};
			}				else{					$svgString = "fill=\"$$ruleRef{'color'}\"";
			}
				if($$ruleRef{'shape'}eq "circle"){					drawCircle($$lonRef{$nodeId}, $$latRef{$nodeId}, 1, $$ruleRef{'size'}, 0, $svgString, 'nodes');
			}				elsif($$ruleRef{'shape'}eq "square"){					drawSquare($$lonRef{$nodeId}, $$latRef{$nodeId}, 1, $$ruleRef{'size'}, 0, $svgString, 'nodes');
			}				elsif($$ruleRef{'shape'}eq "triangle"){					drawTriangle($$lonRef{$nodeId}, $$latRef{$nodeId}, 1, $$ruleRef{'size'}, 0, $svgString, 'nodes');
			}				elsif($$ruleRef{'shape'}eq "diamond"){					drawDiamond($$lonRef{$nodeId}, $$latRef{$nodeId}, 1, $$ruleRef{'size'}, 0, $svgString, 'nodes');
			}		}
			if(($$ruleRef{'label'}ne "none")or($$ruleRef{'icon'}ne "none")){				my($labelText, $ref)= createLabel(\@tags, $$ruleRef{'label'}, $$lonRef{$nodeId}, $$latRef{$nodeId});
				$labelText = labelTransform($labelText, $$ruleRef{'labeltransform'});
				my $labelSize = $$ruleRef{'labelsize'};
				my $labelColor = $$ruleRef{'labelcolor'};
				my $labelFont = $$ruleRef{'labelfont'};
				my $labelFontFamily = $$ruleRef{'labelfontfamily'};
				my $labelBold = $$ruleRef{'labelbold'};
				my $labelItalic = $$ruleRef{'labelitalic'};
				my $labelHalo = $$ruleRef{'labelhalo'};
				my $labelHaloColor = $$ruleRef{'labelhalocolor'};
				my $icon = $$ruleRef{'icon'};
				my $iconSize = $$ruleRef{'iconsize'};

				my $svgText = createTextSVG($labelFontFamily, $labelFont, $labelBold, $labelItalic, $labelSize, $labelColor, $labelHalo, $labelHaloColor);

				placeLabelAndIcon($$lonRef{$nodeId}, $$latRef{$nodeId}, 0, $$ruleRef{'size'}, $labelText, $svgText, $icon, $iconSize, $iconSize, "nodes");
		}
			# fill poi directory

			my $thing0 = $$ruleRef{'keyvalue'};
			my($thing)=($thing0 =~ /.+=(.+)/);

			my $dirName = getValue("name", $$tagRef{$nodeId});
			if((cv('poi')eq "1")and 
		(defined $dirName)and 
		($$ruleRef{'direxclude'}eq "no")	){				$dirName .=  "($thing)";
				if(cv('grid')> 0){					my $sq = gridSquare($$lonRef{$nodeId}, $$latRef{$nodeId}, cv('grid'));
					if(defined $sq){						addToPoiHash($dirName, $sq);
				}			}				else{					# $poiHash{$dirName}= 1;
					addToPoiHash($dirName, undef);
			}		}			

	}# defined ruleref
}
}
# ------------------------------------------------------------------------------------

sub createPoiDirectory{	my $poiName;
	my $poiFile;
	$poiName = cv('out');
	$poiName =~ s/\.svg/\_pois.txt/;
	setConfigValue("poiname", $poiName);
	print "creating poi file $poiName ...\n";
	open($poiFile, ">", $poiName)or die("can't open poi file $poiName\n");

	my $ref = getPoiHash();
	my %poiHash = %$ref;

	if(cv('grid')eq "0"){		foreach my $poi(sort keys %poiHash){			$poi = replaceHTMLCode($poi);
			print $poiFile "$poi\n";
	}}	else{		foreach my $poi(sort keys %poiHash){			$poi = replaceHTMLCode($poi);
			print $poiFile "$poi\t";
			foreach my $square(sort keys %{$poiHash{$poi}}){				print $poiFile "$square ";
		}			print $poiFile "\n";
	}}	close($poiFile);
}
1;