diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/third/simpleslides/s-simpleslides-BoxedTitle.tex')
-rw-r--r-- | Master/texmf-dist/tex/context/third/simpleslides/s-simpleslides-BoxedTitle.tex | 196 |
1 files changed, 196 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/third/simpleslides/s-simpleslides-BoxedTitle.tex b/Master/texmf-dist/tex/context/third/simpleslides/s-simpleslides-BoxedTitle.tex new file mode 100644 index 00000000000..c2d3211fbf8 --- /dev/null +++ b/Master/texmf-dist/tex/context/third/simpleslides/s-simpleslides-BoxedTitle.tex @@ -0,0 +1,196 @@ +%D \module +%D [ file=simpleslides-s-BoxedTitle, +%D version=2009.10.04 +%D title=\CONTEXT\ Style File, +%D subtitle=Presentation Module --- FramedTitle style, +%D author=Aditya Mahajan and Thomas A. Schmitz, +%D date=\PRESTITdate, +%D copyright={Aditya Mahajan and Thomas A. Schmitz}] +%C +%C Copyright 2009 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{BoxedTitle} style for the presentation +%D module. It is loaded at runtime. + +\writestatus{simpleslides}{loading style BoxedTitle} + +\startmodule[simpleslides-s-BoxedTitle] + +\unprotect + +%D The page layout: + +\setuplayout [width=fit, + margin=0cm, + height=fit, + header=0cm, + footer=0cm, + topspace=1.35cm, + backspace=1cm, + location=singlesided] + +\setuplayout [simpleslides:layout:horizontal][header=1.75cm] +\setuplayout [simpleslides:layout:vertical] [header=0cm] +\setuplayout [simpleslides:layout:title] [header=0cm] + +%D We also specify the position of the slidetitle. + +\setuplayer[simpleslides:layer:slidetitle] + [x=10mm,y=5mm] + + +%D These macros are used for placing figures/pictures: + +\define\NormalHeight {\textheight} +\define\NormalWidth {.45\textwidth} +\define\PictureFrameHeight {\textheight} +\define\PictureFrameWidth {.45\textwidth} + +\setupframed[simpleslides:framed] + [background={BoxedTitle:Title}] + +%D We define our color scheme: + +\definecolor [simpleslides:backgroundcolor] [s=.98] +\definecolor [simpleslides:variantcolor] [r=0.05,g=0.06,b=0.5] +\definecolor [simpleslides:contrastcolor] [r=.46,g=0.67,b=0.84] +\definecolor [simpleslides:itemize:color] [simpleslides:variantcolor] + +%D We let Metapost calculate the background: + +\startuniqueMPgraphic{MyShade} + save p ; path p ; + p := unitsquare xscaled \overlaywidth yscaled \overlayheight smoothed 3mm ; + linear_shade(p,6,\MPcolor{simpleslides:variantcolor},\MPcolor{simpleslides:contrastcolor}) ; +\stopuniqueMPgraphic + +\startuniqueMPgraphic{simpleslides:MP:horizontal} +StartPage ; +save q ; path q ; +q = unitsquare xscaled \overlaywidth yscaled \overlayheight smoothed 7mm ; +fill Page withcolor black ; +fill q withcolor \MPcolor{simpleslides:backgroundcolor} ; +StopPage ; +\stopuniqueMPgraphic + +\startuseMPgraphic{simpleslides:MP:ornament} +StartPage ; +save a, b ; numeric a, b ; +save p ; path p ; +a = 3.5mm ; +z0 = (0,5mm) ; +z1 = z0 shifted (a * NOfPages,0) ; +b = arclength (z0 --z1) ; + +z2 = z0 shifted (PaperWidth/2 - b/2,0) ; +z3 = z1 shifted (PaperWidth/2 - b/2,0) ; +z4 = z3 shifted (0,a) ; +z5 = z2 shifted (0,a) ; +pickup pencircle scaled 0.5pt ; +p = z2 -- z3 -- z4 -- z5 -- cycle ; +pair za[] ; +pair zb[] ; +z.a1 = z2 ; +z.b1 = z5 ; +for i = 2 upto (NOfPages + 1): + z.a[i] = z.a[(i - 1)] shifted (a,0) ; + z.b[i] = z.b[(i - 1)] shifted (a,0) ; + for k = 2 upto (PageNumber + 1) : + z.a[k] = z.a[(k - 1)] shifted (a,0) ; + z.b[k] = z.b[(k - 1)] shifted (a,0) ; + path q[] ; + q[k] = z.a[(k -1 )] -- z.a[k] -- z.b[k] -- z.b[(k - 1)] -- cycle ; + circular_shade(q[k],0,\MPcolor{simpleslides:contrastcolor},\MPcolor{simpleslides:variantcolor}) ; + endfor ; + pickup pencircle scaled 1pt ; + draw z.a[i] -- z.b[i] withcolor \MPcolor{simpleslides:variantcolor} ; +endfor ; +draw p withcolor \MPcolor{simpleslides:variantcolor} ; +StopPage ; +\stopuseMPgraphic + +\startuniqueMPgraphic{FilledSquare} +save p ; path p ; +p = unitsquare xyscaled(0.4cm,0.4cm) ; +circular_shade(p,0,\MPcolor{simpleslides:contrastcolor},\MPcolor{simpleslides:variantcolor}) ; +\stopuniqueMPgraphic + +%D We define these backgrounds as overlays: + +\defineoverlay + [simpleslides:background:horizontal] + [\useMPgraphic{simpleslides:MP:horizontal}] + +\defineoverlay + [simpleslides:background:vertical] + [\useMPgraphic{simpleslides:MP:horizontal}] + +\defineoverlay + [simpleslides:background:title] + [\useMPgraphic{simpleslides:MP:horizontal}] + +\defineoverlay + [simpleslides:background:ornament] + [\useMPgraphic{simpleslides:MP:ornament}] + +\defineoverlay + [BoxedTitle:Title] + [\uniqueMPgraphic{MyShade}] + +%D We want the title to placed in a framed box. We redefine all the keys of +%D \type{\setupTitle}, so that the module is easier to maintain. + +\setupTitle + [\c!title=, + \c!author=, + \c!date=\currentdate, + \c!headstyle=, + \c!headcolor={simpleslides:backgroundcolor}, + \c!align=\v!middle, + \c!before={\vfill\getvalue{simpleslides:framed} + [\c!width=\textwidth,\c!height=.75\textheight, + \c!align=\v!middle, \c!strut=\v!no] + \bgroup}, + \c!after={\egroup\vfill}, + \c!title\c!style={\switchtobodyfont[\TitleSize]}, + \c!title\c!color=simpleslides:backgroundcolor, + \c!title\c!align=,%\v!middle, + \c!author\c!style=, + \c!author\c!color=simpleslides:backgroundcolor, + \c!author\c!align=,%\v!middle, + \c!date\c!style=, + \c!date\c!color=simpleslides:backgroundcolor, + \c!date\c!align=,%\v!middle, + \c!before\c!title=, + \c!before\c!author=, + \c!before\c!date=, + \c!after\c!title={\blank[1*line]}, + \c!after\c!author={\blank[2*line]}, + \c!after\c!date=] + +%D We also want the slide title in a framed box. + +\setupSlideTitle + [\c!after=, + \c!alternative=layer, + \c!height=2.1cm, + \c!width=\textwidth, + \c!color=simpleslides:backgroundcolor] + +%D In this style, the space opposite vertical pictures has the same shaded +%D frame as the slide title. + +\setupPicture[verticalbackground=BoxedTitle:Title, + verticalforegroundcolor=simpleslides:backgroundcolor] + +%D The symbol for the first level of itemizations. + +\definesymbol[1][\uniqueMPgraphic{FilledSquare}] +\setupitemize[1][color=simpleslides:variantcolor] + +\protect +\stopmodule + +\endinput + |