morse.sty

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% morse.sty
%%
%% Täpp-Anders Sikvall
%% Copyleft 2018
%%
%% Placed in the public domain as long as accompanied by this header.
%% Email improvments to anders@sikvall.se in order to updated the
%% master style sheet. Thanks.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcommand{\Mdotlength}{3pt}
\newcommand{\Mdahlength}{9pt}
\newcommand{\Mcharseplength}{9pt}
\newcommand{\Mwordseplength}{21pt}
\newcommand{\Mdiditlength}{6pt}
\newcommand{\Mfetvadd}{1.5pt}
\newcommand{\Mcharsep}{\hspace{9pt}}
\newcommand{\Mwordsep}{\hspace{21pt}}

\newcommand{\dit}{\raisebox{0.5ex}{$\rule{\Mdotlength}{\Mfetvadd}\hspace{\Mdotlength}$}}
\newcommand{\dah}{\raisebox{0.5ex}{$\rule{\Mdahlength}{\Mfetvadd}\hspace{\Mdotlength}$}}

\newcommand{\MAdam}{\dit\dah            \Mcharsep}
\newcommand{\MBertil}{\dah\dit\dit\dit  \Mcharsep}
\newcommand{\MCesar}{\dah\dit\dah\dit   \Mcharsep}
\newcommand{\MDavid}{\dah\dit\dit       \Mcharsep}
\newcommand{\MErik}{\dit                \Mcharsep} 
\newcommand{\MFilip}{\dit\dit\dah\dit   \Mcharsep}
\newcommand{\MGustav}{\dah\dah\dit      \Mcharsep}
\newcommand{\MHelge}{\dit\dit\dit\dit   \Mcharsep}
\newcommand{\MIvar}{\dit\dit            \Mcharsep}
\newcommand{\MJohan}{\dit\dah\dah\dah   \Mcharsep}
\newcommand{\MKalle}{\dah\dit\dah       \Mcharsep}
\newcommand{\MLudvig}{\dit\dah\dit\dit  \Mcharsep}
\newcommand{\MMartin}{\dah\dah          \Mcharsep}
\newcommand{\MNiklas}{\dah\dit          \Mcharsep}
\newcommand{\MOlof}{\dah\dah\dah        \Mcharsep}
\newcommand{\MPetter}{\dit\dah\dah\dit  \Mcharsep}
\newcommand{\MQvintus}{\dah\dah\dit\dah \Mcharsep}
\newcommand{\MRudolf}{\dit\dah\dit      \Mcharsep}
\newcommand{\MSigurd}{\dit\dit\dit      \Mcharsep}
\newcommand{\MTore}{\dah                \Mcharsep}
\newcommand{\MUrban}{\dit\dit\dah       \Mcharsep}
\newcommand{\MViktor}{\dit\dit\dit\dah  \Mcharsep}
\newcommand{\MWilhelm}{\dit\dah\dah     \Mcharsep}
\newcommand{\MXerxes}{\dah\dit\dit\dah  \Mcharsep}
\newcommand{\MYngve}{\dah\dit\dah\dah   \Mcharsep}
\newcommand{\MZata}{\dah\dah\dit\dit    \Mcharsep}
\newcommand{\MAke}{\dit\dah\dah\dit\dah \Mcharsep}
\newcommand{\MArlig}{\dit\dah\dit\dah   \Mcharsep}
\newcommand{\MOsten}{\dah\dah\dah\dit   \Mcharsep}
\newcommand{\MUbel}{\dit\dit\dah\dah    \Mcharsep} % Tyskt Ü
\newcommand{\Mch}{\dah\dah\dah\dah      \Mcharsep} % Tyskt CH
\newcommand{\MEakut}{\dit\dit\dah\dit\dit \Mcharsep} % É

\newcommand{\MPunkt}{\dit\dah\dit\dah\dit\dah           \Mcharsep}
\newcommand{\MSTOP}{\MPunkt}
\newcommand{\MKomma}{\dah\dah\dit\dit\dah\dah           \Mcharsep}
\newcommand{\MFragetecken}{\dit\dit\dah\dah\dit\dit     \Mcharsep}
\newcommand{\MBraktecken}{\dah\dit\dit\dah\dit          \Mcharsep}
\newcommand{\MBindestreck}{\dah\dit\dit\dit\dit\dah     \Mcharsep}
\newcommand{\MVParen}{\dah\dit\dah\dah\dit     \Mcharsep}
\newcommand{\MHParen}{\dah\dit\dah\dah\dit\dah     \Mcharsep}
\newcommand{\MApostrof}{\dit\dah\dah\dah\dah\dit  \Mcharsep}
\newcommand{\MUnderstrykning}{\dit\dit\dah\dah\dit\dah  \Mcharsep}
\newcommand{\MUtropstecken}{\dit\dit\dah\dah\dit  \Mcharsep}
\newcommand{\MKolon}{\dah\dah\dah\dit\dit\dit  \Mcharsep}
\newcommand{\MSemikolon}{\dah\dit\dah\dit\dah\dit  \Mcharsep}

\newcommand{\MSOS}{\dit\dit\dit\dah\dah\dah\dit\dit\dit \Mcharsep}

\newcommand{\MRepetera}{\dit\dit\hspace{\Mdiditlength}\dit\dit \Mcharsep}
\newcommand{\MVanta}{\dit\dah\dit\dit\dit                     \Mcharsep}
%\newcommand{\MAvslutning}{\dit\dah\dah\dit\dah\dit            \Mcharsep}
\newcommand{\MAvslutning}{\dit\dit\dit\dah\dit\dah            \Mcharsep}
\newcommand{\MAtskillnad}{\dah\dit\dit\dit\dah                \Mcharsep}
\newcommand{\MSluttecken}{\dit\dah\dit\dah\dit          \Mcharsep}
\newcommand{\MLystring}{\dah\dit\dah\dit\dah            \Mcharsep}
\newcommand{\MForstatt}{\dit\dit\dit\dah\dit            \Mcharsep}
\newcommand{\MFelskrivning}{\dit\dit\dit\dit\dit\dit\dit\dit  \Mcharsep}
\newcommand{\MAnforing}{\dit\dah\dit\dit\dah\dit  \Mcharsep}

\newcommand{\MEtt}{\dit\dah\dah\dah\dah   \Mcharsep}
\newcommand{\MTva}{\dit\dit\dah\dah\dah	  \Mcharsep}
\newcommand{\MTre}{\dit\dit\dit\dah\dah   \Mcharsep}
\newcommand{\MFyra}{\dit\dit\dit\dit\dah  \Mcharsep}
\newcommand{\MFem}{\dit\dit\dit\dit\dit   \Mcharsep}
\newcommand{\MSex}{\dah\dit\dit\dit\dit   \Mcharsep}
\newcommand{\MSju}{\dah\dah\dit\dit\dit   \Mcharsep}
\newcommand{\MAtta}{\dah\dah\dah\dit\dit  \Mcharsep}
\newcommand{\MNio}{\dah\dah\dah\dah\dit   \Mcharsep}
\newcommand{\MNoll}{\dah\dah\dah\dah\dah  \Mcharsep}

\newcommand{\MWord}{\MWS}