/DrawJpeg {
	/bottom exch def
	/left exch def
	/z exch def
	/h exch def
	/w exch def
	/filename exch def
	gsave
	left bottom translate
	z z scale
	w h scale
	w h 8
	[w 0 0 h neg 0 h]
	filename (r) file /DCTDecode filter
	image
	grestore
} def

% Usage:
% (name.jpg) width height scale left 95 DrawJpeg