<?php
# text2png by tokigun
# 설명 버전 (나도 헷갈리니 뭘 물어 보질 말자.)

# 이 코드는 E_NOTICE 에러를 내뱉기 때문에 이걸 미리 설정해 둬야 한다.
error_reporting(0);
# register_global=Off일 경우를 대비하기 위함...
extract($_GET);

# $B: 실제 글꼴 데이터.
# 예를 들어서 세 개의 연속된 글자가 있다고 하자:
#   ..O.. .... ...
#   ..O.. .... .O.
#   OOOOO OOOO ...
#   ..O.. .... .O.
#   ..O.. .... OOO
# 이제 여기서 위/아래의 쓸데 없는 공백을 제거한다.
#   ..O..         
#   ..O..      .O.
#   OOOOO OOOO ...
#   ..O..      .O.
#   ..O..      OOO
# 이제 실제로 저장해야 할 데이터는 다음과 같다:
#   ..O..
#   ..O...O.
#   OOOOOOOOO...
#   ..O...O.
#   ..O..OOO
# $B는 이러한 식으로 실제로 필요한 데이터만을 저장한다.
# 물론 생략한 줄 수를 저장해야 하는데 이건 $R에 저장된다.
# (덤: php의 base64_decode 함수는 개행문자는 무시하고 디코딩한다 :)
$B=split('-','--pJhD50QC4Qio-VFEYhhSqXEc
4Xzfc7j4Z4/z/z4e8Yx4nPHPH/hjEYx/IRBIBkLDCSA-VFPkiRScIMWRiaCAxiBQCgjIoRQghChlGPFF
FFFAkMYjGIYiUgGQEMJI-T+koSIaiFEgQqhAUYpBjAzlKMEMIQQoaRVpgxgxQJDGIqUKIoned7u/3l7e
d59fxjJjHySA-RSjIMoSCFEgjS94TopGP4YqSl6CH34P0OIq0wYwYnEhUqiKJEYIYxGMjG0yYxjHRIxk
qiJJGIA-RRwTSof/USED8MSReAgAAUpKUYIYQnhQ4iTLB9B8CSFSqIQkRfGI/kY3GTGMYzJFVUiixHJA
-X4oUxIRCiRARBiSIQDH8MlJ/jBDCEMKGkSZYMIMgSQqVSiIiMYxGEjG0yYxjGHIqqkUhJIw-CgokxoR
CSiSERRiiIkgxgJ9DFCKEEYUMogxooIogkhIRIkhCYxiMZGNlkxjGMGRIiUSCSA-SjwjOUhCUc77hOch
zEgKBEBD4/z8D4f0fgxnIHIfEeIRIk/CX+d7o+Njkxd585vIiiTySA-IkojwEhIWAUEkA-IZJAf/7qAU
Co-');

# $R: 2바이트씩 끊어서 총 95개(32~126)의 글자 정보를 저장한다.
# 첫 글자가 a, 둘째 글자가 b일 경우 글자 정보를 나타내는 숫자는 다음과 같다:
#   v = ((a-63)/2)<<5 + ((b-63)/2)
# v에는 글자 가로 크기 w, 위 아래에서 생략된 줄 수인 a와 b가 저장되며
# 그 관계는 다음과 같다:
#   v = (w-2) + (a-2)*10 + (b-1)*110
# 이건 그냥 바로 써야 하는 거니까 개행문자 들어 가면 안 된다...
$R='kMMOucMW?GM]MWu_?C?CgoMkCOcsQG?CMSMSMSMSMSMSMSMSMSMSMwA?Mk]KMkMQG?MU'.
'MSMUMUMSMSMUMUMOMQMSMQMWMUMWMS?_MUMSMSMUMSM[MSMSMS?CE_?CiGEQ}CM{M?MyM?M{K{ACM'.
'?MK?UM?KwO?M{M{ACACMwMyMOM{M{O?M{ACMy?E?C?E]K';

# T($t,$d): chunk type이 $t, chunk data가 $d인 PNG 파일의 chunk를 반환한다.
function T($t,$d){return pack(N,strlen($d)).$t.$d.pack(N,crc32($t.$d));}

# 이왕 쓸 거 죄다 초기화
# $A: 각 글자별 글꼴 데이터
# $g: 지금까지 $o에서 얼마나 읽었는 지 알려 줌.
# $o: 글꼴 초기화 중에 사용하는 임시 배열
# $r: 한참 아래에 나오니까 조금 기다리시라.
$A=$g=$o=$r=array();

# $B에 있는 데이터를 비트 문자열($o)로 변환한다. ($i=0..13)
for($i=14;--$i;$j=0)
	# base64 인코딩으로 저장된 $B[$i]를 변환해서 $s에 넣고
	# 각 글자 별로 비트로 변환한다.
	for($s=base64_decode($B[$i]);$j<strlen($s);$j++)
		# %b는 찾아 보면 나오니까 생략
		$o[$i].=sprintf('%08b',ord($s{$j}));

# $R에 있는 데이터를 읽어서 각 문자 별로 분리한다.
for(;$i<190;$i+=2){
	# 위에 있는 식을 조금 정리한 버전
	# 실제 결과는 float으로 나오지만 어차피 다 % 연산을 거치면서 정수가 된다.
	$v=ord($R{$i})*16+ord($R{$i+1})/2-1039;
	$a=($v/10)%11+2; # 위에서 생략된 줄 수
	$h=($v/110)%10+1; # 아래에서 생략된 줄 수
	$q=array(); # 현재 문자 데이터가 들어 갈 배열
	$l=$v%10+1; # 글자 폭 (실제로는 자간이 1px 들어 간다만)
	$u=str_repeat(0,$l); # 생략된 줄에 대신 채워 넣을 비트 문자열
	# 14줄에 대해 반복
	for($j=0;$j<14;$j++)
		if($j<$a||13<$j+$h) # 생략된 줄이라면
			$q[$j]=$u; # $u를 대신 채워 넣는다.
		else{ # 아니면
			# $g[$j]까지 읽었으니까 그 다음부터 $l만큼 읽는다.
			$q[$j]=substr($o[$j],$g[$j],$l);
			# 그리고 읽은 위치를 갱신...
			$g[$j]+=$l;
		}
	# 이제 해당 글자는 다 읽었으니까 저장한다.
	# $A[n]은 ASCII (n+32)의 글꼴 정보를 가리킨다.
	$A[]=$q;
}

# $a/$g: Adler-32 체크섬 계산할 때 쓴다...
# $i: 루프 변수니 미리 초기화
# $h/$w: 이미지의 가로 세로 크기
# $d: IDAT chunk에 들어 갈 내용
$a=1;
$i=$g=$h=$w=0;
$d='';

# 자동으로 \ 붙여 주는 쓸데 없는 기능 확인해서 제거해 준다.
if(get_magic_quotes_gpc())
	$t=stripslashes($t);

# 인코딩 확인해서 디코드한 후 개행문자를 모두 \n로 통일한다.
$t=strtr(
	# 디코딩 과정... str_rot13은 strtr로 처리하기 너무 귀찮아서 썼음.
	$e!=base64?$e!=hex?$e!=rot13?$e!=reverse?$t:strrev($t):str_rot13($t):pack('H*',$t):base64_decode($t),
	# 개행문자 치환 테이블
	array("\r\n"=>"\n","\r"=>"\n"));

# 문자열($t)을 한 글자씩 검사...
while($i<strlen($t))
	# $c: 현재 처리중인 글자 번호 (하는 김에 $i도 늘려 버리자)
	if(($c=ord($t{$i++}))==10) # 만약 개행문자면
		$h+=14; # 그냥 다음 줄로 넘어 간다.
		        # (이 과정에서 $h는 현재 출력중인 줄의 윗쪽 줄 번호)
	else # 아니면
		for($j=0;$j<14;$j++) # 각 줄마다 글꼴 데이터 삽입
			# $r은 줄별 이미지 데이터다. 짐작했다시피...
			$r[$h+$j].=$A[$c-32]? # 글꼴 데이터가 존재하면?
				$A[$c-32][$j].'0': # 글꼴 데이터 삽입('0'은 자간이다.)
				sprintf('%08b',$j%11-1?$j%13?130:0:254);
				# 여기에 대해서는 간단한 설명이 필요한데...
				# 없는 글자는 이렇게 나온다.
				#    0: ........
				#    1: OOOOOOO. --> 이 경우 11111110이 삽입되며
				#    2: O.....O.     해당하는 값은 254이다.
				#   ============
				#   11: O.....O. --> 마찬가지로 10000010이 삽입되며
				#   12: OOOOOOO.     해당하는 값은 130이다.
				#   13: ........ --> 이건 말할 것도 없이 0
				# 이 때 $j%11-1은 $j가 1/12가 아닐 경우를 의미하고,
				# $j%13은 $j가 0/13이 아닐 경우를 의미한다.
				# 130/0/254는 각 경우에 해당하는 이진수 값이다. -_-;

# 실제 이미지 세로 크기를 알려면 14를 더해야 한다. -_-
$h+=14;

# 각 줄 별로 가로 길이를 재서 가장 큰 가로 길이를 이미지 가로 길이로 잡는다.
for($i=0;$i<$h;$w<($v=strlen($r[$i++]))&&($w=$v));
# 물론 이건 for($i=0;$i<$h;$i++) { $v=strlen($r[$i]); if($w<$v) $w=$v; } 와 같다.

# 비트 데이터를 바이너리로 바꾸는 과정...
for($i=0;$i<$h;$i++,$d.=chr($c<<((~$j+1)&7)))
	# 현재 처리중인 scanline을 바이너리로 바꾼다
	for($c=$j=0;$j<$w;
	    # $c는 8번 반복하면서 비트 데이터를 읽어 들이고
	    # 8번 반복한 뒤에 바로 다음 문장에 의해 저장된다.
	    $c=$c*2+$r[$i]{$j++})
		# $j=0,8,16,...일 때 현재 $c를 저장한다.
		# 왜 7,15,23...이 아니냐 하면... png가 좀 이상야릇한 방법을 써서 그런다.
		# 모든 scanline 앞에는 filter type을 나타내는 바이트가 하나 들어 가는데
		# 여기서는 처리하지 않으므로 0이 되어야 한다.
		# 따라서 $j=0일 때 추가되는 바이트는 물론 \0이 된다.
		# 주목할 것은 이 덕분에 $j가 8의 배수라도 마지막에 한 바이트가 저장 안 된다는 것이다-_-
		if($j%8<1){$d.=chr($c);$c=0;}
	# 원래는 이 뒤에 $d.=chr($c<<((~$j+1)&7));이 들어 간다.
	# 만약 $j(즉 $w)가 8의 배수였다면 현재 상태에서 그냥 집어 넣으면 된다.
	# 아니라면, 앞으로 8-($j%8)번 반복해야 하므로 그만큼 shift해 준다.
	# (~$j+1)&7이라는 것은 이러한 경우를 다 고려한 간단한 식-_-으로
	# 직접 테스트해 보면 다음 값을 얻을 수 있을 것이다.
	#            $j:  0  1  2  3  4  5  6  7
	#   쉬프트 횟수:  0  7  6  5  4  3  2  1

# 데이터 압축 (정말?)
# $o: 뒤에 나온다...
# $r: 압축 결과를 비트 데이터로 집어 넣는다. (비트 연산하기 너무 귀찮았음)
# $l: 당연히 압축할 데이터 길이
$o=$r='';$l=strlen($d);
# 이 for 문이 한 번 돌면 4096바이트가 처리된 것이다.
for($i=0;$i<$l;$r.='0000000'){
	# 이번 for 문에서 처리할 문자들을 긁어서 $s에 저장한다.
	# 4096바이트를 긁어 내지만 실제로는 더 적을 수도 있다.
	$s=substr($d,$i,4096);
	# $i에 4096을 더하고 $l과 비교해서 마지막 루프인 지 확인.
	# 그 결과 가지고 헤더비트 3비트를 넣어 준다.
	# 01(10이 아닌 이유는 뒤집혀 저장되기 때문에)은
	# fixed huffman coding을 나타낸다.
	$r.=($i+=4096)<$l?'010':110;
	# (가짜) 압축 과정
	for($j=0;$j<strlen($s);$j++){
		# Adler-32 체크섬을 구하기 위한 과정.
		# $c=ord($s{$j}); $a+=$c; $g+=$a;와 같음.
		$g+=$a+=$c=ord($s{$j});
		# fixed huffman coding 방식대로 코드를 고친다
		# (144 이상이면 0x100 더해서 9비트, 아니면 0x30 더해서 8비트)
		$c+=$c<144?48:256;
		# 144 이상이었다면 0x100보다 당연히 크니 $c만으로 비트수를 알 수 있다.
		# $r에다가 해당되는 비트들을 순서대로 집어 넣는 과정
		for($n=8|$c>>8;$n--;$r.=($c>>$n)&1);
	}
	# Adler-32 체크섬 구하는 과정...
	# 4096바이트 기준으로 집어 넣는 이유는 매우 간단하다.
	# 압축할 문자열이 죄다 \xff로만 되어 있다고 가정하면,
	# 410x바이트가 넘어 가면 이 값이 signed int 한계를 넘어 가서 부정확하게 된다;
	# (물론 4096이라고 한 건 깔끔하게 0x1000 나오게 하려고...)
	$a%=65521;$g%=65521;
	# 원래 이 뒤에는 $r.='0000000'; 이 있어야 하는데...
	# 이 값은 fixed huffman coding에서 256을 가리키고,
	# 이 코드값은 바로 해당 블록의 끝을 나타낸다.
}

# 비트 문자열을 또 다시 바이너리로 바꾸는 과정... 귀찮다 귀찮아...
$l=strlen($r);
for($i=0;$i<$l;$o.=chr($c))
	# 8번 반복하면서 $c에다가 값들을 저장...
	# $c=$c*2+$r{$i++}가 아니라는 걸 유의.
	# (png에서는 MSB->LSB 순서대로 집어 넣지만 zlib은 거꾸로 집어 넣는다. 제길;)
	for($c=$j=0;$i<$l&&$j<8;$c|=$r{$i++}<<$j++);

# 비로소 헤더 출력
header('Content-Type:image/png');
# 배경색 처리:
#   - 일단 입력 안 된 경우 기본 rgb 값을 넣고
#   - 뒤에 알파값을 다시 함께 넣는다.
# (이렇게 한 이유는 입력된 값 수가 3/4일 경우를 모두 처리하기 위해서이다)
# 물론, 4개 입력되었을 때는 뒤에 ,0이 다시 붙겠지만 처리하지 않으니 안심 :)
$b=$b?$b:'255,255,255';$b=split(',',"$b,0");
# 마찬가지... 기본값이 255,255,255,0이 아니라 0,0,0,255라는 것만 빼고;
$f=$f?$f:'0,0,0';$f=split(',',"$f,255");

# 정말로 출력
echo"\x89PNG\r\n\x1a\n". # 헤더 8바이트
	# IHDR chunk: 무조건 indexed-color, bit depth는 1bit..
	T(IHDR,pack(NN,$w,$h)."\1\3\0\0\0").
	# PLTE chunk: 색깔이 두 개니까 그대로 집어 넣는다.
	#             entry 0은 배경색, entry 1은 전경색
	T(PLTE,pack(CCCCCC,$b[0],$b[1],$b[2],$f[0],$f[1],$f[2])).
	# tRNS chunk: 투명값... 마찬가지 순서대로 넣는다.
	T(tRNS,pack(CC,$b[3],$f[3])).
	# IDAT chunk: deflate 압축은 끝났으니까 이제 zlib 포맷대로
	#             앞에 형식, 뒤에 체크섬 붙이면 된다.
	T(IDAT,"\x78\1$o".pack(nn,$g,$a)).
	# IEND chunk: 여기에 뭐 또 들어 가는 게 있겠는가 -_-;
	T(IEND,'');

# 후기: png의 알 수 없는 구조 덕분에 헤맸지만 덕분에 png를 잘 익혔으니 뭐...;;
#       별로 할 말 없음. 아. 시간 나면 캐릭터 모양으로 만들고 싶다.
?>