test/zh/warichu-test/ltj-warichufnt.sty

   1 \catcode`@=11
   2 \ifx\xgujifnt@defined\@undefined
   3 \def\xgujifnt@defined{\relax}
   4 \def\gujifnt@cjkchar{国}
   5 \newbox\gujifnt@tmpbox
   6 \def\gujifnt@setdepth#1#2{%
   7   \ifdim #1=\maxdimen
   8     \setbox\gujifnt@tmpbox=\hbox{\gujifnt@cjkchar}%
   9     #2=\dp\gujifnt@tmpbox
  10   \else
  11     #2=#1%
  12   \fi
  13 }
  14 \newdimen\zmh@depth
  15 \newdimen\zmh@thickness
  16 \newdimen\zmh@skip
  17 \newbox\zmh@tmpbox
  18 \newdimen\zmh@tmpdim
  19 \newdimen\zmh@tmpdep
  20 \zmh@skip=0.1em
  21 \zmh@depth=\maxdimen
  22 \zmh@thickness=0.4pt
  23 \def\zmh#1{%
  24   \gujifnt@setdepth\zmh@depth\zmh@tmpdep
  25   \setbox\zmh@tmpbox=\hbox{#1}%
  26   \zmh@tmpdim=\wd\zmh@tmpbox
  27   \advance\zmh@tmpdim by -2\zmh@skip
  28   \hbox{\vbox to \z@{\hbox to\z@{\raise -\zmh@tmpdep\hbox{\hskip\zmh@skip\vrule width\zmh@tmpdim height\zmh@thickness
  29     \hskip\zmh@skip}\hss}\vss}#1}%
  30 }
  31 \def\zmhl#1{%
  32   \gujifnt@setdepth\zmh@depth\zmh@tmpdep
  33   \setbox\zmh@tmpbox=\hbox{#1}%
  34   \zmh@tmpdim=\wd\zmh@tmpbox
  35   \advance\zmh@tmpdim by -\zmh@skip
  36   \hbox{\vbox to \z@{\hbox to\z@{\raise -\zmh@tmpdep\hbox{\hskip\zmh@skip\vrule width\zmh@tmpdim height\zmh@thickness
  37     }\hss}\vss}#1}%
  38 }
  39 \def\zmhm#1{%
  40   \gujifnt@setdepth\zmh@depth\zmh@tmpdep
  41   \setbox\zmh@tmpbox=\hbox{#1}%
  42   \zmh@tmpdim=\wd\zmh@tmpbox
  43   \hbox{\vbox to \z@{\hbox to\z@{\raise -\zmh@tmpdep\hbox{\vrule width\zmh@tmpdim height\zmh@thickness
  44     }\hss}\vss}#1}%
  45 }
  46 \def\zmhr#1{%
  47   \gujifnt@setdepth\zmh@depth\zmh@tmpdep
  48   \setbox\zmh@tmpbox=\hbox{#1}%
  49   \zmh@tmpdim=\wd\zmh@tmpbox
  50   \advance\zmh@tmpdim by -\zmh@skip
  51   \hbox{\vbox to \z@{\hbox to\z@{\raise -\zmh@tmpdep\hbox{\vrule width\zmh@tmpdim height\zmh@thickness
  52     \hskip\zmh@skip}\hss}\vss}#1}%
  53 }
  54 \fi