summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/engwar/luvar.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/engwar/luvar.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/engwar/luvar.mf50
1 files changed, 0 insertions, 50 deletions
diff --git a/Master/texmf-dist/fonts/source/public/engwar/luvar.mf b/Master/texmf-dist/fonts/source/public/engwar/luvar.mf
deleted file mode 100644
index a7a5faa74b4..00000000000
--- a/Master/texmf-dist/fonts/source/public/engwar/luvar.mf
+++ /dev/null
@@ -1,50 +0,0 @@
-% Copyright 1986 Michael Urban
-% Everyone is granted permission to copy, modify and redistribute
-% this file, provided that a currently-dated copy of this
-% copyright notice is included in the copy.
-% License is granted to produce fonts based on the information
-% in this file, provided that such fonts are redistributed
-% without charge to any third party.
-
-% SCCS ID @(#)luvar.mf 1.1 10/1/86
-
-def luva(expr startpt, endx, looped) =
-begingroup;
- save x,y;
- z5 = startpt;
- top y6=xht; x6=.5[x5,endx];
- rt x7=endx; y7=.47xht;
- if looped :
- bot y8 =0; x8=1/4[x6,endx];
- y9 = .7thick; z9=whatever*(dir (tilt+90))+z8;
- draw z5..z6..z7{down}..z8{left}..z9; % lu'va (bow)
- else:
- bot y8 =0; x8=.7[x6,endx];
- draw z5..z6..z7{down}..z8;%{dir (tilt+180)};
- fi;
- bowpoint:= z7;
- hookpoint := z8;
- penlabels(5,6,7,8,9);
-endgroup;
-enddef;
-
-def nuluva(expr startpt, endx, looped) =
-begingroup;
- save x,y;
- z5 = startpt;
- bot y6=0; x6=.5[x5,endx];
- lft x7=endx; y7=.45xht;
- if looped :
- top y8 =xht; x8=1/4[x6,endx];
- y9 = xht-.7thick; z9=whatever*(dir (tilt-90))+z8;
- draw z5..z6..z7{up}..z8{right}..z9; % lu'va (bow)
- else:
- top y8 =xht; x8=.7[x6,endx];
- draw z5..z6..z7{up}..z8;%{dir (tilt)};
- fi;
- bowpoint:= z7;
- hookpoint := z8;
- penlabels(5,6,7,8,9);
-endgroup;
-enddef;
-