%!
/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