// Chess diagram generator javascript
// Peter Bereolos


function diagram(position) {   

var blanks = 0;
itagl='<TD ALIGN="center"><IMG SRC=\"';
itagr='.gif\"></TD>';
sqcolor='w';

line = '<TABLE ALIGN="center"  CELLSPACING="0" CELLPADDING="0" BORDER="1" bgcolor="FFFFFF">'
line += '<tr>'

for (i = 0; i < position.length; i++) {

switch(position.substring(i,i+1))
     {
          case 'P' : 
                     line += itagl + 'wp' + sqcolor + itagr;
                     sqcolor = togsqcolor(sqcolor);
                     break;

          case 'p' : 
                     line += itagl + 'bp' + sqcolor + itagr;
                     sqcolor = togsqcolor(sqcolor);
                     break;

          case '/':  
                     line += '<tr>' ;
                     sqcolor = togsqcolor(sqcolor);
                     break; 

          case 'R' : 
                     line += itagl + 'wr' + sqcolor + itagr;
                     sqcolor = togsqcolor(sqcolor);
                     break;

          case 'r' : 
                     line += itagl + 'br' + sqcolor + itagr;
                     sqcolor = togsqcolor(sqcolor);
                     break;

          case 'N' : 
                     line += itagl + 'wn' + sqcolor + itagr;
                     sqcolor = togsqcolor(sqcolor);
                     break;

          case 'n' : 
                     line += itagl + 'bn' + sqcolor + itagr;
                     sqcolor = togsqcolor(sqcolor);
                     break;

          case 'B' : 
                     line += itagl + 'wb' + sqcolor + itagr;
                     sqcolor = togsqcolor(sqcolor);
                     break;

          case 'b' : 
                     line += itagl + 'bb' + sqcolor + itagr;
                     sqcolor = togsqcolor(sqcolor);
                     break;

          case 'K' : 
                     line += itagl + 'wk' + sqcolor + itagr;
                     sqcolor = togsqcolor(sqcolor);
                     break;

          case 'k' : 
                     line += itagl + 'bk' + sqcolor + itagr;
                     sqcolor = togsqcolor(sqcolor);
                     break;

          case 'Q' : 
                     line += itagl + 'wq' + sqcolor + itagr;
                     sqcolor = togsqcolor(sqcolor);
                     break;

          case 'q' : 
                     line += itagl + 'bq' + sqcolor + itagr;
                     sqcolor = togsqcolor(sqcolor);
                     break;

          default : 
                     for (j = 1; j <= position.substring(i,i+1); j++) {
                        line += itagl + sqcolor + itagr;
                        sqcolor = togsqcolor(sqcolor);
                     };

        }


}  // end for loop

line += '</td></tr>'
line += '</TABLE>'

document.write(line) 

}

/////////////////////////////

function togsqcolor(color){

if(color == 'w'){color = 'b'} else {color ='w'};
return color;
}

/////////////////////////////