diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/engwar/lucap.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/engwar/lucap.mf | 50 |
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; + |