#!/usr/bin/perl
# 조합 폰트 인코딩 맵 (2002/04/06)
# 류창우님이 제안하신 방법에 따른것
#
# 기타 추가사항
# - base address는 0x1000 0x4000 0x8000으로 확정한다.
#  이것은 40x54x20등등의 조합벌수도 가능하며,
#  고어문자 조합까지도 가능하다. 즉, 조합폰트들의 폰트인코딩에 이 기준을
#  표준으로 적용해도 무리가 없다.

## Leading consonant
#$LCON=19;
## Vowel
#$VOW=21;
## Tailing consonant
#$TCON=27;

$LCON=96; # 19 -> 90개 초성 + 5개 미정의 + 1개 초성 fill
# Vowel
$VOW=72; # 21 -> 1개 중성fill + 66개 중성 + 5개 미정의 중성
# Tailing consonant
$TCON=88; # 27 -> 82개 종성 + 6개 미정의 종성

$LCON_SET=40;
$VOW_SET=54;
$TCON_SET=18;

#$LCON_SET=32;
#$VOW_SET=11;
#$TCON_SET=11;
$LCON_SET=32;
$VOW_SET=15;
$TCON_SET=11;

#$LCON_BASE=0x1000;
#$VOW_BASE=0x3000;
#$TCON_BASE=0x4000;

$LCON_BASE=0x1000;
$VOW_BASE=0x4000;
$TCON_BASE=0x8000;

$LCON_OFF=0x0100;
$VOW_OFF=0x0100;
$TCON_OFF=0x0100;
# emit default font encoding

# Start
# Leading consonant set encoding
$lcon_enc=$LCON_BASE;
for ($j=1;$j<=$LCON_SET;$j++) {
#  print "0001\n";
  for ($i=1;$i<=$LCON;$i++) {
     printf "%04X:0\n",++$lcon_enc;
  }
  $lcon_enc=$LCON_BASE+$LCON_OFF*$j;
}

#print "XXXX\n";

# Vowel set encoding
$vow_enc=$VOW_BASE;
for ($j=1;$j<=$VOW_SET;$j++) {
#  print "0001\n";
  for ($i=1;$i<=$VOW;$i++) {
     printf "%04X:",++$vow_enc;
     if ($j==1 || $j==2) {
        print "1";
     } else {
        print "0";
     }
     print "\n";
  }
  $vow_enc=$VOW_BASE+$VOW_OFF*$j;
}

#print "XXXX\n";
# Tailing consonant set encoding
$tcon_enc=$TCON_BASE;
for ($j=1;$j<=$TCON_SET;$j++) {
#  print "0001\n";
  for ($i=1;$i<=$TCON;$i++) {
     printf "%04X:1\n",++$tcon_enc;
  }
  $tcon_enc=$TCON_BASE+$TCON_OFF*$j;
}