% 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;
     extra_beginfig := extra_beginfig & "special("
 	& ditto
 	& "/sysstroke {systemdict /stroke get exec} def /stroke {.dashpath sysstroke} def"
 	& ditto
 	& ");";
 enddef;