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