source: subversion/applications/utils/gary68/mwInteractive.pl @ 30595

Last change on this file since 30595 was 28840, checked in by gary68, 7 years ago

mapweaver output file name bug fixed; interactive program added

File size: 2.4 KB
Line 
1
2
3
4use strict ;
5use warnings ;
6
7# mwInteractive.pl
8
9my $sStyle = "mwStandardRules.txt" ;
10my $tStyle = "mwTopoRules.txt" ;
11
12my $place = "" ;
13my $near = "" ;
14my $dist = 50000 ;
15my $lonrad = 2 ;
16my $latrad = 2 ;
17my $scaleset = 10000 ;
18my $png = 0 ;
19my $pdf = 1 ;
20my $outName = "" ;
21my $style = "" ;
22
23print "Mapweaver interactive\n\n" ;
24
25while ($place eq "") {
26        print "Please enter exact place name:\n" ;
27        $place = <STDIN> ;
28        print "\n" ;
29        chomp $place ;
30}
31
32# ---
33
34print "Please enter exact place name of bigger city i.e. in vicinity:\n" ;
35$near = <STDIN> ;
36print "\n" ;
37chomp $near ;
38
39# ---
40
41print "Please enter radius in m for vicinity search (defaults to 50.000):\n" ;
42$dist = <STDIN> ;
43print "\n" ;
44chomp $dist ;
45
46if ($dist eq "") { $dist = 50000 ; }
47
48# ---
49
50print "Please enter radius in km for latitude (defaults to 2km):\n" ;
51$latrad = <STDIN> ;
52print "\n" ;
53chomp $latrad ;
54if ($latrad eq "") { $latrad=2 ; }
55
56# ---
57
58print "Please enter radius in km for longitude (defaults to 2km):\n" ;
59$lonrad = <STDIN> ;
60print "\n" ;
61chomp $lonrad ;
62if ($lonrad eq "") { $lonrad=2 ; }
63
64# ---
65
66print "Please enter scale of map (i.e. 10000 for 1:10.000):\n" ;
67$scaleset = <STDIN> ;
68print "\n" ;
69chomp $scaleset ;
70if ($scaleset eq "") { $scaleset = 10000 ; }
71
72# ---
73
74print "Output map in PDF format yes/no (defaults to yes):\n" ;
75$pdf = <STDIN> ;
76print "\n" ;
77chomp $pdf ;
78if (($pdf eq "") or (lc $pdf eq "yes")) { $pdf = 1 ; }
79
80# ---
81
82print "Output map in PNG format yes/no (defaults to no):\n" ;
83$png = <STDIN> ;
84print "\n" ;
85chomp $png ;
86if (($png eq "") or (lc $png eq "no")) { $png = 0 ; }
87if (lc $png eq "yes") { $png = 1 ; }
88
89# ---
90
91$outName = $place . ".svg" ;
92
93print "Output name (defaults to $outName):\n" ;
94$outName = <STDIN> ;
95print "\n" ;
96chomp $outName ;
97
98if ($outName eq "") { $outName = $place . ".svg" ; }
99if (! grep /\.svg$/, $outName) { $outName .= ".svg" ; }
100
101# ---
102
103print "Select map style from list:\n" ;
104print "1 - standard rules (default)\n" ;
105print "2 - topo rules\n" ;
106$style = <STDIN> ;
107print "\n" ;
108chomp $style ;
109
110if ($style eq "2") { $style = "mwTopoRules.txt" ; }
111else { $style = "mwStandardRules.txt" ; }
112
113
114
115
116my $cmd = "perl mw.pl -place=\"$place\" -overpass -style=\"$style\" -out=\"$outName\" -scaleset=$scaleset " ;
117if ($near ne "") { $cmd .= "-near=\"$near\" -overpassdistance=$dist " ; }
118$cmd .= " -lonrad=$lonrad -latrad=$latrad " ;
119if ($png eq "1") { $cmd .= " -png " ; }
120if ($pdf eq "1") { $cmd .= " -pdf " ; }
121
122print "call mw.pl: $cmd\n" ;
123
124`$cmd` ;
125
126
127
Note: See TracBrowser for help on using the repository browser.