diff options
Diffstat (limited to 'tex/context/modules/common/s-pre-11.tex')
| -rw-r--r-- | tex/context/modules/common/s-pre-11.tex | 220 |
1 files changed, 0 insertions, 220 deletions
diff --git a/tex/context/modules/common/s-pre-11.tex b/tex/context/modules/common/s-pre-11.tex deleted file mode 100644 index 551c5ebbc..000000000 --- a/tex/context/modules/common/s-pre-11.tex +++ /dev/null @@ -1,220 +0,0 @@ -%D \module -%D [ file=s-pre-11, -%D version=1999.08.20, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 11, -%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. - -\setuppapersize - [S6][S6] - -\setuplayout - [topspace=0cm, - backspace=0cm, - header=0pt, - footer=0pt, - width=middle, - height=middle] - -\setupbodyfont - [14.4pt,lbr] - -\setupcolors - [state=start] - -\setupinteraction - [click=no, - display=new, - state=start] - -\setupinteractionscreen - [option=max] - -\def\SomeShape% - {\resetMPdrawing - \startMPdrawing - path p[], q[] ; pair a, b ; - StartPage ; - \stopMPdrawing - \dorecurse{\CurrentTopic} - {\startMPdrawing - initialize_box(\MPpos{topic-\realfolio-\recurselevel}) ; - p[\recurselevel] := tensecircle (wxy,hxy,.25cm) shifted cxy ; - fill p[\recurselevel] withcolor .9white ; - pickup pencircle scaled .25cm ; - \ifnum\recurselevel=\CurrentTopic\space - draw p[\recurselevel] withcolor \MPcolor{ShowColor} ; - \else - draw p[\recurselevel] withcolor \MPcolor{DoneColor} ; - \fi - \stopMPdrawing}% - \dorecurse{\CurrentMaxItem} - {\startMPdrawing - initialize_box(\MPpos{item-\realfolio-\recurselevel}) ; - linewidth := .25cm ; - q[\recurselevel] := tensecircle (wxy,hxy,linewidth) shifted cxy ; - fill q[\recurselevel] withcolor .9white ; - pickup pencircle scaled linewidth ; - \ifnum\recurselevel=\CurrentMaxItem\space - draw q[\recurselevel] withcolor \MPcolor{ShowColor} ; - \else - draw q[\recurselevel] withcolor \MPcolor{DoneColor} ; - \fi - \stopMPdrawing}% - \dostepwiserecurse{2}{\CurrentTopic}{1} - {\startMPdrawing - draw - rt point 3 of p[\recurselevel-1] -- - lft point 7 of p[\recurselevel] - withcolor \MPcolor{ArrowColor} ; - \stopMPdrawing}% - \dostepwiserecurse{2}{\CurrentMaxItem}{1} - {\startMPdrawing - draw - bot point 9 of q[\recurselevel-1] -- - top point 5 of q[\recurselevel] - withcolor \MPcolor{ArrowColor} ; - \stopMPdrawing}% - \startMPdrawing - draw Page - withpen pencircle scaled .5cm - withcolor \MPcolor{EdgeColor} ; - StopPage ; - \stopMPdrawing - \MPdrawingdonetrue - \getMPdrawing} - -\def\TitlePage#1% - {\startstandardmakeup - \setupalign[middle] - \def\\{\vfil\bfb\setupinterlinespace} - \bfd\setupinterlinespace - \vfil#1\vfil\vfil - \stopstandardmakeup} - -\definecolor[PageColor][r=.5,g=.4,b=.3] -\definecolor[LineColor][r=.7,g=.6,b=.5] - -\definecolor[PageColor] [s=.60] -\definecolor[ShowColor] [r=.40] -\definecolor[EdgeColor] [g=.40] -\definecolor[DoneColor] [r=.40,g=.40] -\definecolor[ArrowColor] [b=.40] -\definecolor[LineColor] [r=.60,g=.60] -\definecolor[GotoColor] [ArrowColor] - -\setupinteraction[color=GotoColor,contrastcolor=GotoColor] - -\defineoverlay [shape] [\SomeShape] -\defineoverlay [next] [\overlaybutton{forward}] % [{nextpage}] - -\setupbackgrounds - [page] - [background={color,next,shape}, - backgroundcolor=PageColor] - -\doglobal\newcounter\CurrentMaxItem -\doglobal\newcounter\CurrentItem -\doglobal\newcounter\CurrentTopic - -\def\StartIdea% - {\doglobal\newcounter\CurrentItem} - -\def\StartTopic% - {\doglobal\increment\CurrentTopic - \dostartbuffer[topic-\CurrentTopic][StartTopic][StopTopic]} - -\def\StopIdea% - {\dorecurse{\CurrentItem} - {\let\CurrentMaxItem\recurselevel - \doStopIdea}} - -\def\doStopIdea% - {\startstandardmakeup - \dontcomplain - \vskip.875cm - \hbox to \makeupwidth - {\hfill - \dorecurse{\CurrentTopic} - {\edef\Topic{topic-\realfolio-\recurselevel}% - \hpos - {\Topic} - {\framed - [frame=off,align=middle,offset=.25cm] - {\getbuffer[topic-\recurselevel]}}% - \ifnum\recurselevel<\CurrentTopic - \hskip.875cm - \fi}% - \hfill} - \vskip.875cm - \vfilll - \dorecurse{\CurrentMaxItem} - {\edef\Item{item-\realfolio-\recurselevel} - \hbox to \makeupwidth - {\hfill - \hpos - {\Item} - {\framed - [width=.75\makeupwidth, - frame=off, - align=middle,offset=.125cm] - {\getbuffer[item-\recurselevel]}}% - \hfill} - \vskip.875cm} - \vfilll - \stopstandardmakeup} - -\def\StartItem% - {\doglobal\increment\CurrentItem - \dostartbuffer[item-\CurrentItem][StartItem][StopItem]} - -\lefthyphenmin =\maxdimen -\righthyphenmin=\maxdimen - -\doifnotmode{demo}{\endinput} - -\starttext - -\StartIdea - \StartTopic - A Nice Idea - \StopTopic - \StartItem - \input reich \relax - \StopItem - \StartItem - \input reich \relax - \StopItem - \StartItem - \input reich \relax - \StopItem -\StopIdea - -\StartIdea - \StartTopic - One More Nice Idea - \StopTopic - \StartItem - \input reich \relax - \StopItem - \StartItem - \input reich \relax - \StopItem -\StopIdea - -\StartIdea - \StartTopic - The Last Idea - \StopTopic - \StartItem - \input tufte \relax - \StopItem -\StopIdea - -\stoptext |