From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
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

