From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- fonts/morse/morse.def | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 fonts/morse/morse.def (limited to 'fonts/morse/morse.def') diff --git a/fonts/morse/morse.def b/fonts/morse/morse.def new file mode 100644 index 0000000000..c949cee369 --- /dev/null +++ b/fonts/morse/morse.def @@ -0,0 +1,23 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% 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; -- cgit v1.2.3