source: subversion/applications/rendering/osmarender/testdata/dosvg.tcl @ 22128

Last change on this file since 22128 was 15328, checked in by mueck, 10 years ago

testdata

  • Property svn:eol-style set to native
File size: 640 bytes
Line 
1puts "tclsh dosvg.tcl infile.osm startzoom endzoom"
2set f [ lindex $argv 0 ]
3set zo [ lindex $argv 2 ]
4set zu [ lindex $argv 1 ]
5if { $zo == "" } { set zo 17 }
6if { $zu == "" } { set zo 12 }
7
8set r [ file rootname $f ]
9puts "$f $r"
10for { set z $zo } { $z >= $zu } { incr z -1 } {
11    set i [ catch { file delete $r$z.svg } o ]
12    puts "$z - $i : $o"
13    set i [ catch { exec perl.exe "c:/Users/Heiko\ Jacobs/Documents/osm/osmarender/orp/orp.pl" -r "C:/Users/Heiko\ Jacobs/Documents/osm/osmarender/stylesheets/osm-map-features-z$z.xml" $f } o ]
14    puts "$i : $o"
15    set i [ catch { file rename $r.svg $r$z.svg } o ]
16    puts "$i : $o"
17
18}
Note: See TracBrowser for help on using the repository browser.