blob: cedb93e9cfa294067da3b9dd4ce2fbce526b02fb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
% outline.mf --- outline effect
def pattern=
def endchar=
cull currentpicture keeping (1, infinity);
picture v; v := currentpicture;
cull currentpicture keeping (1,1) withweight 3;
addto currentpicture also v - v shifted right
- v shifted left - v shifted up - v shifted down;
cull currentpicture keeping (1,4);
% rest from standard endchar
scantokens extra_endchar;
chardx:=w;
shipit;
if displaying>0: showit; fi
endgroup
enddef;
enddef;
% end of outline.mf
|
