<?
  define( "ODD", FALSE);
  define( "EVEN", TRUE);

  $l_odd = array (
      array(FALSE, FALSE,  TRUE,  TRUE, FALSE),
      array(FALSE,  TRUE,  TRUE, FALSE, FALSE),
      array(FALSE,  TRUE, FALSE, FALSE,  TRUE),
      array( TRUE,  TRUE,  TRUE,  TRUE, FALSE),
      array( TRUE, FALSE, FALSE, FALSE,  TRUE),
      array( TRUE,  TRUE, FALSE, FALSE, FALSE),
      array( TRUE, FALSE,  TRUE,  TRUE,  TRUE),
      array( TRUE,  TRUE,  TRUE, FALSE,  TRUE),
      array( TRUE,  TRUE, FALSE,  TRUE,  TRUE),
      array(FALSE, FALSE,  TRUE, FALSE,  TRUE));
  $l_even = array (
      array( TRUE, FALSE, FALSE,  TRUE,  TRUE),
      array( TRUE,  TRUE, FALSE, FALSE,  TRUE),
      array(FALSE,  TRUE,  TRUE, FALSE,  TRUE),
      array( TRUE, FALSE, FALSE, FALSE, FALSE),
      array(FALSE,  TRUE,  TRUE,  TRUE, FALSE),
      array( TRUE,  TRUE,  TRUE, FALSE, FALSE),
      array(FALSE, FALSE, FALSE,  TRUE, FALSE),
      array(FALSE,  TRUE, FALSE, FALSE, FALSE),
      array(FALSE, FALSE,  TRUE, FALSE, FALSE),
      array(FALSE,  TRUE, FALSE,  TRUE,  TRUE));
  $r = array (
      array( TRUE,  TRUE, FALSE, FALSE,  TRUE),
      array( TRUE, FALSE, FALSE,  TRUE,  TRUE),
      array( TRUE, FALSE,  TRUE,  TRUE, FALSE),
      array(FALSE, FALSE, FALSE, FALSE,  TRUE),
      array(FALSE,  TRUE,  TRUE,  TRUE, FALSE),
      array(FALSE, FALSE,  TRUE,  TRUE,  TRUE),
      array(FALSE,  TRUE, FALSE, FALSE, FALSE),
      array(FALSE, FALSE, FALSE,  TRUE, FALSE),
      array(FALSE, FALSE,  TRUE, FALSE, FALSE),
      array( TRUE,  TRUE, FALSE,  TRUE, FALSE));
  $par = array (
      array( ODD, ODD, ODD, ODD, ODD, ODD),
      array( ODD, ODD,EVEN, ODD,EVEN,EVEN),
      array( ODD, ODD,EVEN,EVEN, ODD,EVEN),
      array( ODD, ODD,EVEN,EVEN,EVEN, ODD),
      array( ODD,EVEN, ODD, ODD,EVEN,EVEN),
      array( ODD,EVEN,EVEN, ODD, ODD,EVEN),
      array( ODD,EVEN,EVEN,EVEN, ODD, ODD),
      array( ODD,EVEN, ODD,EVEN, ODD,EVEN),
      array( ODD,EVEN, ODD,EVEN,EVEN, ODD),
      array( ODD,EVEN,EVEN, ODD,EVEN, ODD));

  function barcode_check($type, $code) {
    switch ($type) {
      case("ISBN")  : 
        if (strlen($code) != 13) return false;
        $code = str_replace("-","",$code); 
        if (strlen($code) != 10) return false;
        break;
      case("EAN-2") :
        if (strlen($code) != 2) return false;
        break;
      case("EAN-8") :
        if (strlen($code) != 8) return false;
        break;
      case("EAN-13") :
        if (strlen($code) != 13) return false;
        break;
      case("UPC-A") :
        if (strlen($code) != 12) return false;
        break;
      default: return;
    }
    if (!is_numeric($code)) return false;
    return true;
  }

  function barcode_check_checksum ($type, $code) {
    switch($type) {
      case("EAN-2")  : return true; // No checksum for EAN2 via numbers
      case("ISBN")   : $code = isbn_to_ean_13($code); break;
      case("EAN-8")  :
      case("UPC-A")  : $code = '0' . $code;
      case("EAN-13") : break;
      default: return;
    }
    return (substr($code, -1, 1) == barcode_checksum("EAN-13",substr($code, 0, -1))); break;
  }

  function barcode_checksum($type, $code) {
    switch($type) {
      case("EAN-2")  : return 0; // EAN-2 has no checksum number
      case("ISBN")   : $code = isbn_to_ean_13($code); break;
      case("EAN-8")  :
      case("UPC-A")  : $code = '0' . $code;
      case("EAN-13") : break;
      default: return;
    }
    for ($count = 1; $count < strlen($code); $count+=2) $total += $code[$count];
    $total *= 3;
    for ($count = 0; $count < strlen($code); $count+=2) $total += $code[$count];

    return (10 - $total % 10) % 10;
  }

  function isbn_to_EAN_13 ($isbn) {
    for ($i=0;$i<strlen($isbn);$i++)
    {
      $ascii_code=ord($isbn[$i]);
      if ($ascii_code >=48 && $asci_code <=57) continue;
      $isbn = cutchar($isbn,$i);
      $i--;
    }
    $isbn = "978" . substr($isbn,0,9);
    return $isbn . barcode_checksum("EAN-13", $isbn);
  }

  function cutchar($string, $number) {
    return (substr($string,0,$number) . substr($string,$number+1));
  }

  function barcode_binbar($type, $code) {
    global $l_odd, $l_even, $r, $par;
    switch($type) {
      case("ISBN")   : $code = isbn_to_ean_13($code); break;
      case("EAN-8")  :
      case("UPC-A")  : $code = '0' . $code;
      case("EAN-2")  : 
      case("EAN-13") : break;
      default: return;
    }

    if ($type!="EAN-2") {
      $first = substr($code,0,1);
      $code = substr($code,1);
    }

    //make binairy array
    $binbar = array( TRUE, FALSE, TRUE );

    if ($type=="EAN-2") {
      $binbar = array ( FALSE, TRUE, FALSE, TRUE, TRUE );
      $ean2par = $code % 4;
      $code .= '00'; // padding to fix counting difference
    }

    for ($count = 0; $count < strlen($code) / 2; $count++) {
      $binbar[] = FALSE;
      if ($type=="EAN-2") {
        if ($ean2par & ($count+1)) {
          $binbar = array_merge( $binbar, $l_odd[$code[$count]] );
        } else {
          $binbar = array_merge( $binbar, $l_even[$code[$count]] );
        }
      } else {
        if ($par[$first][$count] == ODD) {
          $binbar = array_merge( $binbar, $l_odd[$code[$count]] );
        } else {
          $binbar = array_merge( $binbar, $l_even[$code[$count]] );
        }
      }
      $binbar[] = TRUE;
      if ($type=="EAN-2" && $count==0) { // Separator
        $binbar[] = FALSE;
        $binbar[] = TRUE;
      }
    }
    if ($type!="EAN-2") {
      $binbar = array_merge( $binbar, array ( FALSE, TRUE, FALSE, TRUE, FALSE ) );
      for ($count = 0; $count < strlen($code) / 2; $count++) {
        $binbar[] = TRUE;
        $binbar = array_merge( $binbar, $r[$code[$count + strlen($code)/2]] );
        $binbar[] = FALSE;
      }
      $binbar = array_merge( $binbar, array ( TRUE, FALSE, TRUE ) );
    }
    return $binbar;
  }

  function binbartoimage($binbar, $widthperline, $height) {
    $image = imagecreatetruecolor(count($binbar) * $widthperline, $height);
    $white = imagecolorallocate($image, 255, 255, 255);
    $black = imagecolorallocate($image, 0, 0, 0);
    foreach ($binbar as $num => $sign) {
      imagefilledrectangle($image, $num*$widthperline,0,($num+1)*$widthperline,$height,($sign=="TRUE"?$black:$white));
    }
    return $image;
  }
?>