summaryrefslogtreecommitdiff
path: root/obsolete/language/armtex/v1.0/ps2mfbas.mf
blob: 9fc2791e56ce195727990be808fe0bc8789bae87 (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
% ps2mfbase.mf
def nonzerowinding =
    cull currentpicture dropping (0,0);
enddef;
extra_endchar := extra_endchar & "nonzerowinding;";
%
smoothing := 0; autorounding := 0;
turningcheck := 0;
define_pixels (FX, FY);
%
picture chp[];
pair p[];
%
def seac (expr achar, bchar, adx, ady) =
    currentpicture := chp[bchar] + chp[achar] shifted (adx * FX, ady * FY);
enddef;
def endseacchar =
    endgroup
enddef;
%
def FuF (expr p_path) =
    path this_path;
    this_path = (p_path -- cycle);
%    fill (this_path xscaled FX yscaled FY);
    fill (this_path);
enddef;
%
vardef lbl@#(text t) =
    if proofing > 1:
        forsuffixes $$=b,:
            forsuffixes $=t:
                makelabel@# (str$.$$, z$.$$);
            endfor
        endfor
    fi
enddef;
% That's all, Folks!