diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/third/taspresent/t-superellipse.tex')
-rw-r--r-- | Master/texmf-dist/tex/context/third/taspresent/t-superellipse.tex | 139 |
1 files changed, 139 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/third/taspresent/t-superellipse.tex b/Master/texmf-dist/tex/context/third/taspresent/t-superellipse.tex new file mode 100644 index 00000000000..ad4e93c1ab8 --- /dev/null +++ b/Master/texmf-dist/tex/context/third/taspresent/t-superellipse.tex @@ -0,0 +1,139 @@ +%D \module +%D [ file=t-superellipse, +%D version=2007.12.20, +%D title=\CONTEXT\ Style File, +%D subtitle=Presentation Module quadblue, +%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{superellipse} style for the presentation +%D module. The design is inspired by Hans's "funny" presentation module +%D (s-pre-03). It is loaded at runtime. + +\writestatus{loading}{module superellipse} + +\startmodule[superellipse] + +\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 define our colors: + +\definecolor[outer][s=0] +\definecolor[inner][s=.8] +\definecolor[ellipse][r=.5,g=0,b=0] +\definecolor[contrast][r=.9,g=0,b=0] +\definecolor[Item] [r=.5] + +%D We start colors: + +\setupcolors[state=start] + +%D These macros are used for placing figures/pictures: + +\define\NormalHeight{\textheight} +\define\NormalWidth{.5\textwidth} +\define\PictureFrameHeight{\textheight} +\define\PictureFrameWidth{.5\textwidth} + +%D The page layout: + +\setuplayout [width=fit, + height=fit, + margin=0cm, + header=1.2cm, + footer=0cm, + topspace=1.8cm, + backspace=1.5cm, + 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, + y=10mm, + x=15mm] + +\define[1]\Slidetitle{\page\setlayer[slidetitle]% + {\framed[frame=off,width=\textwidth,height=2.5cm,offset=0pt,top=\vss,bottom=\vss]{\switchtobodyfont[\Titlesize]\color[ellipse]{#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 +\null +\vfill +\midaligned{\switchtobodyfont[\Titlesize]\color[ellipse]{\getvariable{taspresent}{title}}} +\blank[2*line] +\midaligned{\color[ellipse]{\getvariable{taspresent}{author}}} +\blank[3*line] +\midaligned{\color[ellipse]{\currentdate}} +\vfill +\null} + +%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 let Metapost calculate the background: + +\startuseMPgraphic{left} +StartPage ; + fill Page withcolor \MPcolor{outer} ; + path p ; pair pa ; pair pb ; + p := Page enlarged (-15pt,-15pt) superellipsed .9 ; + fill p withcolor \MPcolor{inner} ; + pickup pencircle scaled 20pt ; + draw p withcolor \MPcolor{ellipse} ; + if PageNumber>1: + pa := point (3 + (6*PageNumber) / NOfPages) of p ; + pb := point (3 + (6*(PageNumber-1)) / NOfPages) of p ; + draw (p cutafter pa) cutbefore pb withcolor \MPcolor{contrast} ; + fi ; +% draw point 1 of p withcolor \MPcolor{contrast} ; +% draw point 8 of p withcolor blue ; +% draw point 4 of p withcolor green ; +% draw point 3 of p withcolor yellow ; +% draw point 2 of p withcolor cyan ; +% draw point 7 of p withcolor white ; +StopPage ; +\stopuseMPgraphic + +%D We define these backgrounds as overlays: + +\defineoverlay +[lecbackground] +[\useMPgraphic{left}] + +%D These are shortcuts to switch backgrounds: + +\define\lecback{\setuplayout[header=1.5cm]\setupbackgrounds[page][background={lecbackground,slidetitle}]} +\define\titback{\setuplayout[header=0cm]\setupbackgrounds[page][background=lecbackground]} +\define\picback{\setuplayout[header=0cm]\setupbackgrounds[page][background={lecbackground,slidetitle}]} +\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=0cm] + +%D The symbol for the first level of itemizations. + +\definesymbol[1][\useMPgraphic{ItSquare}] +\setupitemize[1][color=ellipse] + +\protect +\stopmodule + +\endinput + |