//Code 39 mod 43
//(c) 2011 by Tomasz Lubinski
//www.algorytm.org

   var code39mod43signs = [
      '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
      'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J',
      'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T',
      'U', 'V', 'W', 'X', 'Y', 'Z', '-', '.', ' ', '$',
      '/', '+', '%' ];

   var code39mod43bars = [
      ['N', 'N', 'N', 'W', 'W', 'N', 'W', 'N', 'N'],
      ['W', 'N', 'N', 'W', 'N', 'N', 'N', 'N', 'W'],
      ['N', 'N', 'W', 'W', 'N', 'N', 'N', 'N', 'W'],
      ['W', 'N', 'W', 'W', 'N', 'N', 'N', 'N', 'N'],
      ['N', 'N', 'N', 'W', 'W', 'N', 'N', 'N', 'W'],
      ['W', 'N', 'N', 'W', 'W', 'N', 'N', 'N', 'N'],
      ['N', 'N', 'W', 'W', 'W', 'N', 'N', 'N', 'N'],
      ['N', 'N', 'N', 'W', 'N', 'N', 'W', 'N', 'W'],
      ['W', 'N', 'N', 'W', 'N', 'N', 'W', 'N', 'N'],
      ['N', 'N', 'W', 'W', 'N', 'N', 'W', 'N', 'N'],
      ['W', 'N', 'N', 'N', 'N', 'W', 'N', 'N', 'W'],
      ['N', 'N', 'W', 'N', 'N', 'W', 'N', 'N', 'W'],
      ['W', 'N', 'W', 'N', 'N', 'W', 'N', 'N', 'N'],
      ['N', 'N', 'N', 'N', 'W', 'W', 'N', 'N', 'W'],
      ['W', 'N', 'N', 'N', 'W', 'W', 'N', 'N', 'N'],
      ['N', 'N', 'W', 'N', 'W', 'W', 'N', 'N', 'N'],
      ['N', 'N', 'N', 'N', 'N', 'W', 'W', 'N', 'W'],
      ['W', 'N', 'N', 'N', 'N', 'W', 'W', 'N', 'N'],
      ['N', 'N', 'W', 'N', 'N', 'W', 'W', 'N', 'N'],
      ['N', 'N', 'N', 'N', 'W', 'W', 'W', 'N', 'N'],
      ['W', 'N', 'N', 'N', 'N', 'N', 'N', 'W', 'W'],
      ['N', 'N', 'W', 'N', 'N', 'N', 'N', 'W', 'W'],
      ['W', 'N', 'W', 'N', 'N', 'N', 'N', 'W', 'N'],
      ['N', 'N', 'N', 'N', 'W', 'N', 'N', 'W', 'W'],
      ['W', 'N', 'N', 'N', 'W', 'N', 'N', 'W', 'N'],
      ['N', 'N', 'W', 'N', 'W', 'N', 'N', 'W', 'N'],
      ['N', 'N', 'N', 'N', 'N', 'N', 'W', 'W', 'W'],
      ['W', 'N', 'N', 'N', 'N', 'N', 'W', 'W', 'N'],
      ['N', 'N', 'W', 'N', 'N', 'N', 'W', 'W', 'N'],
      ['N', 'N', 'N', 'N', 'W', 'N', 'W', 'W', 'N'],
      ['W', 'W', 'N', 'N', 'N', 'N', 'N', 'N', 'W'],
      ['N', 'W', 'W', 'N', 'N', 'N', 'N', 'N', 'W'],
      ['W', 'W', 'W', 'N', 'N', 'N', 'N', 'N', 'N'],
      ['N', 'W', 'N', 'N', 'W', 'N', 'N', 'N', 'W'],
      ['W', 'W', 'N', 'N', 'W', 'N', 'N', 'N', 'N'],
      ['N', 'W', 'W', 'N', 'W', 'N', 'N', 'N', 'N'],
      ['N', 'W', 'N', 'N', 'N', 'N', 'W', 'N', 'W'],
      ['W', 'W', 'N', 'N', 'N', 'N', 'W', 'N', 'N'],
      ['N', 'W', 'W', 'N', 'N', 'N', 'W', 'N', 'N'],
      ['N', 'W', 'N', 'W', 'N', 'W', 'N', 'N', 'N'],
      ['N', 'W', 'N', 'W', 'N', 'N', 'N', 'W', 'N'],
      ['N', 'W', 'N', 'N', 'N', 'W', 'N', 'W', 'N'],
      ['N', 'N', 'N', 'W', 'N', 'W', 'N', 'W', 'N']
   ];

   var start_stop = ['N', 'W', 'N', 'N', 'W', 'N', 'W', 'N', 'N'];
	  
/* Check if code is correct */
function check(code39mod43)
{
   for (var i=0; i<code39mod43.length; i++) 
   {
      if (getLetterIndex(code39mod43[i]) == -1)
         return false;
   }
   return true;
}

/* Return letter index, or -1 if not correct */
function getLetterIndex(ch) 
{
   for (var i=0; i<code39mod43signs.length; i++) 
   {
      if (code39mod43signs[i] == ch)
         return i;
   }
   return -1;
}
	
/* Return check digit for given code */  
function checkDigit(code39mod43)
{
   var sum = 0;
   for (var i=0; i<code39mod43.length; i++)
      sum += getLetterIndex(code39mod43[i]);

   return (sum % 43);
}
	  
/* Convert code to bars */
function convert(code39mod43) {

   /* inccorect code return null */
   if (check(code39mod43) == false) 
   {
      return null;
   }

   var bars = new Array(10*(code39mod43.length+3));

   /* add start bars */
   for (var j=0; j<9; j++) 
   {
       bars[j] = start_stop[j];
   }
   bars[9] = 'N'; //space between characters

   /* add character codes */
   for (var i=0; i<code39mod43.length; i++) 
   {
      var toCopy = code39mod43bars[getLetterIndex(code39mod43[i])];
      for (var j=0; j<9; j++) 
      {
          bars[i*10 + 10 + j] = toCopy[j];
      }
      bars[i*10 + 19] = 'N'; //space between characters
   }

   /* add check digit */
   var toCopy = code39mod43bars[checkDigit(code39mod43)];
   for (var j=0; j<9; j++) 
   {
       bars[code39mod43.length*10 + 10 + j] = toCopy[j];
   }
   bars[code39mod43.length*10 + 10 + 9] = 'N'; //space between characters
   
   /* add stop bars */
   for (var j=0; j<9; j++) 
   {
       bars[code39mod43.length*10 + 20 + j] = start_stop[j];
   }
   bars[code39mod43.length*10 + 20 + 9] = 'N'; //space between characters
   
   return bars;
}

//initialize data
function generate(code39mod43)
{
   var canvas = document.getElementById("canvas");
   var ctx = canvas.getContext("2d");

   /* clear canvas and set its width */
   canvas.width = code39mod43.length*26+98;

   /* prepare style */
   ctx.fillStyle    = "rgb(0,0,0)";
   ctx.font         = "10pt Arial";
   ctx.textBaseline = "top";
   ctx.textAlign    = "left";

   code39mod43 = code39mod43.toUpperCase();
   var bars = convert(code39mod43);
   if (bars != null)
   {
      var pos = 10;
      var width = 0;
      for (i=0; i<bars.length; i++) 
      {
         /* Narrow or wide bar */
         if (bars[i] == 'N') 
         {
            width = 2;
         } 
         else 
         {
            width = 4
         }         	
         /* White or black bar */
         if ((i % 2) == 0)
      	 {
            ctx.fillRect(pos, 10, width, 70);
      	 }
      	 pos += width;
      }
    
      for (i=0; i<code39mod43.length; i++) 
      {
         ctx.fillText(code39mod43[i], i*26+50, 90);
      }
   }
   else
   {
      ctx.fillText("Nieprawidłowy", 10, 10);
      ctx.fillText("kod", 10, 25);
      ctx.fillText("Incorrect", 10, 50);
      ctx.fillText("code", 10, 65);
   }
}