summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/third/taspresent/t-doubleframe.tex
diff options
context:
space:
mode:
authorMojca Miklavec <mojca.miklavec@gmail.com>2008-08-09 22:25:33 +0000
committerMojca Miklavec <mojca.miklavec@gmail.com>2008-08-09 22:25:33 +0000
commit3961ffab94c28c7817c031829766a6e33d699f33 (patch)
tree9d45016b2c17235b15602d0448493ed2729b4003 /Master/texmf-dist/tex/context/third/taspresent/t-doubleframe.tex
parent5d017c54b5bc4a3714a5493774be99d6211dc1b4 (diff)
Add a new ConTeXt package taspresent by Thomas Schmitz (needs to be included in regular ctan2tl updates)
git-svn-id: svn://tug.org/texlive/trunk@10214 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/third/taspresent/t-doubleframe.tex')
-rw-r--r--Master/texmf-dist/tex/context/third/taspresent/t-doubleframe.tex278
1 files changed, 278 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/third/taspresent/t-doubleframe.tex b/Master/texmf-dist/tex/context/third/taspresent/t-doubleframe.tex
new file mode 100644
index 00000000000..1517fcdd094
--- /dev/null
+++ b/Master/texmf-dist/tex/context/third/taspresent/t-doubleframe.tex
@@ -0,0 +1,278 @@
+%D \module
+%D [ file=t-doubleframe,
+%D version=2007.07.17,
+%D title=\CONTEXT\ Style File,
+%D subtitle=Presentation Module doubleframe,
+%D author=Thomas A. Schmitz,
+%D date=\currentdate,
+%D copyright={Thomas A. Schmitz}]
+%C
+%C Copyright 2007 Thomas A. Schmitz.
+%C This file may be distributed under the GNU General Public License v. 2.0.
+
+%D This file provides the \quotation{doubleframe} style for the presentation
+%D module. It is loaded at runtime.
+
+\writestatus{loading}{module doubleframe}
+
+\startmodule[doubleframe]
+
+\unprotect
+
+%D The taspresentation module provides a skeleton into which different styles
+%D can be hooked. It uses a number of variables and macros which have to be set
+%D beforehand. Some parts are optional. We begin with the necessary definitions:
+
+%D We start colors:
+
+\setupcolors[state=start]
+
+%D The doubleframe module has parameters of its own; we set them up and use
+%D them:
+
+\setupmodule[bottom=square]
+
+\processaction[\currentmoduleparameter{bottom}]
+ [ square=>\def\bottommode{squaremode},
+ stripe=>\def\bottommode{stripemode},
+ \v!unknown=>\def\bottommode{squaremode},
+ \v!default=>\def\bottommode{squaremode}]
+
+\enablemode[\bottommode]
+
+%D These macros are used for placing figures/pictures:
+
+\define\NormalHeight{.98\textheight}
+\define\NormalWidth{.485\textwidth}
+\define\PictureFrameHeight{.98\textheight}
+\define\PictureFrameWidth{.485\textwidth}
+
+%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]
+
+%D The macro for typesetting the Slidetitle; this is adapted from a sample
+%D document that Brooks Moses published on the wiki:
+
+\definelayer[slidetitle]
+ [width=\paperwidth,
+ height=\paperheight,
+ x=10mm,
+ y=3mm]
+
+\define[1]\Slidetitle{\page\setlayer[slidetitle]%
+ {\framed[frame=off,width=\textwidth,height=2.1cm,offset=0pt,top=\vss,bottom=\vss]{\switchtobodyfont[\Titlesize]\color[One]{#1}}}}
+
+%D The macro \tex{Maketitle} produces a default title page with the author, the
+%D title of the presentation, and the date. Using it is not mandatory.
+
+\define\Maketitle{%
+\titback
+\switchtobodyfont[\Titlesize]
+\null
+\vfill
+\midaligned{\color[One]{\getvariable{taspresent}{title}}}
+\blank[2*line]
+\midaligned{\tfx\getvariable{taspresent}{author}}
+\blank[line]
+\midaligned{\tfx\currentdate}
+\vfill
+\null\switchtobodyfont[\Normalsize]}
+
+%D The following parts are optional; if you don't use backgrounds and are
+%D content with CONTEXT's default itemization, you don't have to set these
+%D macros.
+
+%D We define our colors:
+
+\definecolor [BackgroundColor] [r=.85, g=.85, b=.85]
+\definecolor [MyFrameColor] [r=.42, g=.42, b=.7]
+\definecolor [Dark] [r=.9, g=.9, b=.9]
+\definecolor [One] [r=0, g=0, b=.5]
+\definecolor [Two] [r=0, g=0, b=.55]
+\definecolor [Three] [r=0, g=0, b=.6]
+\definecolor [Four] [r=0, g=0, b=.65]
+\definecolor [Five] [r=0, g=0, b=.7]
+\definecolor [Six] [r=0, g=0, b=.75]
+\definecolor [Seven] [r=0, g=0, b=.8]
+\definecolor [Eight] [r=0, g=0, b=.85]
+\definecolor [Nine] [r=0, g=0, b=.9]
+\definecolor [Ten] [r=0, g=0, b=.95]
+\definecolor [Eleven] [r=0, g=0, b=1]
+\definecolor [Item] [One]
+
+%D We let Metapost calculate the background:
+
+\startmode[squaremode]
+\startuseMPgraphic{Bottom09}
+StartPage
+numeric a; a = 0.955cm ;
+numeric b; b = 0.52cm ;
+numeric c; c = 0.8cm ;
+path p[] ;
+p[2] = unitsquare xyscaled (a,a) shifted (b, c) ;
+p[3] = unitsquare xyscaled (a,a) shifted (b+2*a, c) ;
+p[4] = unitsquare xyscaled (a,a) shifted (b+4*a, c) ;
+p[5] = unitsquare xyscaled (a,a) shifted (b+6*a, c) ;
+p[6] = unitsquare xyscaled (a,a) shifted (b+8*a, c) ;
+p[7] = unitsquare xyscaled (a,a) shifted (b+10*a, c) ;
+p[8] = unitsquare xyscaled (a,a) shifted (b+12*a, c) ;
+p[9] = unitsquare xyscaled (a,a) shifted (b+14*a, c) ;
+p[10] = unitsquare xyscaled (a,a) shifted (b+16*a, c) ;
+p[11] = unitsquare xyscaled (a,a) shifted (b+18*a, c) ;
+p[12] = unitsquare xyscaled (a,a) shifted (b+20*a, c) ;
+fill p[2] withcolor \MPcolor{One} ;
+fill p[3] withcolor \MPcolor{Two} ;
+fill p[4] withcolor \MPcolor{Three} ;
+fill p[5] withcolor \MPcolor{Four} ;
+fill p[6] withcolor \MPcolor{Five} ;
+fill p[7] withcolor \MPcolor{Six} ;
+fill p[8] withcolor \MPcolor{Seven} ;
+fill p[9] withcolor \MPcolor{Eight} ;
+fill p[10] withcolor \MPcolor{Nine} ;
+fill p[11] withcolor \MPcolor{Ten} ;
+fill p[12] withcolor \MPcolor{Eleven} ;
+pickup pencircle scaled 2pt ;
+if NOfPages = 12:
+ for j=2 upto 12:
+ if PageNumber=(j):
+ draw llcorner p[j] --urcorner p[j] withcolor \MPcolor{BackgroundColor} ;
+ fi ;
+ endfor ;
+fi ;
+numeric o; o = NOfPages - 1 ;
+numeric i; i = PageNumber - 1 ;
+numeric k; k = i/o ;
+if NOfPages > 12:
+ if i = 1:
+ draw llcorner p[2] -- urcorner p[2] withcolor \MPcolor{BackgroundColor} ;
+ elseif (k>0.01) and (k<=2/11):
+ draw llcorner p[3] -- urcorner p[3] withcolor \MPcolor{BackgroundColor} ;
+ elseif (k>2/11) and (k<=3/11):
+ draw llcorner p[4] -- urcorner p[4] withcolor \MPcolor{BackgroundColor} ;
+ elseif (k>3/11) and (k<=4/11):
+ draw llcorner p[5] -- urcorner p[5] withcolor \MPcolor{BackgroundColor} ;
+ elseif (k>4/11) and (k<=5/11):
+ draw llcorner p[6] -- urcorner p[6] withcolor \MPcolor{BackgroundColor} ;
+ elseif (k>5/111) and (k<6/11):
+ draw llcorner p[7] -- urcorner p[7] withcolor \MPcolor{BackgroundColor} ;
+ elseif (k>6/11) and (k<=7/11):
+ draw llcorner p[8] -- urcorner p[8] withcolor \MPcolor{BackgroundColor} ;
+ elseif (k>7/11) and (k<=8/11):
+ draw llcorner p[9] -- urcorner p[9] withcolor \MPcolor{BackgroundColor} ;
+ elseif (k>8/11) and (k<=9/11):
+ draw llcorner p[10] -- urcorner p[10] withcolor \MPcolor{BackgroundColor} ;
+ elseif (k>9/11) and (k<1):
+ draw llcorner p[11] -- urcorner p[11] withcolor \MPcolor{BackgroundColor} ;
+ elseif k=1:
+ draw llcorner p[12] -- urcorner p[12] withcolor \MPcolor{BackgroundColor} ;
+ fi ;
+fi
+StopPage
+\stopuseMPgraphic
+\stopmode
+
+\startmode[stripemode]
+\startuseMPgraphic{Bottom09}
+StartPage
+path p[] ;
+p[1] := unitsquare xyscaled(0.95*OverlayWidth,1cm) shifted (0.52cm,0.8cm) ;
+linear_shade(p[1],0,\MPcolor{BackgroundColor},\MPcolor{One}) ;
+numeric i; i = PageNumber/NOfPages ;
+p[2] = ulcorner p[1] -- urcorner p[1] ;
+p[3] = llcorner p[1] -- lrcorner p[1] ;
+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
+\stopmode
+
+\startuniqueMPgraphic{PicBackground09}
+StartPage ;
+fill Page withcolor \MPcolor{BackgroundColor} ;
+draw unitsquare
+xyscaled(OverlayWidth,OverlayHeight)
+enlarged (-.2cm)
+withpen pencircle scaled 4pt
+withcolor \MPcolor{MyFrameColor} ;
+draw unitsquare
+xyscaled(0.448*OverlayWidth,0.815*OverlayHeight)
+shifted (0.528*OverlayWidth, 0.15*OverlayHeight)
+withpen pencircle scaled 2pt
+withcolor \MPcolor{MyFrameColor} ;
+StopPage ;
+\stopuniqueMPgraphic
+
+\startuniqueMPgraphic{Background09}
+fill unitsquare
+xyscaled(OverlayWidth,OverlayHeight)
+withcolor \MPcolor{BackgroundColor} ;
+draw unitsquare
+xyscaled(OverlayWidth,OverlayHeight)
+enlarged (-.2cm)
+withpen pencircle scaled 4pt
+withcolor \MPcolor{MyFrameColor} ;
+draw unitsquare
+xyscaled(0.95*OverlayWidth,0.7*OverlayHeight)
+shifted (0.025*OverlayWidth, 0.15*OverlayHeight)
+withpen pencircle scaled 2pt
+withcolor \MPcolor{MyFrameColor} ;
+\stopuniqueMPgraphic
+
+\startuniqueMPgraphic{FancyFrame}
+draw unitsquare xyscaled(OverlayWidth-2pt,OverlayHeight-2pt)
+withpen pencircle scaled 2pt
+withcolor \MPcolor{MyFrameColor} ;
+\stopuniqueMPgraphic
+
+%D We define these backgrounds as overlays:
+
+\defineoverlay
+[bottom]
+[\useMPgraphic{Bottom09}]
+
+\defineoverlay
+[lecbackground]
+[\useMPgraphic{Background09}]
+
+\defineoverlay
+[picbackground]
+[\useMPgraphic{PicBackground09}]
+
+\defineoverlay
+[FrameFrame]
+[\uniqueMPgraphic{FancyFrame}]
+
+%D These are shortcuts to switch backgrounds:
+
+\define\lecback{\setupbackgrounds[page][background={lecbackground,bottom,slidetitle}]\setuplayout[backspace=1cm,header=2.1cm]}
+\define\titback{\setupbackgrounds[page][background=lecbackground]\setuplayout[backspace=1cm]}
+\define\picback{\setupbackgrounds[page][background={picbackground,bottom}]\setuplayout[backspace=0.5cm,header=0cm]}
+\define\noback{\setupbackgrounds[page][background=nobackground]}
+
+%D We use combinations for placing vertical pictures and text side by side, and
+%D we want a distance of 1.1 cm between both.
+
+\setupcombinations[distance=1.1cm]
+
+%D The symbol for the first level of itemizations.
+
+\definesymbol[1][\useMPgraphic{ItSquare}]
+\setupitemize[color=One]
+
+\protect
+\stopmodule
+
+\endinput
+