Adobe-Japanグリフ一覧

\documentclass[uplatex,dvipdfmx]{jsarticle}
\usepackage[width=570pt,height=720pt,noheadfoot]{geometry}
\usepackage{otf}
\usepackage{color}
\usepackage{pgffor}
\usepackage{numprint}
\npthousandsep{}
\nplpadding{5}

\AtBeginDvi{\special{pdf:mapline otf-cjmr-h Identity-H KozMinPr6N-Regular.otf}}

\makeatletter

\newif\iftcqgz@ok
\newcommand*{\AJCID}[2][]{%
  \begingroup 
    \kanjifamily{cidj}%
    \setbox\z@\hbox{\set@character=#2}%
    \ifdim\wd\z@>\z@ \unhbox\z@ \aftergroup\tcqgz@oktrue \fi
  \endgroup
  \iftcqgz@ok\tcqgz@okfalse\else #1\fi}

\definecolor{cBkGray}{rgb}{.9,.9,.9}
\definecolor{cNaGray}{rgb}{.75,.75,.75}
\setlength{\fboxsep}{0pt}
\newcommand*{\xPH}[1]{%
  \newpage
  \begin{center}\LARGE\sffamily\bfseries
    \@tempcnta=#1
    \advance\@tempcnta by 1999
    Adobe-Japan 1-6: Glyphs CID+\numprint{\the#1}--\numprint{\the\@tempcnta}
  \end{center}}
\newcommand*{\xLH}[1]{%
  \par\noindent
  {\small\usefont{T1}{txtt}{m}{n}\numprint{\the#1}}\hspace{15pt}}
\newcommand*{\xBH}{\hspace{5pt}}
\newcommand*{\xC}[1]{\makebox[10pt][c]{\colorbox{cBkGray}{\AJCID[\xNA]{#1}}}}
\newcommand*{\xNA}{\textcolor{cNaGray}{\rule[-1.2pt]{10pt}{10pt}}}

\newcount\i
\newif\ifCIDunfinished
\CIDunfinishedtrue

\makeatother

\begin{document}
\foreach \p in {0,...,11}{%
  \ifCIDunfinished\xPH{\i}\fi
  \foreach \q in {0,...,39}{%
    \ifCIDunfinished\xLH{\i}\fi
    \foreach \r in {0,...,4}{%
      \foreach \s in {0,...,9}{%
        \ifnum\i<23058
          \xC{\i}%
          \global\advance \i by 1
        \else
          \global\CIDunfinishedfalse
        \fi}%
      \ifCIDunfinished\xBH\fi
    }}}%
\end{document}