% Encodage iso-latin
/ISOEncode {
    dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
    end
    /Temporary exch definefont
} bind def

% Dictionnaire pour maintenir les variables
4 dict /Pagination exch def
Pagination begin
    /c 0 def
end

% Fond de page (production de MetaPost ;-)
/fondPage {
    0.1 0.1 0.5 setrgbcolor 0 2
    dtransform truncate idtransform setlinewidth pop 
    [] 0 setdash 1 setlinecap
    1 setlinejoin 10 setmiterlimit
    newpath 25 800 moveto
    25 25 lineto stroke
    newpath 35 742 moveto
    35 744.65228 33.94623 747.19562 32.07092 749.07092 curveto
    30.19562 750.94623 27.65228 752 25 752 curveto
    22.34772 752 19.80438 750.94623 17.92908 749.07092 curveto
    16.05377 747.19562 15 744.65228 15 742 curveto
    15 739.34772 16.05377 736.80438 17.92908 734.92908 curveto
    19.80438 733.05377 22.34772 732 25 732 curveto
    27.65228 732 30.19562 733.05377 32.07092 734.92908 curveto
    33.94623 736.80438 35 739.34772 35 742 curveto closepath fill
} def


% Procédure pour aller quérir les variables mises sur la pile par DVIPS
/getPageDVIPS {
  2 copy
  Pagination begin
    1 add /b exch def
    /a exch def
    c 1 add /c exch def
  end
} def

% La routine appelée par bop-hook (mapagination)
/@mapagination { 
    getPageDVIPS 
    save
        fondPage
        Pagination begin
            /Times findfont 18 scalefont setfont
            1 1 1 setrgbcolor
            25 737 moveto
            b 1 string cvs dup /nchaine exch def
            stringwidth pop 2 div neg 0 rlineto nchaine show
        end
        .6 .4 .1 setrgbcolor
        /Times findfont 10 scalefont ISOEncode setfont
        22 25 moveto 90 rotate
        (P.T.S.I. Lycée Louis Armand - POITIERS - Jean-Michel Sarlat) show
    restore
} def
/mapagination {
    Pagination begin
        c 0 eq {@mapagination} if
    end
} def

% La surcharge de eop-hook
/eop-hook {
    Pagination begin
        c 1 sub /c exch def
    end
} def