[NTG-context] MP scratch counter

Henning Hraban Ramm texml at fiee.net
Wed Jul 13 20:14:14 CEST 2022


Hi y’all,
this is a scratch counter from the simpleslides module. It doesn’t work 
any more (always shows max-1), and I guess it used to.
What’s wrong?

Hraban


"""
\startuseMPgraphic{MP:ornament}
StartPage ;

save a,b ;
numeric a,b ;
a = 7mm ;
b = PaperWidth/2 - NOfPages * 2.5pt ;

save p,q; path p,q ;
p =((0,5mm)    -- (1mm,11mm)) shifted (b,0) ;
q =((-8mm,5mm) -- (0,11mm)  ) shifted (b,0) ;

pickup pencircle scaled 3pt ;
for i := NOfPages-1 downto 1:
   draw (if i mod 5 = 0 : q else : p fi)
        shifted (i*5pt, 0pt)
        withcolor if i < PageNumber : red
                  else :              black
                  fi ;
endfor ;
StopPage ;
\stopuseMPgraphic

\defineoverlay[background:ornament][\useMPgraphic{MP:ornament}]
\setupbackgrounds[page][background={background:ornament}]

\setupbodyfont[ss,18pt]

\starttext

\dorecurse{10}{
   \strut\par
   \page
}

\stoptext
"""


More information about the ntg-context mailing list