morse.def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% morse.def :  CODE (Version 1.00, January 1, 1998) %%
%% Udo Heyl, Stregdaer Allee, 99817 Eisenach GERMANY %%
%% to be used under LaTeX.2E  supported by MORSE.STY %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

def dot=fill fullcircle scaled 1.2pt shifted enddef;
def bar=fill superellipse((4.5a,.5b),(2a,b),(-.5a,.5b),(2a,0),1)% 
                                                shifted enddef;
def barbar=bar (0,0); bar (6a,0) enddef;
def bardot=bar (0,0); dot (6a,2b) enddef;
def dotbar=dot (0,2b); bar (2a,0) enddef;
def dotdot=dot (0,2b); dot (2a,2b) enddef;
def barbarbar=barbar; bar (12a,0) enddef;
def barbardot=barbar; dot (12a,2b) enddef;
def bardotbar=bardot; bar (8a,0) enddef;
def bardotdot=bardot; dot (8a,2b) enddef;
def dotbarbar=dotbar; bar (8a,0) enddef;
def dotbardot=dotbar; dot (8a,2b) enddef;
def dotdotbar=dotdot; bar (4a,0) enddef;
def dotdotdot=dotdot; dot (4a,2b) enddef;
def beg(expr a,b)=beginchar(a,b*U#,U#,0) enddef;
beginchar(0,U#,U#,0); "dummy"; pickup norm_pen; a=.1w; b=.1h; endchar;