qr_code2_ie.htm

戻る

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML LANG="ja">

<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=Shift_JIS">
<TITLE>続・QR コード作成</TITLE>
</HEAD>

<BODY BGCOLOR="#CCFFFF">
<CENTER>
<BR>
<B>続・QR コード作成<BR>(Internet Explorer 5.5)</B>
<BR><BR>

<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=20 BGCOLOR="#FFFFFF"><TR><TD>
<DIV ID="vis" STYLE="position:relative">
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>

<SCRIPT LANGUAGE="JavaScript1.2" TYPE="text/javascript">
<!--
  MAX_VER = 10;
  MAX_MOD = 17 + MAX_VER * 4;

  for(i = 0; i < MAX_MOD; i++) {
    document.write("<TR>");
    for(j = 0; j < MAX_MOD; j += 4)
      document.write("<TD><IMG NAME='M", i.toString(16), "_", j.toString(16), "' SRC='images/qr_m0.gif' WIDTH=12 HEIGHT=3></TD>");
    document.writeln("</TR>");
  }

  sub = false;
//-->
</SCRIPT>

</TABLE>
</DIV>
</TD></TR></TABLE>

<BR>

<FORM>
誤り訂正レベル
<SELECT NAME="level">
<OPTION SELECTED>L
<OPTION>M
<OPTION>Q
<OPTION>H
</SELECT>
<BR><BR>
データ<BR>
<TEXTAREA NAME="data" ROWS=6 COLS=40></TEXTAREA>
<BR><BR>
<INPUT TYPE=BUTTON VALUE="作成" onClick="submit_sj()">
</FORM>

<IFRAME NAME="cd_tgt" ID="cd_tgt" WIDTH=1 HEIGHT=1 SRC="about:blank" STYLE="visibility:hidden"
 onLoad="if(sub) {sub = false; QR_encoding()}"></IFRAME>

<DIV ID="msg" STYLE="visibility:hidden">処理中...</DIV>

</CENTER>

<SCRIPT LANGUAGE="JavaScript1.2" TYPE="text/javascript">
<!--

// フォーム送信
function submit_sj() {
  // IE では,フォームの内容はフォームのあるページの文字コードに変換して送信されるので,
  // シフト JIS のページに変換用のフォームを置く必要がある.
  // このプログラムのページはシフト JIS なので,直接このページにフォームを定義してもよいが,
  // このページがシフト JIS 以外の場合は,以下のようにフォームだけのページを,シフト JIS の
  // 文字コード指定で作ればよい.
  // このプログラムをそのままシフト JIS 以外に変換(<META HTTP-EQUIV="Content-Type" 〜 は
  // 変更する)したもので,正しく QR コード作成ができることを確認済み.
  with(elem_cd_tgt.contentWindow.document) {
    open();
    write("<BODY><FORM><INPUT TYPE=HIDDEN NAME='data'></FORM></BODY>");
    close();
    charset = "Shift_JIS";

    // FORM で要求する URL はダミーなので,same origin ポリシーを満たせば何でもよい.
    forms[0].action = location.href;  // 自分自身
  //forms[0].action = "dummy.txt";  // 自分と同じディレクトリにあるリソース
    forms[0].data.value = document.forms[0].data.value;
    sub = true;
    forms[0].submit();
  }
}

// エンコード
function QR_encoding() {
  // データ
  data = elem_cd_tgt.contentWindow.location.search;
  var i1 = data.indexOf("data=");
  if(i1 < 0)
    return;
  i1 += 5;
  var i2 = data.indexOf("&", i1);
  data = (i2 < 0) ? data.substring(i1) : data.substring(i1, i2);
  if(!data.length)
    return;

  level = document.forms[0].level.selectedIndex;  // 誤り訂正レベル

  document.getElementById("vis").style.visibility = "hidden";
  document.getElementById("msg").style.visibility = "visible";

  setTimeout("QR_encoding_body(); QR_encoding_end()", 0);
}

function QR_encoding_end() {
  if(data)  // エラー以外
    document.getElementById("vis").style.visibility = "visible";
  document.getElementById("msg").style.visibility = "hidden";
}

function QR_encoding_body() {
  var code1;
  var n1, n2;
  var b1, b2;
  var x, y;
  var i, j, k;

  // URL デコード & モード判定
  var data2 = [];
  var mode;  // モード
  var data_len = 0;  // 入力データ長
  var f_num, f_alpha, f_kanji;
  f_num = f_alpha = f_kanji = 1;
  for(i = 0; i < data.length; ) {
    switch(code1 = data.charCodeAt(i)) {
    case 0x25:  // %
      code1 = parseInt(data.substr(i + 1, 2), 16);

      if(code1 >= 0x81 && code1 <= 0x9f || code1 >= 0xe0 && code1 <= 0xfc) {  // 漢字
        code1 <<= 8;
        var c2 = data.charCodeAt(i + 3);
        if(c2 == 0x25) {  // %
          code1 |= parseInt(data.substr(i + 4, 2), 16);
          i += 6;
        }
        else {
          code1 |= c2;
          i += 4;
        }
        if(code1 > 0xebbf) {
          alert("エンコードできない文字があります!");
          data = null;
          return;
        }
        data2.push(code1);

        data_len += 2;
        f_num = f_alpha = 0;
        continue;
      }

      i += 3;
      if(code1 == 0x0a) {  // LF
        if(data2.length) {
          if(data2[data2.length - 1] == 0x0d) {  // CR
            data2[data2.length - 1] = 0x0a;  // LF
            continue;
          }
        }
      }
      data2.push(code1);
      break;

    case 0x2b:  // +
      code1 = 0x20;  // スペース
      // fall thru
    default:
      data2.push(code1);
      i++;
    }

    data_len++;
    f_kanji = 0;
    if(code1 < 0x30 || code1 > 0x39) {  // 0 〜 9 以外
      f_num = 0;
      if(code1 < 0x41 || code1 > 0x5a) {  // A 〜 Z 以外
        switch(code1) {
        case 0x20:  // スペース
        case 0x24:  // $
        case 0x25:  // %
        case 0x2a:  // *
        case 0x2b:  // +
        case 0x2d:  // -
        case 0x2e:  // .
        case 0x2f:  // /
        case 0x3a:  // :
          break;
        default:
          f_alpha = 0;
        }
      }
    }
  }
  if     (f_num)
    mode = 0;  // 数字モード
  else if(f_alpha)
    mode = 1;  // 英数字モード
  else if(f_kanji)
    mode = 3;  // 漢字モード
  else
    mode = 2;  // 8 ビット バイト モード

  var version;  // 型番
  var len_bits;  // 文字数指示子ビット数
  var data_cws;  // データ コード語数
  var max_chars;  // 最大格納文字数

  i_code = 0;
  reg = 0;
  reg_bits = 0;
  switch(mode) {
  case 0:  // 数字モード
    // 型番決定
    for(version = 1; version <= MAX_VER; version++) {
      if     (version <= 9)
        len_bits = 10;
      else if(version <= 26)
        len_bits = 12;
      else
        len_bits = 14;
      n1 = (data_cws = get_data_cws(version, level)) * 8 - 4 - len_bits;
      max_chars = Math.floor(n1 / 10) * 3;
      n1 %= 10;
      if(n1 >= 4) {
        if(n1 >= 7)
          max_chars += 2;
        else
          max_chars++;
      }
      if(data_len <= max_chars)
        break;
    }
    if(version > MAX_VER) {
      alert("データが長すぎます!");
      data = null;
      return;
    }
    // データ コード語作成
    // モード指示子,文字数指示子
    put_code(0x1, 4);
    put_code(data_len, len_bits);
    // データ
    for(i = 0; ; ) {
      if(i + 2 < data_len) {
        put_code((data2[i] & 0x0f) * 100 + (data2[i + 1] & 0x0f) * 10 + (data2[i + 2] & 0x0f), 10);
        if((i += 3) == data_len)
          break;
      }
      else {
        if     (i + 1 < data_len)
          put_code((data2[i] & 0x0f) * 10 + (data2[i + 1] & 0x0f), 7);
        else if(i < data_len)
          put_code(data2[i] & 0x0f, 4);
        break;
      }
    }
    break;

  case 1:  // 英数字モード
    // 型番決定
    for(version = 1; version <= MAX_VER; version++) {
      if     (version <= 9)
        len_bits = 9;
      else if(version <= 26)
        len_bits = 11;
      else
        len_bits = 13;
      n1 = (data_cws = get_data_cws(version, level)) * 8 - 4 - len_bits;
      max_chars = Math.floor(n1 / 11) * 2;
      if(n1 % 11 >= 6)
        max_chars++;
      if(data_len <= max_chars)
        break;
    }
    if(version > MAX_VER) {
      alert("データが長すぎます!");
      data = null;
      return;
    }
    // データ コード語作成
    // モード指示子,文字数指示子
    put_code(0x2, 4);
    put_code(data_len, len_bits);
    // データ
    for(i = 0; ; ) {
      if(i + 1 < data_len) {
        put_code(alpha_val(data2[i]) * 45 + alpha_val(data2[i + 1]), 11);
        if((i += 2) == data_len)
          break;
      }
      else {
        put_code(alpha_val(data2[i]), 6);
        break;
      }
    }
    break;

  case 2:  // 8 ビット バイト モード
    // 型番決定
    for(version = 1; version <= MAX_VER; version++) {
      if     (version <= 9)
        len_bits = 8;
      else
        len_bits = 16;
      max_chars = Math.floor(((data_cws = get_data_cws(version, level)) * 8 - 4 - len_bits) / 8);
      if(data_len <= max_chars)
        break;
    }
    if(version > MAX_VER) {
      alert("データが長すぎます!");
      data = null;
      return;
    }
    // データ コード語作成
    // モード指示子,文字数指示子
    put_code(0x4, 4);
    put_code(data_len, len_bits);
    // データ
    for(i = 0; i < data2.length; i++)
      put_code(data2[i], (data2[i] & 0xff00) ? 16 : 8);
    break;

  case 3:  // 漢字モード
    data_len >>= 1;
    // 型番決定
    for(version = 1; version <= MAX_VER; version++) {
      if     (version <= 9)
        len_bits = 8;
      else if(version <= 26)
        len_bits = 10;
      else
        len_bits = 12;
      max_chars = Math.floor(((data_cws = get_data_cws(version, level)) * 8 - 4 - len_bits) / 13);
      if(data_len <= max_chars)
        break;
    }
    if(version > MAX_VER) {
      alert("データが長すぎます!");
      data = null;
      return;
    }
    // データ コード語作成
    // モード指示子,文字数指示子
    put_code(0x8, 4);
    put_code(data_len, len_bits);
    // データ
    for(i = 0; i < data_len; i++) {
      code1 = data2[i];
      if(code1 < 0xe000)
        code1 -= 0x8140;
      else
        code1 -= 0xc140;
      put_code((code1 >> 8) * 0xc0 + (code1 & 0xff), 13);
    }
    break;
  }

  // 終端パターン“0000”付加
  if(i_code < data_cws - 1 || i_code < data_cws && !reg_bits)
    put_code(0x0, 4);
  // フラッシュ
  if(reg_bits)
    code[i_code++] = (reg << (8 - reg_bits)) & 0xff;
  // パディング
  for(; ; ) {
    if(i_code == data_cws)
      break;
    code[i_code++] = 0xec;
    if(i_code == data_cws)
      break;
    code[i_code++] = 0x11;
  }

  var n_blocks = rs_blocks[version - 1][level];  // RS ブロック数
  var n_ec = ec_codewords[version - 1][level];  // 誤り訂正コード語数
  var g_exp = g_exp_t[n_ec - 1];  // 誤り訂正コード α指数

  // 誤り訂正コード作成
  var i_data = 0;
  var i_ec = data_cws;
  n1 = Math.floor(data_cws / n_blocks);
  n2 = n_blocks - data_cws % n_blocks;
  for(i_block = 0; i_block < n_blocks; i_block++) {
    if(i_block == n2)
      n1++;
    var data_ec = code.slice(i_data, i_data + n1);
    data_ec.length = n1 + n_ec;
    for(i = 0; i < n_ec; i++)
      data_ec[n1 + i] = 0;
    for(i = 0; i < n1; i++) {
      if(data_ec[i]) {
        var exp1 = n_exp[data_ec[i]];
        for(j = 0; j < n_ec; j++)
          data_ec[i + 1 + j] ^= exp_n[(g_exp[j] + exp1) % 255];
      }
    }
    for(i = 0; i < n_ec; i++)
      code[i_ec + i] = data_ec[n1 + i];
    i_data += n1;
    i_ec += n_ec;
  }

  var n_modules1 = 21 + (version - 1) * 4;  // 1 辺のモジュール数

  for(i = 0; i < n_modules1; i++) {
    for(j = 0; j < n_modules1; j++)
      module1[i][j] = 0;
  }
  // 位置検出パターン & 分離パターン & 形式情報位置予約(一部)& 固定暗モジュール
  for(i = 0; i < 8; i++) {
    for(j = 0; j < 9; j++)  // 左上
      module1[i][j] = finder_pat[i + 1][1 + j];
    for(j = 0; j < 8; j++)  // 右上
      module1[i][n_modules1 - 8 + j] = finder_pat[i + 1][j];
    for(j = 0; j < 9; j++)  // 左下
      module1[n_modules1 - 8 + i][j] = finder_pat[i][1 + j];
  }
  // 形式情報位置予約
  module1[8].splice(0,              9, 0x40, 0x40, 0x40, 0x40, 0x40, 0x40, 0x40, 0x40, 0x40);
  module1[8].splice(n_modules1 - 8, 8, 0x40, 0x40, 0x40, 0x40, 0x40, 0x40, 0x40, 0x40);
  // 型番情報位置予約
  if(version >= 7) {
    for(i = 11; i >= 9; i--)  // 左下
      module1[n_modules1 - i].splice(0, 6, 0x40, 0x40, 0x40, 0x40, 0x40, 0x40);
    for(i = 0; i <= 5; i++)  // 右上
      module1[i].splice(n_modules1 - 11, 3, 0x40, 0x40, 0x40);
  }
  // タイミング パターン
  for(i = 8; i < n_modules1 - 9; i += 2) {
    module1[6][i    ] = module1[i    ][6] = 0x81;
    module1[6][i + 1] = module1[i + 1][6] = 0x80;
  }
  module1[6][i] = module1[i][6] = 0x81;
  // 位置合せパターン
  n1 = align_pos[version - 1].length;
  for(i = 0; i < n1; i++) {
    y = align_pos[version - 1][i];
    for(j = 0; j < n1; j++) {
      if(i == 0 && j == 0 || i == 0 && j == n1 - 1 || i == n1 - 1 && j == 0)
        continue;
      x = align_pos[version - 1][j];
      module1[y - 2].splice(x - 2, 5, 0x81, 0x81, 0x81, 0x81, 0x81);
      module1[y - 1].splice(x - 2, 5, 0x81, 0x80, 0x80, 0x80, 0x81);
      module1[y    ].splice(x - 2, 5, 0x81, 0x80, 0x81, 0x80, 0x81);
      module1[y + 1].splice(x - 2, 5, 0x81, 0x80, 0x80, 0x80, 0x81);
      module1[y + 2].splice(x - 2, 5, 0x81, 0x81, 0x81, 0x81, 0x81);
    }
  }

  // シンボル キャラクタ配置
  n1 = Math.floor(data_cws / n_blocks);
  n2 = n_blocks - data_cws % n_blocks;
  i_block = 0;
  i_code = 0;
  code1 = code[0];
  b1 = 0x80;
  i = j = n_modules1 - 1;
  var dir = 0;  // 走査方向
  var l_r = 0;  // 右/左
  for(; ; ) {
    if(!module1[i][j]) {  // 空き
      module1[i][j] = (code1 & b1) ? 1 : 0;
      if(!(b1 >>= 1)) {
        // 次のコード語
        if(++i_block == n_blocks) {
          i_block = 0;
          i_code++;
          if(n1) {  // データ コード
            if     (i_code == n1) {  // 短い方のデータ コードの長さ分終了
              if(n2 == n_blocks) {  // データ コードの長さがすべて等しい → 誤り訂正コードへ
                n1 = 0;
                i_code = 0;
              }
              else {  // 余り分
                i_block = n2;
              }
            }
            else if(i_code > n1) {  // データ コード終了 → 誤り訂正コードへ
              n1 = 0;
              i_code = 0;
            }
          }
          else {  // 誤り訂正コード
            if(i_code == n_ec)  // 終了
              break;
          }
        }
        if(n1) {  // データ コード
          k = i_block * n1;
          if(i_block > n2)
            k += i_block - n2;
        }
        else {  // 誤り訂正コード
          k = data_cws + i_block * n_ec;
        }
        code1 = code[k + i_code];
        b1 = 0x80;
      }
    }
    if(l_r) {  // 左
      if(dir) {  // 下方向
        if(i < n_modules1 - 1) {
          i++;
          j++;
        }
        else {
          dir = 0;  // 反転
          if(--j == 6)
            j = 5;
        }
      }
      else {  // 上方向
        if(i) {
          i--;
          j++;
        }
        else {
          dir = 1;  // 反転
          if(--j == 6)
            j = 5;
        }
      }
      l_r = 0;
    }
    else {  // 右
      j--;
      l_r = 1;
    }
  }

  // マスク パターン決定
  var mask;  // マスク パターン
  var min_penalty = 0x7fffffff;  // 最小失点
  var m;
  for(m = 0x0; m <= 0x7; m++) {
    masking(n_modules1, m);  // マスク

    // 失点計算
    var penalty = 0;  // 失点

    // 同色の隣接モジュール
    for(i = 0; i < n_modules1; i++) {
      // 行
      b1 = module2[i][0];
      n1 = 1;
      // 列
      b2 = module2[0][i];
      n2 = 1;
      for(j = 1; j < n_modules1; j++) {
        // 行
        if(module2[i][j] == b1) {
          n1++;
        }
        else {
          if(n1 >= 5)
            penalty += 3 + (n1 - 5);
          b1 = module2[i][j];
          n1 = 1;
        }
        // 列
        if(module2[j][i] == b2) {
          n2++;
        }
        else {
          if(n2 >= 5)
            penalty += 3 + (n2 - 5);
          b2 = module2[j][i];
          n2 = 1;
        }
      }
      // 行
      if(n1 >= 5)
        penalty += 3 + (n1 - 5);
      // 列
      if(n2 >= 5)
        penalty += 3 + (n2 - 5);
    }

    // 2×2 のモジュール ブロック
    for(i = 0; i < n_modules1 - 1; i++) {
      for(j = 0; j < n_modules1 - 1; j++) {
        b1 = module2[i][j];
        if(module2[i][j + 1] == b1 && module2[i + 1][j] == b1 && module2[i + 1][j + 1] == b1)
          penalty += 3;
      }
    }

    // 1:1:3:1:1 比率のパターン
    var cnt = new Array();
    cnt.length = 7;
    // 行
    for(i = 0; i < n_modules1; i++) {
      k = 0;
      for(j = 0; ; ) {
        // 同色モジュール数カウント
        for(; k < 7; k++) {
          x = j;
          for(; j < n_modules1; j++) {
            if(module2[i][j] ^ (k & 0x01))  // k = 0,2,4,6 -- 暗?,k = 1,3,5 -- 明?
              break;
          }
          cnt[k] = j - x;  // モジュール数
          if(j == n_modules1)
            break;
        }
        if(k >= 5) {
          if(k == 5)
            cnt[6] = 0;
          if(cnt[2] == cnt[1] && cnt[3] == cnt[1] * 3 && cnt[4] == cnt[1] && cnt[5] == cnt[1]
               && (cnt[0] >= cnt[1] * 4 || cnt[6] >= cnt[1] * 4)) {  // 1:1:3:1:1 & 4 以上の明
            penalty += 40;
            if(j < n_modules1) {  // 終端でない
              // 続きをチェック
              cnt[0] = cnt[4];
              cnt[1] = cnt[5];
              cnt[2] = cnt[6];
              k = 3;
              continue;
            }
          }
        }
        if(j == n_modules1)
          break;
        // 続きをチェック
        cnt[0] = cnt[2];
        cnt[1] = cnt[3];
        cnt[2] = cnt[4];
        cnt[3] = cnt[5];
        cnt[4] = cnt[6];
        k = 5;
      }
    }
    // 列
    for(j = 0; j < n_modules1; j++) {
      k = 0;
      for(i = 0; ; ) {
        // 同色モジュール数カウント
        for(; k < 7; k++) {
          y = i;
          for(; i < n_modules1; i++) {
            if(module2[i][j] ^ (k & 0x01))  // k = 0,2,4,6 -- 暗?,k = 1,3,5 -- 明?
              break;
          }
          cnt[k] = i - y;  // モジュール数
          if(i == n_modules1)
            break;
        }
        if(k >= 5) {
          if(k == 5)
            cnt[6] = 0;
          if(cnt[2] == cnt[1] && cnt[3] == cnt[1] * 3 && cnt[4] == cnt[1] && cnt[5] == cnt[1]
               && (cnt[0] >= cnt[1] * 4 || cnt[6] >= cnt[1] * 4)) {  // 1:1:3:1:1 & 4 以上の明
            penalty += 40;
            if(i < n_modules1) {  // 終端でない
              // 続きをチェック
              cnt[0] = cnt[4];
              cnt[1] = cnt[5];
              cnt[2] = cnt[6];
              k = 3;
              continue;
            }
          }
        }
        if(i == n_modules1)
          break;
        // 続きをチェック
        cnt[0] = cnt[2];
        cnt[1] = cnt[3];
        cnt[2] = cnt[4];
        cnt[3] = cnt[5];
        cnt[4] = cnt[6];
        k = 5;
      }
    }

    // 暗モジュール比率
    // 2004年改正 JIS X 0510 では「参考」にある例が「評価条件」と矛盾している.
    n1 = 0;
    for(i = 0; i < n_modules1; i++) {
      for(j = 0; j < n_modules1; j++) {
        if(module2[i][j])  // 暗
          n1++;
      }
    }
    n2 = n_modules1 * n_modules1;
    if((n1 = Math.floor((Math.abs(n1 * 2 - n2) * 20 + (n2 * 2) - 1) / (n2 * 2))) > 1)
      penalty += 10 * (n1 - 1);

    if(penalty < min_penalty) {
      mask = m;
      min_penalty = penalty;
    }
  }

  masking(n_modules1, mask);  // 採用したマスク パターンでマスク

  // 固定暗モジュール
  // 固定暗モジュール配置はマスク判定の前か後か?
  module2[n_modules1 - 8][8] = 1;
  // 形式情報
  code1 = format_info[level][mask];
  b1 = 0x4000;
  for(i = 0; i < 7; i++) {
    module2[8][(i < 6) ? i : i + 1] = module2[n_modules1 - 1 - i][8] = (code1 & b1) ? 1 : 0;
    b1 >>= 1;
  }
  for(i = 7; i >= 0; i--) {
    module2[(i < 6) ? i : i + 1][8] = module2[8][n_modules1 - 1 - i] = (code1 & b1) ? 1 : 0;
    b1 >>= 1;
  }
  // 型番情報
  if(version >= 7) {
    code1 = version_info[version - 7];
    b1 = 0x20000;
    for(i = 0; i < 18; i++) {
      y = n_modules1 - 9 - i % 3;
      x = 5 - Math.floor(i / 3);
      module2[y][x] = module2[x][y] = (code1 & b1) ? 1 : 0;
      b1 >>= 1;
    }
  }

  // 表示
  for(i = 0; i < n_modules1; i++) {
    for(j = 0; j < n_modules1; j += 4) {
      k = (module2[i][j]) ? 0x8 : 0;
      if(j + 1 < n_modules1)
        k |= (module2[i][j + 1]) ? 0x4 : 0;
      if(j + 2 < n_modules1)
        k |= (module2[i][j + 2]) ? 0x2 : 0;
      if(j + 3 < n_modules1)
        k |= (module2[i][j + 3]) ? 0x1 : 0;
      document.images["M" + i.toString(16) + "_" + j.toString(16)].src = img_m[k].src;
    }
    for(; j < MAX_MOD; j += 4)
      document.images["M" + i.toString(16) + "_" + j.toString(16)].src = img_m[0].src;
  }
  for(; i < MAX_MOD; i++) {
    for(j = 0; j < MAX_MOD; j += 4)
      document.images["M" + i.toString(16) + "_" + j.toString(16)].src = img_m[0].src;
  }
}

// データ コード語数
function get_data_cws(version, level) {
  var n_modules;
  var n;

  n_modules = 21 + (version - 1) * 4;  // 1 辺のモジュール数
  n_modules = n_modules * n_modules  // 総モジュール数
                - 3 * (8 * 8)              // 位置検出パターン & 分離パターン
                - 2 * (n_modules - 2 * 8)  // タイミング パターン
                - 1                        // 固定暗モジュール
                - 2 * 15;                  // 形式情報
  // 位置合せパターン
  n = align_pos[version - 1].length;
  if(n) {  // n > 0
    n_modules -= (n * n - 3) * (5 * 5);
    if(n > 2)
      n_modules += 2 * (n - 2) * 5;  // タイミング パターンと重なる分
  }
  // 型番情報
  if(version >= 7)
    n_modules -= 2 * 18;

  return (n_modules >> 3) - rs_blocks[version - 1][level] * ec_codewords[version - 1][level];
}

// コード登録
function put_code(code1, code1_bits) {
  reg = (reg << code1_bits) | code1;
  reg_bits += code1_bits;
  while(reg_bits >= 8) {
    code[i_code++] = (reg >> (reg_bits - 8)) & 0xff;
    reg_bits -= 8;
  }
}

// 英数字モード 文字値
function alpha_val(c) {
  switch(c) {
  case 0x20:  // スペース
    return 36;
  case 0x24:  // $
    return 37;
  case 0x25:  // %
    return 38;
  case 0x2a:  // *
    return 39;
  case 0x2b:  // +
    return 40;
  case 0x2d:  // -
    return 41;
  case 0x2e:  // .
    return 42;
  case 0x2f:  // /
    return 43;
  case 0x3a:  // :
    return 44;
  }
  if(c <= 0x39)
    return c & 0x0f;
  return c - 0x41 + 10;
}

// マスク処理
function masking(n_modules1, mask) {
  var i, j;

  for(i = 0; i < n_modules1; i++) {
    for(j = 0; j < n_modules1; j++) {
      module2[i][j] = module1[i][j] & 0x1;
      if(!(module1[i][j] & 0xc0)) {  // 機能パターン,形式情報,型番情報を除く
        switch(mask) {
        case 0:  // (i+j)mod 2=0
          if((i + j) % 2)
            continue;
          break;
        case 1:  // i mod 2=0
          if(i % 2)
            continue;
          break;
        case 2:  // j mod 3=0
          if(j % 3)
            continue;
          break;
        case 3:  // (i+j)mod 3=0
          if((i + j) % 3)
            continue;
          break;
        case 4:  // ((i div 2)+(j div 3))mod 2=0
          if((Math.floor(i / 2) + Math.floor(j / 3)) % 2)
            continue;
          break;
        case 5:  // (i j)mod 2+(i j)mod 3=0
          if(i * j % 2 + i * j % 3)
            continue;
          break;
        case 6:  // ((i j)mod 2+(i j)mod 3)mod 2=0
          if((i * j % 2 + i * j % 3) % 2)
            continue;
          break;
        case 7:  // ((i j)mod 3+(i+j)mod 2)mod 2=0
          if((i * j % 3 + (i + j) % 2) % 2)
            continue;
          break;
        }
        module2[i][j] ^= 1;  // 反転
      }
    }
  }
}

//----------------------------------------------------------

  // モジュール表示用画像
  img_m = new Array();
  img_m.length = 16;
  for(i = 0; i < 16; i++) {
    img_m[i] = new Image(12, 3);
    img_m[i].src = "images/qr_m" + i.toString(16) + ".gif";
  }

  code = new Array();  // コード語作成ワーク
  code.length = 3706;
  var i_code;  // コード語インデックス
  var reg;
  var reg_bits;

  // 誤り訂正コード語数
  ec_codewords = [
  // 誤り訂正レベル
  // L   M   Q   H       型番
    [ 7, 10, 13, 17],  //  1
    [10, 16, 22, 28],  //  2
    [15, 26, 18, 22],  //  3
    [20, 18, 26, 16],  //  4
    [26, 24, 18, 22],  //  5
    [18, 16, 24, 28],  //  6
    [20, 18, 18, 26],  //  7
    [24, 22, 22, 26],  //  8
    [30, 22, 20, 24],  //  9
    [18, 26, 24, 28],  // 10
    [20, 30, 28, 24],  // 11
    [24, 22, 26, 28],  // 12
    [26, 22, 24, 22],  // 13
    [30, 24, 20, 24],  // 14
    [22, 24, 30, 24],  // 15
    [24, 28, 24, 30],  // 16
    [28, 28, 28, 28],  // 17
    [30, 26, 28, 28],  // 18
    [28, 26, 26, 26],  // 19
    [28, 26, 30, 28],  // 20
    [28, 26, 28, 30],  // 21
    [28, 28, 30, 24],  // 22
    [30, 28, 30, 30],  // 23
    [30, 28, 30, 30],  // 24
    [26, 28, 30, 30],  // 25
    [28, 28, 28, 30],  // 26
    [30, 28, 30, 30],  // 27
    [30, 28, 30, 30],  // 28
    [30, 28, 30, 30],  // 29
    [30, 28, 30, 30],  // 30
    [30, 28, 30, 30],  // 31
    [30, 28, 30, 30],  // 32
    [30, 28, 30, 30],  // 33
    [30, 28, 30, 30],  // 34
    [30, 28, 30, 30],  // 35
    [30, 28, 30, 30],  // 36
    [30, 28, 30, 30],  // 37
    [30, 28, 30, 30],  // 38
    [30, 28, 30, 30],  // 39
    [30, 28, 30, 30]   // 40
  ];

  // RS ブロック数
  rs_blocks = [
  // 誤り訂正レベル
  // L   M   Q   H       型番
    [ 1,  1,  1,  1],  //  1
    [ 1,  1,  1,  1],  //  2
    [ 1,  1,  2,  2],  //  3
    [ 1,  2,  2,  4],  //  4
    [ 1,  2,  4,  4],  //  5
    [ 2,  4,  4,  4],  //  6
    [ 2,  4,  6,  5],  //  7
    [ 2,  4,  6,  6],  //  8
    [ 2,  5,  8,  8],  //  9
    [ 4,  5,  8,  8],  // 10
    [ 4,  5,  8, 11],  // 11
    [ 4,  8, 10, 11],  // 12
    [ 4,  9, 12, 16],  // 13
    [ 4,  9, 16, 16],  // 14
    [ 6, 10, 12, 18],  // 15
    [ 6, 10, 17, 16],  // 16
    [ 6, 11, 16, 19],  // 17
    [ 6, 13, 18, 21],  // 18
    [ 7, 14, 21, 25],  // 19
    [ 8, 16, 20, 25],  // 20
    [ 8, 17, 23, 25],  // 21
    [ 9, 17, 23, 34],  // 22
    [ 9, 18, 25, 30],  // 23
    [10, 20, 27, 32],  // 24
    [12, 21, 29, 35],  // 25
    [12, 23, 34, 37],  // 26
    [12, 25, 34, 40],  // 27
    [13, 26, 35, 42],  // 28
    [14, 28, 38, 45],  // 29
    [15, 29, 40, 48],  // 30
    [16, 31, 43, 51],  // 31
    [17, 33, 45, 54],  // 32
    [18, 35, 48, 57],  // 33
    [19, 37, 51, 60],  // 34
    [19, 38, 53, 63],  // 35
    [20, 40, 56, 66],  // 36
    [21, 43, 59, 70],  // 37
    [22, 45, 62, 74],  // 38
    [24, 47, 65, 77],  // 39
    [25, 49, 68, 81]   // 40
  ];

  // 誤り訂正コード 生成多項式係数 α指数
  g_exp_t = new Array();
  g_exp_t.length = 30;
  g_exp_t[ 6] = [87, 229, 146, 149, 238, 102, 21];
  g_exp_t[ 9] = [251, 67, 46, 61, 118, 70, 64, 94, 32, 45];
  g_exp_t[12] = [74, 152, 176, 100, 86, 100, 106, 104, 130, 218, 206, 140, 78];
  g_exp_t[14] = [8, 183, 61, 91, 202, 37, 51, 58, 58, 237, 140, 124, 5, 99, 105];
  g_exp_t[15] = [120, 104, 107, 109, 102, 161, 76, 3, 91, 191, 147, 169, 182, 194, 225, 120];
  g_exp_t[16] = [43, 139, 206, 78, 43, 239, 123, 206, 214, 147, 24, 99, 150, 39, 243, 163, 136];
  g_exp_t[17] = [215, 234, 158, 94, 184, 97, 118, 170, 79, 187, 152, 148, 252, 179, 5, 98, 96, 153];
  g_exp_t[19] = [17, 60, 79, 50, 61, 163, 26, 187, 202, 180, 221, 225, 83, 239, 156, 164, 212, 212, 188, 190];
  g_exp_t[21] = [210, 171, 247, 242, 93, 230, 14, 109, 221, 53, 200, 74, 8, 172, 98, 80, 219, 134, 160, 105, 165, 231];
  g_exp_t[23] = [229, 121, 135, 48, 211, 117, 251, 126, 159, 180, 169, 152, 192, 226, 228, 218, 111, 0, 117, 232, 87, 96, 227, 21];
  g_exp_t[25] = [173, 125, 158, 2, 103, 182, 118, 17, 145, 201, 111, 28, 165, 53,161, 21, 245, 142, 13, 102, 48, 227, 153, 145, 218, 70];
  g_exp_t[27] = [168, 223, 200, 104, 224, 234, 108, 180, 110, 190, 195, 147, 205, 27, 232, 201, 21, 43, 245, 87, 42, 195, 212, 119, 242, 37, 9, 123];
  g_exp_t[29] = [41, 173, 145, 152, 216, 31, 179, 182, 50, 48, 110, 86, 239, 96, 222, 125, 42, 173, 226, 193, 224, 130, 156, 37, 251, 216, 238, 40, 192, 180];

  // 位置検出パターン & 分離パターン & 形式情報位置予約(一部)& 固定暗モジュール用データ
  finder_pat = [
//  [0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x41],
    [0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x40],
    [0x80, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x80, 0x40],
    [0x80, 0x81, 0x80, 0x80, 0x80, 0x80, 0x80, 0x81, 0x80, 0x40],
    [0x80, 0x81, 0x80, 0x81, 0x81, 0x81, 0x80, 0x81, 0x80, 0x40],
    [0x80, 0x81, 0x80, 0x81, 0x81, 0x81, 0x80, 0x81, 0x80, 0x40],
    [0x80, 0x81, 0x80, 0x81, 0x81, 0x81, 0x80, 0x81, 0x80, 0x40],
    [0x80, 0x81, 0x80, 0x80, 0x80, 0x80, 0x80, 0x81, 0x80, 0x40],
    [0x80, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x80, 0x40],
    [0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x40]
  ];

  // 位置合せパターン座標
  align_pos = [
  //                                        型番
    [],                                   //  1
    [  6,  18],                           //  2
    [  6,  22],                           //  3
    [  6,  26],                           //  4
    [  6,  30],                           //  5
    [  6,  34],                           //  6
    [  6,  22,  38],                      //  7
    [  6,  24,  42],                      //  8
    [  6,  26,  46],                      //  9
    [  6,  28,  50],                      // 10
    [  6,  30,  54],                      // 11
    [  6,  32,  58],                      // 12
    [  6,  34,  62],                      // 13
    [  6,  26,  46,  66],                 // 14
    [  6,  26,  48,  70],                 // 15
    [  6,  26,  50,  74],                 // 16
    [  6,  30,  54,  78],                 // 17
    [  6,  30,  56,  82],                 // 18
    [  6,  30,  58,  86],                 // 19
    [  6,  34,  62,  90],                 // 20
    [  6,  28,  50,  72,  94],            // 21
    [  6,  26,  50,  74,  98],            // 22
    [  6,  30,  54,  78, 102],            // 23
    [  6,  28,  54,  80, 106],            // 24
    [  6,  32,  58,  84, 110],            // 25
    [  6,  30,  58,  86, 114],            // 26
    [  6,  34,  62,  90, 118],            // 27
    [  6,  26,  50,  74,  98, 122],       // 28
    [  6,  30,  54,  78, 102, 126],       // 29
    [  6,  26,  52,  78, 104, 130],       // 30
    [  6,  30,  56,  82, 108, 134],       // 31
    [  6,  34,  60,  86, 112, 138],       // 32
    [  6,  30,  58,  86, 114, 142],       // 33
    [  6,  34,  62,  90, 118, 146],       // 34
    [  6,  30,  54,  78, 102, 126, 150],  // 35
    [  6,  24,  50,  76, 102, 128, 154],  // 36
    [  6,  28,  54,  80, 106, 132, 158],  // 37
    [  6,  32,  58,  84, 110, 136, 162],  // 38
    [  6,  26,  54,  82, 110, 138, 166],  // 39
    [  6,  30,  58,  86, 114, 142, 170]   // 40
  ];

  // 形式情報
  format_info = [
  //          Level + Mask BCH 符号(マスク前)
    [0x77c4,   // L + 000  0x23d6
     0x72f3,   // L + 001  0x26e1
     0x7daa,   // L + 010  0x29b8
     0x789d,   // L + 011  0x2c8f
     0x662f,   // L + 100  0x323d
     0x6318,   // L + 101  0x370a
     0x6c41,   // L + 110  0x3853
     0x6976],  // L + 111  0x3d64
    [0x5412,   // M + 000  0x0000
     0x5125,   // M + 001  0x0537
     0x5e7c,   // M + 010  0x0a6e
     0x5b4b,   // M + 011  0x0f59
     0x45f9,   // M + 100  0x11eb
     0x40ce,   // M + 101  0x14dc
     0x4f97,   // M + 110  0x1b85
     0x4aa0],  // M + 111  0x1eb2
    [0x355f,   // Q + 000  0x614d
     0x3068,   // Q + 001  0x647a
     0x3f31,   // Q + 010  0x6b23
     0x3a06,   // Q + 011  0x6e14
     0x24b4,   // Q + 100  0x70a6
     0x2183,   // Q + 101  0x7591
     0x2eda,   // Q + 110  0x7ac8
     0x2bed],  // Q + 111  0x7fff
    [0x1689,   // H + 000  0x429b
     0x13be,   // H + 001  0x47ac
     0x1ce7,   // H + 010  0x48f5
     0x19d0,   // H + 011  0x4dc2
     0x0762,   // H + 100  0x5370
     0x0255,   // H + 101  0x5647
     0x0d0c,   // H + 110  0x591e
     0x083b]   // H + 111  0x5c29
  ];

  // 型番情報
  //                           型番
  version_info = [0x07c94,   //  7
                  0x085bc,   //  8
                  0x09a99,   //  9
                  0x0a4d3,   // 10
                  0x0bbf6,   // 11
                  0x0c762,   // 12
                  0x0d847,   // 13
                  0x0e60d,   // 14
                  0x0f928,   // 15
                  0x10b78,   // 16
                  0x1145d,   // 17
                  0x12a17,   // 18
                  0x13532,   // 19
                  0x149a6,   // 20
                  0x15683,   // 21
                  0x168c9,   // 22
                  0x177ec,   // 23
                  0x18ec4,   // 24
                  0x191e1,   // 25
                  0x1afab,   // 26
                  0x1b08e,   // 27
                  0x1cc1a,   // 28
                  0x1d33f,   // 29
                  0x1ed75,   // 30
                  0x1f250,   // 31
                  0x209d5,   // 32
                  0x216f0,   // 33
                  0x228ba,   // 34
                  0x2379f,   // 35
                  0x24b0b,   // 36
                  0x2542e,   // 37
                  0x26a64,   // 38
                  0x27541,   // 39
                  0x28c69];  // 40

  exp_n = new Array();  // α指数 → 数値 変換テーブル
  exp_n.length = 255;
  n_exp = new Array();  // 数値 → α指数 変換テーブル([0] は使用しない)
  n_exp.length = 256;
  // α指数 ― 数値 変換テーブル作成
  n = 0x01;
  for(i = 0; i < 255; i++) {
    exp_n[i] = n;
    n_exp[n] = i;

    n <<= 1;
    if(n & 0x100)
      n = n & 0xff ^ 0x1d;
  }

  module1 = new Array();  // シンボル領域
  module1.length = MAX_MOD;
  module2 = new Array();  // マスク後シンボル領域
  module2.length = MAX_MOD;
  for(i = 0; i < MAX_MOD; i++) {
    module1[i] = new Array();
    module1[i].length = MAX_MOD;
    module2[i] = new Array();
    module2[i].length = MAX_MOD;
  }

  elem_cd_tgt = document.getElementById("cd_tgt");

//-->
</SCRIPT>

</BODY>

</HTML>