From 51b9ba900e58ddc023fb48e9f1cecb304ba24958 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
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

