summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/engwar/lucap.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/engwar/lucap.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/engwar/lucap.mf50
1 files changed, 50 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/engwar/lucap.mf b/Master/texmf-dist/fonts/source/public/engwar/lucap.mf
new file mode 100644
index 00000000000..04a1fa5e5a3
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/engwar/lucap.mf
@@ -0,0 +1,50 @@
+% 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;
+