var pixelX = 0; var pixelY = 0; var xmin = 99999999; var ymin = 99999999; var xmax = -99999999; var ymax = -99999999; var indicePol = 0; // Inicializamos el array de poligonos var utmPoligonos = new Array(); utmPoligonos[0] = ""; // Definimos el array de poligonos dos var poligonosDibujados = new Array(); var codigoPoligonos = ""; function abreVentanaCoordenadas(){ //("Estás en la función"); var ventana = window.open("","Coordenadas","status=1,left=0,top=0,resizable=1,scrollbars=1"); ventana.document.open(); ventana.focus(); ventana.document.writeln("Transformación de coordenadas"); ventana.document.writeln(""); ventana.document.writeln(""); ventana.document.writeln("

Dibujar polígono

Esta utilidad permite dibujar polígonos "); ventana.document.writeln("a partir de coordenadas geográficas o UTM para representar la ubicación de una explotación acuícola.

"); ventana.document.writeln("Seleccione el polígono activo o cree uno nuevo (únicamente si es necesario)
"); ventana.document.writeln(""); ventana.document.writeln("
El Polígono activo es el " + (indicePol +1) + "

ó
Seleccione el polígono activo de la lista
"); ventana.document.writeln("		 Puede cargar las coordenadas del polígono desde fichero:

"); ventana.document.writeln("Añada vértices al polígono activo desde coordenadas geográficas o UTM (huso 30):
"); ventana.document.writeln(""); ventana.document.writeln(""); ventana.document.writeln("
Añadir vértice desde
coordenadas geográficas:"); ventana.document.writeln("

Si sus datos están en GRADOS-MINUTOS (GGºMM.MM'), debe transformalos a GRADOS MINUTOS SEGUNDOS, como en el siguiente ejemplo:
"); ventana.document.writeln("36º 49.836' es un dato que está en formato GRADOS-MINUTOS. Para pasarlo a GRADOS MINUTOS SEGUNDOS:
  • Los grados se quedan como están: 36º
    • "); ventana.document.writeln("
  • Los minutos son los mismos, pero quedándonos solo con la parte entera. En nuestro caso, 49'
  • Los segundos son la parte decimal de los minutos multiplicada por 60. En nuestro caso, 0.836 * 60 = 50.16\"

    • "); ventana.document.writeln("
    "); ventana.document.writeln("Longitud:
    GG:"); ventana.document.writeln("MM:"); ventana.document.writeln("SS:
    "); ventana.document.writeln("Latitud:
    GG:"); ventana.document.writeln("MM:"); ventana.document.writeln("SS:
    "); ventana.document.writeln("
    		Añadir vértice desde
    coordenadas UTM (huso 30):
    "); ventana.document.writeln("X: m.
    "); ventana.document.writeln("Y: m.
    "); ventana.document.writeln(""); ventana.document.writeln("
    "); if (utmPoligonos[0]!="") { ventana.document.writeln("
    Coordenadas de los polígonos:"); ventana.document.writeln(""); for (k=0;kPolígono " +(k+1) +":
    Coordenadas añadidas (UTM)"); var listaCoordenadas = utmPoligonos[k].split(":"); ventana.document.writeln("
    "); var conteo = 1; for (i=0;i"); ventana.document.writeln(""); ventana.document.writeln(""); conteo = conteo +1; } ventana.document.writeln(""); ventana.document.writeln("
    ") ventana.document.writeln("X" + conteo+": " + listaCoordenadas[i] + "
    "); ventana.document.writeln("Y"+conteo+ ": " + listaCoordenadas[i+1] + "
    "); //if (i>=6) { ventana.document.writeln("
    "); ventana.document.writeln("
    "); ventana.document.writeln("
    "); //} ventana.document.writeln("
    "); } } ventana.document.writeln(""); } ventana.document.writeln(""); } //añade un nuevo vértice (X e Y) al polígono activo function escribeCoordenadas(x,y){ if (utmPoligonos[indicePol] == "") utmPoligonos[indicePol] = x + ":" + y; else utmPoligonos[indicePol] += ":" + x + ":" + y; //abreVentanaCoordenadas(); } function borraCoordenadas (x,y,indice) { var listaCoordenadas = utmPoligonos[indice].split(':'); utmPoligonos [indice]=""; for (var j=0;j'; } escribeEnLayer("contenedor", codigoPoligonos); } function borraPoligono(indice){ //Rehacemos los poligonos dibujados var copiaPoligonosDibujados = new Array(); for (j=0; j < indice ; j++) { copiaPoligonosDibujados[j] = poligonosDibujados[j]; } //Copiamos los ultimos for(j=indice;j 2) { xmin = 99999999; ymin = 99999999; xmax = -9999999; ymax = -9999999; for (var h=0;hxmax) xmax = listaCoordenadas[h]; if (listaCoordenadas[h+1]>ymax) ymax = listaCoordenadas[h+1]; } } else { xmin = parseFloat(listaCoordenadas[0]) - 30; xmax = parseFloat(listaCoordenadas[0]) + 30; ymin = parseFloat(listaCoordenadas[1]) - 30; ymax = parseFloat(listaCoordenadas[1]) + 30; } eRight = parseInt(xmax) + Math.round(xmax - xmin); eLeft = parseInt(xmin) - Math.round(xmax - xmin); eTop = parseInt(ymax) + Math.round(ymax - ymin); eBottom = parseInt(ymin) - Math.round(ymax - ymin); sendMapXML(); } function salvarPoligono(indice) { parent.focus(); if (utmPoligonos[indice] != "") { var listaCoordenadas = utmPoligonos[indice].split(":"); //if (listaCoordenadas.length>=6) { var filename = prompt("Introduzca el nombre del fichero que se va a escribir.\nEscriba las rutas en minúsculas y con la barra de división - / ","c:/temp/data.txt"); var fso = new ActiveXObject("Scripting.FileSystemObject"); var file = fso.CreateTextFile(filename, true); file.WriteLine("ID_PUNTO,UTM_30_X,UTM_30_Y"); contador = 0 for (var i=0; i