summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/third/simpleslides/simpleslides-s-Shaded.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/third/simpleslides/simpleslides-s-Shaded.tex')
-rw-r--r--Master/texmf-dist/tex/context/third/simpleslides/simpleslides-s-Shaded.tex29
1 files changed, 25 insertions, 4 deletions
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