Test des pointillés (ps2pdf 2)

Animation flash

Voici la procédure InitFichierPS utilisée pour inscrire dans chaque fichier que metapost produit la reconfiguration de la procédure stroke.


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