summaryrefslogtreecommitdiff
path: root/fonts/ptex-fontmaps/jis04cmap_exp/jis-v04-vttk.tex
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/ptex-fontmaps/jis04cmap_exp/jis-v04-vttk.tex')
-rw-r--r--fonts/ptex-fontmaps/jis04cmap_exp/jis-v04-vttk.tex77
1 files changed, 77 insertions, 0 deletions
diff --git a/fonts/ptex-fontmaps/jis04cmap_exp/jis-v04-vttk.tex b/fonts/ptex-fontmaps/jis04cmap_exp/jis-v04-vttk.tex
new file mode 100644
index 0000000000..a205d0b05a
--- /dev/null
+++ b/fonts/ptex-fontmaps/jis04cmap_exp/jis-v04-vttk.tex
@@ -0,0 +1,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} \ No newline at end of file