function dibujaPoligono()
{

        var html = "";
        var cadenaVML = 'm ' + listaPuntosX[0] + ', '+ listaPuntosY[0] + ' l ';
        
        if (modoMarcado == 1 && numPuntos>1)
        {
                numPuntos=1;
        }
        for (var i=0; i < numPuntos; i++)
        {
                html+=dibujaPunto(listaPuntosX[i],listaPuntosY[i],i);
                if (esIE && es5osuperior) 
                {
                        if (i>0) 
                        {
                                cadenaVML +=listaPuntosX[i]+ ', ' +listaPuntosY[i];
                                if (i<numPuntos-1)cadenaVML +=', ';
                                else cadenaVML +=' ';
                        }
                }

        }
        if (esIE && es5osuperior) 
        {
                cadenaVML +="x e";
                parent.visor.document.all['poligono'].path = cadenaVML;
        }
        escribeEnLayer("contenedor",html);
        
        
        
        
}

function dibujaPunto (pixelX, pixelY, numPunto)
{
        var codigoHTML = '<DIV style="position:absolute;left:'+ (pixelX-5) +';top:'+(pixelY-5)+';">';
        codigoHTML += '<b>&nbsp;'+numPunto+'</b></DIV>';
        return codigoHTML;
}

function dibujaPuntoLinea (pixelX, pixelY, numPunto)
{
       
        var codigoHTML = '<DIV style="position:absolute;left:'+ (pixelX-5) +';top:'+(pixelY-5)+';">';
        codigoHTML += '&nbsp;<b>'+numPunto+'</b></DIV>';
      
        return codigoHTML;

}

function borrarPunto(idPunto)
{

        for (var i=(idPunto+1);i<numPuntos;i++)
        {
                listaPuntosX[i-1]=listaPuntosX[i];
                listaPuntosY[i-1]=listaPuntosY[i];
                listaPuntosUTMX[i-1]=listaPuntosUTMX[i];
                listaPuntosUTMY[i-1]=listaPuntosUTMY[i];
        }
        numPuntos --;
        refrescaPoligono();
}

function refrescaPoligono()
{
        if (numPuntos > 0) 
        {
                for (var i=0;i<numPuntos;i++) 
                {
                        listaPuntosX[i] = worldXtoPixel(listaPuntosUTMX[i]);
                        listaPuntosY[i] = worldYtoPixel(listaPuntosUTMY[i]);
                }
                dibujaPoligono();
                
        } else 
        {
                parent.visor.document.all['poligono'].path = "m 0 0";
                escribeEnLayer("contenedor","")
        }
}

function refrescaAcuicultura(){
        for(var ind=0; ind<utmPoligonos.length;ind++)
        {
          dibujaPoligonoVML(ind);
        }
}

function dibujaLineas()
{
        var codigoHTML ="";
        for (var i=0; i<numPuntosLineas-1;i++)
        {
                if (esIE && es5osuperior)
                {
                   codigoHTML +="<DIV><v:line ";
                   codigoHTML +="from='" + listaPuntosLineaX[i]+"px "+listaPuntosLineaY[i]+"px' to='"+listaPuntosLineaX[i+1]+"px "+listaPuntosLineaY[i+1]+"px'";
                   codigoHTML +="strokecolor='blue' strokeweight='2px' />";
                }
                codigoHTML += dibujaPuntoLinea(listaPuntosLineaX[i],listaPuntosLineaY[i],i);
        }
        codigoHTML += dibujaPuntoLinea(listaPuntosLineaX[numPuntosLineas-1],listaPuntosLineaY[numPuntosLineas-1],numPuntosLineas-1);
        escribeEnLayer("contenedorLineas",codigoHTML);
        
        
}

function refrescaLineas()
{
        if (numPuntosLineas > 0)
        {
                for (var i=0;i<numPuntosLineas;i++) 
                {
                        listaPuntosLineaX[i] = worldXtoPixel(listaPuntosLineaUTMX[i]);
                        listaPuntosLineaY[i] = worldYtoPixel(listaPuntosLineaUTMY[i]);
                }
                dibujaLineas();
        } 
        else 
        {
                escribeEnLayer("contenedorLineas","")
        }
}

function borrarPuntoLineas(idPunto)
{

        for (var i=(idPunto+1);i<numPuntosLineas;i++)
        {
                listaPuntosLineaX[i-1]=listaPuntosLineaX[i];
                listaPuntosLineaY[i-1]=listaPuntosLineaY[i];
                listaPuntosLineaUTMX[i-1]=listaPuntosLineaUTMX[i];
                listaPuntosLineaUTMY[i-1]=listaPuntosLineaUTMY[i];
        }
        numPuntosLineas --;
        refrescaLineas();
}

function dibujaPoligonoVML(ind)
{
        codigoPoligonos="";
        escribeEnLayer("contenedor", codigoPoligonos);

        // SBCALVO: Anyadido para que redibuje también los polígonos ya existentes
        poligonosDibujados[ind] = 1;
        for (var i=0;i<poligonosDibujados.length;i++)
        {
                if (poligonosDibujados[i]==1)
                {
                  escribePoligonoVML(i);
                }
        }
}