%(c) 1990,91 by Joel M. Hoffman    belongs to hcaption, hclassic.
%dots.tex.  Version 1.0.
%updated 5/15/91 by JMH


%Use of this material in a commercial venture of any sort requires
%permission from me.  Otherwise, you are free to use this for any
%legal, non-destructive purpose.  If you find this useful, a
%contribution to charity will be most appreciated.

%This file provides the following commands:
%  \dagesh{ let }       % put a _dagesh_ in the letter _let_.
%  \shindot{ let }      % put a dot in the upper-right corner of letter _let_.
%  \sindot { let }      % put a dot in the upper-left corder of letter _let_.
%  \shinwithdot         % A \shin with a dot.
%  \sinwithdot          % A \sin with a dot.
%  \Shinwithdot         % A \Shin (i.e., \shin with a _dagesh_) with a dot.
%  \Sinwithdot          % A \Sin (i.e., \sin with a _dagesh_) with a dot.
%  \odot                % _Cholem Chaseir_
%  \vavdot              % A dot for use over a vav (to create a _cholem male_)
%  \vavwithdot          % _Cholem male_
%  \Vavwithdot          % _Cholem male_ with a _dagesh_ (!?!)

%Send comments or complaints to:
%
%BITNET:      hoffman@nyuacf.BITNET  <-- this will change soon
%CompuServe:  72700,402 -or- 72700.402@compuserve.com
%SNAIL:       Joel M. Hoffman
%             19 Hillcrest Lane
%             Rye, NY 10580
%             U.S.A.                            


\def\dagesh#1{{\setbox0=\hbox{#1}%
\let\l=#1%
\def\vadj{.5}\def\hadj{0}%
\if\l\shin\def\hadj{.1}\fi
\if\l\vav\def\hadj{-.4}\fi
\if\l\pe\def\hadj{.1}\fi
\if\l\gimel\def\hadj{-.2}\fi
\if\l\nun\def\hadj{-.2}\fi
\if\l\zion\def\hadj{-.4}\fi
\if\l\tet\def\hadj{.1}\fi
\if\l\tzadi\def\hadj{.1}\fi
\if\l\yud\def\hadj{-.5}\fi
\if\l\lamed\def\vadj{.3}\fi
\if\l\yud\def\vadj{.7}\fi
\hbox to 0pt{%
\kern \hadj\wd0%
\kern .5\wd0%
\raise \vadj\ht0%
\hbox{\char000}%
\kern -\hadj\wd0%
\kern -.5\wd0}%
\box0%
}}

\def\shindot#1{{\setbox0=\hbox{#1}%
\hbox to 0pt{%
\kern.78\wd0%;
\raise1.2\ht0%
\hbox{\char000}%
\kern-.78\wd0}%
\box0%
}}

\def\sindot#1{{\setbox0=\hbox{#1}%
\hbox to 0pt{%
\kern.20\wd0%
\raise1.2\ht0%
\hbox{\char000}%
\kern-.20\wd0}%
\box0%
}}
\def\shinwithdot{\shindot{\shin}}
\def\Shinwithdot{\shindot{\Shin}}
\def\sinwithdot{\sindot{\sin}}
\def\Sinwithdot{\sindot{\Sin}}

\def\odot{\setbox0=\hbox{\vav}%
\kern.1\wd0\raise1.2\ht0\hbox{\char000}\kern.1\wd0}

\def\vavdot#1{{\setbox0=\hbox{#1}%
\hbox to 0pt{%
\kern.5\wd0\raise1.2\ht0\hbox{\char000}\kern-.5\wd0}%
\box0%
}}

\def\vavwithdot{\vavdot{\vav}}
\def\Vavwithdot{\vavdot{\Vav}}
