% Compatability library to translate Display PostScript into older versions
% of PostScript.

/CompLibDict 100 dict def

/resyncstart {} def

/dorectpath {
    CompLibDict begin
	/height exch def
	/width exch def
	moveto
	width 0 rlineto
	0 height rlineto
	width neg 0 rlineto
	closepath
    end
} bind def

/rectclip {
    dorectpath
    clip
    newpath
} bind def

/selectfont {
    exch findfont exch scalefont setfont
} bind def

/defineusername {pop pop} def

% End of compatability library.
