Test des pointillés (ps2pdf 1)

Animation flash

Voici la procédure initiale InitFichierPS utilisée pour la production du fichier PS qui sera ensuite transformé en PDF.


InitFichierPS.mp
% 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;