md begin 
/cp{
%	not{
%		userdict/#copies 0 put
%	}if 
%	ma 0 gt{
%		{t1 the {exit} if} loop
%	}if
%	{copypage}{showpage}ifelse 
	pm restore
}bdf

/txpose{
	%fNote{smalls}{bigs}ifelse pgs get exec 
	pxs pys scale 
	ppr aload pop por{
		noflips{
			pop exch neg exch translate pop 1 -1 scale
		}if
		xflip yflip and{
			pop exch neg exch translate 180 rotate 1 -1 scale 
			ppr 3 get ppr 1 get neg sub neg ppr 2 get 
			ppr 0 get neg sub neg translate
		}if 
		xflip yflip not and{
			pop exch neg exch translate pop 180 rotate 
			ppr 3 get ppr 1 get neg sub neg 0 translate
		}if 
		yflip xflip not and{
			ppr 1 get neg ppr 0 get neg translate
		}if
	}{
		noflips{
			translate pop pop 270 rotate 1 -1 scale
		}if 
		xflip yflip and{
			translate pop pop 90 rotate 1 -1 scale 
			ppr 3 get ppr 1 get neg sub neg ppr 2 get 
			ppr 0 get neg sub neg translate
		}if
		xflip yflip not and{
			translate pop pop 90 rotate ppr 3 get ppr 1 get 
			neg sub neg 0 translate
		}if 
		yflip xflip not and{
			translate pop pop 270 rotate ppr 2 get ppr 0 get 
			neg sub neg 0 exch translate
		}if
	}ifelse
	statusdict begin waittimeout 300 lt{
		/waittimeout 300 def
	}if end 
	scaleby96{
		ppr aload pop 4 -1 roll add 2 div 3 1 roll add 2 div 
		2 copy translate .96 dup scale neg exch neg exch translate
	}if
}bdf
end