function DesenhaBarras(PSeqBarras) {
PSeqBarras = SeqBarras2de5(PSeqBarras);
for (x=1;x<=PSeqBarras.length;x++) {
	if ( PSeqBarras.charAt( x-1 ) == "1" )
	{
		document.write("<IMG SRC='http://www.unicap.br/Extensao/img/LfB.bmp'>");
	}
	else
	{
		document.write("<IMG SRC='http://www.unicap.br/Extensao/img/LfW.bmp'>");
	}

}
}


function SeqBarras2de5 (PString)
{
    var SeqBarras = new Array(9);
    var TipoBarra = new Boolean(true);
    var BarraIni="1010";
    var BarraFim="11101";
    var ResultadoFinal="";
    var Cont1 =0;
    var Cont2 =0;
    var ContAuxiliar =0;

    var TempSeq1="";
    var TempSeq2="";
    var TempSeqPar="";
      
    //Verifica se a string possui um número par de caracteres
    //Resto da Divisão
    if (PString.length % 2 == 0)
    {
        SeqBarras[0] = "NNWWN";
        SeqBarras[1] = "WNNNW";
        SeqBarras[2] = "NWNNW";
        SeqBarras[3] = "WWNNN";
        SeqBarras[4] = "NNWNW";
        SeqBarras[5] = "WNWNN";
        SeqBarras[6] = "NWWNN";
        SeqBarras[7] = "NNNWW";
        SeqBarras[8] = "WNNWN";
        SeqBarras[9] = "NWNWN";
        
        for (Cont1 = 1; Cont1<=PString.length;Cont1+=2)
	        {
            TempSeq1 = SeqBarras[PString.charAt(Cont1-1)];
            TempSeq2 = SeqBarras[PString.charAt(Cont1)];

            //Monta a sequencia intercalada Char1Seq1, Char1Seq2, Char2Seq1, Char2Seq2...
            var TempSeqPar="";
            
            for (Cont2 = 1;Cont2<=5;Cont2++)
	        {
                TempSeqPar += TempSeq1.charAt(Cont2-1) + TempSeq2.charAt(Cont2-1);
            }
            TipoBarra = new Boolean(true);


            for (Cont2 = 1;Cont2<=TempSeqPar.length;Cont2++)
	        { 
		
                //Verifica Tipo da Barra
                if (TempSeqPar.charAt(Cont2-1) == "N")
	        {
                    if (TipoBarra) 
                        ResultadoFinal +=  "1";
	             else 
                        ResultadoFinal += "0";
	            
                } else {
		    if (TipoBarra) 
                        ResultadoFinal += "111";
		            
                    else
		            
                        ResultadoFinal += "000";
		 }
		//Alterna de Barra para espaço;
        TipoBarra = !(TipoBarra); 
	    } 

	}           
        //Coloca as Barras inicais e finais
        ResultadoFinal = BarraIni + ResultadoFinal + BarraFim;
    }
    return (ResultadoFinal);
}