fonts/hands/rvmirror.mf


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

% pattern_revmirror.mf (for PCs written as rvmirror.mf)
def pattern=
def endchar=
tracingequations:=1;
cullit;
 
picture phaseone;
phaseone=currentpicture;
currentpicture:=nullpicture;
fill (0,-desc)--(w,-desc)--(w,cap)--(0,cap)--cycle;
cullit;
 
picture phasetwo;
phasetwo=currentpicture-phaseone;
 
picture phasethree;
phasethree:=phasetwo
  reflectedabout ((0,0),(0,h))
  shifted (w,0);
currentpicture:=phasethree;
scantokens extra_endchar;
chardx:=w;
shipit;
if displaying>0:  showit; fi
endgroup;
enddef;
enddef;