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