public function generateImage($dataString, $ecc = 'M', $version = 0, $structure_n = NULL, $structure_m = NULL, $parity = NULL, $originaldata = NULL)
{
$dataString = rawurldecode($dataString);
$data_length = strlen($dataString);
if ($data_length <= 0) {
trigger_error("QRcode : Empty data string.", E_USER_ERROR);
exit;
}
$data_counter = 0;
if ($structure_n > 1 && $structure_n <= 16 && $structure_m > 0 && $structure_m <= 16) {
$data_value[0] = 3;
$data_bits[0] = 4;
$data_value[1] = $structure_m - 1;
$data_bits[1] = 4;
$data_value[2] = $structure_n - 1;
$data_bits[2] = 4;
$originaldata_length = strlen($originaldata);
if ($originaldata_length > 1) {
$parity = 0;
$i = 0;
while ($i < $originaldata_length) {
$parity = $parity ^ ord(substr($originaldata, $i, 1));
$i++;
}
}
$data_value[3] = $parity;
$data_bits[3] = 8;
$data_counter = 4;
}
$data_bits[$data_counter] = 4;
/* --- determine encode mode */
if (preg_match('/[^0-9]/', dataString)) {
if (preg_match('#[^0-9A-Z $*%+\\-./:]#', $dataString)) {
/* --- 8bit byte mode */
$codeword_num_plus = array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8);
$data_value[$data_counter] = 4;
$data_counter++;
$data_value[$data_counter] = $data_length;
$data_bits[$data_counter] = 8;
/* #version 1-9 */
$codeword_num_counter_value = $data_counter;
$data_counter++;
$i = 0;
while ($i < $data_length) {
$data_value[$data_counter] = ord(substr($dataString, $i, 1));
$data_bits[$data_counter] = 8;
$data_counter++;
$i++;
}
} else {
/* ---- alphanumeric mode */
$codeword_num_plus = array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4);
$data_value[$data_counter] = 2;
$data_counter++;
$data_value[$data_counter] = $data_length;
$data_bits[$data_counter] = 9;
/* #version 1-9 */
$codeword_num_counter_value = $data_counter;
$alphanumeric_character_hash = array("0" => 0, "1" => 1, "2" => 2, "3" => 3, "4" => 4, "5" => 5, "6" => 6, "7" => 7, "8" => 8, "9" => 9, "A" => 10, "B" => 11, "C" => 12, "D" => 13, "E" => 14, "F" => 15, "G" => 16, "H" => 17, "I" => 18, "J" => 19, "K" => 20, "L" => 21, "M" => 22, "N" => 23, "O" => 24, "P" => 25, "Q" => 26, "R" => 27, "S" => 28, "T" => 29, "U" => 30, "V" => 31, "W" => 32, "X" => 33, "Y" => 34, "Z" => 35, " " => 36, "\$" => 37, "%" => 38, "*" => 39, "+" => 40, "-" => 41, "." => 42, "/" => 43, ":" => 44);
$i = 0;
$data_counter++;
while ($i < $data_length) {
if ($i % 2 == 0) {
$data_value[$data_counter] = $alphanumeric_character_hash[substr($dataString, $i, 1)];
$data_bits[$data_counter] = 6;
} else {
$data_value[$data_counter] = $data_value[$data_counter] * 45 + $alphanumeric_character_hash[substr($dataString, $i, 1)];
$data_bits[$data_counter] = 11;
$data_counter++;
}
$i++;
}
}
} else {
/* ---- numeric mode */
$codeword_num_plus = array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4);
$data_value[$data_counter] = 1;
$data_counter++;
$data_value[$data_counter] = $data_length;
$data_bits[$data_counter] = 10;
/* #version 1-9 */
$codeword_num_counter_value = $data_counter;
$i = 0;
$data_counter++;
while ($i < $data_length) {
if ($i % 3 == 0) {
$data_value[$data_counter] = substr($dataString, $i, 1);
$data_bits[$data_counter] = 4;
} else {
$data_value[$data_counter] = $data_value[$data_counter] * 10 + substr($dataString, $i, 1);
if ($i % 3 == 1) {
$data_bits[$data_counter] = 7;
} else {
$data_bits[$data_counter] = 10;
$data_counter++;
}
}
$i++;
}
}
if (@$data_bits[$data_counter] > 0) {
$data_counter++;
}
$i = 0;
$total_data_bits = 0;
while ($i < $data_counter) {
$total_data_bits += $data_bits[$i];
$i++;
}
$ecc_character_hash = array("L" => "1", "l" => "1", "M" => "0", "m" => "0", "Q" => "3", "q" => "3", "H" => "2", "h" => "2");
$ec = @$ecc_character_hash[$ecc];
if (!$ec) {
$ec = 0;
}
$max_data_bits_array = array(0, 128, 224, 352, 512, 688, 864, 992, 1232, 1456, 1728, 2032, 2320, 2672, 2920, 3320, 3624, 4056, 4504, 5016, 5352, 5712, 6256, 6880, 7312, 8000, 8496, 9024, 9544, 10136, 10984, 11640, 12328, 13048, 13800, 14496, 15312, 15936, 16816, 17728, 18672, 152, 272, 440, 640, 864, 1088, 1248, 1552, 1856, 2192, 2592, 2960, 3424, 3688, 4184, 4712, 5176, 5768, 6360, 6888, 7456, 8048, 8752, 9392, 10208, 10960, 11744, 12248, 13048, 13880, 14744, 15640, 16568, 17528, 18448, 19472, 20528, 21616, 22496, 23648, 72, 128, 208, 288, 368, 480, 528, 688, 800, 976, 1120, 1264, 1440, 1576, 1784, 2024, 2264, 2504, 2728, 3080, 3248, 3536, 3712, 4112, 4304, 4768, 5024, 5288, 5608, 5960, 6344, 6760, 7208, 7688, 7888, 8432, 8768, 9136, 9776, 10208, 104, 176, 272, 384, 496, 608, 704, 880, 1056, 1232, 1440, 1648, 1952, 2088, 2360, 2600, 2936, 3176, 3560, 3880, 4096, 4544, 4912, 5312, 5744, 6032, 6464, 6968, 7288, 7880, 8264, 8920, 9368, 9848, 10288, 10832, 11408, 12016, 12656, 13328);
/* #--- auto version select */
if (!$version) {
$i = 1 + 40 * $ec;
$j = $i + 39;
$version = 1;
while ($i <= $j) {
if ($max_data_bits_array[$i] >= $total_data_bits + $codeword_num_plus[$version]) {
$max_data_bits = $max_data_bits_array[$i];
break;
}
$i++;
$version++;
}
} else {
$max_data_bits = $max_data_bits_array[$version + 40 * $ec];
}
if ($version > $this->versionUpperLimit) {
trigger_error("QRcode : too large version.", E_USER_ERROR);
}
$total_data_bits += $codeword_num_plus[$version];
$data_bits[$codeword_num_counter_value] += $codeword_num_plus[$version];
$max_codewords_array = array(0, 26, 44, 70, 100, 134, 172, 196, 242, 292, 346, 404, 466, 532, 581, 655, 733, 815, 901, 991, 1085, 1156, 1258, 1364, 1474, 1588, 1706, 1828, 1921, 2051, 2185, 2323, 2465, 2611, 2761, 2876, 3034, 3196, 3362, 3532, 3706);
$max_codewords = $max_codewords_array[$version];
$max_modules_1side = 17 + ($version << 2);
$matrix_remain_bit = array(0, 0, 7, 7, 7, 7, 7, 0, 0, 0, 0, 0, 0, 0, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3, 0, 0, 0, 0, 0, 0);
/* ---- read version ECC data file */
$byte_num = $matrix_remain_bit[$version] + ($max_codewords << 3);
$filename = $this->dataPath . "/qrv" . $version . "_" . $ec . ".dat";
$fp1 = fopen($filename, "rb");
$matx = fread($fp1, $byte_num);
$maty = fread($fp1, $byte_num);
$masks = fread($fp1, $byte_num);
$fi_x = fread($fp1, 15);
$fi_y = fread($fp1, 15);
$rs_ecc_codewords = ord(fread($fp1, 1));
$rso = fread($fp1, 128);
fclose($fp1);
$matrix_x_array = unpack("C*", $matx);
$matrix_y_array = unpack("C*", $maty);
$mask_array = unpack("C*", $masks);
$rs_block_order = unpack("C*", $rso);
$format_information_x2 = unpack("C*", $fi_x);
$format_information_y2 = unpack("C*", $fi_y);
$format_information_x1 = array(0, 1, 2, 3, 4, 5, 7, 8, 8, 8, 8, 8, 8, 8, 8);
$format_information_y1 = array(8, 8, 8, 8, 8, 8, 8, 8, 7, 5, 4, 3, 2, 1, 0);
$max_data_codewords = $max_data_bits >> 3;
$filename = $this->dataPath . "/rsc" . $rs_ecc_codewords . ".dat";
$fp0 = fopen($filename, "rb");
$i = 0;
while ($i < 256) {
$rs_cal_table_array[$i] = fread($fp0, $rs_ecc_codewords);
$i++;
}
fclose($fp0);
/* --- set terminator */
if ($total_data_bits <= $max_data_bits - 4) {
$data_value[$data_counter] = 0;
$data_bits[$data_counter] = 4;
} else {
if ($total_data_bits < $max_data_bits) {
$data_value[$data_counter] = 0;
$data_bits[$data_counter] = $max_data_bits - $total_data_bits;
} else {
if ($total_data_bits > $max_data_bits) {
if ($version < $this->versionUpperLimit) {
return $this->generateImage($dataString, $ecc, $version + 1, $structure_n, $structure_m, $parity, $originaldata);
} else {
trigger_error("QRcode : Overflow error", E_USER_ERROR);
exit;
}
}
}
}
/* ----divide data by 8bit */
$i = 0;
$codewords_counter = 0;
$codewords[0] = 0;
$remaining_bits = 8;
while ($i <= $data_counter) {
$buffer = @$data_value[$i];
$buffer_bits = @$data_bits[$i];
$flag = 1;
while ($flag) {
if ($remaining_bits > $buffer_bits) {
$codewords[$codewords_counter] = @$codewords[$codewords_counter] << $buffer_bits | $buffer;
$remaining_bits -= $buffer_bits;
$flag = 0;
} else {
$buffer_bits -= $remaining_bits;
$codewords[$codewords_counter] = $codewords[$codewords_counter] << $remaining_bits | $buffer >> $buffer_bits;
if ($buffer_bits == 0) {
$flag = 0;
} else {
$buffer = $buffer & (1 << $buffer_bits) - 1;
$flag = 1;
}
$codewords_counter++;
if ($codewords_counter < $max_data_codewords - 1) {
$codewords[$codewords_counter] = 0;
}
$remaining_bits = 8;
}
}
$i++;
}
if ($remaining_bits != 8) {
$codewords[$codewords_counter] = $codewords[$codewords_counter] << $remaining_bits;
} else {
$codewords_counter--;
}
/* ---- set padding character */
if ($codewords_counter < $max_data_codewords - 1) {
$flag = 1;
while ($codewords_counter < $max_data_codewords - 1) {
$codewords_counter++;
if ($flag == 1) {
$codewords[$codewords_counter] = 236;
} else {
$codewords[$codewords_counter] = 17;
}
$flag = $flag * -1;
}
}
/* ---- RS-ECC prepare */
$i = 0;
$j = 0;
$rs_block_number = 0;
$rs_temp[0] = "";
while ($i < $max_data_codewords) {
$rs_temp[$rs_block_number] .= chr($codewords[$i]);
$j++;
if ($j >= $rs_block_order[$rs_block_number + 1] - $rs_ecc_codewords) {
$j = 0;
$rs_block_number++;
$rs_temp[$rs_block_number] = "";
}
$i++;
}
/*
#
# RS-ECC main
#
*/
$rs_block_number = 0;
$rs_block_order_num = count($rs_block_order);
while ($rs_block_number < $rs_block_order_num) {
$rs_codewords = $rs_block_order[$rs_block_number + 1];
$rs_data_codewords = $rs_codewords - $rs_ecc_codewords;
$rstemp = $rs_temp[$rs_block_number] . str_repeat(chr(0), $rs_ecc_codewords);
$padding_data = str_repeat(chr(0), $rs_data_codewords);
$j = $rs_data_codewords;
while ($j > 0) {
$first = ord(substr($rstemp, 0, 1));
if ($first) {
$left_chr = substr($rstemp, 1);
$cal = $rs_cal_table_array[$first] . $padding_data;
$rstemp = $left_chr ^ $cal;
} else {
$rstemp = substr($rstemp, 1);
}
$j--;
}
$codewords = array_merge($codewords, unpack("C*", $rstemp));
$rs_block_number++;
}
/* ---- flash matrix */
$i = 0;
while ($i < $max_modules_1side) {
$j = 0;
while ($j < $max_modules_1side) {
$matrix_content[$j][$i] = 0;
$j++;
}
$i++;
}
/* --- attach data */
$i = 0;
while ($i < $max_codewords) {
$codeword_i = $codewords[$i];
$j = 8;
while ($j >= 1) {
$codeword_bits_number = ($i << 3) + $j;
$matrix_content[$matrix_x_array[$codeword_bits_number]][$matrix_y_array[$codeword_bits_number]] = 255 * ($codeword_i & 1) ^ $mask_array[$codeword_bits_number];
$codeword_i = $codeword_i >> 1;
$j--;
}
$i++;
}
$matrix_remain = $matrix_remain_bit[$version];
while ($matrix_remain) {
$remain_bit_temp = $matrix_remain + ($max_codewords << 3);
$matrix_content[$matrix_x_array[$remain_bit_temp]][$matrix_y_array[$remain_bit_temp]] = 255 ^ $mask_array[$remain_bit_temp];
$matrix_remain--;
}
#--- mask select
$min_demerit_score = 0;
$hor_master = "";
$ver_master = "";
$k = 0;
while ($k < $max_modules_1side) {
$l = 0;
while ($l < $max_modules_1side) {
$hor_master = $hor_master . chr($matrix_content[$l][$k]);
$ver_master = $ver_master . chr($matrix_content[$k][$l]);
$l++;
}
$k++;
}
$i = 0;
$all_matrix = $max_modules_1side * $max_modules_1side;
while ($i < 8) {
$demerit_n1 = 0;
$ptn_temp = array();
$bit = 1 << $i;
$bit_r = ~$bit & 255;
$bit_mask = str_repeat(chr($bit), $all_matrix);
$hor = $hor_master & $bit_mask;
$ver = $ver_master & $bit_mask;
$ver_shift1 = $ver . str_repeat(chr(170), $max_modules_1side);
$ver_shift2 = str_repeat(chr(170), $max_modules_1side) . $ver;
$ver_shift1_0 = $ver . str_repeat(chr(0), $max_modules_1side);
$ver_shift2_0 = str_repeat(chr(0), $max_modules_1side) . $ver;
$ver_or = chunk_split(~($ver_shift1 | $ver_shift2), $max_modules_1side, chr(170));
$ver_and = chunk_split(~($ver_shift1_0 & $ver_shift2_0), $max_modules_1side, chr(170));
$hor = chunk_split(~$hor, $max_modules_1side, chr(170));
$ver = chunk_split(~$ver, $max_modules_1side, chr(170));
$hor = $hor . chr(170) . $ver;
$n1_search = "/" . str_repeat(chr(255), 5) . "+|" . str_repeat(chr($bit_r), 5) . "+/";
$n3_search = chr($bit_r) . chr(255) . chr($bit_r) . chr($bit_r) . chr($bit_r) . chr(255) . chr($bit_r);
$demerit_n3 = substr_count($hor, $n3_search) * 40;
$demerit_n4 = floor(abs((100 * (substr_count($ver, chr($bit_r)) / $byte_num) - 50) / 5)) * 10;
$n2_search1 = "/" . chr($bit_r) . chr($bit_r) . "+/";
$n2_search2 = "/" . chr(255) . chr(255) . "+/";
$demerit_n2 = 0;
preg_match_all($n2_search1, $ver_and, $ptn_temp);
foreach ($ptn_temp[0] as $str_temp) {
$demerit_n2 += strlen($str_temp) - 1;
}
$ptn_temp = array();
preg_match_all($n2_search2, $ver_or, $ptn_temp);
foreach ($ptn_temp[0] as $str_temp) {
$demerit_n2 += strlen($str_temp) - 1;
}
$demerit_n2 *= 3;
$ptn_temp = array();
preg_match_all($n1_search, $hor, $ptn_temp);
foreach ($ptn_temp[0] as $str_temp) {
$demerit_n1 += strlen($str_temp) - 2;
}
$demerit_score = $demerit_n1 + $demerit_n2 + $demerit_n3 + $demerit_n4;
if ($demerit_score <= $min_demerit_score || $i == 0) {
$mask_number = $i;
$min_demerit_score = $demerit_score;
}
$i++;
}
$mask_content = 1 << $mask_number;
# --- format information
$format_information_value = $ec << 3 | $mask_number;
$format_information_array = array("101010000010010", "101000100100101", "101111001111100", "101101101001011", "100010111111001", "100000011001110", "100111110010111", "100101010100000", "111011111000100", "111001011110011", "111110110101010", "111100010011101", "110011000101111", "110001100011000", "110110001000001", "110100101110110", "001011010001001", "001001110111110", "001110011100111", "001100111010000", "000011101100010", "000001001010101", "000110100001100", "000100000111011", "011010101011111", "011000001101000", "011111100110001", "011101000000110", "010010010110100", "010000110000011", "010111011011010", "010101111101101");
$i = 0;
while ($i < 15) {
$content = substr($format_information_array[$format_information_value], $i, 1);
$matrix_content[$format_information_x1[$i]][$format_information_y1[$i]] = $content * 255;
$matrix_content[$format_information_x2[$i + 1]][$format_information_y2[$i + 1]] = $content * 255;
$i++;
}
$mib = $max_modules_1side + 8;
$this->imagePath = $this->imagePath . "/qrv" . $version . ".png";
$image = new \Imagick($this->imagePath);
$draw = new \ImagickDraw();
if ($this->fillColor != "black") {
$clut = new \Imagick();
$clut->newImage(1, 1, new \ImagickPixel($this->fillColor));
$image->clutImage($clut);
$clut->destroy();
unset($clut);
}
$draw->setFillColor(new \ImagickPixel($this->fillColor));
$draw->setStrokeColor(new \ImagickPixel($this->strokeColor));
$i = 4;
$mxe = 4 + $max_modules_1side;
$ii = 0;
while ($i < $mxe) {
$j = 4;
$jj = 0;
while ($j < $mxe) {
if ($matrix_content[$ii][$jj] & $mask_content) {
$draw->point($i, $j);
}
$j++;
$jj++;
}
$i++;
$ii++;
}
$image->drawImage($draw);
if ($this->blockImage) {
$blockSize = $this->blockImage->getImageWidth();
$image->resizeImage($mib * $blockSize, $mib * $blockSize, \Imagick::FILTER_POINT, 1);
$testPixel = new \ImagickPixel($this->fillColor);
for ($x = 0; $x < $image->getImageWidth(); $x += $blockSize) {
for ($y = 0; $y < $image->getImageHeight(); $y += $blockSize) {
if ($testPixel->isSimilar($image->getImagePixelColor($x, $y), 1)) {
$image->compositeImage($this->blockImage, $this->overlayBlockImage ? \Imagick::COMPOSITE_OVER : \Imagick::COMPOSITE_REPLACE, $x, $y);
}
}
}
}
$geo = $image->getImageGeometry();
if (!empty($this->width) && $geo['width'] <= $this->width) {
if (!$this->width) {
$this->width = 0;
} else {
if ($this->width < $image->getImageWidth()) {
$this->width = $image->getImageWidth();
}
}
$remaining_pixels = $this->width % $geo['width'];
$fit_width = $this->width - $remaining_pixels;
$image->resizeImage($fit_width, $fit_width, \Imagick::FILTER_POINT, 1);
//FILTER_POINT
$tmp = new \Imagick();
$tmp->newImage($this->width, $this->width, 'none', 'png');
$tmp->compositeImage($image, \Imagick::COMPOSITE_OVER, floor($remaining_pixels / 2), floor($remaining_pixels / 2));
$image->destroy();
$image =& $tmp;
}
return $image;
}
