% Procédure d'initialisation
 def InitFichierPS(expr lx,ly,rx,ry)  =
     PageSize(lx,ly,rx,ry);
     InsPS("%!");
     InsPS("<< /PageSize [" 
 	& decimal PageLargeur
 	& " "
 	& decimal PageHauteur
 	& "] >> setpagedevice");
     extra_endfig := "ClipPageSize;InPS;" & extra_endfig;
 enddef;