summaryrefslogtreecommitdiff
path: root/macros/context/contrib/context-simpleslides/context-simpleslides/tex/context/third/simpleslides/s-simpleslides-Framed.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/context/contrib/context-simpleslides/context-simpleslides/tex/context/third/simpleslides/s-simpleslides-Framed.tex')
-rw-r--r--macros/context/contrib/context-simpleslides/context-simpleslides/tex/context/third/simpleslides/s-simpleslides-Framed.tex227
1 files changed, 227 insertions, 0 deletions
diff --git a/macros/context/contrib/context-simpleslides/context-simpleslides/tex/context/third/simpleslides/s-simpleslides-Framed.tex b/macros/context/contrib/context-simpleslides/context-simpleslides/tex/context/third/simpleslides/s-simpleslides-Framed.tex
new file mode 100644
index 0000000000..6bb446c1ae
--- /dev/null
+++ b/macros/context/contrib/context-simpleslides/context-simpleslides/tex/context/third/simpleslides/s-simpleslides-Framed.tex
@@ -0,0 +1,227 @@
+%D \module
+%D [ file=simpleslides-s-Framed,
+%D version=2022.07.13,
+%D title=\CONTEXT\ Style File,
+%D subtitle=Presentation Module --- Framed Style,
+%D author=Aditya Mahajan and Thomas A. Schmitz,
+%D date=\currentdate,
+%D copyright={Aditya Mahajan and Thomas A. Schmitz}]
+%C
+%C Copyright 2007 Aditya Mahajan and Thomas A. Schmitz
+%C This file may be distributed under the GNU General Public License v. 2.0.
+
+%D This file provides the \quotation{Framed} style for the presentation
+%D module. It is loaded at runtime.
+
+\writestatus{simpleslides}{loading style Framed}
+
+\startmodule[simpleslides-s-Framed]
+
+\unprotect
+
+%D The page layout:
+
+\setuplayout [width=fit,
+ margin=0.6cm,
+ height=fit,
+ header=2.1cm,
+ footer=1.35cm,
+ footerdistance=0.5cm,
+ topspace=0.5cm,
+ backspace=1cm,
+ location=singlesided]
+
+\setuplayout [simpleslides:layout:horizontal][header=2.1cm,backspace=1cm]
+\setuplayout [simpleslides:layout:vertical] [header=0cm,backspace=1cm]
+\setuplayout [simpleslides:layout:title] [header=0cm,backspace=0.5cm]
+
+%D We also specify the position of the slidetitle.
+
+\setuplayer[simpleslides:layer:slidetitle]
+ [x=10mm,y=3mm]
+
+%D These macros are used for placing figures/pictures:
+
+\define\NormalHeight {.975\textheight}
+\define\NormalWidth {.485\textwidth}
+\define\PictureFrameHeight {.975\textheight}
+\define\PictureFrameWidth {.485\textwidth}
+
+
+%D We define our colors:
+
+\definecolor [simpleslides:backgroundcolor] [r=.85, g=.85, b=.85]
+\definecolor [simpleslides:framecolor] [r=.42, g=.42, b=.7]
+\definecolor [simpleslides:contrastcolor] [r=0, g=0, b=.5]
+\definecolor [simpleslides:variantcolor] [r=0, g=0, b=1]
+\definecolor [simpleslides:itemize:color] [simpleslides:contrastcolor]
+
+%D We let \METAPOST\ calculate the background. This style have two options for
+%D ornaments, square or stripes. We define both, and then choose one depending
+%D on the user's choice.
+
+\startuseMPgraphic{simpleslides:MP:ornament:square}
+StartPage;
+
+save a,b,c,p;
+numeric a; a = 0.955cm ;
+numeric b; b = 0.52cm ;
+numeric c; c = 0.8cm ;
+path p[] ;
+
+for i=1 upto 11:
+ p[i] = unitsquare xyscaled (a,a) shifted (b+2*(i-1)*a, c) ;
+ fill p[i] withcolor ((i-1)/10)[\MPcolor{simpleslides:contrastcolor},
+ \MPcolor{simpleslides:variantcolor}] ;
+endfor ;
+
+if NOfPages >= 12:
+ save n ; numeric n ;
+ n := (10*(RealPageNumber - 1) div (NOfPages - 1)) + 1;
+
+ draw llcorner p[n] -- urcorner p[n]
+ withpen pencircle scaled 2pt
+ withcolor \MPcolor{simpleslides:backgroundcolor} ;
+fi ;
+
+StopPage;
+\stopuseMPgraphic
+
+\startuseMPgraphic{simpleslides:MP:ornament:stripe}
+StartPage;
+
+save p ;
+path p[] ;
+
+p[1] := unitsquare xyscaled(0.95*OverlayWidth,1cm) shifted (0.52cm,0.8cm) ;
+
+linear_shade(p[1],0,
+ \MPcolor{simpleslides:backgroundcolor},
+ \MPcolor{simpleslides:contrastcolor}) ;
+
+save i ;
+numeric i;
+if NOfPages = 0 :
+ i = RealPageNumber ;
+else :
+ i = RealPageNumber/NOfPages ;
+fi ;
+
+p[2] = ulcorner p[1] -- urcorner p[1] ;
+p[3] = llcorner p[1] -- lrcorner p[1] ;
+
+save o;
+pair o[] ;
+
+o[1] := point i along p[2] ;
+o[2] := point i along p[3] ;
+
+p[4] = ulcorner p[1] -- o[1] -- o[2] -- llcorner p[1] -- cycle ;
+
+clip currentpicture to p[4] ;
+
+StopPage;
+\stopuseMPgraphic
+
+\startuniqueMPgraphic{simpleslides:MP:vertical}
+StartPage ;
+
+fill Page withcolor \MPcolor{simpleslides:backgroundcolor} ;
+
+draw Page enlarged (-.2cm)
+ withpen pencircle scaled 4pt
+ withcolor \MPcolor{simpleslides:framecolor} ;
+
+draw unitsquare
+ xyscaled(0.448*PaperWidth,0.815*PaperHeight)
+ shifted (0.528*PaperWidth, 0.15*PaperHeight)
+ withpen pencircle scaled 2pt
+ withcolor \MPcolor{simpleslides:framecolor} ;
+
+StopPage ;
+\stopuniqueMPgraphic
+
+\startuniqueMPgraphic{simpleslides:MP:horizontal}
+StartPage ;
+
+fill Page withcolor \MPcolor{simpleslides:backgroundcolor} ;
+
+draw Page enlarged (-.2cm)
+ withpen pencircle scaled 4pt
+ withcolor \MPcolor{simpleslides:framecolor} ;
+
+draw unitsquare
+ xyscaled(0.95*PaperWidth,0.7*PaperHeight)
+ shifted (0.025*PaperWidth, 0.15*PaperHeight)
+ withpen pencircle scaled 2pt
+ withcolor \MPcolor{simpleslides:framecolor} ;
+
+StopPage;
+\stopuniqueMPgraphic
+
+%D We define these backgrounds as overlays:
+
+
+\defineoverlay
+ [simpleslides:background:horizontal]
+ [\useMPgraphic{simpleslides:MP:horizontal}]
+
+\defineoverlay
+ [simpleslides:background:vertical]
+ [\useMPgraphic{simpleslides:MP:vertical}]
+
+\defineoverlay
+ [simpleslides:background:title]
+ [\useMPgraphic{simpleslides:MP:horizontal}]
+
+%D We define the ornament according to user's choice.
+
+\startsetups simpleslides:alternative:square
+\defineoverlay
+ [simpleslides:background:ornament]
+ [\uniqueMPgraphic{simpleslides:MP:ornament:square}]
+\stopsetups
+
+\startsetups simpleslides:alternative:stripe
+\defineoverlay
+ [simpleslides:background:ornament]
+ [\uniqueMPgraphic{simpleslides:MP:ornament:stripe}]
+\stopsetups
+
+\startsetups simpleslides:alternative:empty
+ \setups{simpleslides:alternative:square}
+\stopsetups
+
+%D Now we activate the user's choice
+
+\setups{simpleslides:alternative:\moduleparameter{simpleslides}{alternative}}
+
+%D The title is typed in a slightly larger font.
+
+\setupTitle
+ [\c!title\c!color={simpleslides:contrastcolor},
+ \c!title\c!style=\tfc,
+ \c!author\c!color={simpleslides:contrastcolor},
+ \c!author\c!style=\tfa,
+ \c!date\c!color={simpleslides:contrastcolor},
+ \c!date\c!style=\tfa]
+
+%D The slide title is typeset in a layer
+
+\setupSlideTitle
+ [\c!color={simpleslides:contrastcolor},
+ \c!alternative=layer,
+ \c!align=\v!center,
+ \c!width=\textwidth,
+ \c!height=2.1cm,
+ \c!after=]
+
+%D The symbol for the first level of itemizations.
+
+\definesymbol[1][\useMPgraphic{simpleslides:itemize:square}]
+\setupitemize[1][color={simpleslides:itemize:color}]
+
+\protect
+\stopmodule
+
+\endinput