/* GoolzOOm. Por Jesús Barrio Pérez. Version 2.0.1 www.tecnologiainmobiliaria.net */ // INICIO DEL CODIGO COMUN //////////////////////////////////////////////////////////////////////////////////////// var map;var marker;var lBbox;var geocoder = new GClientGeocoder();var MAGIC_NUMBER=6356752.3142;var WGS84_SEMI_MAJOR_AXIS = 6378137.0;var WGS84_ECCENTRICITY = 0.0818191913108718138;var DEG2RAD=0.0174532922519943;var PI=3.14159267;var alturaMinimaParaVerFicha = 16;var lat = 0;var lng = 0;var zoom = 0;var dir = ''; var ref='';var markerposition = '';var maptype = '';var FORMAT_DEFAULT="image/png";var MERC_ZOOM_DEFAULT = 3; function dd2MercMetersLng(p_lng) {return WGS84_SEMI_MAJOR_AXIS * (p_lng*DEG2RAD);} function dd2MercMetersLat(p_lat) {var lat_rad = p_lat * DEG2RAD;return WGS84_SEMI_MAJOR_AXIS * Math.log(Math.tan((lat_rad + PI / 2) / 2) * Math.pow( ((1 - WGS84_ECCENTRICITY * Math.sin(lat_rad)) / (1 + WGS84_ECCENTRICITY * Math.sin(lat_rad))), (WGS84_ECCENTRICITY/2)));} CustomGetTileUrl=function(a,b,c) { if (this.myMercZoomLevel == undefined) {this.myMercZoomLevel = MERC_ZOOM_DEFAULT;} if (this.myFormat == undefined) {this.myFormat = FORMAT_DEFAULT;} if (typeof(window['this.myStyles'])=="undefined") this.myStyles=""; var lULP = new GPoint(a.x*256,(a.y+1)*256); var lLRP = new GPoint((a.x+1)*256,a.y*256); var lUL = G_NORMAL_MAP.getProjection().fromPixelToLatLng(lULP,b,c); var lLR = G_NORMAL_MAP.getProjection().fromPixelToLatLng(lLRP,b,c); if (this.myMercZoomLevel!=0 && map.getZoom() < this.myMercZoomLevel) {lBbox=dd2MercMetersLng(lUL.x)+","+dd2MercMetersLat(lUL.y)+","+dd2MercMetersLng(lLR.x)+","+dd2MercMetersLat(lLR.y);var lSRS="EPSG:54004";} else {lBbox=lUL.x+","+lUL.y+","+lLR.x+","+lLR.y;var lSRS="EPSG:4326";} return this.myBaseURL + "&REQUEST="+this.myRequest+"&SERVICE=WMS&VERSION="+this.myVersion+"&LAYERS="+this.myLayers+"&STYLES="+this.myStyles+"&FORMAT="+this.myFormat+"&BGCOLOR=0xFFFFFF&TRANSPARENT="+this.myTransparent+"&SRS="+this.mySrs+"&BBOX="+lBbox+"&WIDTH=256&HEIGHT=256&reaspect=false"; } function customOpacity() { return this.myOpacity; } function CustomMap(name, minZoom, maxZoom, myRequest, mySrs, myLayers, myFormat, myVersion, myTransparent, opacity, tipoDeMapa, myBaseUrl){ var tileCounty= new GTileLayer(new GCopyrightCollection(""),minZoom,maxZoom); tileCounty.myRequest = myRequest; tileCounty.mySrs = mySrs; tileCounty.myLayers = myLayers; tileCounty.myFormat = myFormat; tileCounty.myVersion = myVersion; tileCounty.myTransparent = myTransparent; tileCounty.myBaseURL = myBaseUrl; tileCounty.getTileUrl=CustomGetTileUrl; tileCounty.getOpacity = function() {return opacity;} var layer= tipoDeMapa == G_SATELLITE_MAP?[tipoDeMapa.getTileLayers()[0],tileCounty]:[tileCounty]; var custommap = new GMapType(layer, tipoDeMapa.getProjection(), name, tipoDeMapa); return custommap; } function tratarParametros(){ var query = location.search.substring(1); var pairs = query.split("&"); for (var i=0; i'; marker.openInfoWindowHtml(html); } //else if(dir!='')showAddress(dir); // else map.setCenter(new GLatLng(40.413496, -3.779297), 5); else map.setCenter(new GLatLng(puntCentral.y, puntCentral.x), 12); } // document.getElementById('tipoDeBusqueda').selectedIndex = 0; // document.getElementById('provincias').selectedIndex = 0; return map } function load() { alert('hola'); map = new GMap2(document.getElementById("map")); if (GBrowserIsCompatible()) { prepararMapa(); tratarParametros(); if(lat!=0 && lng!=0){ var point = new GLatLng(lat, lng); if(zoom==0)zoom = 18; map.setCenter(point, zoom); if(maptype==''){ map.setMapType(map.getMapTypes()[3]); marker = new GMarker(point); map.addOverlay(marker); var url = obtenerURL(map, point); var html = ''; marker.openInfoWindowHtml(html); } else{ map.setMapType(map.getMapTypes()[maptype]); if(markerposition!=''){ markerposition = markerposition.split(","); marker = new GMarker(new GLatLng(markerposition[0], markerposition[1])); map.addOverlay(marker); } } } else if(dir!='')showAddress(dir); // else if(ref!=''){ document.getElementById("TextReferencia").value=ref; _buscarPorReferencia(function(){BuscarPorReferencia(false);});} else map.setCenter(new GLatLng(40.413496, -3.779297), 5); } //document.getElementById('tipoDeBusqueda').selectedIndex = 0; //document.getElementById('provincias').selectedIndex = 0; return map; } function prepararMapa(){ map.getMapTypes().length = 0; map.addMapType(G_NORMAL_MAP); map.addMapType(G_SATELLITE_MAP); map.addMapType(G_HYBRID_MAP); map.addMapType(CustomMap('Catastro', 1, 21, 'GetMap','EPSG:4326', '', 'image/png', '1.1.1', 'FALSE', '1', G_NORMAL_MAP, 'http://ovc.catastro.meh.es/Cartografia/WMS/ServidorWMS.aspx?&TIME=' + fechaCartografia)); map.addMapType(CustomMap('Catastro +',1, 18, 'GetMap','EPSG:4326', '', 'image/png', '1.1.1', 'TRUE', '1', G_SATELLITE_MAP, 'http://ovc.catastro.meh.es/Cartografia/WMS/ServidorWMS.aspx?&TIME=' + fechaCartografia)); map.getMapTypes()[4].getMaximumResolution = function() {return 18;} map.addControl(new GLargeMapControl()); var scale = new GScaleControl(); map.addControl(scale); //scale.fpsBar.style.visibility = 'hidden'; scale.fpsLbl.style.visibility = 'hidden'; map.addControl(new GOverviewMapControl()); map.addControl(new GMapTypeControl()); map.addControl(new GZoomControl({sColor:'#000',nOpacity:.3,sBorder:'1px solid #CC0000'}, {sButtonHTML:'',sButtonZoomingHTML:'',oButtonStartingStyle:{width:'18px',height:'18px'}}, {}), new GControlPosition(G_ANCHOR_TOP_LEFT,new GSize(75,26))); anadirListenerClick(); GEvent.addListener(map, "zoomend", function() {cambiarCursor();}); GEvent.addListener(map, "mouseover", function() {cambiarCursor();}); GEvent.addListener(map, "moveend", function() {cambiarCursor();}); GEvent.addListener(map, "mousemove", function(point) { latlngMouse=point }); map.enableDoubleClickZoom(); map.enableScrollWheelZoom(); } function anadirListenerClick(){ /* GEvent.addListener(map, "click", function(overlay,point) { if((map.getZoom()>=alturaMinimaParaVerFicha)&& (overlay != map.getInfoWindow()) ){ map.clearOverlays(); marker=new GMarker(point); map.addOverlay(marker); var url = obtenerURL(map, point);// map.getCurrentMapType().getUrlArg(); // para poner el tipo. AbrirInfoWindow(url, marker); } });*/ } function AbrirInfoWindow(url, marker){ var point = marker.getPoint();var latitud = point.lat();var longitud = point.lng(); var infoTabs = [ new GInfoWindowTab("Parcela", ''), new GInfoWindowTab("Llegar", '
Como llegar   hasta aquí - desde aquí
desde:
 
Buscar negocios cerca de aquí
por ej. pizza.
 
 
Coordenadas:
 
'), new GInfoWindowTab("Link", '
Pon un link a esta parcela desde tu web.
URL:
Pon una mapa catastral de esta parcela en tu web o blog.
CÓDIGO:

') ]; marker.openInfoWindowTabsHtml(infoTabs); } function cambiarCursor(){ if(!midiendo){ if(map.getZoom()>=alturaMinimaParaVerFicha){if(navigator.appName=='Netscape') document.styleSheets[0].cssRules[0].style.cursor='help';else document.styleSheets[0].rules[0].style.cursor='help';} // else{if(navigator.appName=='Netscape') document.styleSheets[0].cssRules[0].style.cursor='default';else document.styleSheets[0].rules[0].style.cursor='default';} } } function showAddress(address) { alert('aquesta funcio no esta implementada encara'); /*if(midiendo)ClearAllPoints(); map.clearOverlays(); if (geocoder) { var addressAux = address + ', España' geocoder.getLatLng(addressAux,function(point) { if (!point) {alert(address + " no encontrada");map.setCenter(new GLatLng(40.413496, -3.779297), 5);} else { map.setCenter(point, 18); map.setMapType(map.getMapTypes()[3]); map.clearOverlays(); var infoTabs = [ new GInfoWindowTab("Dirección", address), new GInfoWindowTab("Link", 'Enlaza con esta dirección desde tu web:

URL:  

')]; map.openInfoWindowTabsHtml(point, infoTabs); } } ); }*/ } function _medirArea(fn){csArea? csArea = cs(s2, fn) : fn();} function _verSigpac(fn){csCoordenadas? csCoordenadas = cs(s4, fn) : fn();} function _mostrarAutor(fn){csRecursos? csRecursos = cs(s1, fn) : fn();} function _mostrarLeyenda(fn){csRecursos? csRecursos = cs(s1, fn) : fn();} function _link(fn){csRecursos? csRecursos = cs(s1, fn) : fn();} function _imprimir(fn){csRecursos? csRecursos = cs(s1, fn) : fn();} function _mostrarTop(fn){csRecursos? csRecursos = cs(s1, fn) : fn();} function _ocultarTop(fn){csRecursos? csRecursos = cs(s1, fn) : fn();} function _cambiarFechaCatastro(fn){csRecursos? csRecursos = cs(s1, fn) : fn();} function _cambiarTipoDeBusqueda(fn){csRecursos? csRecursos = cs(s1, fn) : fn();} function _buscarPorPoligonoYParcela(fn){csBuscar? csBuscar = cs(s3, fn) : fn();} function _buscarPorCalleYNumero(fn){csBuscar? csBuscar = cs(s3, fn) : fn();} function _buscarPorReferencia(fn){csBuscar? csBuscar = cs(s3, fn) : fn();} function _buscarPorCoordenadasGeog(fn){csBuscar? csBuscar = cs(s3, fn) : fn();} function _buscarPorCoordenadasUTM(fn){csCoordenadas? csCoordenadas = cs(s4, fn) : fn();} function _seleccionarPoblacion(fn){csRecursos? csRecursos = cs(s1, fn) : fn();} function _cargarCalles(fn){csRecursos? csRecursos = cs(s1, fn) : fn();} function cs(scriptUrl, callback){GDownloadUrl(scriptUrl, function(data, responseCode) {e = document.createElement("script");e.lang = 'javascript';e.type ='text/javascript'; e.charset="UTF-8";e.content='text/html; charset=ISO-8859-15'; e.text = data; document.getElementsByTagName("head")[0].appendChild(e); callback();});return false;} /* Copyright (c) 2005-2006, Andre Lewis, andre@earthcode.com All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. * Neither the name of "Andre Lewis" nor the names of contributors to this software may be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* GZoom custom map control. Version 0.2 Released 11/21/06 To use: oMap = new GMap2($id("large-google-map")); oMap.addControl(new GMapTypeControl()); Or with options: oMap.addControl(new GZoomControl({sColor:'#000',nOpacity:.3,sBorder:'1px solid yellow'}), new GControlPosition(G_ANCHOR_TOP_RIGHT,new GSize(10,10))); More info at http://earthcode.com */ eval(function(p,a,c,k,e,d){e=function(c){return(c35?String.fromCharCode(c+29):c.toString(36))};if(!''.replace(/^/,String)){while(c--)d[e(c)]=k[c]||e(c);k=[function(e){return d[e]}];e=function(){return'\\w+'};c=1};while(c--)if(k[c])p=p.replace(new RegExp('\\b'+e(c)+'\\b','g'),k[c]);return p}('9 6(26,24,1q){6.G.5={1b:.2,1K:"#4c",1O:"4b 2W 4a"};7 5=6.G.5;W(7 s 1u 26){5[s]=26[s]};7 25=5.1O.29(\' \');5.1X=1H(25[0].49(/\\D/g,\'\'));5.2y=25[2];5.1D=\'2H(X=\'+(5.1b*2G)+\')\';6.G.y={2s:T,23:\'2n ...\',2U:{I:\'48\',2r:\'1m 2W 47\',46:\'1f 2V 1m 2V\'},22:{11:\'#45\'},2R:\'44 a 43 42 41 20\',2Q:{11:\'#40\'},2x:3Z,2t:T};W(7 s 1u 24){6.G.y[s]=24[s]};d(1q==x){1q={}};6.G.H=1q}6.8=J 3Y();6.G={14:T,F:x,B:x,v:x,C:x,Z:x,L:x,13:0,12:0,1g:0,h:0,f:0,15:0};6.8.2P=9(2T){7 G=6.G;7 m=w.2O(\'z\');m.1p=G.y.23;m.j=\'q-1Y\';b.5([m],{2N:\'3X\',2M:3W});b.5([m],G.y.2U);b.5([m],G.y.22);2T.2L(m);A m};6.8.1C=9(2S){7 G=6.G;d(2S==\'2p\'){G.m.1p=G.y.2R;b.5([G.m],G.y.2Q)}1A{G.m.1p=G.y.23;b.5([G.m],G.y.22)}};6.8.3V=9(k){7 G=6.G;7 21=k.1M();7 m=1Z.2P(21);7 o=w.2O("z");o.j=\'q-20-2J\';o.1p=\'\';b.5([o],{V:\'U\',n:\'K\',3U:\'3T\',2N:\'3S\',2M:3R});21.2L(o);1o.1n(m,\'3Q\',6.8.2q);1o.1n(o,\'3P\',6.8.2I);1o.1n(w,\'3O\',6.8.2D);1o.1n(w,\'3N\',6.8.2B);G.Z=b.1x(k.1M());G.L=$j("q-2K");G.m=$j("q-1Y");G.M=$j("q-20-2J");G.F=$j("q-F");G.B=$j("q-B");G.v=$j("q-v");G.C=$j("q-C");G.k=k;G.15=G.5.1X*2;1Z.1L();1Z.1N();E("3M 3L q 1Y");A m};6.8.3K=9(){A J 3J(3I,J 3H(3,3G))};6.8.2I=9(e){7 G=6.G;7 p=6.8.1d(e);E("3F 2E 2z "+p.u+", "+p.r);G.h=p.u;G.f=p.r;b.5([G.M],{11:\'3E\',X:1,1E:\'2H(X=2G)\'});b.5([G.L],{u:G.h+\'l\',r:G.f+\'l\',n:\'N\',I:\'1m\',10:\'1m\'});G.14=2k;G.F.5.r=(G.f-G.12)+\'l\';G.F.5.n=\'N\';G.C.5.u=(G.h-G.13)+\'l\';G.C.5.r=(G.f)+\'l\';G.C.5.n=\'N\';G.B.5.u=(G.h)+\'l\';G.B.5.r=(G.f)+\'l\';G.B.5.n=\'N\';G.v.5.u=(G.h)+\'l\';G.v.5.r=(G.f)+\'l\';G.v.5.I=\'1f\';G.v.5.n=\'N\';d(G.H.2F!=x){G.H.2F(G.h,G.f)};E("2A 2E 1a");A T};6.8.2D=9(e){7 G=6.G;d(G.14){7 p=6.8.1d(e);c=6.8.1J(G.h,G.f,p,G.1g);G.L.5.I=c.1c+"l";G.L.5.10=c.1I+"l";G.B.5.u=(c.Q+G.15)+\'l\';G.v.5.r=(c.P+G.15)+\'l\';G.v.5.I=(c.1c+G.15)+\'l\';d(G.H.2C!=x){G.H.2C(G.h,G.f,c.Q,c.P)};A T}};6.8.2B=9(e){7 G=6.G;d(G.14){7 p=6.8.1d(e);G.14=T;7 c=6.8.1J(G.h,G.f,p,G.1g);E("2A 3D 2z "+c.Q+", "+c.P+". 3C/I="+c.1c+","+c.1I);6.8.1F();7 1T=J 1l(c.h,c.f);7 1S=J 1l(c.Q,c.f);7 1R=J 1l(c.Q,c.P);7 1Q=J 1l(c.h,c.P);7 1j=G.k.1k(1T);7 1i=G.k.1k(1S);7 1U=G.k.1k(1R);7 1h=G.k.1k(1Q);7 1W=J 3B([1j,1i,1U,1h,1j],G.5.2y,G.5.1X+1,.4);3A{G.k.3z(1W);3y(9(){G.k.3x(1W)},G.y.2x)}3w(e){1r.1s("1s 3v 3u 3t:"+e.3s)}1V=J 3r(1h,1i);2v=G.k.3q(1V);2w=1V.3p();G.k.3o(2w,2v);d(G.H.2u!=x){G.H.2u(1j,1i,1U,1h,1T,1S,1R,1Q)};d(G.y.2t){6.8.1e()}}};6.8.1L=9(){7 G=6.G;d(G.y.2s){G.k.3n()};7 1P=G.k.3m();G.13=1P.I;G.12=1P.10;G.1g=G.12/G.13;b.5([G.M,G.F,G.B,G.v,G.C],{I:G.13+\'l\',10:G.12+\'l\'})};6.8.1N=9(){7 G=6.G;b.5([G.M,G.F,G.B,G.v,G.C],{1E:G.5.1D,X:G.5.1b,11:G.5.1K});G.L.5.2r=G.5.1O;E("1a 1N")};6.8.2q=9(){d(6.G.M.5.n==\'N\'){6.8.1F()}1A{6.8.1e()}};6.8.1e=9(){7 G=6.G;G.Z=b.1x(G.k.1M());6.8.1L();6.8.1C(\'2p\');b.5([G.M],{n:\'N\',11:G.5.1K});b.5([G.L],{I:\'1f\',10:\'1f\'});d(6.G.H[\'2o\']!=x){6.G.H.2o()};E("1a 1e")};6.8.1d=9(e){7 p=b.2j(e);7 G=6.G;A{r:(p.r-G.Z.r),u:(p.u-G.Z.u)}};6.8.1J=9(h,f,p,1G){7 S=p.u-h;7 R=p.r-f;d(S<0)S=S*-1;d(R<0)R=R*-1;Y=S>R?S:R;A{h:h,f:f,Q:h+Y,P:f+1H(Y*1G),1c:Y,1I:1H(Y*1G)}};6.8.1F=9(){7 G=6.G;b.5([G.M,G.F,G.B,G.v,G.C],{n:\'K\',X:G.5.1b,1E:G.5.1D});G.L.5.n=\'K\';6.8.1C(\'3l\');E("1a 3k 3j 3i 2n")};9 $j(2m){A w.3h(2m)}d(!1B[\'2l\']){7 b={};1B[\'2l\']=2k}b.2j=9(e){7 18=0;7 17=0;d(!e)7 e=1B.3g;d(e.2i||e.2h){18=e.2i;17=e.2h}1A d(e.2g||e.2f){18=e.2g+(w.19.1z?w.19.1z:w.2e.1z);17=e.2f+(w.19.1y?w.19.1y:w.2e.1y)}A{u:18,r:17}};b.1x=9(16){7 1w=16.2d;7 1v=16.2c;7 O=16.2b;3f(O!=x){1w+=O.2d;1v+=O.2c;O=O.2b}A{u:1w,r:1v}};b.5=9(a,o){d(3e(a)==\'3d\'){a=b.2a(a)}W(7 i=0;i\')};',62,261,'|||||style|GZoomControl|var|prototype|function||acl|oRec|if||nStartY||nStartX||id|oMap|px|oButton|display||oPos|gzoom|top|||left|mcb|document|null|options|div|return|mcr|mcl||debug|mct||callbacks|width|new|none|oOutline|mc|block|eParElement|nEndY|nEndX|dY|dX|false|absolute|position|for|opacity|delta|oMapPos|height|background|nMapHeight|nMapWidth|bDragging|nBorderCorrect|eElement|posy|posx|documentElement|done|nOpacity|nWidth|getRelPos_|initCover_|0px|nMapRatio|sw|ne|nw|fromContainerPixelToLatLng|GPoint|1px|addDomListener|GEvent|innerHTML|oCallbacks|jslog|error|length|in|nTopPos|nLeftPos|getElementPosition|scrollTop|scrollLeft|else|window|setButtonMode_|sIEAlpha|filter|resetDragZoom_|nRatio|parseInt|nHeight|getRectangle_|sColor|setDimensions_|getContainer|initStyles_|sBorder|oSize|swpx|sepx|nepx|nwpx|se|oBounds|oZoomArea|nOutlineWidth|control|this|map|oMC|oButtonStyle|sButtonHTML|oOptions|aStyle|oBoxStyle|script|text|split|getManyElements|offsetParent|offsetTop|offsetLeft|body|clientY|clientX|pageY|pageX|getMousePosition|true|acldefined|sId|zoom|buttonClick|zooming|buttonClick_|border|bForceCheckResize|bStickyZoom|dragEnd|nZoom|oCenter|nOverlayRemoveMS|sOutlineColor|at|mouse|mouseup_|dragging|drag_|down|dragStart|100|alpha|coverMousedown_|cover|outline|appendChild|zIndex|cursor|createElement|initButton_|oButtonZoomingStyle|sButtonZoomingHTML|sMode|oMapContainer|oButtonStartingStyle|5px|solid|js|scripts|includes|com|earthcode|http|src|javascript|type|write|enablejslog|match|href|location|warning|info|string|typeof|while|event|getElementById|drag|reset|with|normal|getSize|checkResize|setCenter|getCenter|getBoundsZoomLevel|GLatLngBounds|message|overlay|zoomarea|adding|catch|removeOverlay|setTimeout|addOverlay|try|GPolyline|Height|up|transparent|Mouse|120|GSize|G_ANCHOR_TOP_LEFT|GControlPosition|getDefaultPosition|Initializing|Finished|mouseup|mousemove|mousedown|click|101|crosshair|hidden|overflow|initialize|200|pointer|GControl|6000|FF0|the|on|region|Drag|FFF|padding|black|52px|replace|blue|2px|000'.split('|'),0,{}))