%!
/fstore{dup dict exch{dup 4 2 roll put}repeat def}bind def/fshow{gsave
72 TeXDict/Resolution get div -72 TeXDict/VResolution get div scale 1
DVImag div dup scale get cvx exec show grestore}bind def