summaryrefslogtreecommitdiff
path: root/dviware/psprint/unix/pstext.tex
blob: 4c0f6bf272aee1d31547ccb13e21102173bb19a6 (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
% \PStext should be used before switching to a PostScript text font.
% It allows the use of the standard macros for foreign letters and accents.
% \PStext is best used inside a group so that these macro definitions
% automatically revert to the standard definitions at the end of the group.
% If it is undesirable to place \PStext inside a group then \CMtext should
% be called before using a Computer Modern text font.

\def\PStext
{% PostScript foreign language locations:
\chardef\ss="FB%
\chardef\ae="F1%
\chardef\oe="FA%
\chardef\o="F9%
\chardef\AE="E1%
\chardef\OE="EA%
\chardef\O="E9%
\chardef\i="F5%
\chardef\l="F8%
\chardef\L="E8%
\def\j{\write16{No dotless j in this font!}}%
\def\aa{\write16{No a-with-circle in this font!}}%
\def\AA{\write16{No A-with-circle in this font!}}%
% PostScript accent locations:
\def\`##1{{\accent193 ##1}}%
\def\'##1{{\accent194 ##1}}%
\def\v##1{{\accent207 ##1}}%
\def\u##1{{\accent198 ##1}}%
\def\=##1{{\accent197 ##1}}%
\def\^##1{{\accent195 ##1}}%
\def\.##1{{\accent199 ##1}}%
\def\H##1{{\accent205 ##1}}%
\def\~##1{{\accent196 ##1}}%
\def\"##1{{\accent200 ##1}}%
\def\b##1{\oalign{##1\crcr\hidewidth%
\vbox to.2ex{\hbox{\char197}\vss}\hidewidth}}%
\def\c##1{\setbox0\hbox{##1}\ifdim\ht0=1ex\accent203 ##1%
\else{\ooalign{\hidewidth\char203\hidewidth\crcr\unhbox0}}\fi}%
\def\t{\write16{No tie accent in this font!}}%
}

\def\CMtext
{% Computer Modern foreign language locations:
\chardef\ss="19%
\chardef\ae="1A%
\chardef\oe="1B%
\chardef\o="1C%
\chardef\AE="1D%
\chardef\OE="1E%
\chardef\O="1F%
\chardef\i="10%
\chardef\j="11%
\def\l{\char32l}%
\def\L{\leavevmode\setbox0\hbox{L}\hbox to\wd0{\hss\char32L}}%
\def\aa{\accent23a}%
\def\AA{\leavevmode\setbox0\hbox{h}\dimen0\ht0\advance\dimen0-1ex%
\rlap{\raise.67\dimen0\hbox{\char'27}}A}%
% Computer Modern accent locations:
\def\`##1{{\accent18 ##1}}%
\def\'##1{{\accent19 ##1}}%
\def\v##1{{\accent20 ##1}}\let\^^_=\v%
\def\u##1{{\accent21 ##1}}\let\^^S=\u%
\def\=##1{{\accent22 ##1}}%
\def\^##1{{\accent94 ##1}}\let\^^D=\^%
\def\.##1{{\accent95 ##1}}%
\def\H##1{{\accent"7D ##1}}%
\def\~##1{{\accent"7E ##1}}%
\def\"##1{{\accent"7F ##1}}%
\def\b##1{\oalign{##1\crcr\hidewidth%
\vbox to.2ex{\hbox{\char22}\vss}\hidewidth}}%
\def\c##1{\setbox0\hbox{##1}\ifdim\ht0=1ex\accent24 ##1%
\else{\ooalign{\hidewidth\char24\hidewidth\crcr\unhbox0}}\fi}%
\def\t##1{{\edef\next{\the\font}\the\textfont1\accent"7F\next##1}}%
}