% \iffalse meta-comment
%
% Copyright (C) 2001 by T. Honda, A. Inagaki and A. Kakuto 
% --------------------------------------------------
% 
% This file may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.2
% of this license or (at your option) any later version.
% The latest version of this license is in:
%
%    http://www.latex-project.org/lppl.txt
%
% and version 1.2 or later is part of all distributions of LaTeX 
% version 1999/12/01 or later.
%
% File: gtftex.dtx (TH,AI,AK)
% \fi
%
% \iffalse
%<gtftex>\NeedsTeXFormat{pLaTeX2e}
%<gtftex>\ProvidesPackage{gtftex}[2004/08/19 v0.7 TH,AI,AK]
%
%<*driver>
\documentclass{jltxdoc}
\usepackage{gtftex}
\EnableCrossrefs         
\CodelineIndex
\RecordChanges
\setcounter{IndexColumns}{2}
\begin{document}
\DocInput{gtftex.dtx}
\end{document}
%</driver>
% \fi
%
% \CheckSum{541}
%
% \CharacterTable
%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%   Digits        \0\1\2\3\4\5\6\7\8\9
%   Exclamation   \!     Double quote  \"     Hash (number) \#
%   Dollar        \$     Percent       \%     Ampersand     \&
%   Acute accent  \'     Left paren    \(     Right paren   \)
%   Asterisk      \*     Plus          \+     Comma         \,
%   Minus         \-     Point         \.     Solidus       \/
%   Colon         \:     Semicolon     \;     Less than     \<
%   Equals        \=     Greater than  \>     Question mark \?
%   Commercial at \@     Left bracket  \[     Backslash     \\
%   Right bracket \]     Circumflex    \^     Underscore    \_
%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%   Right brace   \}     Tilde         \~}
%
% \changes{v0.1}{2001/03/18}{1st version}
% \changes{v0.2}{2001/04/15}{2nd version}
% \changes{v0.3}{2001/09/12}{3rd version}
% \changes{v0.4}{2002/09/29}{4th version}
% \changes{v0.5}{2003/02/23}{5th version}
% \changes{v0.6}{2004/08/03}{6th version}
% \changes{v0.7}{2004/08/19}{7th version}
%
% \GetFileInfo{gtftex.sty}
%
% \DoNotIndex{\newcommand,\newenvironment}
% \title{GT書体パッケージgtftex~\fileversion}
% \author{本田知亮、稲垣淳、角藤亮}
% \date{\filedate}
% \maketitle
%
% \thispagestyle{empty}
% \tableofcontents
% \clearpage
% \section{はじめに}
% \noindent このマクロパッケージは日本学術振興会未来開拓学術研究推進事業
%「マルチメディア通信システムにおける多国語処理の研究」プロジェクト
% の成果物であるGT書体TrueType Font(以下、TTF)をp\LaTeXe{}で使うためのものです。
% virtual fontによって、GT書体収録の各文字の整理番号(以下、GT番号)を
% 実際のGT書体TTFのコードポイントに割り当てることによって、
% 実際のグリフを得る仕組みになっていますので、
% virtual fontおよびTTFに対応したdviware以外では
% 使えません。dviout for Windows ver.3.11.6以降、
% dvips(k) (VFlib 対応のものを含む --- W32TeX では dvipsv)
% で使えます。それぞれの dviware については、このパッケージ
% のディレクトリ `dviware' を参照して下さい。
% \par\noindent
% 全く同じdviを用いて、Omegaj (Lambdaj)用のGT書体type1フォントを共有して
% \textsc{PostScript}ファイルをdvipskで作成することができます。
% つまり、type1フォントを使用する場合も、特別な virtual フォントを
% 使用することによって、日本語フォントとして認識するようにしています。
% このことは、PDF作成時に便利です。なお、dvipdfmx
% を用いる場合は、直接TrueType フォントを
% PDF に埋め込むことができます。
% \par\noindent
% なお、GT書体のすべての権利は日本学術振興会に帰属します。
% 本パッケージの開発はGTプロジェクトおよび OPEN-TEXT LIMITED COMPANY から
% 研究用として頂いた資料をもとに行われています。
% 資料を送って戴いた、OPEN-TEXT LIMITED COMPANY の飯田様に感謝致します。
% 現在の gtftex パッケージは gt200001.ttf (Ver. 1.10),
% gt200009.ttf (Ver. 1.10), gt200011.ttf (Ver. 2.32) のフォント用
% になっています。他のものは Ver. 1.02 であり、gt2000k1.ttf と
% gt2000k2.ttf は Ver. 1.20 です。お持ちの GT フォントが古い場合には
% 上のバージョンのフォントにバージョンアップする必要があります。
% \par\noindent
% 以前のバージョンでは、奥村さんの新ドキュメントクラス用に、別パッケージ
% を用意していましたが、このバージョンから統合しました。
% |\usepackage{gtftex}| によってパッケージを読み込むと、いずれの場合も
% 使用できるようになります。
%
% \StopEventually{\PrintChanges\PrintIndex}
%
% \section{マクロ}
% \subsection{GT書体呼び出しマクロ}
% \begin{macro}{\GT}
% マクロ名は乙部さんの検索ツールのデフォルトにあわせてみました。
% 書式は(1) |\GT{num}|, (2) |\GT{GT2000-ab SJIS}|,
% (3) |\GT{GT2000-ab 嘘}|の3通りあり、
% (1)において\meta{num}にはGT番号を入力します。
% (2), (3) における\meta{ab}は、GTフォントの種類を示す指標で、
% 01, 02, 03, 04, 05, 06, 07, 08, 09, 10, 11, k1, k2のうちの一つを
% 指定します。これらの指標は、フォントgt200001.ttf,\ldots, gt200011.ttf
% およびgt2000k1.ttf, gt2000k2.ttfに対応します。
% gt2000k1.ttf と gt2000k2.ttf は文字の構成要素を含むものであり、
% 通常の文書で使用することは殆どありません。文字検索アプリケーション
% 等で使用されるものです。
% また\meta{SJIS}は16進大文字によるシフトJIS文字コードです。
% 最後に(3)で`嘘'とある部分には、通常のエンコーディングでの
% 漢字を入力しておきます。この入力方法は``代理文字形式''と呼ばれます。
% 例を示すと
% |\GT{000205}|,
% |\GT{GT2000-02 8956}|,
% |\GT{GT2000-02 鰻}|は全て同じ文字を表しています。
% (2), (3)の記法における、|GT2000-| なるプレフィックスはそのまま
% 入力しないとエラーになります。また |GT2000-ab| の後に一個の
% スペースを置かなければいけません。
% \par\noindent
% このパッケージでは、必要な資源を最小にするため、
% 縦書きは|\rensuji|で実現してあります。すなわち縦書き文書で句読点
% などにGTフォントを使用することはできません。
% \par\noindent
% まず、内部で計算をするために必要なカウンタ等を定義しておきます。
%    \begin{macrocode}
%<*gtftex>
\newif\if@jsclasses
\@jsclassesfalse
\@ifclassloaded{jsarticle}{\@jsclassestrue}{}
\@ifclassloaded{jsbook}{\@jsclassestrue}{}
\if@jsclasses
\def\gtf@sc@le{0.92469}%
\def\vgtf@sc@le{0.961}%
\else
\def\gtf@sc@le{0.962216}%
\def\vgtf@sc@le{1}%
\fi
\newcount\@GT@F@NT@NUM%
\newcount\@JIS@C@DE%
\edef\first@gtcode{1}
\edef\last@gtcode{69263}
\edef\number@fcode{6355}
\def\@gt@f@ntnum#1{%
\ifcase#1%
01\or02\or03\or04\or05\or06\or07\or08\or09\or10\or11\fi}
%</gtftex>
%    \end{macrocode}
% 次に|\GT{GT2000-02 8956}|と|\GT{GT2000-02 鰻}|の記法(代理文字形式)を
% 実現します。
%    \begin{macrocode}
%<*gtftex>
\def\get@first@letter#1#2\nil{\def\fword{#1}}
\def\prefix@GT{G}%
\def\get@GTfont@code GT2000-#1 #2\nil{%
\def\GTfont{#1}\def\GTcode{#2}}
\DeclareRobustCommand{\GT}[1]{%
\begingroup
\get@first@letter#1\nil%
\ifx\prefix@GT\fword\relax%
  \get@GTfont@code#1\nil%
  \expandafter\get@first@letter\GTcode\nil%
  \ifx\GTcode\fword%%    \GT{GT2000-nn 漢}
    \iftdir%
      \rensuji{\usekanji{JY1}{gtf}{m}{\GTfont}\GTcode}%
    \else%
      \usekanji{JY1}{gtf}{m}{\GTfont}\GTcode%
    \fi%
  \else%%%%%%%%%%%%%%    \GT{GT2000-nn SJIS}
    \iftdir%
      \rensuji{\usekanji{JY1}{gtf}{m}{\GTfont}\char\sjis"\GTcode}%
    \else%
      \usekanji{JY1}{gtf}{m}{\GTfont}\char\sjis"\GTcode%
    \fi%
  \fi%
\else%%%%%%%%%%%%%%%%    \GT{gtfontnumber}
%</gtftex>
%    \end{macrocode}
% 次に|\GT{num}| なる記法を実現します。
% ここで採用した仮想フォントは、GTフォントを6355文字ずつ
% に分けています。このことを考慮すれば、簡単にJISコードを
% 求めることができます。
%    \begin{macrocode}
%<*gtftex>
  \@tempcnta#1\relax%
  \ifnum\@tempcnta>\last@gtcode\relax%
    \@latex@error{You cannot use gtcode larger
        than \last@gtcode}\@ehc%
  \fi%
  \ifnum\@tempcnta<\first@gtcode\relax%
    \@latex@error{You cannot use gtcode smaller
        than \first@gtcode}\@ehc%
  \fi%
%</gtftex>
%    \end{macrocode}
% 廃止されたGT番号を、警告とします。
%    \begin{macrocode}
%<*gtftex>
  \ifnum\@tempcnta=176%
    \@latex@warning{176 was abolished. Use 3212 instead.}\fi
  \ifnum\@tempcnta=4099%
    \@latex@warning{4099 was abolished. Use 11027 instead.}\fi
  \ifnum\@tempcnta=5145%
    \@latex@warning{5145 was abolished. Use 5168 instead.}\fi
  \ifnum\@tempcnta=15756%
    \@latex@warning{15756 was abolished. Use 15743 instead.}\fi
  \ifnum\@tempcnta=18424%
    \@latex@warning{18424 was abolished. Use 18411 instead.}\fi
  \ifnum\@tempcnta=19637%
    \@latex@warning{19637 was abolished. Use 19462 instead.}\fi
  \ifnum\@tempcnta=40434%
    \@latex@warning{40434 was abolished. Use 40433 instead.}\fi
  \ifnum\@tempcnta=51124%
    \@latex@warning{51124 was abolished. Use 51130 instead.}\fi
  \ifnum\@tempcnta=45250%
    \@latex@warning{45250 was abolished. Use 63839 instead.}\fi
  \ifnum\@tempcnta=38622%
    \@latex@warning{38622 was abolished. Use 18289 instead.}\fi
  \ifnum\@tempcnta=23501%
    \@latex@warning{23501 was abolished. Use 23453 instead.}\fi
  \ifnum\@tempcnta=30105%
    \@latex@warning{30105 was abolished. Use 30084 instead.}\fi
  \ifnum\@tempcnta=31062%
    \@latex@warning{31062 was abolished. Use 31070 instead.}\fi
  \ifnum\@tempcnta=20402%
    \@latex@warning{20402 was abolished. Use 20409 instead.}\fi
  \ifnum\@tempcnta=40229%
    \@latex@warning{40229 was abolished. Use 40241 instead.}\fi
  \ifnum\@tempcnta=40041%
    \@latex@warning{40041 was abolished. Use 40246 instead.}\fi
  \ifnum\@tempcnta=40451%
    \@latex@warning{40451 was abolished. Use 40399 instead.}\fi
  \ifnum\@tempcnta=40290%
    \@latex@warning{40290 was abolished. Use 40546 instead.}\fi
  \ifnum\@tempcnta=41838%
    \@latex@warning{41838 was abolished. Use 41872 instead.}\fi
  \ifnum\@tempcnta=67166%
    \@latex@warning{67166 was abolished. Use 29594 instead.}\fi
  \ifnum\@tempcnta=68023%
    \@latex@warning{68023 was abolished. Use 67459 instead.}\fi
  \ifnum\@tempcnta=68931%
    \@latex@warning{68931 was abolished. Use 68930 instead.}\fi
  \ifnum\@tempcnta=68891%
    \@latex@warning{68891 was abolished. Use 68889 instead.}\fi
  \@tempcntb\@tempcnta\relax%
  \divide\@tempcnta by \number@fcode%
  \@GT@F@NT@NUM\@tempcnta\relax% font number - 1 (used as fontshape)
  \multiply\@tempcnta by \number@fcode%
  \advance\@tempcntb by -\@tempcnta%
%</gtftex>
%    \end{macrocode}
% 第47区には空きがあることを考慮します。
%    \begin{macrocode}
%<*gtftex>
  \ifnum\@tempcntb>2964\relax%
     \advance\@tempcntb by 43%
  \fi%
  \@tempcnta\@tempcntb\relax%
  \divide\@tempcntb by 94%
  \@JIS@C@DE\@tempcntb\relax%
  \multiply\@tempcntb by 94%
  \advance\@tempcnta by -\@tempcntb%
  \multiply\@JIS@C@DE by 256%
  \advance\@JIS@C@DE by \@tempcnta%
  \advance\@JIS@C@DE by 12321% JIScode
  \iftdir
    \rensuji{\usekanji{JY1}{vgtf}{m}{\@gt@f@ntnum\@GT@F@NT@NUM}%
    \char\jis\@JIS@C@DE\relax}%
  \else
    \usekanji{JY1}{vgtf}{m}{\@gt@f@ntnum\@GT@F@NT@NUM}%
    \char\jis\@JIS@C@DE\relax%
  \fi
\fi
\endgroup}
%</gtftex>
%    \end{macrocode}
% \end{macro}
% \section{fdファイル}
% fdファイルです。縦書きの方はタイプセット時におけるWarningを
% 無くするだけのためのダミーです。
%    \begin{macrocode}
%<*jy1gtf>
\DeclareFontFamily{JY1}{gtf}{}
\DeclareRelationFont{JY1}{gtf}{m}{}{OT1}{cmr}{m}{}
\DeclareRelationFont{JY1}{gtf}{bx}{}{OT1}{cmr}{bx}{}
\DeclareFontShape{JY1}{gtf}{m}{01}{<-> s * [\gtf@sc@le] gtf01}{}
\DeclareFontShape{JY1}{gtf}{m}{02}{<-> s * [\gtf@sc@le] gtf02}{}
\DeclareFontShape{JY1}{gtf}{m}{03}{<-> s * [\gtf@sc@le] gtf03}{}
\DeclareFontShape{JY1}{gtf}{m}{04}{<-> s * [\gtf@sc@le] gtf04}{}
\DeclareFontShape{JY1}{gtf}{m}{05}{<-> s * [\gtf@sc@le] gtf05}{}
\DeclareFontShape{JY1}{gtf}{m}{06}{<-> s * [\gtf@sc@le] gtf06}{}
\DeclareFontShape{JY1}{gtf}{m}{07}{<-> s * [\gtf@sc@le] gtf07}{}
\DeclareFontShape{JY1}{gtf}{m}{08}{<-> s * [\gtf@sc@le] gtf08}{}
\DeclareFontShape{JY1}{gtf}{m}{09}{<-> s * [\gtf@sc@le] gtf09}{}
\DeclareFontShape{JY1}{gtf}{m}{10}{<-> s * [\gtf@sc@le] gtf10}{}
\DeclareFontShape{JY1}{gtf}{m}{11}{<-> s * [\gtf@sc@le] gtf11}{}
\DeclareFontShape{JY1}{gtf}{m}{k1}{<-> s * [\gtf@sc@le] gtfk1}{}
\DeclareFontShape{JY1}{gtf}{m}{k2}{<-> s * [\gtf@sc@le] gtfk2}{}
\DeclareFontShape{JY1}{gtf}{bx}{01}{<-> ssub * gtf/m/01}{}
\DeclareFontShape{JY1}{gtf}{bx}{02}{<-> ssub * gtf/m/02}{}
\DeclareFontShape{JY1}{gtf}{bx}{03}{<-> ssub * gtf/m/03}{}
\DeclareFontShape{JY1}{gtf}{bx}{04}{<-> ssub * gtf/m/04}{}
\DeclareFontShape{JY1}{gtf}{bx}{05}{<-> ssub * gtf/m/05}{}
\DeclareFontShape{JY1}{gtf}{bx}{06}{<-> ssub * gtf/m/06}{}
\DeclareFontShape{JY1}{gtf}{bx}{07}{<-> ssub * gtf/m/07}{}
\DeclareFontShape{JY1}{gtf}{bx}{08}{<-> ssub * gtf/m/08}{}
\DeclareFontShape{JY1}{gtf}{bx}{09}{<-> ssub * gtf/m/09}{}
\DeclareFontShape{JY1}{gtf}{bx}{10}{<-> ssub * gtf/m/10}{}
\DeclareFontShape{JY1}{gtf}{bx}{11}{<-> ssub * gtf/m/11}{}
\DeclareFontShape{JY1}{gtf}{bx}{k1}{<-> ssub * gtf/m/k1}{}
\DeclareFontShape{JY1}{gtf}{bx}{k2}{<-> ssub * gtf/m/k2}{}
%</jy1gtf>
%    \end{macrocode}
%    \begin{macrocode}
%<*jy1vgtf>
\DeclareFontFamily{JY1}{vgtf}{}
\DeclareRelationFont{JY1}{vgtf}{m}{}{OT1}{cmr}{m}{}
\DeclareRelationFont{JY1}{vgtf}{bx}{}{OT1}{cmr}{bx}{}
\DeclareFontShape{JY1}{vgtf}{m}{01}{<-> s * [\vgtf@sc@le] vgtf01}{}
\DeclareFontShape{JY1}{vgtf}{m}{02}{<-> s * [\vgtf@sc@le] vgtf02}{}
\DeclareFontShape{JY1}{vgtf}{m}{03}{<-> s * [\vgtf@sc@le] vgtf03}{}
\DeclareFontShape{JY1}{vgtf}{m}{04}{<-> s * [\vgtf@sc@le] vgtf04}{}
\DeclareFontShape{JY1}{vgtf}{m}{05}{<-> s * [\vgtf@sc@le] vgtf05}{}
\DeclareFontShape{JY1}{vgtf}{m}{06}{<-> s * [\vgtf@sc@le] vgtf06}{}
\DeclareFontShape{JY1}{vgtf}{m}{07}{<-> s * [\vgtf@sc@le] vgtf07}{}
\DeclareFontShape{JY1}{vgtf}{m}{08}{<-> s * [\vgtf@sc@le] vgtf08}{}
\DeclareFontShape{JY1}{vgtf}{m}{09}{<-> s * [\vgtf@sc@le] vgtf09}{}
\DeclareFontShape{JY1}{vgtf}{m}{10}{<-> s * [\vgtf@sc@le] vgtf10}{}
\DeclareFontShape{JY1}{vgtf}{m}{11}{<-> s * [\vgtf@sc@le] vgtf11}{}
\DeclareFontShape{JY1}{vgtf}{bx}{01}{<-> ssub * vgtf/m/01}{}
\DeclareFontShape{JY1}{vgtf}{bx}{02}{<-> ssub * vgtf/m/02}{}
\DeclareFontShape{JY1}{vgtf}{bx}{03}{<-> ssub * vgtf/m/03}{}
\DeclareFontShape{JY1}{vgtf}{bx}{04}{<-> ssub * vgtf/m/04}{}
\DeclareFontShape{JY1}{vgtf}{bx}{05}{<-> ssub * vgtf/m/05}{}
\DeclareFontShape{JY1}{vgtf}{bx}{06}{<-> ssub * vgtf/m/06}{}
\DeclareFontShape{JY1}{vgtf}{bx}{07}{<-> ssub * vgtf/m/07}{}
\DeclareFontShape{JY1}{vgtf}{bx}{08}{<-> ssub * vgtf/m/08}{}
\DeclareFontShape{JY1}{vgtf}{bx}{09}{<-> ssub * vgtf/m/09}{}
\DeclareFontShape{JY1}{vgtf}{bx}{10}{<-> ssub * vgtf/m/10}{}
\DeclareFontShape{JY1}{vgtf}{bx}{11}{<-> ssub * vgtf/m/11}{}
%</jy1vgtf>
%    \end{macrocode}
%    \begin{macrocode}
%<*jt1gtf>
\DeclareFontFamily{JT1}{gtf}{}
\DeclareRelationFont{JT1}{gtf}{m}{}{OT1}{cmr}{m}{}
\DeclareRelationFont{JT1}{gtf}{bx}{}{OT1}{cmr}{bx}{}
\DeclareFontShape{JT1}{gtf}{m}{01}{<-> jis-v}{}
\DeclareFontShape{JT1}{gtf}{m}{02}{<-> jis-v}{}
\DeclareFontShape{JT1}{gtf}{m}{03}{<-> jis-v}{}
\DeclareFontShape{JT1}{gtf}{m}{04}{<-> jis-v}{}
\DeclareFontShape{JT1}{gtf}{m}{05}{<-> jis-v}{}
\DeclareFontShape{JT1}{gtf}{m}{06}{<-> jis-v}{}
\DeclareFontShape{JT1}{gtf}{m}{07}{<-> jis-v}{}
\DeclareFontShape{JT1}{gtf}{m}{08}{<-> jis-v}{}
\DeclareFontShape{JT1}{gtf}{m}{09}{<-> jis-v}{}
\DeclareFontShape{JT1}{gtf}{m}{10}{<-> jis-v}{}
\DeclareFontShape{JT1}{gtf}{m}{11}{<-> jis-v}{}
\DeclareFontShape{JT1}{gtf}{m}{k1}{<-> jis-v}{}
\DeclareFontShape{JT1}{gtf}{m}{k2}{<-> jis-v}{}
\DeclareFontShape{JT1}{gtf}{bx}{01}{<-> ssub * gtf/m/01}{}
\DeclareFontShape{JT1}{gtf}{bx}{02}{<-> ssub * gtf/m/02}{}
\DeclareFontShape{JT1}{gtf}{bx}{03}{<-> ssub * gtf/m/03}{}
\DeclareFontShape{JT1}{gtf}{bx}{04}{<-> ssub * gtf/m/04}{}
\DeclareFontShape{JT1}{gtf}{bx}{05}{<-> ssub * gtf/m/05}{}
\DeclareFontShape{JT1}{gtf}{bx}{06}{<-> ssub * gtf/m/06}{}
\DeclareFontShape{JT1}{gtf}{bx}{07}{<-> ssub * gtf/m/07}{}
\DeclareFontShape{JT1}{gtf}{bx}{08}{<-> ssub * gtf/m/08}{}
\DeclareFontShape{JT1}{gtf}{bx}{09}{<-> ssub * gtf/m/09}{}
\DeclareFontShape{JT1}{gtf}{bx}{10}{<-> ssub * gtf/m/10}{}
\DeclareFontShape{JT1}{gtf}{bx}{11}{<-> ssub * gtf/m/11}{}
\DeclareFontShape{JT1}{gtf}{bx}{k1}{<-> ssub * gtf/m/k1}{}
\DeclareFontShape{JT1}{gtf}{bx}{k2}{<-> ssub * gtf/m/k2}{}
%</jt1gtf>
%    \end{macrocode}
%    \begin{macrocode}
%<*jt1vgtf>
\DeclareFontFamily{JT1}{vgtf}{}
\DeclareRelationFont{JT1}{vgtf}{m}{}{OT1}{cmr}{m}{}
\DeclareRelationFont{JT1}{vgtf}{bx}{}{OT1}{cmr}{bx}{}
\DeclareFontShape{JT1}{vgtf}{m}{01}{<-> jis-v}{}
\DeclareFontShape{JT1}{vgtf}{m}{02}{<-> jis-v}{}
\DeclareFontShape{JT1}{vgtf}{m}{03}{<-> jis-v}{}
\DeclareFontShape{JT1}{vgtf}{m}{04}{<-> jis-v}{}
\DeclareFontShape{JT1}{vgtf}{m}{05}{<-> jis-v}{}
\DeclareFontShape{JT1}{vgtf}{m}{06}{<-> jis-v}{}
\DeclareFontShape{JT1}{vgtf}{m}{07}{<-> jis-v}{}
\DeclareFontShape{JT1}{vgtf}{m}{08}{<-> jis-v}{}
\DeclareFontShape{JT1}{vgtf}{m}{09}{<-> jis-v}{}
\DeclareFontShape{JT1}{vgtf}{m}{10}{<-> jis-v}{}
\DeclareFontShape{JT1}{vgtf}{m}{11}{<-> jis-v}{}
\DeclareFontShape{JT1}{vgtf}{bx}{01}{<-> ssub * vgtf/m/01}{}
\DeclareFontShape{JT1}{vgtf}{bx}{02}{<-> ssub * vgtf/m/02}{}
\DeclareFontShape{JT1}{vgtf}{bx}{03}{<-> ssub * vgtf/m/03}{}
\DeclareFontShape{JT1}{vgtf}{bx}{04}{<-> ssub * vgtf/m/04}{}
\DeclareFontShape{JT1}{vgtf}{bx}{05}{<-> ssub * vgtf/m/05}{}
\DeclareFontShape{JT1}{vgtf}{bx}{06}{<-> ssub * vgtf/m/06}{}
\DeclareFontShape{JT1}{vgtf}{bx}{07}{<-> ssub * vgtf/m/07}{}
\DeclareFontShape{JT1}{vgtf}{bx}{08}{<-> ssub * vgtf/m/08}{}
\DeclareFontShape{JT1}{vgtf}{bx}{09}{<-> ssub * vgtf/m/09}{}
\DeclareFontShape{JT1}{vgtf}{bx}{10}{<-> ssub * vgtf/m/10}{}
\DeclareFontShape{JT1}{vgtf}{bx}{11}{<-> ssub * vgtf/m/11}{}
%</jt1vgtf>
%    \end{macrocode}
% \section{サンプル}
% 稲垣さんによる、GT書体の一覧サンプルです。
%    \begin{macrocode}
%<*sample>
\documentclass[a4j]{jarticle}
\makeatletter
\newcounter{CMapcnta}
\newcounter{CMapcntb}
\edef\@Max@gtcode{69263}
\def\GTTABLE{%
  \reset@font
  \@ifnextchar[{\@GTTABLE}{\@GTTABLE[000001]}}
\def\@GTTABLE[#1]#2{\begingroup
   \setcounter{CMapcnta}{#1}\divide\value{CMapcnta}100\relax
   \multiply\value{CMapcnta}100\setcounter{CMapcntb}{\theCMapcnta}%
   \divide\value{CMapcntb}10\relax
   \loop\ifnum\value{CMapcnta}<#2\@@GTTABLE
   \vskip10mm\repeat\endgroup}
\newcommand{\@@GTTABLE}{%
    \begin{tabular}{r|cccccccccc}%
    &0&1&2&3&4&5&6&7&8&9\\ \hline
    \Retu\\\Retu\\\Retu\\\Retu\\\Retu\\
    \Retu\\\Retu\\\Retu\\\Retu\\\Retu\\
    \hline\end{tabular}}
\newcommand{\@Gyo}{%
    \ifnum\value{CMapcntb} < 10 0000\theCMapcntb 0\else
    \ifnum\value{CMapcntb} < 100 000\theCMapcntb 0\else
    \ifnum\value{CMapcntb} < 1000 00\theCMapcntb 0\else
    \ifnum\value{CMapcntb} < 10000 0\theCMapcntb 0\else
    \ifnum\value{CMapcntb} < 100000 \theCMapcntb 0\else
    \theCMapcntb\fi\fi\fi\fi\fi\refstepcounter{CMapcntb}}
\newcommand{\Retu}{%
    \@Gyo&\GT@NUM&\GT@NUM&\GT@NUM&\GT@NUM&
    \GT@NUM&\GT@NUM&\GT@NUM&\GT@NUM&
    \GT@NUM&\GT@NUM}
\newcommand{\GT@NUM}{%
   \ifnum\value{CMapcnta}=0\relax\else%
   \ifnum\value{CMapcnta}>\@Max@gtcode\relax\else%
   \GT{\theCMapcnta}\fi\fi%
   \refstepcounter{CMapcnta}}%
\makeatother
\usepackage{gtftex}
\begin{document}
\GTTABLE{69263}
\end{document}
%</sample>
%    \end{macrocode}
% \Finale
\endinput
