%% syntaxe : xdl ydl xur yur BBmasque --> fait un clip sur la BB
%% passee en entree
/BBmasque {
4 dict begin
   /yur exch def
   /xur exch def
   /ydl exch def
   /xdl exch def
   newpath 
      xdl ydl moveto
      xdl yur lineto
      xur yur lineto
      xur ydl lineto
   closepath
   clip
end
} def