blob: c6478bdb80befeb49076569aa2b235d7d4fe823a (
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
|
% shadow.mf --- shadow effect
define_whole_pixels(ht);
shshift := 0.06ht;
svshift := -0.06ht;
def pattern=
def endchar=
cullit;
picture NormalChar;
NormalChar=currentpicture;
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);
picture OutlineChar;
OutlineChar=currentpicture;
clearit;
currentpicture:=NormalChar shifted (shshift, svshift);
picture Shadow;
Shadow:=currentpicture;
clearit;
currentpicture:=Shadow-NormalChar;
cullit;
currentpicture:=currentpicture+OutlineChar;
% The rest is from standard endchar
scantokens extra_endchar;
chardx:=w;
shipit;
if displaying>0: showit; fi
endgroup
enddef;
enddef;
% end of shadow.mf
|