%    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\smallgm=grmk8
\font\ninegm=grmk9
\font\grmk=grmk10
\font\halfgm=grmk10 scaled\magstephalf
\font\biggm=grmk10 scaled\magstep1
\font\largegm=grmk10 scaled\magstep2
\font\hugegm=grmk10 scaled\magstep3
\hyphenchar\smallgm=-1
\hyphenchar\ninegm=-1
\hyphenchar\grmk=-1
\hyphenchar\halfgm=-1
\hyphenchar\biggm=-1
\hyphenchar\largegm=-1
\hyphenchar\hugegm=-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\gmblskip
\newif\ifgmmode
\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\gmsmall{\let\pgm=\smallgm\let\rsize=\smallcr%
\gmblskip=12pt\ifgmmode\gm\fi}
\def\gmnine{\let\pgm=\ninegm\let\rsize=\ninecr%
\gmblskip=13pt\ifgmmode\gm\fi}
\def\gmnormal{\let\pgm=\grmk\let\rsize=\rm%
\gmblskip=15pt\ifgmmode\gm\fi}
\def\gmhalf{\let\pgm=\halfgm\let\rsize=\halfcr%
\gmblskip=16pt\ifgmmode\gm\fi}
\def\gmbig{\let\pgm=\biggm\let\rsize=\bigcr%
\gmblskip=18pt\ifgmmode\gm\fi}
\def\gmlarge{\let\pgm=\largegm\let\rsize=\largecr%
\gmblskip=22pt\ifgmmode\gm\fi}
\def\gmhuge{\let\pgm=\hugegm\let\rsize=\hugecr%
\gmblskip=26pt\ifgmmode\gm\fi}
\def\gm{\gmmodetrue\pgm\baselineskip=\gmblskip
\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\gmnum{\let\nstyle=d}
\def\cmnum{\let\nstyle=r}
\cmnum
\def\rn#1{\if\nstyle r{\rsize #1}\else#1\fi}
\let\pgm=\grmk
\gmblskip=15pt
