summaryrefslogtreecommitdiff
path: root/language/japanese/uptex-base/samples/adobe-cid.tex
blob: cbab16eabee0c2f329532d4aac268befe3a20dd0 (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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
\documentclass{article}

%%%%%%%%
%  Adobe-Japan1-5:
%   $ uplatex adobe-cid.tex
%   $ uplatex "\def\adobe{jp}\input" adobe-cid.tex
%  Adobe-Japan1-6:
%   $ uplatex "\def\adobe{jp6}\input" adobe-cid.tex
%  Adobe-Japan1-7: (require the development version of the otf package)
%   $ uplatex "\def\adobe{jp7}\input" adobe-cid.tex
%  Adobe-CNS1-7: (require the development version of the otf package)
%   $ uplatex "\def\adobe{cns7}\input" adobe-cid.tex
%  Adobe-CNS1-6: (require the development version of the otf package)
%   $ uplatex "\def\adobe{cns6}\input" adobe-cid.tex
%  Adobe-CNS1-5:
%   $ uplatex "\def\adobe{cns}\input" adobe-cid.tex
%  Adobe-GB1-5:
%   $ uplatex "\def\adobe{gb}\input" adobe-cid.tex
%  Adobe-Korea1-2:
%   $ uplatex "\def\adobe{kr}\input" adobe-cid.tex
%
%  for gtfamily
%   $ uplatex "\def\adobe{jp}\def\family{gt}\input" adobe-cid.tex
%   $ uplatex "\def\adobe{cns}\def\family{gt}\input" adobe-cid.tex
%   $ uplatex "\def\adobe{gb}\def\family{gt}\input" adobe-cid.tex
%   $ uplatex "\def\adobe{kr}\def\family{gt}\input" adobe-cid.tex
%%%%%%

\usepackage[uplatex,multi]{otf}

\textwidth180mm
\textheight255mm
\topmargin-20mm
\oddsidemargin-8mm

\makeatletter
\def\@adobecns{cns}
\def\@adobecnssix{cns6}
\def\@adobecnsseven{cns7}
\def\@adobegb{gb}
\def\@adobejapan{jp}
\def\@adobejapansix{jp6}
\def\@adobejapanseven{jp7}
\def\@adobekorea{kr}
\def\@gtfamily{gt}

\newcommand{\CIDx}{\CID}
\newcommand{\Name}{Adobe-Japan1-5}
\newcommand{\CIDmax}{20316}
%\newcommand{\Name}{Adobe-Japan1-6}
%\newcommand{\CIDmax}{23057}
%\newcommand{\Name}{Adobe-Japan1-7}
%\newcommand{\CIDmax}{23059}

\ifx\adobe\@adobejapanseven
%  \renewcommand{\CIDx}{\CID}
  \renewcommand{\Name}{Adobe-Japan1-7}
  \renewcommand{\CIDmax}{23059}
\fi
\ifx\adobe\@adobejapansix
%  \renewcommand{\CIDx}{\CID}
  \renewcommand{\Name}{Adobe-Japan1-6}
  \renewcommand{\CIDmax}{23057}
\fi
\ifx\adobe\@adobecnsseven
  \renewcommand{\CIDx}{\CIDT}
  \renewcommand{\Name}{Adobe-CNS1-7}
  \renewcommand{\CIDmax}{19178}
\fi
\ifx\adobe\@adobecnssix
  \renewcommand{\CIDx}{\CIDT}
  \renewcommand{\Name}{Adobe-CNS1-6}
  \renewcommand{\CIDmax}{19155}
\fi
\ifx\adobe\@adobecns
  \renewcommand{\CIDx}{\CIDT}
  \renewcommand{\Name}{Adobe-CNS1-5}
  \renewcommand{\CIDmax}{19087}
\fi
\ifx\adobe\@adobegb
  \renewcommand{\CIDx}{\CIDC}
  \renewcommand{\Name}{Adobe-GB1-5}
  \renewcommand{\CIDmax}{30283}
\fi
\ifx\adobe\@adobekorea
  \renewcommand{\CIDx}{\CIDK}
  \renewcommand{\Name}{Adobe-Korea1-2}
  \renewcommand{\CIDmax}{18351}
\fi
\ifx\family\@gtfamily
  \newcommand{\currentfamily}{\gtfamily}
  \newcommand{\FamilyName}{gtfamily}
\else
  \newcommand{\currentfamily}{\mcfamily}
  \newcommand{\FamilyName}{mcfamily}
\fi
\makeatother

\newcounter{I}
\newcounter{J}
\newcounter{K}
\newcommand{\Kmax}{50}
\setcounter{J}{0}
\setcounter{I}{-1}

\begin{document}
\parindent0pt
\Name~~\FamilyName
\currentfamily

\makeatletter
\@tempcnta=\CIDmax
\advance\@tempcnta1
\edef\CIDmax{\number\the\@tempcnta}%
\@tempcnta=\CIDmax
\divide\@tempcnta by \Kmax
\advance\@tempcnta1
\newcommand{\Jmax}{\number\@tempcnta}%
\@whilenum\value{J}<\Jmax\do{%
 \setcounter{K}{0}%
 \stepcounter{I}%
 {\number\the\c@I: }
\@whilenum\value{K}<\Kmax\do{%
 \c@I=\the\c@J
 \multiply\c@I by \Kmax
 \advance \c@I by \c@K
 \ifnum\c@I<\CIDmax{%
%  \typeout{debug:(\the\c@I)}%
  {\CIDx{\number\the\c@I}}%
 }\fi
 \stepcounter{K}%
}%
 {\\}%
 \stepcounter{J}%
}
\makeatother

\end{document}