% 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;