summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/third/taspresent/t-superellipse.tex
diff options
context:
space:
mode:
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.tex139
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
+