summaryrefslogtreecommitdiff
path: root/fonts/morse/morse.def
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/morse/morse.def')
-rw-r--r--fonts/morse/morse.def23
1 files changed, 23 insertions, 0 deletions
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;