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/vestibularCatolica/img/LfB.bmp'>");
	}
	else	{
		document.write("<IMG SRC='http://www.unicap.br/vestibularCatolica/img/LfW.bmp'>");
	}
  }
}

function DesenhaBarrasPequenas(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/vestibularCatolica/img/LfB_small.bmp'>");
	}
	else	{
		document.write("<IMG SRC='http://www.unicap.br/vestibularCatolica/img/LfW_small.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);
}