% 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;