%% This is `hfontold.tex' written by zraun01@hpserv.zdv.uni-tuebingen.de.
%%
%% ÀÌ ÆÄÀÏÀº ¿ì¸®¸»À» \TeX¿¡¼­ »ç¿ëÇϴµ¥ ÇÊ¿äÇÑ KS5601ÄÚµåÀÇ ±Û²ÃÁ¤ÀÇ¿¡
%% ±× ¿ªÇÒÀ» µÎ°í ÀÖÀ¾´Ï´Ù. ÇѱÛÀÇ ±Û²ÃÀº \LaTeX2eÀÇ NFSS2(New Font
%% Selection Scheme2)¿¡ ÀÇÇØ ¼±ÅõǴµ¥, ÀϹÝÀÇ Çѱ۹®¼­¿Í´Â ´Þ¸®
%% ¹®¼­¿¡ Çѱ۱۲ø¸ Æ÷ÇÔÇϱâ À§Çؼ­´Â ´Üµ¶À¸·Î »ç¿ëµÉ ¼ö ÀÖÀ¾´Ï´Ù.
%%

\ProvidesFile{hfontold.tex}
        [1997/05/18 v0.97 Hangul/Hanja/Symbol Font Definition]

%% 0.95 scheme

\begingroup
\def\reserved@a{}\count@="0A1
\loop\ifnum\count@<\@cclvi
  \edef\reserved@a{\reserved@a \sfcode\the\count@=\@m}%
  \advance\count@ by1
\repeat
\edef\reserved@a{\reserved@a
  \expandafter\def\noexpand\hg@break{\spacefactor=\@m}}%
\global\let\ks@break\reserved@a
\endgroup

%%
%% ¿ì¸®¸» ÄÚµåÀÇ Á¤ÀÇ (KSC5601)
%% ----------------------------
%% ¿ì¸®¸»ÄÚµå´Â ¸ðµÎ TeXÀÇ ¸ÅÅ©·Î·Î 󸮵ȴÙ.
%%

\def\reserved@a#1#2{%
  \@tempcnta#1\relax
  \@tempcntb#2\relax
  \reserved@b}
\def\reserved@b{%
  \ifnum\@tempcnta>\@tempcntb\else
    \reserved@c\@tempcnta
    \advance\@tempcnta\@ne
    \expandafter\reserved@b
  \fi}
\def\reserved@c#1{%
  \uccode#1=#1
  \lccode#1=#1
  \sfcode#1=999
  \catcode#1=\active}
\reserved@a{"0A0}{"0FF}

\begingroup
\def\ksc@code{\ifnum\count@<"0FF
  \edef\reserved@a{\reserved@a \catcode\the\count@=\the\@tempcnta}
  \advance\count@ by1
  \else\let\next\relax \fi\next}
\@tempcnta13
\def\reserved@a{}\count@="0A1\let\next\ksc@code \ksc@code
\global\let\makekscactive\reserved@a
\@tempcnta12
\def\reserved@a{}\count@="0A1\let\next\ksc@code \ksc@code
\global\let\makekscother\reserved@a
\@tempcnta11
\def\reserved@a{}\count@="0A1\let\next\ksc@code \ksc@code
\global\let\makekscletter\reserved@a
\endgroup

%%
%% ¿ì¸®¸»ÀÇ ºÐö:
%% --------------
%% ¿ì¸®¸»Àº \hyphenchar°¡ ¾ø°í ¾î´À °÷¿¡¼­³ª ÝÂôÎÀÌ Ê¦ÒöÇÏ´Ù. ±×·¯¹Ç·Î
%% ÀÏ´Ü ¿ì¸®¸»ÀÇ ÝÂôÎÀ» ¾ïÁ¦ÇÏ°í (\hyphenchar\font\m@ne) ÇѱÛÀÇ »çÀÌ¿¡
%% \hskip 0pt plus 0pt¸¦ ߺìýÇÔÀ¸·Î¼­ ÝÂôÎÀ» ʦÒöÇÏ°Ô ÇÑ´Ù.
%% <oldhan>: ¿ì¸®¸»±ÛÀÚµéÀº oldhan.tabÀ¸·Î ±× \charÀÇ À§Ä¡°¡ º¯°æµÇ¹Ç·Î
%%           \sfcode¿¡ ÀÇÇÑ \spacefactor¸¦ Àû¿ëÇÒ ¼ö ¾ø´Ù. ÀÌ °æ¿ì
%%           \spacefactor´Â \hg@break¿¡ ÀÇÇØ °­Á¦·Î ÁÖ¾îÁø´Ù.
%%
\def\@Hyphen{\ifhmode\ifnum\spacefactor=999\hskip\z@skip\fi\fi}
\def\hg@break{\spacefactor=999}

%%
%% ¿ì¸®¸»ÀÇ ±Û²Ã ¹Ù²Ù±â:
%% ---------------------
%% ¿ì¸®¸»ÀÇ ±Û²ÃÁ¾·ù´Â ¸íÁ¶¿Í °íµñ ±×¸®°í ŸÀÚÀÇ 3°¡Áö¸¦ ±âº»À¸·Î
%% ÇÑ´Ù. ¸íÁ¶(\textmj)¿Í °íµñ(\textgt)Àº °¢°¢ ¿µ¹®ÀÇ \textrm°ú
%% \textsf¿¡ ÇØ´çÇÏ°í ŸÀÚ(\texttz)´Â ¿µ¹®ÀÇ \texttt¿Í °°´Ù.
\DeclareTextFontCommand{\textmj}{\mjfamily}
\DeclareTextFontCommand{\textgt}{\gtfamily}
\DeclareTextFontCommand{\texttz}{\tzfamily}
%% ÆíÀÇ»ó ´ÙÀ½°ú °°Àº °¡Á·¹Ù²Þ¸ÅÅ©·Îµµ Á¦°øµÈ´Ù. (±×·¡ÇÈ, ±Ã¼­,
%% Çʱâ, ¿Ü°û, »õ¸íÁ¶, ¸ñ°¢, ¿¾±Û, º½±Û¾¾ ¹× Ææ±Û¾¾)
%% <oldhan>: »õ¸íÁ¶,  ¸ñ°¢, ¿¾±Û, º½±Û¾¾, Ææ±Û¾¾´Â ¾ø°í, ´ë½Å µð³ª·ç¿Í
%%           °øÀÛÀÌ ´õ Ãß°¡µÈ´Ù.
\DeclareTextFontCommand{\textgr}{\grfamily}
\DeclareTextFontCommand{\textgs}{\gsfamily}
\DeclareTextFontCommand{\textpg}{\pgfamily}
\DeclareTextFontCommand{\textol}{\olfamily}
\DeclareTextFontCommand{\textdr}{\drfamily}
\DeclareTextFontCommand{\textgj}{\gjfamily}

%% ¿ì¸®¸»±Û²Ã°¡Á·Àº ¸íÁ¶, °íµñ, ŸÀÚÀÇ ¼¼°¡Áö°¡ ÀÖ°í ´ÙÀ½°ú °°Àº
%% µî½ÄÀÌ ¼º¸³ÇÑ´Ù. \rmfamily=¸íÁ¶, \sffamily=°íµñ, \ttfamily=ŸÀÚ.
\expandafter\def\expandafter\rmfamily\expandafter{\rmfamily
         \not@math@alphabet\mjfamily\mathmj
         \hfontfamily\mjdefault}
\let\mjfamily\rmfamily
\expandafter\def\expandafter\sffamily\expandafter{\sffamily
         \not@math@alphabet\gtfamily\mathgt
         \hfontfamily\gtdefault}
\let\gtfamily\sffamily
\expandafter\def\expandafter\ttfamily\expandafter{\ttfamily
         \not@math@alphabet\tzfamily\mathtz
         \hfontfamily\tzdefault\ks@break}
\let\tzfamily\ttfamily
%% ÆíÀÇ»ó ´ÙÀ½°ú °°Àº °¡Á·¹Ù²Þ¸ÅÅ©·Îµµ Á¦°øµÈ´Ù. (±×·¡ÇÈ, ±Ã¼­,
%% Çʱâ, ¿Ü°û, »õ¸íÁ¶, ¸ñ°¢, ¿¾±Û, º½±Û¾¾ ¹× Ææ±Û¾¾)
%% <oldhan>: »õ¸íÁ¶,  ¸ñ°¢, ¿¾±Û, º½±Û¾¾, Ææ±Û¾¾´Â ¾ø°í, ´ë½Å µð³ª·ç¿Í
%%           °øÀÛÀÌ ´õ Ãß°¡µÈ´Ù. \@pshanÀº »èÁ¦µÈ´Ù.
\DeclareRobustCommand\grfamily
        {\not@math@alphabet\grfamily\mathgr
         \hfontfamily{gr}}
\DeclareRobustCommand\gsfamily
        {\not@math@alphabet\gsfamily\mathgs
         \hfontfamily{gs}}
\DeclareRobustCommand\pgfamily
        {\not@math@alphabet\pgfamily\mathpg
         \hfontfamily{pg}}
\DeclareRobustCommand\olfamily
        {\not@math@alphabet\olfamily\mathol
         \hfontfamily{ol}}
\DeclareRobustCommand\drfamily
        {\not@math@alphabet\drfamily\mathdr
         \hfontfamily{dr}}
\DeclareRobustCommand\gjfamily
        {\not@math@alphabet\gjfamily\mathgj
         \hfontfamily{gj}}

%% LaTeX209½ÄÀÇ ±Û²Ã¹Ù²Þ¸ÅÅ©·Î´Â ÇѱÛLaTeX 0.96±îÁö ½á¿À´ø °Í°ú
%% ÃÖ´ëÇÑÀÇ È£È¯¿¡ ¿ªÁ¡À» µÐ´Ù.
\DeclareOldFontCommand{\mj}{\normalhfont\mjfamily}{\@nomath\mj}
\DeclareOldFontCommand{\gt}{\normalhfont\gtfamily}{\@nomath\gt}
\DeclareOldFontCommand{\tz}{\normalhfont\tzfamily}{\@nomath\tz}
%% ´ÙÀ½ÀÇ ±Û²Ã¹Ù²Þ¸ÅÅ©·Î´Â ´Ü¼øÈ÷ ȣȯ¼º¸¸À» À§ÇØ Á¦°øµÈ´Ù.
%% <oldhan>: \sm, \mg, \yt, \bm, \pn, \pnit, \jmmj, \jmgt, \jmnv,
%%           \jmsr°¡ ¾ø°í \dr¿Í \gj°¡ Ãß°¡µÈ´Ù.
\DeclareOldFontCommand{\gr}{\normalhfont\hfontfamily{gr}}{\@nomath\gr}
\DeclareOldFontCommand{\gs}{\normalhfont\hfontfamily{gs}}{\@nomath\gs}
\DeclareOldFontCommand{\pg}{\normalhfont\hfontfamily{pg}}{\@nomath\pg}
\DeclareOldFontCommand{\ol}{\normalhfont\hfontfamily{ol}}{\@nomath\ol}
\DeclareOldFontCommand{\gj}{\normalhfont\hfontfamily{gj}}{\@nomath\gj}
\DeclareOldFontCommand{\dr}{\normalhfont\hfontfamily{dr}}{\@nomath\dr}

%% ¿ì¸®¸»ÀÇ ±Û²ÃÃʱâÈ­´Â ÀÎÄÚµù°ú °¡Á·¸¸À» ÃʱⰪÀ¸·Î ¹Ù²Û´Ù.
\DeclareRobustCommand\normalhfont
                 {\hfontencoding\hencodingdefault%
                  \hfontfamily\hfamilydefault%
                  \kscfamily\symboldefault\hanguldefault\hanjadefault}
%% \normalfont´Â ¿µ¹®°ú ÇÔ²² ¿ì¸®¸»µµ ÃʱâÈ­½ÃŲ´Ù.
\expandafter\def\expandafter\normalfont\expandafter
  {\normalfont\protect\normalhfont}
\let\reset@font\normalfont

%% ¿µ¹®¸ÅÅ©·Î \usefont´Â ÀÎÄÚµùÀÌ ¿ì¸®¸»ÀÏ °æ¿ì, ¿ì¸®¸»À» ´Ù·çµµ·Ï ÇÑ´Ù.
\def\usefont#1#2#3#4{\if\hf@encoding#1%
    \hfontencoding{#1}\hfontfamily{#2}\else
    \fontencoding{#1}\fontfamily{#2}\fi\fontseries{#3}%
    \fontshape{#4}\selectfont\ignorespaces}

%%
%% ¿ì¸®¸»ÀÇ °¡Á·°èȹ:
%% ------------------
%% ©ç ¿ì¸®¸»ÀÇ ÀÎÄÚµù:
%%    ¿ì¸®¸»Àº ¿µ¹®°ú ´Ù¸£°Ô, µÎ ¹ÙÀÌÆ®·Î ÇѱÛÀÚ¸¦ ÄÚµùÇϹǷΠ¿µ¹®ÀÇ
%%    ÀÎÄÚµù°ú ±¸º°µÇµµ·Ï ´Ù¸¥ ÀÎÄÚµùÀ» ¾²¸ç, ´ÙÀ½ÀÇ ¸ÅÅ©·Î·Î
%%    ÁöÁ¤ÇÑ´Ù. ÀÎÄÚµùÀÇ º¯°æÀº »õ·Î¿î .fdÆÄÀÏÀ» ¿ä±¸ÇÏ°Ô µÈ´Ù.
\DeclareRobustCommand\hfontencoding[1]{%
    \expandafter\ifx\csname T@#1\endcsname\relax
      \@latex@error{Encoding scheme `#1' unknown}\@eha
    \else
      \edef\hf@encoding{#1}%
      \ifx\cf@encoding\hf@encoding
        \let\enc@update\relax
      \else
        \let\enc@update\@@enc@update
      \fi
    \fi
}

%% ©è ¿ì¸®¸»±Û²ÃÀÇ °¡Á·:
%%    ¿ì¸®¸»°¡Á·Àº µÑ·Î ³ª´¶´Ù. ¾ÕºÎºÐÀº ½É¹ú/ÇѱÛ/ÇÑÀÚÀÇ ±¸¼ºÇüŸ¦
%%    ÀǹÌÇÑ´Ù.
\DeclareRobustCommand\kscfamily[3]{\edef\sb@{#1}\edef\hg@{#2}\edef\hj@{#3}}
%% µÞºÎºÐÀº ¿ì¸®¸»±Û²ÃÀÇ ¸ð¾ç»õ¸¦ ÀǹÌÇÑ´Ù. ¸íÁ¶, °íµñ, ŸÀÚ, ±×·¡ÇÈ,
%% »õ¸íÁ¶, ±Ã¼­, ¸ñ°¢, ¿¾±Û, º½±Û¾¾, Ææ±Û¾¾ µîÀÇ ¸ð¾ç»õ´Â
%% \MapHangulFamily¿¡ ÀÇÇØ °¢°¢ ½É¹ú/ÇѱÛ/ÇÑÀÚÀÇ ¿ÜºÎ±Û²Ã°ú ¿¬°üµÇ¾î
%% ÀÖ´Ù.
\DeclareRobustCommand\hfontfamily[1]{%
  \expandafter\ifx\csname #1@map\endcsname\relax
    \@font@warning{Hangul Fontmap for `#1' undefined\MessageBreak
                   using default map `\expandafter\csname\default@hfamily
                   @map\endcsname' instead\@wrong@font@char}%
    \expandafter\xdef\csname #1@map\endcsname{%
      \expandafter\csname\default@hfamily @map\endcsname}%
    \gdef\default@fontmap{%
      \@font@warning{Some hangul fontmaps were not defined,\MessageBreak
                     default fontmap substituted.\@gobbletwo}}\fi
  \edef\reserved@a{\csname #1@map\endcsname}%
  \expandafter\hfont@map\reserved@a\@nil\ignorespaces}
\def\hfont@map#1,#2,#3\@nil{%
  \edef\hg@family{#1}%
  \edef\sb@family{#2}%
  \edef\hj@family{#3}}
\AtEndDocument{\default@fontmap}
\let\default@fontmap\relax

%% ©é ¿ì¸®¸» ±Û²Ã½Ã¸®Áî:
%%    ¿ì¸®¸»±Û²Ã½Ã¸®Áî´Â ¿µ¹®ÀÇ ±×°Í°ú °°´Ù. ´Ù¸¸ \fontseries°¡ S·Î
%%    ½ÃÀÛÇÒ ¶§ ¿ì¸®¸»±Û²ÃÀº \mediumseries¸¦ ¼¼¹ø ¿¬¼ÓÀμâÇÏ¿©
%%    \bfseriesÀÇ üùÍý¸¦ ³ªÅ¸³ª°Ô ÇÑ´Ù.
\newif\if@KSCbold
\DeclareRobustCommand\fontseries[1]{%
  \if S\expandafter\@car#1\@nil\@KSCboldtrue
    \edef\hf@series{\mddefault}\edef\f@series{\expandafter\@cdr#1\@nil}%
  \else\@KSCboldfalse\edef\hf@series{#1}\edef\f@series{#1}\fi}

%% ©ê,©ë ¿ì¸®¸» ±Û²Ã¸ð¾ç ¹× Å©±â:
%%       ¿ì¸®¸»ÀÇ ±Û²Ã¸ð¾ç°ú Å©±â´Â ¿µ¹®ÀÇ ±×°Í°ú µ¿ÀÏÇÏ°Ô Ã³¸®µÈ´Ù.

%%
%% ¿ÜºÎ ±Û²Ã È­ÀÏã±â:
%% -------------------
%% ¿ì¸®¸»±Û²ÃÀº ÇÑ ¼¼Æ®°¡ ¿©·¯ ÆÄÀÏ·Î ³ª´µ¾îÁ® ÀÖ´Ù. ±×·¯¹Ç·Î
%% ¿ì¸®¸»±Û²ÃÀÇ ¿ÜºÎÆÄÀÏÀº ´ÙÀ½°ú °°Àº ÀÏÀ²ÀûÀÎ ±ÔÄ¢¿¡ ÀÇ°ÅÇÏ¿©
%% ¸í¸íÇÑ´Ù.
%%  1. ½É¹úÀº ³¡¼ýÀÚ°¡ 4, 5, 6, 7·Î ³¡³ªµµ·Ï ¼ø¼­´ë·Î 256°³¾¿ ³ª´«´Ù.
%%  2. ÇѱÛÀº ³¡¼ýÀÚ°¡ 0ºÎÅÍ 9°¡ µÇµµ·Ï ¼ø¼­´ë·Î 256°³¾¿ ³ª´«´Ù.
%%  3. ÇÑÀÚ´Â ³¡¼ýÀÚ°¡ 10¿¡¼­ 29°¡ µÇµµ·Ï ¼ø¼­´ë·Î 256°³¾¿ ³ª´«´Ù.
%% <oldhan>: ±Û²ÃÀÇ ³¡±ÛÀÚ°¡ A ȤÀº B·Î Á¤ÇØÁ® ÀÖÀ¸¹Ç·Î ¿©±â¿¡ ¸ÂÃá´Ù.
\def\DeclareFontShape@#1#2#3#4#5#6{%
   \expandafter\ifx\csname #1+#2\endcsname\relax
     \@latex@error{Font family `#1+#2' unknown}\@eha
   \else
     \if#1\hf@encoding
       \if\sb@\expandafter\@car#2\@nil\@tempcnta0\def\reserved@b{A,B,C,D}%
       \else\if\hj@\expandafter\@car#2\@nil\@tempcnta2
         \def\reserved@b{A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T}%
       \else\if o\expandafter\@car#2\@nil\@tempcnta3\def\reserved@b{A,B}%
       \else\@tempcnta1\def\reserved@b{A,B,C,D,E,F,G,H,I,J}\fi\fi\fi
       \@for\@idx:=\reserved@b\do{%
         \expandafter\expandafter\expandafter\@tempcntb\expandafter`\@idx
         \advance\@tempcntb-65
         \ifcase\@tempcnta\def\reserved@c{0}\advance\@tempcntb4%
         \or\def\reserved@c{}%
         \or\def\reserved@c{}\advance\@tempcntb10
         \or\edef\reserved@c{\@idx}\fi
         \ifnum\@tempcnta<3
          \edef\reserved@c{\reserved@c\number\@tempcntb}\fi
         \expandafter\xdef\csname#1/#2/#3/#4/\@idx\endcsname{%
           \expandafter\noexpand\csname #5\reserved@c\endcsname}%
         \global\expandafter\let\csname #5\reserved@c\expandafter\endcsname
           \ifx\reserved@a\@empty\@empty\else\reserved@a\fi}%
     \else
       \expandafter\xdef\csname#1/#2/#3/#4\endcsname{%
         \expandafter\noexpand\csname #5\endcsname}%
       \def\reserved@a{#6}%
       \global\expandafter\let\csname#5\expandafter\endcsname
          \ifx\reserved@a\@empty\@empty\else\reserved@a\fi
   \fi\fi
  }
\DeclareSizeFunction{hsub}{\subh@sfcnt\@font@warning}
\DeclareSizeFunction{hssub}{\subh@sfcnt\@font@info}
\def\subh@sfcnt#1{%
    \edef\mandatory@arg{\f@encoding/\mandatory@arg}%
    \begingroup
     \expandafter\split@hname\mandatory@arg/\@nil
     \xdef\reserved@a{\curr@fontshape}%
     \try@load@fontshape
    \endgroup
    \let\f@user@size\f@size
    \expandafter
    \ifx\csname\mandatory@arg\endcsname\relax
      \expandafter\ifx\csname\curr@fontshape!\endcsname\relax
        \errmessage{No\space declaration\space for\space
                  shape\space \mandatory@arg}%
      \global\expandafter\let\csname\curr@fontshape!\endcsname\@empty\fi
      \edef\reserved@b{\expandafter\@car\f@family\@nil}
      \error@hfontshape
      \edef\reserved@c{\expandafter\csname\f@family @map\endcsname}
      \expandafter\hfont@map\reserved@c\@nil
      \ifx\sb@\reserved@b\edef\f@family{\sb@\sb@family}\else%
      \ifx\hj@\reserved@b\edef\f@family{\hj@\hj@family}\else%
        \edef\f@family{\hg@\hg@family}\fi\fi
    \else
      \expandafter\ifx\csname\curr@fontshape!\endcsname\relax
        #1{Font\space shape\space `\curr@fontshape'\space in\space
         size\space <\f@size>\space not\space available\MessageBreak
         Font\space shape\space `\reserved@a'\space tried\space
         instead}%
      \global\expandafter\let\csname\curr@fontshape!\endcsname\@empty\fi
      \expandafter\split@hname\mandatory@arg/\@nil
    \fi
    \edef\f@size{\f@user@size}%
    \get@external@hfont
    \do@subst@correction
}
\def\DeclareHFontShape{\begingroup
   \nfss@catcodes
   \expandafter\endgroup
   \DeclareHFontShape@}
\def\DeclareHFontShape@#1#2#3#4#5#6{%
   \expandafter\ifx\csname #1+#2\endcsname\relax
     \@latex@error{Font family `#1+#2' unknown}\@eha
   \else
     \def\reserved@a{#6}%
     \if\sb@\expandafter\@car#2\@nil\def\reserved@b{A,B,C,D}%
     \else\if\hj@\expandafter\@car#2\@nil
       \def\reserved@b{A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T}%
     \else\if o\expandafter\@car#2\@nil\def\reserved@b{A,B}%
     \else\def\reserved@b{A,B,C,D,E,F,G,H,I,J}\fi\fi\fi
     \@for\@idx:=\reserved@b\do{%
       \expandafter\xdef\csname#1/#2/#3/#4/\@idx\endcsname{%
         \expandafter\noexpand\csname #5/\@idx\endcsname}%
       \global\expandafter\let\csname #5/\@idx\expandafter\endcsname
         \ifx\reserved@a\@empty\@empty\else\reserved@a\fi}%
   \fi
  }

%%
%% ¿ì¸®¸» ±Û²Ã ¼±Åà ¹æ¹ý (HFSS):
%% -----------------------------
%% ¿ì¸®¸»Àº encoding°ú family¸¦ ¿µ¹®°ú ´Þ¸® Ãë±ÞÇÏ°í series¿Í shape,
%% ±×¸®°í size´Â ¿µ¹®°ú µ¿ÀÏÇÏ°Ô Ãë±ÞÇÑ´Ù.
%% ÇÑ°¡Áö ±Û²ÃÀÇ ¼¼Æ®´Â 256°³ÀÇ ±ÛÀÚµé·Î ±¸¼ºµÈ ¿©·¯ ±Û²Ã·Î ºÐ¸®µÇ¾î
%% ÀÖÀ¸¹Ç·Î Áö¼ö¸¦ Çϳª ´õ Ãß°¡ÇÏ¿© (½É¹ú: A-D, ÇѱÛ: A-J, ÇÑÀÚ: A-T)
%% À̸¦ Ç¥½ÃÇÑ´Ù.(\f@idx)
%% ±Û²ÃÀÌ ¾ø¾î ´ëÄ¡°¡ µÉ ¶§´Â, ±× ±Û²ÃÀÇ Áö¼ö°¡ ¾øÀÌ ±× ±Û²Ã¼¼Æ®°¡
%% ´ëÄ¡µÇ¾úÀ½À» »ç¿ëÀÚ¿¡°Ô ¾Ë¸®¸ç ÇÑ ±Û²Ã¼¼Æ®¸¶´Ù Çѹø¸¸ ÀÌ·¯ÇÑ »ç½ÇÀÌ
%% ¾Ë·ÁÁöµµ·Ï ÇÑ´Ù. ±× ´ëÄ¡¿¡´Â ½É¹ú/ÇѱÛ/ÇÑÀÚÀÇ \hfamilydefault·Î
%% ¼±Á¤µÈ ±Û²ÃÀ» ¾´´Ù. ÇѱÛÀÇ °æ¿ì¿¡´Â ¿Ï¼º|Á¶ÇÕ/Àڸ𸦠°¢°¢ ±¸ºÐÇÏ¿©
%% ó¸®ÇÑ´Ù.
\def\extract@hfont{%
   \get@external@hfont
   \global\expandafter\font\font@name\external@font\relax
    \font@name \relax
    \csname \f@encoding+\f@family\endcsname
    \csname\curr@fontshape\endcsname
    \relax
       }
\def\get@external@hfont{%
   \let\external@font\@empty
   \edef\font@info{\expandafter\expandafter\expandafter\string
        \csname \curr@fontshape/\f@idx \endcsname}%
   \try@size@range
   \ifx\external@font\@empty
      \try@size@substitution
      \ifx\external@font\@empty
         \@latex@error{Font \expandafter \string\font@name\space
                     not found}\@eha
         \edef\reserved@b{\expandafter\@car\f@family\@nil}
         \error@hfontshape
         \edef\reserved@c{\expandafter\csname\f@family @map\endcsname}
         \expandafter\hfont@map\reserved@c\@nil
         \ifx\sb@\reserved@b\edef\f@family{\sb@\sb@family}\else%
         \ifx\hj@\reserved@b\edef\f@family{\hj@\hj@family}\else%
           \edef\f@family{\hg@\hg@family}\fi\fi
         \get@external@hfont
   \fi\fi
}
\DeclareRobustCommand\selecthfont
        {%
    \ifx\f@linespread\baselinestretch \else
      \set@fontsize\baselinestretch\f@size\f@baselineskip \fi
    \xdef\font@name{%
      \csname\curr@fontshape/\f@idx/\f@size\endcsname}%
    \pickup@hfont
    \font@name
    \size@update
    \enc@update
    }
\def\pickup@hfont{%
    \expandafter \ifx \font@name \relax
       \define@newhfont
    \fi}
\def\define@newhfont{%
  \begingroup
    \let\typeout\@font@info
    \escapechar\m@ne
    \expandafter\expandafter\expandafter
       \split@hname\expandafter\string\font@name\@nil
      \try@load@fontshape % try always
    \expandafter\ifx
       \csname\curr@fontshape/\f@idx\endcsname \relax
      \wrong@hfontshape\else
      \extract@hfont\fi
  \endgroup}
{\catcode`\/=12
\gdef\split@hname#1/#2/#3/#4/#5/#6\@nil{\def\f@encoding{#1}%
                                        \def\f@family{#2}%
                                        \def\f@series{#3}%
                                        \def\f@shape{#4}%
                                        \def\f@size{#6}}}
\def\DeclareErrorHFont#1#2#3#4#5{%
      \xdef\error@hfontshape{%
          \noexpand\expandafter\noexpand\split@name\noexpand\string
          \expandafter\noexpand\csname#1/#2/#3/#4/#5\endcsname
          \noexpand\@nil}%
      \gdef\default@hfamily{#2}%
      \gdef\default@hseries{#3}%
      \gdef\default@shape{#4}%
      \begingroup
        \edef\reserved@a{\expandafter\csname\default@hfamily @map\endcsname}
        \expandafter\hfont@map\reserved@a\@nil
        \xdef\sb@family{\sb@family}%
        \xdef\hg@family{\hg@family}%
        \xdef\hj@family{\hj@family}%
      \endgroup
      \global\let\hf@series\default@hseries
      \global\let\f@shape\default@shape
      \gdef\f@size{#5}%
      \gdef\f@baselineskip{#5pt}%
}
\@onlypreamble\DeclareErrorHFont
\def\wrong@hfontshape{%
    \csname D@\f@encoding\endcsname      % install defaults if in math
    \edef\reserved@a{\csname\curr@fontshape/\f@idx\endcsname}%
    \edef\reserved@b{\expandafter\string\csname\curr@fontshape\endcsname}%
  \ifx\last@fontshape\reserved@a
     \errmessage{Corrupted NFSS tables}%
     \edef\reserved@c{\expandafter\@car\f@family\@nil}%
     \error@hfontshape
     \edef\reserved@d{\expandafter\csname\f@family @map\endcsname}
     \expandafter\hfont@map\reserved@d\@nil
     \ifx\sb@\reserved@c\edef\f@family{\sb@\sb@family}\else%
     \ifx\hj@\reserved@c\edef\f@family{\hj@\hj@family}\else%
       \edef\f@family{\hg@\hg@family}\fi\fi
  \else
    \let\f@shape\default@shape
    \expandafter\ifx\csname\curr@fontshape/\f@idx\endcsname\relax
        \let\f@series\default@hseries
        \expandafter
        \ifx\csname\curr@fontshape/\f@idx\endcsname\relax
          \edef\reserved@d{\expandafter\csname\default@hfamily @map\endcsname}
          \expandafter\hfont@map\reserved@d\@nil
          \if\sb@\expandafter\@car\f@family\@nil
              \edef\f@family{\sb@\sb@family}\else
          \if\hj@\expandafter\@car\f@family\@nil
              \edef\f@family{\hj@\hj@family}\else
              \edef\f@family{\hg@\hg@family}\fi\fi
        \fi \fi
  \fi
    \expandafter\ifx\csname\reserved@b!\endcsname\relax
       \@font@warning{Font shape `\expandafter\string\reserved@b'
                       \expandafter\@gobble\string\@undefined\MessageBreak
                     using `\curr@fontshape' instead\@wrong@font@char}%
      \global\expandafter\let\csname\reserved@b!\endcsname\@empty\fi
    \global\let\last@fontshape\reserved@a
    \gdef\@defaultsubs{%
      \@font@warning{Some font shapes were not available, defaults
                      substituted.\@gobbletwo}}%
    \global\expandafter\expandafter\expandafter\let
       \expandafter\reserved@a
           \csname\curr@fontshape/\f@idx\endcsname
    \xdef\font@name{%
      \csname\curr@fontshape/\f@idx/\f@size\endcsname}%
    \pickup@hfont}
\def\DeclareHFontEncoding{%
   \begingroup
   \nfss@catcodes
   \expandafter\endgroup
   \DeclareHFontEncoding@}
\@onlypreamble\DeclareHFontEncoding
\def\DeclareHFontEncoding@#1#2#3{%
  \expandafter
  \ifx\csname T@#1\endcsname\relax
     \def\cdp@elt{\noexpand\cdp@elt}%
     \begingroup
     \edef\reserved@a{\csname\default@hfamily @map\endcsname}
     \expandafter\hfont@map\reserved@a\@nil
     \xdef\cdp@list{\cdp@list%
                    \cdp@elt{#1}{\symboldefault\sb@family}%
                    {\default@hseries}{\default@shape}%
                    \cdp@elt{#1}{\hanguldefault\hg@family}%
                    {\default@hseries}{\default@shape}%
                    \cdp@elt{#1}{\hanjadefault\hj@family}%
                    {\default@hseries}{\default@shape}}%
     \endgroup
     \expandafter\let\csname#1-cmd\endcsname\@changed@cmd
  \else
     \@font@info{Redeclaring font encoding #1}%
  \fi
  \global\@namedef{T@#1}{#2}%
  \global\@namedef{M@#1}{\default@M#3}%
  }
\@onlypreamble\DeclareHFontEncoding@
\def\DeclareHFontSubstitution#1#2#3#4{%
  \expandafter
  \ifx\csname T@#1\endcsname\relax
    \@latex@error{Encoding scheme  `#1' unknown}\@eha
  \else
    \begingroup
       \edef\reserved@a{\csname#2@map\endcsname}
       \expandafter\hfont@map\reserved@a\@nil
       \def\reserved@a{#1}%
       \toks@{}%
       \let\reserved@d\@empty
       \def\cdp@elt##1##2##3##4{%
          \def\reserved@b{##1}%
          \ifx\reserved@a\reserved@b
            \ifx\reserved@d\@empty
              \edef\reserved@c{\noexpand\cdp@elt{#1}{\sb@\sb@family}{#3}{#4}%
                               \noexpand\cdp@elt{#1}{\hg@\hg@family}{#3}{#4}%
                               \noexpand\cdp@elt{#1}{\hj@\hj@family}{#3}{#4}}%
              \let\reserved@d\relax
              \expandafter\addto@hook
              \expandafter\toks@\expandafter{\reserved@c}\fi%
          \else
             \addto@hook\toks@{\cdp@elt{##1}{##2}{##3}{##4}}%
          \fi}%
        \cdp@list
        \xdef\cdp@list{\the\toks@}%
    \endgroup
    \global\@namedef{D@#1}{%
        \def\default@hfamily{#2}%
        \def\default@hseries{#3}%
        \def\default@shape{#4}%
        }%
  \fi
 }
\@onlypreamble\DeclareHFontSubstitution

%%
%% HFSSÀÇ ¼³Á¤ È®ÀÎ:
%% -----------------
%% ¿ì¸®¸»ÀÇ ÇÑ °¡Á·Àº ½É¹ú/ÇѱÛ/ÇÑÀÚÀÇ ¼¼°¡Áö ¿ÜºÎ±Û²Ã°ú ¿¬°üµÇ¾î
%% ÀÖ´Ù. ¿ì¸®¸» ¹®¼­°¡ ½ÃÀÛÇϱâ Àü¿¡, ±âº»Ä¡·Î ¼³Á¤µÈ ½É¹ú/ÇѱÛ/ÇÑÀÚÀÇ
%% ´ëÄ¡±Û²Ã°ú ¿¡·¯±Û²ÃÀÌ Á¦´ë·Î ¼³Á¤µÇ¾î ÀÖ´ÂÁö È®ÀÎÇÔÀ¸·Î¼­
%% ±Û²Ã¼±Åýà ¹ß»ýÇÒ ¼ö Àç¾ÓÀ» ¹Ì¸® ¹æÁöÇÑ´Ù.
\def\process@table{%
    \def\cdp@elt##1##2##3##4{%
        \@font@info{Checking defaults for
                  ##1/##2/##3/##4}%
      \if\hf@encoding##1
        \expandafter
        \ifx\csname##1/##2/##3/##4/A\endcsname\relax
          \begingroup
           \def\f@encoding{##1}\def\f@family{##2}%
           \try@load@fontshape
          \endgroup
        \fi
        \expandafter
        \ifx\csname##1/##2/##3/##4/A\endcsname\relax
             \@latex@error{This HFSS system isn't set up properly}%
                       {For hangul encoding scheme ##1 the defaults
                        ##2/##3/##4 do not form a valid font shape}%
        \else
             \@font@info{... okay}%
        \fi
      \else
        \expandafter
        \ifx\csname##1/##2/##3/##4\endcsname\relax
          \begingroup
           \def\f@encoding{##1}\def\f@family{##2}%
           \try@load@fontshape
          \endgroup
        \fi
        \expandafter
        \ifx\csname##1/##2/##3/##4\endcsname\relax
             \@latex@error{This NFSS system isn't set up properly}%
                       {For encoding scheme ##1 the defaults
                        ##2/##3/##4 do not form a valid font shape}%
        \else
             \@font@info{... okay}%
        \fi
      \fi}%
    \cdp@list
    \begingroup
       \escapechar\m@ne
       \error@fontshape
       \expandafter\ifx\csname \curr@fontshape\endcsname\relax
          \begingroup
            \try@load@fontshape
           \endgroup
       \fi
       \expandafter\ifx\csname \curr@fontshape\endcsname\relax
         \@latex@error{This NFSS system isn't set up properly}%
            {The system maintainer forgot to specify a suitable
             substitution
             font shape using the \noexpand\DeclareErrorFont
             command}%
       \fi
       \expandafter\ifx\csname\hfamilydefault @map\endcsname\relax
         \@latex@error{This HFSS system isn't set up properly}%
            {The system maintainer forgot to specify a suitable
             fontmap for default hangul family `\hfamilydefault'
             using the \noexpand\MapHangulFamily command}%
       \fi
       \error@hfontshape
       \edef\reserved@a{\expandafter\csname\f@family @map\endcsname}%
       \expandafter\hfont@map\reserved@a\@nil
       \edef\f@family{\sb@\sb@family}%
       \expandafter\ifx\csname \curr@fontshape/A\endcsname\relax
          \begingroup
            \try@load@fontshape
           \endgroup
       \fi
       \expandafter\ifx\csname \curr@fontshape/A\endcsname\relax
         \@latex@error{This HFSS system isn't set up properly}%
            {The system maintainer forgot to specify a suitable
             substitution symbol
             font shape using the \noexpand\DeclareErrorHFont
             command or \noexpand\MapHangulFamily command}%
       \fi
       \edef\f@family{\hg@\hg@family}%
       \expandafter\ifx\csname \curr@fontshape/A\endcsname\relax
          \begingroup
            \try@load@fontshape
           \endgroup
       \fi
       \expandafter\ifx\csname \curr@fontshape/A\endcsname\relax
         \@latex@error{This HFSS system isn't set up properly}%
            {The system maintainer forgot to specify a suitable
             substitution hangul
             font shape using the \noexpand\DeclareErrorHFont
             command or \noexpand\MapHangulFamily command}%
       \fi
       \edef\f@family{\hj@\hj@family}%
       \expandafter\ifx\csname \curr@fontshape/A\endcsname\relax
          \begingroup
            \try@load@fontshape
           \endgroup
       \fi
       \expandafter\ifx\csname \curr@fontshape/A\endcsname\relax
         \@latex@error{This HFSS system isn't set up properly}%
            {The system maintainer forgot to specify a suitable
             substitution hanja
             font shape using the \noexpand\DeclareErrorHFont
             command or \noexpand\MapHangulFamily command}%
       \fi
    \endgroup
    \let\select@group\document@select@group
    \hfontencoding{\hencodingdefault}%
    \hfontfamily{\hfamilydefault}%
    \fontencoding{\encodingdefault}%
    \fontfamily{\familydefault}%
    \fontseries{\seriesdefault}%
    \fontshape{\shapedefault}%
 \everyjob{}%
}

%%
%% ¿ì¸®¸» ±Û²ÃÀÇ ±âº»Ä¡:
%% ---------------------
%% ¾Æ¹«°Íµµ ÁöÁ¤ÇÏÁö ¾ÊÀ¸¸é ¿Ï¼ºÇü ¸íÁ¶°¡ µÈ´Ù.
%% <oldhan>: \hanguldefault´Â o·Î ÁöÁ¤µÈ´Ù. \@pshanÀº ¾ø´Ù.

\newcommand\hencodingdefault{H}

\newcommand\symboldefault{s}
\newcommand\hanguldefault{o}
\newcommand\hanjadefault{h}
\newcommand\mjdefault{mj}
\newcommand\gtdefault{gt}
\newcommand\tzdefault{tt}
\newcommand\hfamilydefault{\mjdefault}

%%
%% ¿ì¸®¸»°¡Á·À̸§¿¡ µû¸¥ ¿ÜºÎ±Û²ÃÀÇ ¼³Á¤
%% -------------------------------------
%%      \MapHangulFamily{¿ì¸®¸»°¡Á·}{½É¹ú±Û²Ã,Çѱ۱۲Ã,ÇÑÀÚ±Û²Ã}
%%                      (±Û²ÃÀ̸§ = ÇѱÛ/½É¹ú/ÇÑÀÚ±Û²Ã)
\DeclareRobustCommand\MapHangulFamily[2]{%
  \expandafter\edef\csname #1@map\endcsname{#2}}

%% softbold¿É¼ÇÀ» ¾²¸é ¿ì¸®¸»ÀÇ µÎ²¨¿î ¾¾¸®Áî´Â S°¡ ±âº»Ä¡ÀÌ´Ù.
%% <oldhan>: softbold´Â ±âº»Ä¡ÀÌ´Ù.
\if S\expandafter\@car\bfdefault\@nil\else
\edef\bfdefault{S\bfdefault}\fi

%% hfont.cfg¿¡¼­ À̵éÀ» ¹Ì¸® ÁöÁ¤/¼öÁ¤ÇÒ ¼ö ÀÖ´Ù.
\InputIfFileExists{hfont.cfg}{}{}

%% ±âº»±Û²Ã
\MapHangulFamily{mj}{mj,sm,sm}
\MapHangulFamily{gt}{gt,gt,gt}
\MapHangulFamily{tt}{gt,gt,gt}
%% Ãß°¡±Û²Ã
%% <oldhan>: sm, mg, yt, bm, pn, mmj, mgt, mnv, msr°¡ ¾ø°í
%%           dr, gjÀÌ Ãß°¡µÊ.
\MapHangulFamily{gs}{gs,sm,gs}
\MapHangulFamily{gr}{gr,gt,gt}
\MapHangulFamily{ol}{ol,sm,sm}
\MapHangulFamily{pg}{pg,gt,gt}
\MapHangulFamily{dr}{dr,gt,gt}
\MapHangulFamily{gj}{gj,gt,gt}

\kscfamily{\symboldefault}{\hanguldefault}{\hanjadefault}

\DeclareErrorHFont{H}{\mjdefault}{m}{n}{10}
\DeclareHFontEncoding{\hencodingdefault}{}{}
\DeclareHFontSubstitution{H}{\mjdefault}{m}{n}
\hfontencoding\hencodingdefault

%%
%% ¿ì¸®¸» ã±â:
%% ------------
%% ¿ì¸®¸»Àº ¸ðµÎ \catcode=13À¸·Î ó¸®µÇ¸ç ¿ì¸®¸»Äڵ念¿ªÀÇ µÎ¹ÙÀÌÆ®°¡
%% ÇÑ ±ÛÀÚ¸¦ Çü¼ºÇÑ´Ù. ÀÌ µÎ°³ÀÇ ¹ÙÀÌÆ®¸¦ ºÐ¼®ÇÏ¿© ¿ÜºÎ±Û²ÃÀÇ Áö¼ö¿Í
%% ½É¹ú/ÇѱÛ/ÇÑÀÚÁß Çϳª¸¦ È®Á¤ÇÑ´Ù.
%%
\begingroup
\def^^ae#1#2#3{\xdef#1##1{\noexpand\h@C{\hf@}{\noexpand\ifnum`##1<#2
    D\noexpand\else\noexpand\ifnum`##1>#3 C\noexpand\else
    A\noexpand\fi\noexpand\fi}{\noexpand#1}{##1}}} 
\def^^c9#1#2{\xdef#1##1{\noexpand\h@C{\hf@}{#2}{\noexpand#1}{##1}}}
\def^^ad#1#2#3/#4{\xdef#1##1{\noexpand\h@C{\hf@}{\noexpand\ifnum`##1<#2
    #3\noexpand\else#4\noexpand\fi}{\noexpand#1}{##1}}}
%% ½É¹ú
\def\hf@{sb}
^^c9^^a1B^^c9^^a2B
\xdef^^a3#1{\noexpand\h@C{\hf@}{\noexpand\ifnum\expandafter`\noexpand#1="0DC
    A\noexpand\else D\noexpand\fi}{\noexpand^^a3}{\noexpand#1}}%
^^c9^^a4A^^c9^^a5D^^c9^^a6C^^c9^^a7B^^ae^^a8{"0B0}{"0F5}
^^ae^^a9{"0B1}{"0F5}^^c9^^aaC^^c9^^abC^^c9^^acD
%%% ÇѱÛ
\def\hf@{hg}
^^c9^^b0A^^c9^^b1A^^ad^^b2{"0E5}A/B^^c9^^b3B^^c9^^b4B^^ad^^b5{"0CB}B/C
^^c9^^b6C^^c9^^b7C^^ad^^b8{"0B1}C/D^^c9^^b9D^^ad^^ba{"0F5}D/E^^c9^^bbE
^^c9^^bcE^^ad^^bd{"0DB}E/F^^c9^^beF^^c9^^bfF^^ad^^c0{"0C1}F/G^^c9^^c1G
^^c9^^c2G^^ad^^c3{"0A7}G/H^^c9^^c4H^^ad^^c5{"0EB}H/I^^c9^^c6I^^c9^^c7I
^^ad^^c8{"0D1}I/J
%%% ùÓí®
\def\hf@{hj}
^^c9^^caA^^c9^^cbA^^ad^^cc{"0E5}A/B^^c9^^cdB^^c9^^ceB^^ad^^cf{"0CB}B/C
^^c9^^d0C^^c9^^d1C^^ad^^d2{"0B1}C/D^^c9^^d3D^^ad^^d4{"0F5}D/E^^c9^^d5E
^^c9^^d6E^^ad^^d7{"0DB}E/F^^c9^^d8F^^c9^^d9F^^ad^^da{"0C1}F/G^^c9^^dbG
^^c9^^dcG^^ad^^dd{"0A7}G/H^^c9^^deH^^ad^^df{"0EB}H/I^^c9^^e0I^^c9^^e1I
^^ad^^e2{"0D1}I/J^^c9^^e3J^^c9^^e4J^^ad^^e5{"0B7}J/K^^c9^^e6K
^^ad^^e7{"0FB}K/L^^c9^^e8L^^c9^^e9L^^ad^^ea{"0E1}L/M^^c9^^ebM^^c9^^ecM
^^ad^^ed{"0C7}M/N^^c9^^eeN^^c9^^efN^^ad^^f0{"0AD}N/O^^c9^^f1O
^^ad^^f2{"0F1}O/P^^c9^^f3P^^c9^^f4P^^ad^^f5{"0D7}P/Q^^c9^^f6Q^^c9^^f7Q
^^ad^^f8{"0BD}Q/R^^c9^^f9R^^c9^^faR^^ad^^fb{"0A3}R/S^^c9^^fcS
^^ad^^fd{"0E7}S/T

%% <oldhan>: Çѱ۱۲ðú ±Û²ÃÆÄÀÏÀÇ \charÀ§Ä¡¸¦ oldhan.tab¿¡¼­ ÀÐ¾î ±×
%%           »ó°ü°ü°è¸¦ ±â¾ï½ÃŲ´Ù.
\newread\HG@tab
\endlinechar\m@ne
\gdef\h@index#1{\ifcase#1A\or B\or C\or D\or E\or F\or G\or H\or I\or%
  J\or K\or L\or M\or N\or O\or P\or Q\or R\or S\or T\or U\or V\or%
  W\or X\or Y\fi}
\def\HG@{\read\HG@tab to\@t \expandafter\split@t\@t \relax
  \if e\expandafter\@car\@index\@nil\let\next\relax\else\let\next\HG@%
  \ifnum\count2=94\advance\count1 by1\count2\z@\fi
  \expandafter\xdef\csname\h@index{\count1}\number\count2\endcsname{%
    \noexpand\def\noexpand\f@idx{\@index}%
    \noexpand\def\noexpand\k@C{%
      \noexpand\char\number\count@%
      \ifnum\@tempcnta>0\noexpand\char\number\@tempcnta%
      \ifnum\@tempcntb>0\noexpand\char\number\@tempcntb\fi\fi}}%
  \advance\count2 by1\fi\next}
\def\split@t#1,#2,#3,#4{\edef\@index{#1}\count@#2\@tempcnta#3\@tempcntb#4}
\count1\z@\count2\z@
\openin\HG@tab=oldhan.tab \HG@ \closein\HG@tab
\endgroup

%% ¿ì¸®¸»À» ÃÖÁ¾Ã³¸®ÇÒ ¶§´Â, Èð¾îÁ® ÀÖ´Â ¿ì¸®¸»±Û²ÃÁ¤º¸¸¦ ¼öÁýÇÏ¿©
%% ÇØ´çÇÏ´Â ¿ÜºÎ±Û²ÃÀ» ãÀº ÈÄ ÀμâÇÑ´Ù. softbold°¡ ¿ä±¸µÇ¸é µÎ¹ø ´õ
%% ÁßøÀμâÇϵµ·Ï ÇÑ´Ù.
%% <oldhan>:  oldhan.tab¿¡¼­ ÀÐ¾î ±â¾ïµÈ Áö¼ö¿Í \charÀ§Ä¡¸¦ ¾´´Ù.
%%            Å͹̳¯¿¡ ³ªÅ¸³ª´Â ±ÛÀÚ´Â ½ÇÁ¦ÀÇ ÄÚµåÀ§Ä¡¿Í ´Ù¸£¹Ç·Î
%%            \hbox¾È¿¡ ¼û±ä´Ù.
\let\KSC@\string
\def\h@C#1#2#3#4{%
  \ifx\protect\@typeset@protect\begingroup
    \edef\f@encoding{\hf@encoding}%
    \edef\f@family{\csname#1@\endcsname\csname#1@family\endcsname}%
    \if o\expandafter\@car\f@family\@nil
      \@tempcnta`#3\advance\@tempcnta-"0B0\relax
      \@tempcntb`#4\advance\@tempcntb-"0A1\relax
      \csname\h@index\@tempcnta\number\@tempcntb\endcsname
    \else\def\f@idx{#2}\fi
    \edef\f@series{\hf@series}%
    \selecthfont\@Hyphen%
    \if o\expandafter\@car\f@family\@nil
      \ifvmode\leavevmode\fi%
      \hbox{\k@C\if@KSCbold\hbox to0.03ex{\hss\k@C}%
            \hbox to0.03ex{\hss\k@C}\fi}\hg@break%
    \else\KSC@#3\KSC@#4\if@KSCbold
      \hbox to0.03ex{\hss\KSC@#3\KSC@#4}%
      \hbox to0.03ex{\hss\KSC@#3\KSC@#4}\fi\fi\endgroup
  \else\KSC@#3\KSC@#4\fi}

\endinput

%%
%% End of file `hfontold.tex'.

%%% Local Variables:
%%% mode: tex
%%% End: