blob: e9743b7d1a73dd6472d51f92b510bcdd5b44f777 (
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
|
% DNMACS.TEX
% TeX macros for the use of Devanagari fonts
%
% Copyright (C) 1991 University of Groningen, The Netherlands
%
% Author: Frans J. Velthuis
% Internet: velthuis@rc.rug.nl
% Bitnet: velthuis@hgrrug5
%
% This program is free software; you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation; either version 1, or (at your option)
% any later version.
%
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this program; if not, write to the Free Software
% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
%
\font\smalldn=dvng8
\font\ninedn=dvng9
\font\dvng=dvng10
\font\halfdn=dvng10 scaled\magstephalf
\font\bigdn=dvng10 scaled\magstep1
\font\largedn=dvng10 scaled\magstep2
\font\hugedn=dvng10 scaled\magstep3
\hyphenchar\smalldn=-1
\hyphenchar\ninedn=-1
\hyphenchar\dvng=-1
\hyphenchar\halfdn=-1
\hyphenchar\bigdn=-1
\hyphenchar\largedn=-1
\hyphenchar\hugedn=-1
\font\smallcr=cmr8
\font\ninecr=cmr9
\font\halfcr=cmr10 scaled\magstephalf
\font\bigcr=cmr10 scaled\magstep1
\font\largecr=cmr10 scaled\magstep2
\font\hugecr=cmr10 scaled\magstep3
\let\rsize=\rm
\newcount\chnum
\newdimen\itdim
\newdimen\dnblskip
\newif\ifdnmode
\chnum=0
\loop\catcode\chnum=11
\ifnum\chnum<12\advance\chnum by1
\repeat
\chnum=14
\loop\catcode\chnum=11
\ifnum\chnum<31\advance\chnum by1
\repeat
\catcode127=11
\def\subscr#1{\/\itdim=\lastkern
\unkern\kern-\itdim \lower\dp0 \hbox to\itdim{#1\hfil}}
\def\dnsmall{\let\pdn=\smalldn\let\rsize=\smallcr%
\dnblskip=12pt\ifdnmode\dn\fi}
\def\dnnine{\let\pdn=\ninedn\let\rsize=\ninecr%
\dnblskip=13pt\ifdnmode\dn\fi}
\def\dnnormal{\let\pdn=\dvng\let\rsize=\rm%
\dnblskip=15pt\ifdnmode\dn\fi}
\def\dnhalf{\let\pdn=\halfdn\let\rsize=\halfcr%
\dnblskip=16pt\ifdnmode\dn\fi}
\def\dnbig{\let\pdn=\bigdn\let\rsize=\bigcr%
\dnblskip=18pt\ifdnmode\dn\fi}
\def\dnlarge{\let\pdn=\largedn\let\rsize=\largecr%
\dnblskip=22pt\ifdnmode\dn\fi}
\def\dnhuge{\let\pdn=\hugedn\let\rsize=\hugecr%
\dnblskip=26pt\ifdnmode\dn\fi}
\def\dn{\dnmodetrue\pdn\baselineskip=\dnblskip
\tolerance=10000
\pretolerance=10000}
\def\0{\llap{\char13}}
\def\1{\llap{\char32}}
\def\2{\llap{\char92}}
\def\3#1w{{\char"#1}}
\def\4{\llap{\char123}}
\def\5{\llap{\char125}}
\def\6#1{\setbox0=\hbox{#1}#1\subscr{\char126}}
\def\7#1{\setbox0=\hbox{#1}#1\subscr{\char0}}
\def\8#1{\setbox0=\hbox{#1}#1\subscr{\char1}}
\def\9#1{\setbox0=\hbox{#1}#1\subscr{\char2}}
\def\qa#1#2{\setbox0=\hbox{#1}#1\subscr{\char253\kern1.5ex\lower1.25ex
\hbox{\char#2}\kern-1.5ex}}
\def\qb#1{\setbox0=\hbox{#1}#1\subscr{\char253}}
\def\qq#1{\setbox0=\hbox{#1}#1\subscr{\char94}}
\def\qx#1{\setbox0=\hbox{#1}#1\subscr{\char14}}
\def\qy#1{\setbox0=\hbox{#1}#1\subscr{\char31}}
\def\qz#1{\setbox0=\hbox{#1}#1\subscr{\char124}}
\def\qva{\kern0.5ex\2\kern-0.5ex}
\def\qvb{\kern1ex\0\kern-1ex}
\def\qvc{\kern1ex\rdt\kern-1ex}
\def\?{\llap{\char3}}
\def\<{\llap{\char4}}
\def\rs{\rsize\thinspace}
\let\re=\thinspace
\def\rdt{\llap{\char19}}
\def\dnnum{\let\nstyle=d}
\def\cmnum{\let\nstyle=r}
\cmnum
\def\rn#1{\if\nstyle r{\rsize #1}\else#1\fi}
\let\pdn=\dvng
\dnblskip=15pt
|
