% 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;
