function fix( h,w,u ) { x = window.open(u,'fixwin', 'top=0,left=0,width=' + w + ',height=' + h + ',toolbar=no,status=no,scrollbars=no' + ',resizable=no,menubar=no,location=no,personalbar=no'); x.resizeTo(w,h); x.outerWidth=w; x.outerHeight=h; return(x); } function fixs( h,w,u ) { x = window.open(u,'fixwin', 'top=0,left=0,width=' + w + ',height=' + h + ',toolbar=no,status=no,scrollbars=yes' + ',resizable=yes,menubar=no,location=no,personalbar=no'); x.resizeTo(w,h); x.outerWidth=w; x.outerHeight=h; return(x); } function gis( u ) { cmd = '%3Bstart=HS_index?urlID='+u; fix(700,800,'http://gis.swissinfo.org/cgi-bin/hsrun.exe/Distributed/SRI3/MapXtreme.htx'+cmd); } function geoSwissInfo(x,y,z,m) { cmd = 'Resolution=small&KOORDX='+x+'&KOORDY='+y+'&ZOOM='+z; if( m==1 ) cmd = cmd+'&markx='+x+'&marky='+y; fix(650,810,'http://gis.swissinfo.org/swissinfo-geo/neapoljs_GERMAN.htm?'+cmd); } function cvtXYZ(x,y,z) { var X,Y,d,r; Y = ( x - 600000 ) / 1000000; X = ( y - 200000 ) / 1000000; d = ( 2.6779094 + ( 4.728982 * Y ) + ( 0.791484 * Y * X ) + ( 0.1306 * Y * X * X ) - ( 0.0436 * Y * Y * Y ) ) * 100 / 36; r = (16.9023892 + ( 3.238272 * X ) - ( 0.270978 * Y * Y ) - ( 0.002528 * X * X ) - ( 0.0447 * Y * Y * X ) - ( 0.0140 * X * X * X ) ) * 100 / 36; x = Math.round(d*600000)/10000; y = Math.round(r*600000)/10000; z = Math.round(z*1000); return( new Array ( x,y,z ) ); } function geoMap24(x,y,z) { var c,x c = cvtXYZ(x,y,z); cmd = 'lid=ec03de43&maptype=JAVA&wx0='+c[0]+'&wy0='+c[1]+'&width='+c[2]+'?=de'; x=fixs(700,950,'http://link2.map24.com/?'+cmd); } function geoMap24R(x,y,z) { var c,d; c = cvtXYZ(x,y,z); win = fix(290,225,'about:blank'); d = win.document; d.close(); d.open("text/html","replace"); d.writeln('') d.writeln('
'); d.writeln(''); d.writeln(''); d.writeln('
'); d.writeln('Von:
'); d.write('
'); d.writeln(''); d.write('

Nach Nunningen
'); d.writeln('
'); d.writeln('
'); d.write(''); d.writeln(''); d.writeln(''); d.writeln(''); d.writeln(''); d.writeln(''); d.writeln(''); d.writeln(''); d.writeln(''); d.writeln('
'); d.close(); } function geo(x,y,z,m) { var win,d; win = fix(250,250,'about:blank'); d = win.document; d.close(); d.open("text/html","replace"); // d.writeln(''); d.writeln(''); d.writeln('

SwissInfo
'); d.write(''); d.writeln('Karte
 
Map 24
'); d.write(''); d.writeln('Karte
'); d.write(''); d.writeln('Routen-Planung
 
'); d.writeln('(Fenster Schliessen)'); d.writeln(''); d.close(); }