summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/ofs/ofs-6s.tex
blob: 2f41493fd2a60090cf4f4c60541d6c7204bd547a (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
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
% Encoding definition of fonts by Storm Type Foundry
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Jun 2001                                Petr Olsak
% Feb 2004

% See stormtex.html and ofsdoc.tex manuals for more details.

\ifx \characterdef \undefined \input ofs \fi
\protectreading ofs-6s.tex % This is part of OFS package

\ifx \characterdef \undefined \input ofs \fi

\fontmessage {\ofsmessageheader 
   Characters + accents of fonts by Storm Type Foundry defined.}

%% Extra encoding, characters %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\characterdef \onesuperior    6s  1
\characterdef \twosuperior    6s  2
\characterdef \threesuperior  6s  3
\characterdef \textleq        6s  4
\characterdef \textneq        6s  5
\characterdef \textgeq        6s  6
\characterdef \textpm         6s  7
\characterdef \onequarter     6s  8
\characterdef \onehalf        6s  9
\characterdef \threequarters  6s  10
\characterdef \fraction       6s  11
\characterdef \degree         6s  12
\characterdef \brokenbar      6s  13
\characterdef \fullbar        6s  124
\characterdef \textsum        6s  16

\characterdef \textOmega      6s  17
\characterdef \textminus      6s  0
\characterdef \textmu         6s  19
\characterdef \textDelta      6s  20
\characterdef \textneg        6s  21
\characterdef \textinfty      6s  22
\characterdef \textradical    6s  23
\characterdef \textbackslash  6s  92
\characterdef \textbraceleft  6s  123
\characterdef \textbraceright 6s  125
\characterdef \textless       6s  60
\characterdef \textgreater    6s  62
\characterdef \texttimes      6s  14
\characterdef \textdiv        6s  15

\characterdef \quotedbl       6s  34
\characterdef \asciicircum    6s  94
\characterdef \underscore     6s  95
\characterdef \asciitilde     6s  126
\characterdef \periodcentered 6s  127

\characterdef \ordfeminine    6s  24
\characterdef \ordmasculine   6s  25

\characterdef \vargrave       6s  26
\characterdef \varacute       6s  27
\characterdef \varcaron       6s  28
\characterdef \varcircumflex  6s  29
\characterdef \varbreve       6s  30
\characterdef \varring        6s  31
\characterdef \varmacron      6s  35
\characterdef \vardotaccent   6s  36
\characterdef \varhungarumlaut 6s 37
\characterdef \varogonek      6s  38
\characterdef \varcedilla     6s  39
\characterdef \vartilde       6s  40
\characterdef \vardieresis    6s  41
\characterdef \commaaccent    6s  42

\characterdef \euro           6s  136  \let\Euro=\euro

\characterdef \franc          6s  137
\characterdef \cent           6s  168
\characterdef \yen            6s  169

\characterdef \varv           6s  18  % This character has a bad internal
                                      % Type1 name: pi, sometimes it looks
        			      % as pi, sometimes as varv :-(
\characterdef \ligct          6s  128
\characterdef \ligst          6s  129
\characterdef \ligft          6s  130
\characterdef \longst         6s  131
\characterdef \longs          6s  132
\characterdef \florin         6s  134

\characterdef \dag            6s  160
\characterdef \ddag           6s  161
\characterdef \textbullet     6s  162
\characterdef \paragraph      6s  163
\characterdef \ellipsis       6s  164
\characterdef \trademark      6s  165
\let\copyright=\relax
\characterdef \copyright      *   {\ofscopyright}
\characterdef \copyright      6s  166
\characterdef \registered     6s  167
\characterdef \currency       6s  168 % Does not work in Storm fonts
 
\characterdef \varzero        6s  48
\characterdef \varone         6s  49
\characterdef \vartwo         6s  50
\characterdef \varthree       6s  51
\characterdef \varfour        6s  52
\characterdef \varfive        6s  53
\characterdef \varsix         6s  54
\characterdef \varseven       6s  55
\characterdef \vareight       6s  56
\characterdef \varnine        6s  57

\characterdef \Eth            6s  144
\characterdef \eth            6s  176
\characterdef \Thorn          6s  145
\characterdef \thorn          6s  177
\characterdef \IJ             6s  156
\characterdef \ij             6s  188
\characterdef \O              6s  216
\characterdef \o              6s  248

%%% Extra encoding, accented letters %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\accentdef  \~ A    6s  195
\accentdef  \= A    6s  196
\accentdef  \r A    6s  197
\accentdef  \~ a    6s  227
\accentdef  \= a    6s  228
\accentdef  \r a    6s  229
\accentdef  \^ C    6s  198
\accentdef  \. C    6s  199
\accentdef  \^ c    6s  230
\accentdef  \. c    6s  231
\accentdef  \= d    6s  135
\accentdef  \` E    6s  200
\accentdef  \u E    6s  201
\accentdef  \^ E    6s  202
\accentdef  \= E    6s  203
\accentdef  \. E    6s  193
\accentdef  \` e    6s  232
\accentdef  \u e    6s  233
\accentdef  \^ e    6s  234
\accentdef  \= e    6s  235
\accentdef  \. e    6s  225
\accentdef  \u G    6s  154
\accentdef  \^ G    6s  218
\accentdef  \. G    6s  219
\accentdef  \c G    6s  220
\accentdef  \u g    6s  186
\accentdef  \^ g    6s  250
\accentdef  \. g    6s  251
\accentdef  \c g    6s  252
\accentdef  \' g    6s  185
\accentdef  \^ H    6s  222
\accentdef  \= H    6s  223
\accentdef  \^ h    6s  254
\accentdef  \= h    6s  255
\accentdef  \. I    6s  157
\accentdef  \` I    6s  204
\accentdef  \~ I    6s  205
\accentdef  \= I    6s  206
\accentdef  \" I    6s  207
\accentdef  \k I    6s  208
\accentdef  \. i    6s  `\i
\accentdef  \` i    6s  236
\accentdef  \~ i    6s  237
\accentdef  \= i    6s  238
\accentdef  \" i    6s  239
\accentdef  \k i    6s  240
\accentdef  \^ J    6s  155
\accentdef  \^ j    6s  187
\accentdef  \c K    6s  215
\accentdef  \c k    6s  247
\accentdef  \c L    6s  158
\accentdef  \. L    6s  159
\accentdef  \c l    6s  190
\accentdef  \. l    6s  191
\accentdef  \~ N    6s  209
\accentdef  \c N    6s  214
\accentdef  \m n    6s  184
\accentdef  \~ n    6s  241
\accentdef  \c n    6s  246
\accentdef  \` O    6s  210
\accentdef  \= O    6s  211
\accentdef  \u O    6s  212
\accentdef  \~ O    6s  213
\accentdef  \` o    6s  242
\accentdef  \= o    6s  243
\accentdef  \u o    6s  244
\accentdef  \~ o    6s  245
\accentdef  \c R    6s  147
\accentdef  \c r    6s  179
\accentdef  \m S    6s  221
\accentdef  \^ S    6s  148
\accentdef  \m s    6s  253
\accentdef  \^ s    6s  180
\accentdef  \= T    6s  140
\accentdef  \m T    6s  141
\accentdef  \= t    6s  172
\accentdef  \m t    6s  173
\accentdef  \= U    6s  142
\accentdef  \u U    6s  143
\accentdef  \^ U    6s  149
\accentdef  \k U    6s  150
\accentdef  \~ U    6s  151
\accentdef  \` U    6s  217
\accentdef  \= u    6s  174
\accentdef  \u u    6s  175
\accentdef  \^ u    6s  181
\accentdef  \k u    6s  182
\accentdef  \~ u    6s  183
\accentdef  \` u    6s  249
\accentdef  \^ W    6s  192
\accentdef  \^ w    6s  224
\accentdef  \^ Y    6s  194
\accentdef  \" Y    6s  146
\accentdef  \^ y    6s  226
\accentdef  \" y    6s  178

%%% Extra characters from StormL2Encoding (no present in 8z standard)

\modifydef 8z:storm; {%
   \characterdef \degree      8z  176
   \characterdef \euro        8z  134
   \characterdef \trademark   8z  136
   \characterdef \copyright   8z  137
   \characterdef \registered  8z  138
   \characterdef \flq         8z  142
   \characterdef \frq         8z  143
   \characterdef \clq         8z  154
   \characterdef \crq         8z  155
   \characterdef \ligct       8z  145
   \characterdef \ligst       8z  146
   \characterdef \ligft       8z  147
   \characterdef \longst      8z  148
   \characterdef \longs       8z  149
   \characterdef \varv        8z  144
   \characterdef \florin      8z  151
}

%%% Differences between StormT1Encoding and standard T1 encoding %%%%%

\modifydef 8t:storm;{%
   \characterdel \promile              8t {\%\char 24 }
   \characterdef \promile   8t  24  % the "perzero" is missing in Storm fonts
   \characterdel \textpertenthousand   8t {\%\char 24\char 24 } 
   \characterdel \dotlessj  8t  26
   \characterdef \varv      8t  26  % dotlessj is missing in Storm fonts
}
\modifydef 6s:noligs; {%
   \characterdel \ligct           6s  128
   \characterdel \ligst           6s  129
   \characterdel \ligft           6s  130
}

\modifydef 6s:vardigits;{%
   \characterdef \vardigits * {\setextrafont}
}

%%% The \CAP? macros %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% variant accents for capital letters

\def\CAP#1{\csname CAP\string#1\endcsname}
\def\CAPdef #1 {\expandafter\def\csname CAP\string#1\endcsname}

\def\CAPv {\aboveCAP \varcaron \v}
\def\CAPu {\aboveCAP \varbreve \u}
\def\CAPr {\aboveCAP \varring \r}
\def\CAPH {\aboveCAP \varhungarumlaut \H}
\CAPdef ` {\aboveCAP \vargrave \`}
\CAPdef ' {\aboveCAP \varacute \'}
\CAPdef = {\aboveCAP \varmacron \=}
\CAPdef ^ {\aboveCAP \varcircumflex \^}
\CAPdef . {\aboveCAP \vardotaccent \.}
\CAPdef " {\aboveCAP \vardieresis \"}
\CAPdef ~ {\aboveCAP \vartilde \~}

\def\aboveCAP #1#2{%
   \ifx\expandaction\noexpand
      \noexpand\aboveCAP \noexpand#1\noexpand#2%
   \else
      \csname fragilecommand!\endcsname
      \setbox2=\hbox{X}\dimen4=\ht2
      \setbox0=\hbox{#1}\dimen0=\ht0 \advance\dimen0 by-.2ex
      \ifdim\dimen4>\dimen0 \def\tmpa{#2}%
      \else \def\tmpa{\accentabove {#1}{-\dimen4}}%
      \fi \expandafter \tmpa
   \fi
}

%%% \stmath sets some math characters from extra encoding %%%%%%

% use in this order: \setfonts [Family/] \stmath \setmath[//]

\def\stmath{\ifx\extraenc\stextraenc
      \def\mathfonts{\defaultmathfonts
         \csname st\mathversion math\endcsname}%
      \def\mathchars{\defaultmathchars \stmathchars \let\mathchars=\relax}%
   \else \displaymessage{\ofsmessageheader WARNING.
      No extra enc 6s defined. \noexpand\stmath ignored.}%
   \fi
}   
\def\stextraenc{6s}

\def\stnormalmath{%
   \newmathfam \Xrmfam
   \loadmathfam \Xrmfam [Xtenrm/]%
}
\def\stboldmath{%
   \newmathfam \Xrmfam
   \loadmathfam \Xrmfam [Xtenbf/]%
}
\def\stmathchars{%
   \mathcode`\- "2\hex\Xrmfam 00
   \mathcode`\< "3\hex\Xrmfam 3C
   \mathcode`\> "3\hex\Xrmfam 3E
   %
   \edef\lbrace{\delimiter"4\hex\Xrmfam 7B308 }\let\{=\lbrace
   \edef\vert  {\delimiter"2\hex\Xrmfam 7C30C }\let\|=\vert
   \edef\rbrace{\delimiter"5\hex\Xrmfam 7D309 }\let\}=\rbrace
   %
   \mathchardef \leq    "3\hex\Xrmfam 04    \let\le=\leq
   \mathchardef \neq    "3\hex\Xrmfam 05    \let\ne=\neq
   \mathchardef \geq    "3\hex\Xrmfam 06    \let\ge=\geq
   \mathchardef \neg    "3\hex\Xrmfam 15    \let\lnot=\neg
   \mathchardef \pm     "2\hex\Xrmfam 07
   \mathchardef \times  "2\hex\Xrmfam 0E
   \mathchardef \div    "2\hex\Xrmfam 0F
   \mathchardef \infty  "2\hex\Xrmfam 16
   %
   \safemathchardef \onesuperior   "\hex\Xrmfam 01
   \safemathchardef \twosuperior   "\hex\Xrmfam 02
   \safemathchardef \threesuperior "\hex\Xrmfam 03
   \safemathchardef \onequarter    "\hex\Xrmfam 08
   \safemathchardef \onehalf       "\hex\Xrmfam 09
   \safemathchardef \threequarters "\hex\Xrmfam 0A
   \safemathchardef \fraction      "\hex\Xrmfam 0B
   \mathchardef     \dagger       "2\hex\Xrmfam A0
   \mathchardef     \ddagger      "2\hex\Xrmfam A1
   \safemathchardef \dag           "\hex\Xrmfam A0
   \safemathchardef \ddag          "\hex\Xrmfam A1
   \let\bullet=\textbullet
   \safemathchardef \bullet       "2\hex\Xrmfam A2
}

%%% eof

\endinput %%% the following macros will be included in LANG style files

%%% Macros for quotes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\singleuv#1{\clq#1\crq}
\def\doubleuv#1{\clqq#1\crqq}
\def\singlefuv#1{\frq#1\flq}
\def\doublefuv#1{\frqq#1\flqq}
\let\uv=\doubleuv  
\let\fuv=\doublefuv