[%  PROCESS ps/border UNLESS global.ps.loaded.border;
    global.ps.loaded.clip = 1;
-%]
% clipping rectangle set to current imageable size minus border
clippath pathbbox 
/clip-try exch border sub def 
/clip-trx exch border sub def 
/clip-bly exch border add def 
/clip-blx exch border add def
/clip-ysize clip-try clip-bly sub def
/clip-xsize clip-trx clip-blx sub def
/clip-box {
    clip-blx clip-bly clip-xsize clip-ysize
} def