fonts/hands/mirror.mf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

% pattern_mirror (for PCs, written as mirror.mf)
def pattern=
def endchar=
tracingequations:=1;
cullit;
picture normalchar;
normalchar:=currentpicture;
 
picture mirrorimage;
  mirrorimage:=normalchar
  reflectedabout ((0,0),(0,h))
  shifted (w,0);
currentpicture:=mirrorimage;
scantokens extra_endchar;
chardx:=w;
shipit;
if displaying>0: showit; fi
endgroup;
enddef;
enddef;