<?php
# TokigunStudio Text2PNG by Kang Seonghoon <tokigun@gmail.com>

error_reporting(0);
extract($_GET);

$DATA = array(
	'',
	'',
	'pJhD50QC4Qio',
	'VFEYhhSqXEc4Xzfc7j4Z4/z/z4e8Yx4nPHPH/hjEYx/IRBIBkLDCSA',
	'VFPkiRScIMWRiaCAxiBQCgjIoRQghChlGPFFFFFAkMYjGIYiUgGQEMJI',
	'T+koSIaiFEgQqhAUYpBjAzlKMEMIQQoaRVpgxgxQJDGIqUKIoned7u/3l7ed59fxjJjHySA',
	'RSjIMoSCFEgjS94TopGP4YqSl6CH34P0OIq0wYwYnEhUqiKJEYIYxGMjG0yYxjHRIxkqiJJGIA',
	'RRwTSof/USED8MSReAgAAUpKUYIYQnhQ4iTLB9B8CSFSqIQkRfGI/kY3GTGMYzJFVUiixHJA',
	'X4oUxIRCiRARBiSIQDH8MlJ/jBDCEMKGkSZYMIMgSQqVSiIiMYxGEjG0yYxjGHIqqkUhJIw',
	'CgokxoRCSiSERRiiIkgxgJ9DFCKEEYUMogxooIogkhIRIkhCYxiMZGNlkxjGMGRIiUSCSA',
	'SjwjOUhCUc77hOchzEgKBEBD4/z8D4f0fgxnIHIfEeIRIk/CX+d7o+Njkxd585vIiiTySA',
	'IkojwEhIWAUEkA',
	'IZJAf/7qAUCo-',
	''
);
$INDEX =
	'kMMOucMW?GM]MWu_?C?CgoMkCOcsQG?CMSMSMSMSMSMSMSMSMSMSMwA?Mk]K'.
	'MkMQG?MUMSMUMUMSMSMUMUMOMQMSMQMWMUMWMS?_MUMSMSMUMSM[MSMSMS?C'.
	'E_?CiGEQ}CM{M?MyM?M{K{ACM?MK?UM?KwO?M{M{ACACMwMyMOM{M{O?M{AC'.
	'My?E?C?E]K';

function pngchunk($type, $data) {
	return
		pack('N', strlen($data)).
		$type.$data.
		pack('N', crc32($type.$data));
}

$data = array();
for($i=0; $i<14; $i++) {
	$str = base64_decode($DATA[$i]);
	for($j=0; $j<strlen($str); $j++)
		$data[$i] .= sprintf('%08b', ord($str{$j}));
}

$fontarr = array();
$dataptr = array();
for($i=0; $i<190; $i+=2) {
	$value = (((ord($INDEX{$i})-63) >> 1) << 5) +
	         ((ord($INDEX{$i+1})-63) >> 1);
	$uomit = ($value / 10) % 11 + 2;
	$lomit = ($value / 110) % 10 + 1;
	$width = $value % 10 + 1;
	$omitstr = str_repeat('0', $width);
	$font = array();
	for($j=0; $j<14; $j++)
		if($j<$uomit || 13-$lomit<$j) {
			$font[$j] = $omitstr;
		} else {
			$font[$j] = substr($data[$j], $dataptr[$j], $width);
			$dataptr[$j] += $width;
		}
	$fontarr[] = $font;
}

if(get_magic_quotes_gpc())
	$t = stripslashes($t);
switch($e) {
	case 'base64': $t = base64_decode($t); break;
	case 'hex': $t = pack('H*', $t); break;
	case 'rot13': $t = str_rot13($t); break;
	case 'reverse': $t = strrev($t); break;
	default: break;
}
$t = strtr($t, array("\r\n" => "\n", "\r" => "\n"));

$height = $width = 0;
$bitmap = array();
for($i=0; $i<strlen($t); $i++) {
	$char = ord($t{$i});
	if($char == 10) {
		$height += 14;
	} else {
		for($j=0; $j<14; $j++) {
			if(isset($fontarr[$char - 32])) {
				$line = $fontarr[$char - 32][$j] . '0';
			} elseif($j == 0 || $j == 13) {
				$line = '00000000';
			} elseif($j == 1 || $j == 12) {
				$line = '11111110';
			} else {
				$line = '10000010';
			}
			$bitmap[$height + $j] .= $line;
		}
	}
}

$height += 14;
for($i=0; $i<$height; $i++) {
	$rowwidth = strlen($bitmap[$i]);
	if($width < $rowwidth) $width = $rowwidth;
}

$stream = '';
for($i=0; $i<$height; $i++) {
	$char = 0;
	$stream .= "\0";
	for($j=0; $j<$width; $j++) {
		$char = $char * 2 + $bitmap[$i]{$j};
		if($j%8 == 7) {
			$stream .= chr($char);
			$char = 0;
		}
	}
	if($width%8 > 0) {
		$char <<= 8 - $width%8;
		$stream .= chr($char);
	}
}

$adler1 = 1; $adler2 = 0;
$result = '';
$length = strlen($stream);
for($i=0; $i<$length; $i+=4096) {
	$block = substr($stream, $i, 4096);
	if($i+4096 < $length) {
		$result .= '010';
	} else {
		$result .= '110';
	}
	
	for($j=0; $j<strlen($block); $j++) {
		$char = ord($block{$j});
		$adler1 += $char;
		$adler2 += $adler1;
		if($char < 144) {
			$code = 0x30 + $char;
			$codelen = 8;
		} else {
			$code = 0x100 + $char;
			$codelen = 9;
		}
		for($k=$codelen-1; $k>=0; $k--) {
			$result .= ($code >> $k) & 1 ? '1' : '0';
		}
	}
	
	$adler1 %= 65521;
	$adler2 %= 65521;
	$result .= '0000000';
}

$length = strlen($result);
$chunk = '';
for($i=0; $i<$length; ) {
	$char = 0;
	for($j=0; $i<$length && $j<8; $i++, $j++) {
		$char |= $result{$i} << $j;
	}
	$chunk .= chr($char);
}
$chunk = "\x78\x01" . $chunk . pack('nn', $adler2, $adler1);

header("Content-Type: image/png");
if(!$b) $b = '255,255,255';
$b = split(',', "$b,0");
if(!$f) $f = '0,0,0';
$f = split(',', "$f,255");

echo "\x89PNG\r\n\x1a\n";
echo pngchunk('IHDR', pack('NNCCCCC', $width, $height, 1, 3, 0, 0, 0));
echo pngchunk('PLTE', pack('CCCCCC', $b[0], $b[1], $b[2], $f[0], $f[1], $f[2]));
echo pngchunk('tRNS', pack('CC', $b[3], $f[3]));
echo pngchunk('IDAT', $chunk);
echo pngchunk('IEND', '');
?>