From 51b9ba900e58ddc023fb48e9f1cecb304ba24958 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 2 Oct 2011 00:16:41 +0000 Subject: context-simpleslides, and find scripts/context/lua/third/* (1oct11) git-svn-id: svn://tug.org/texlive/trunk@24165 c570f23f-e606-0410-a88d-b1316a301751 --- .../third/simpleslides/simpleslides-s-Shaded.tex | 29 +++++++++++++++++++--- 1 file changed, 25 insertions(+), 4 deletions(-) (limited to 'Master/texmf-dist/tex/context/third/simpleslides/simpleslides-s-Shaded.tex') diff --git a/Master/texmf-dist/tex/context/third/simpleslides/simpleslides-s-Shaded.tex b/Master/texmf-dist/tex/context/third/simpleslides/simpleslides-s-Shaded.tex index 25869b1e0d4..a8da39b1c2c 100644 --- a/Master/texmf-dist/tex/context/third/simpleslides/simpleslides-s-Shaded.tex +++ b/Master/texmf-dist/tex/context/third/simpleslides/simpleslides-s-Shaded.tex @@ -85,12 +85,33 @@ \startuseMPgraphic{simpleslides:MP:ornament} StartPage ; +save p ; path p[] ; +save a ; +if NOfPages <= 15: + a = 0.7cm ; +elseif NOfPages <= 30: + a = 0.45cm ; +else : + a = 0.25cm ; +fi ; +save factor ; numeric factor ; +factor = (TextWidth - a)/(NOfPages - 1) ; linear_shade(Page, 6, - \MPcolor{simpleslides:backgroundcolor}, - \MPcolor{simpleslides:variantcolor}) ; + \MPcolor{simpleslides:backgroundcolor}, + \MPcolor{simpleslides:variantcolor}) ; if PageNumber >1: - \includeMPgraphic{\simpleslidescounter} ; -fi + for i = 1 upto NOfPages : + p[i] = unitcircle scaled a shifted (BackSpace + (i-1)*factor, (2cm - a)/2) ; + if i = PageNumber : +% p[i] := p[i] zscaled (1.2,1.5) ; + pickup pencircle scaled 5pt ; + drawfill p[i] withcolor \MPcolor{simpleslides:variantcolor} ; + else : + circular_shade(p[i],2,\MPcolor{simpleslides:backgroundcolor}, + \MPcolor{simpleslides:variantcolor}) ; + fi + endfor ; +fi ; StopPage ; \stopuseMPgraphic -- cgit v1.2.3