summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/ptex-fontmaps/jis04cmap_exp/jis-v04-vttk.tex
blob: a205d0b05ab3bb5d3b8ebf0053333b1b4e357616 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
%#!platex  jis-v04-vttk.tex
\documentclass{jsarticle}
\usepackage{otf}
\usepackage[width=46zw,centering, lines=40, papersize={257truemm,182truemm}]{geometry}
\advance\topmargin1.5in
\advance\oddsidemargin-1.5in
\usepackage{plext}
\usepackage[dvipdfmx]{xcolor}
\makeatletter

\special{pdf:mapline rmlv 2004-V !Ryumin-Light}
\special{pdf:mapline gbmv JISX0213-2004-V !Ryumin-Light}
\countdef\jOne256
\countdef\jTwo257
\countdef\KuNum260
\def\Hex@{%
  \xdef\Result{\ifcase\count@ 0\or1\or2\or3\or4\or5\or6\or7\or8\or9\or A\or B\or C\or D\or E\or F\fi\Result}%
}

\def\Hex#1{{%
  \@tempcnta=#1\def\Result{}
  \@tempcntb=\numexpr(\@tempcnta-8)/16\relax
  \count@=\numexpr\@tempcnta-16*\@tempcntb\relax\@tempcnta=\@tempcntb\Hex@
  \@tempcntb=\numexpr(\@tempcnta-8)/16\relax
  \count@=\numexpr\@tempcnta-16*\@tempcntb\relax\@tempcnta=\@tempcntb\Hex@
  \@tempcntb=\numexpr(\@tempcnta-8)/16\relax
  \count@=\numexpr\@tempcnta-16*\@tempcntb\relax\@tempcnta=\@tempcntb\Hex@
  \@tempcntb=\numexpr(\@tempcnta-8)/16\relax
  \count@=\numexpr\@tempcnta-16*\@tempcntb\relax\@tempcnta=\@tempcntb\Hex@ 
  \tt\Result
}}

\fboxsep.2pt\fboxrule.2pt
\newdimen\Masu\Masu=22pt

\def\Hako#1{\hbox to\Masu{\hss#1\hss}}
\def\Ku#1{\vbox{\paragraph{\protect\rensuji{#1}区}%
  \leavevmode\par\noindent\baselineskip16pt
  {\tt\hbox to 2.5em{\hss\rm JIS\hss}%
  \Hako{\tt0}\Hako{\tt1}\Hako{\tt2}\Hako{\tt3}%
  \Hako{\tt4}\Hako{\tt5}\Hako{\tt6}\Hako{\tt7}%
  \Hako{\tt8}\Hako{\tt 9}\Hako{\tt A}\Hako{\tt B}%
  \Hako{\tt C}\Hako{\tt D}\Hako{\tt E}\Hako{\tt F}\\
  \@tempcnta1\loop\ifnum\@tempcnta<7
    \advance\@tempcnta1
    \Hex{\numexpr 8192+256*#1+16*\@tempcnta\relax}\ 
    {\@tempcntb-1\loop\ifnum\@tempcntb<15
      \advance\@tempcntb1
       \count@=\numexpr 16*\@tempcnta+\@tempcntb\relax
       \ifnum\count@>32\ifnum \count@<127
         \Hako{\color{white}\fbox{\Y
	   \color{red}\char\numexpr "A080+256*#1+\count@\relax%"
 	   }}\kern-\Masu%
         \Hako{\color{blue!40!white}\fbox{\X
	   \color{black}\char\numexpr "A080+256*#1+\count@\relax%"
 	   }}%
      \else\Hako{}\fi\else\Hako{}\fi
      \repeat}\\%
  \repeat}
}}
\begin{document}
\tate\tbaselineshift.25zw

\textgt{\noindent 
黒文字……自動生成した\texttt{2004-V}によるもの\\
\textcolor{red}{赤文字……ttkさん作の\texttt{JISX0213-2004-V}によるもの}}
\medskip

\font\X=rmlv at 12pt
\font\Y=gbmv at 12pt
\KuNum0
\loop\ifnum\KuNum<13
  \advance\KuNum1
  \Ku{\the\KuNum}%
\repeat

\end{document}