summaryrefslogtreecommitdiff
path: root/fonts/engwar/lucap.mf
blob: 04a1fa5e5a3b2634df08cde54102a2293d8c0215 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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;