diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/s-pre-06.tex')
| -rw-r--r-- | Master/texmf-dist/tex/context/base/s-pre-06.tex | 324 |
1 files changed, 0 insertions, 324 deletions
diff --git a/Master/texmf-dist/tex/context/base/s-pre-06.tex b/Master/texmf-dist/tex/context/base/s-pre-06.tex deleted file mode 100644 index 47948262c8c..00000000000 --- a/Master/texmf-dist/tex/context/base/s-pre-06.tex +++ /dev/null @@ -1,324 +0,0 @@ -%D \module -%D [ file=s-pre-06, -%D version=1999.04.28, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 6, -%D author=Hans Hagen, -%D date=\currentdate, -%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}] -%C -%C This module is part of the \CONTEXT\ macro||package and is -%C therefore copyrighted by \PRAGMA. See mreadme.pdf for -%C details. - -%D I wrote this sixth presentation style on behalf of a -%D presentation at Bachotek~'99. The joke in this style is -%D (ab)using the Antikwa Torunska, a rather Polish font. When I -%D was first confronted with this font, the backward slant -%D stoke me as very characteristic. -%D -%D Each page has a slightly different background consisting of -%D three O's. Although \TEX\ could do the randomization, -%D scaling and placement, I prefered to use \METAPOST. The -%D backward slant is also reflected in the stepwise increasing -%D left margin. Due to this characteristic and the trick used, -%D this style is only suited for simple presentations, using -%D itemizations. - -\usemodule[pre-general] - -%D \macros -%D {setupbodyfont} -%D -%D As said, we will use the Antikwa Torunska, and because we -%D want it to show up well, we use it large. - -\setupbodyfont - [ant,14.4pt] - -%D \macros -%D {definecolor, setupcolors} -%D -%D Thus style only uses gray scales, but nevertheless we turn -%D on color. We only use a few logical color names. - -\setupcolors - [state=start] - -\definecolor [BackgroundColor] [s=.8] -\definecolor [ContrastColor] [s=.9] -\definecolor [InteractionColor] [s=.6] - -%D \macros -%D {setuppapersize} -%D -%D As (nearly) always, we use a 600 pt times 450 pt screen -%D width, mapped on ditto paper dimensions. - -\setuppapersize - [S6][S6] - -%D \macros -%D {setuplayout} -%D -%D The layout is rather symmetrical. We don't use headers and -%D footers, and thereby automatically turn off the page -%D numbering: no room, no number. We use the bottom to present -%D a rather trivial menu. - -\setuplayout - [backspace=2cm, - topspace=2cm, - width=middle, - header=0pt, - height=middle, - footer=0pt, - bottomdistance=.5cm, - bottom=1cm] - -%D \macros -%D {setupinteractionmenu,startinteractionmenu} -%D -%D This menu is slighly moved to the right because that looks -%D better. The menu itself has one goto (\type {\got}) entry, -%D which is forced to the right. - -\setupinteractionmenu - [bottom] - [rightoffset=-1cm] - -\startinteractionmenu[bottom] - \hfill \got [CloseDocument] \bfd Quit \\ -\stopinteractionmenu - -%D \macros -%D {setupbackgrounds} -%D -%D Page background are calculated at each page, opposite to the -%D other backgrounds, that are reused and only calculated when -%D \CONTEXT\ is explictly told to do so. There are three -%D overlays: a gray fill, the graphic, and a button that -%D circulates the pages. - -\setupbackgrounds - [page] - [background={color,Joke,GoAround}, - backgroundcolor=BackgroundColor] - -%D \macros -%D {defineoverlay} -%D -%D The \type {forward} reference action circulates over the -%D pages, so, at the last page, we are led back to the first. - -\defineoverlay [GoAround] [\overlaybutton{forward}] - -%D The joke is a simple \METAPOST\ routine. The picture is -%D actually larger than the screen, but is clipped of when -%D included. - -\defineoverlay [Joke] [\useMPgraphic{background}] - -\startuseMPgraphic{background} - width := \overlaywidth ; - height := \overlayheight ; - picture p ; p := char 79 infont "\truefontname{Regular}" scaled 1 ; - pwidth := xpart urcorner bbox p - xpart llcorner bbox p ; - pheight := ypart urcorner bbox p - ypart llcorner bbox p ; - def do (expr r) = - addto currentpicture also p shifted - center p scaled r - xscaled (width/pwidth) yscaled (height/pheight) - withcolor \MPcolor{ContrastColor} ; - enddef ; - do (0.9+uniformdeviate0.1) ; - do (1.4+uniformdeviate0.1) ; - do (1.9+uniformdeviate0.1) ; -\stopuseMPgraphic - -%D \macros -%D {setupinteraction,setupinteractionscreen} -%D -%D We did not yet turn on the interaction, so let's do that -%D now. When opened, the document will fil the screen. - -\setupinteraction - [state=start, - color=InteractionColor, - contrastcolor=InteractionColor, - menu=on] - -\setupinteractionscreen - [option=max] - -%D \macros -%D {TitlePage, Topics, Topic} -%D -%D A presentation normally consists of a title page, a list of -%D topics, and the content itself. In this style, a further -%D subdivision does not make sense, but because we want to be -%D compatible with the other styles, they are added. A -%D presentation looks like: -%D -%D \starttyping -%D \usemodule[pre-antikwa] -%D -%D \startext -%D -%D \TitlePage{The Title} -%D -%D \Topics{Contents} -%D -%D \Topic{Some Topic} -%D -%D \startitemize -%D \item first -%D \item second -%D \stopitemize -%D -%D \Topic{Some Topic} -%D -%D ... -%D -%D \stoptext -%D \stoptyping - -%D \macros -%D {definehead, Topic, Subject} -%D -%D We use dedicated sectioning commands. - -\definehead [Topic] [chapter] -\definehead [Subject] [section] - -\definehead [Nopic] [title] - -%D \macros -%D {setuphead} -%D -%D We turn of numbering. The assignment to \type {after} takes -%D care of the increasing indentation. This indentation is the -%D only low level \TEX\ code needed. Including this -%D functionality in the core of \CONTEXT\ is not that useful -%D and I would forget about this feature being present anyway. - -\setuphead - [Topic, Nopic, Subject] - [number=no, - after={\blank[2*big]\ToTheLeft\everypar{\ToTheRight}}] - -%D After section titles we set the \type {\leftskip} to a value -%D that suits the Antikwa slant. - -\def\ToTheLeft% - {\gdef\LeftSkip{30}% - \rightskip0pt\relax - \leftskip30pt\relax} - -%D Each new paragraph adds to the \type {\leftskip}. - -\def\ToTheRight% - {\doglobal\increment(\LeftSkip,20)% - \leftskip=\LeftSkip pt\relax} - -%D \macros -%D {Topics} -%D -%D The \type {\Topics} command uses a bot of low level -%D \CONTEXT. We could have done with: -%D -%D \starttyping -%D \def\Topics#1% -%D {\Nopic[Topics]{#1} -%D \placelist[Topic][criteriumcriterium=all]} -%D \stoptyping -%D -%D but the next alternative sort of ignores this command when -%D no list is found. - -\def\Topics#1% - {\determinelistcharacteristics[Topic] - \ifcase\utilitylistlength\else - \Nopic[Topics]{#1} - \placelist[Topic][criterium=all] - \fi} - -%D \macros -%D {setuplist} -%D -%D We use the single item command to achieve a result similar -%D to the itemizations. - -\setuplist - [Topic] - [alternative=command, - command=\TopicListCommand] - -\def\TopicListCommand#1#2#3% - {\item#2\par} - -%D A dummy command, needed to be compatible with the other -%D presentation styles. - -\def\Subjects% - {} - -%D \macros -%D {StartTitlePage} -%D -%D We use a nested \type {\everypar}; everything in there -%D will be put in front of each paragraph. The nesting prevents -%D the first paragraph from indenting. The struts give the -%D lines a decent height, which looks better inrelation to the -%D next pages. - -\def\StartTitlePage% - {\startstandardmakeup - \bfd\setupinterlinespace - \everypar{\everypar{\advance\leftskip30pt\relax}} - \let\\=\blank - \begstrut} - -\def\StopTitlePage% - {\endstrut - \vfill - \stopstandardmakeup} - -%D \macros -%D {TitlePage} -%D -%D The title page can be generated with one command: - -\def\TitlePage#1% - {\StartTitlePage#1\StopTitlePage} - -\doifnotmode{demo}{\endinput} - -%D The (rather silly) demo section. - -\usemodule[pre-antikwa] - -\starttext - -\TitlePage{Title Page\\pre-polish} - -\Topics{Some Nice Lists} - -\Topic{Some Lists} - -\Subject{A list} - -\startitemize -\item first -\item second -\stopitemize - -\Subject{A bigger list} - -\startitemize -\item first -\item second -\item third -\item fourth -\stopitemize - -\stoptext |