summaryrefslogtreecommitdiff
path: root/tex/context/base/s-pre-17.tex
diff options
context:
space:
mode:
authorMarius <mariausol@gmail.com>2013-04-09 22:00:18 +0300
committerMarius <mariausol@gmail.com>2013-04-09 22:00:18 +0300
commitf42ba8cf42e75d6f1749d677d847e49afebc3747 (patch)
tree1d5a7e3fc113071fc0b7e3ceacbc744b8a0eadf7 /tex/context/base/s-pre-17.tex
parent6448b726ded4b6f912a588e8f0bafb6182ca5db1 (diff)
downloadcontext-f42ba8cf42e75d6f1749d677d847e49afebc3747.tar.gz
beta 2013.04.09 19:57
Diffstat (limited to 'tex/context/base/s-pre-17.tex')
-rw-r--r--tex/context/base/s-pre-17.tex399
1 files changed, 0 insertions, 399 deletions
diff --git a/tex/context/base/s-pre-17.tex b/tex/context/base/s-pre-17.tex
deleted file mode 100644
index 7e8310a53..000000000
--- a/tex/context/base/s-pre-17.tex
+++ /dev/null
@@ -1,399 +0,0 @@
-%D \module
-%D [ file=s-pre-17,
-%D version=1999.08.20,
-%D title=\CONTEXT\ Style File,
-%D subtitle=Presentation Environment 17,
-%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.
-
-\setupbodyfont
- [12pt,ss]
-
-\setupcolors
- [state=start]
-
-\setupsystem
- [random=medium]
-
-\setupbackgrounds
- [state=repeat]
-
-\setupbackgrounds
- [page]
- [background={page,forward}]
-
-\setupbackgrounds
- [text][text]
- [background=blowup]
-
-\setupinteraction
- [state=start,
- %click=off,
- color=TitleColor,
- contrastcolor=TitleColor]
-
-\setupinteractionscreen
- [option=max]
-
-\setuptolerance
- [verytolerant,stretch]
-
-\definecolor [BackColor] [s=.30]
-\definecolor [PageColor] [g=1]
-\definecolor [FrameColor] [r=1]
-\definecolor [TitleColor] [y=1]
-\definecolor [ArrowColor] [b=1]
-
-\defineoverlay [title] [\useMPgraphic{title}]
-\defineoverlay [page] [\useMPgraphic{page}]
-\defineoverlay [blowup] [\overlaybutton{page(\realfolio)}]
-\defineoverlay [forward] [\overlaybutton{forward}]
-
-\startMPpositiongraphic{mppos:connection}
- path pa, pb, pc ; pair ca, cb ;
- initialize_box(\MPpos{\MPvar{self}}) ; pa := pxy ; ca := cxy ;
- initialize_box(\MPpos{\MPvar{prev}}) ; pb := pxy ; cb := cxy ;
- pickup pencircle scaled .5pt ;
- pa := pa enlarged 10pt ;
- pb := pb enlarged 10pt ;
- for i=1 upto 10 :
- draw pa randomized 20pt withcolor \MPcolor{FrameColor} ;
- endfor ;
- if \MPp{\MPvar{prev}}>0 :
- pair a, b, c, d ;
- for i=1 upto 25 :
- a := .5[ulcorner pa,urcorner pa] randomized (10pt,10pt) ;
- b := .5[llcorner pb,lrcorner pb] randomized (20pt,10pt) ;
- c := .5[a,b] rotatedaround(a,-25) randomized (5pt,5pt) ;
- d := .5[a,b] rotatedaround(a,+25) randomized (5pt,5pt) ;
- draw (a--b) withcolor \MPcolor{ArrowColor} ;
- draw (d--a--c) withcolor \MPcolor{ArrowColor} ;
- endfor ;
- fi ;
- anchor_box(\MPanchor{\MPvar{self}}) ;
-\stopMPpositiongraphic
-
-\startuseMPgraphic{title}
- pickup pencircle scaled .5pt ;
- for i=1 upto 10 :
- draw
- fullsquare xyscaled(OverlayWidth,OverlayHeight)
- enlarged 10pt randomized 20pt
- withcolor \MPcolor{TitleColor} ;
- endfor ;
-\stopuseMPgraphic
-
-\startuseMPgraphic{page}
- StartPage ;
- pickup pencircle scaled .5pt ;
- fill Page withcolor \MPcolor{BackColor} ;
- for i=1 upto 20 :
- draw Page enlarged -50pt randomized 50pt withcolor \MPcolor{PageColor} ;
- endfor ;
- StopPage ;
-\stopuseMPgraphic
-
-\def\StartText%
- {\bgroup
- \getrandomdimen\scratchdimen{250pt}{350pt}%
- \edef\TextWidth{\the\scratchdimen}%
- \setbox\scratchbox=\hbox\bgroup
- \hsize\TextWidth
- \setupframedtexts
- [before=,after=,
- width=fit,align=right, % normal,
- frame=off,foregroundcolor=white]%
- \framedtext\bgroup}
-
-\def\BlowX{450pt} % \def\BlowX{600pt}
-\def\BlowY{300pt} % \def\BlowY{450pt}
-\def\BlowV {50pt} % \def\BlowV{100pt}
-\def\BlowH {75pt} % \def\BlowH{100pt}
-\def\BackO {50pt} % \def\BackO {50pt}
-
-\def\StopText%
- {\egroup\egroup
- \doglobal\increment\CurrentBlaBla
- \let\PrevBlaBla\CurrentBlaBla \doglobal\decrement\PrevBlaBla
- \let\NextBlaBla\CurrentBlaBla \doglobal\increment\NextBlaBla
- \setMPpositiongraphic
- {connection:\CurrentBlaBla}%
- {mppos:connection}%
- {seed=\CurrentBlaBla,
- prev=connection:\PrevBlaBla,
- next=connection:\NextBlaBla}%
- \SetBlowUp{connection:\CurrentBlaBla}\BlowX\BlowY\BlowH\BlowV
- \hbox to 600pt
-% {\getrandomdimen\scratchdimen{50pt}{100pt}%
- {\getrandomdimen\scratchdimen{50pt}{75pt}%
- \hskip0pt plus \scratchdimen minus \scratchdimen
- \hpos{connection:\CurrentBlaBla}%
- {\framed
- [frame=off,
- offset=overlay,
- backgroundoffset=\BackO,
- background=blowup]
- {\box\scratchbox}}%
-% \getrandomdimen\scratchdimen{50pt}{100pt}%
- \getrandomdimen\scratchdimen{50pt}{75pt}%
- \hskip0pt plus \scratchdimen minus \scratchdimen}%
-% \getrandomdimen\scratchdimen{100pt}{150pt}%
- \getrandomdimen\scratchdimen{75pt}{125pt}%
- \vskip\scratchdimen
- \egroup}
-
-\def\xStartText
- {\bgroup
- \setbox\scratchbox=\hbox\bgroup
- \framed
- [frame=off,foregroundcolor=white]
- \bgroup}
-
-\def\xStopText{\StopText}
-
-\def\SetBlowUp#1#2#3#4#5% tag width height hoffset voffset
- {\scratchdimen=\MPw{#1}%
- \advance\scratchdimen-#2 %
- \divide\scratchdimen by 2
- \advance\scratchdimen by \MPx{#1}\relax
- \ifdim\scratchdimen<0pt \scratchdimen=0pt \fi
- \ScaledPointsToBigPoints{\number\scratchdimen}\TextX
- \advance\scratchdimen by #2 %
- \ScaledPointsToBigPoints{\number\scratchdimen}\TextW
- %
- \scratchdimen=\MPh{#1}%
- \advance\scratchdimen-#3 %
- \divide\scratchdimen by 2
- \advance\scratchdimen\MPy{#1}\relax
- \ifdim\scratchdimen<0pt \scratchdimen=0pt \fi
- \ScaledPointsToBigPoints{\number\scratchdimen}\TextY
- \advance\scratchdimen by #3
- \ScaledPointsToBigPoints{\number\scratchdimen}\TextH
- %
- \def\PDFpageviewkey{ fitr \TextX\space\TextY\space\TextW\space\TextH}%
- \def\PDFpageviewwrd{ /FitR \TextX\space\TextY\space\TextW\space\TextH}%
- \edef\PDFpageview{/View [\PDFpageviewwrd]}}
-
-\def\xSetBlowUp#1#2#3#4#5% tag width height hoffset voffset
- {\scratchdimen\MPx{#1}\relax
- \ifdim\scratchdimen<#4
- \ScaledPointsToBigPoints{0}\TextX
- \multiply\scratchdimen 2
- \else
- \advance\scratchdimen-#4
- \ScaledPointsToBigPoints{\number\scratchdimen}\TextX
- \advance\scratchdimen#4
- \advance\scratchdimen#4
- \fi
- \advance\scratchdimen\MPw{#1}%
- \ScaledPointsToBigPoints{\number\scratchdimen}\TextW
- %
- \scratchdimen\MPy{#1}\relax
- \ifdim\scratchdimen<#5
- \ScaledPointsToBigPoints{0}\TextY
- \multiply\scratchdimen 2
- \else
- \advance\scratchdimen-#5
- \ScaledPointsToBigPoints{\number\scratchdimen}\TextY
- \advance\scratchdimen#5
- \advance\scratchdimen#5
- \fi
- \advance\scratchdimen\MPh{#1}%
- \ScaledPointsToBigPoints{\number\scratchdimen}\TextH
- %
- \def\PDFpageviewkey{ fitr \TextX\space\TextY\space\TextW\space\TextH}%
- \def\PDFpageviewwrd{ /FitR \TextX\space\TextY\space\TextW\space\TextH}%
- \edef\PDFpageview{/View [\PDFpageviewwrd]}}
-
-\dontcomplain
-
-\def\StartPage#1%
- {\doStartPage{1}{#1}}
-
-\def\doStartPage#1#2%
- {\def\StopPage{\doStopPage{#1}{#2}}%
- \setbox\scratchbox=\hbox\bgroup
- \valign\bgroup\ignorespaces##\vss\cr}
-
-\def\doStopPage#1#2%
- {\cr
- \egroup
- \egroup
- \setbox\scratchbox=\vbox
- {\vskip100pt
- \hbox \ifcase#1 spread 200pt \else to \wd\scratchbox \fi
- {\hss
- \switchtobodyfont[big]%
- \bfd\setupinterlinespace
- \ifcase#1\else \SetBlowUp{title:\realfolio}\BlowX\BlowY\BlowH\BlowV \fi
- \hpos{title:\realfolio}
- {\framed
- [frame=off,align=middle,
- foregroundcolor=white,
- background={title,blowup}]
- {#2}}%
- \hss}
- \vskip100pt
- \box\scratchbox}
- \doFlushPage}
-
-\def\doFlushPage
- {\scratchdimen=\ht\scratchbox
- \advance\scratchdimen \dp\scratchbox
- \advance\scratchdimen 100pt
- \edef\height{\the\scratchdimen}
- \scratchdimen=\wd\scratchbox
- \advance\scratchdimen 100pt
- \edef\width {\the\scratchdimen}
- \expanded{\definepapersize[MASTER][width=\width,height=\height]}
- \setuppapersize
- [MASTER][MASTER]
- \setuplayout
- [topspace=25pt,backspace=25pt,
- width=middle,header=0pt,footer=0pt,height=middle]
- \centerbox{\box\scratchbox}
- \page}
-
-\def\StartTopic#1%
- {\unskip\unskip\cr
- \doglobal\increment(\CurrentBlaBla,100)%
- \vbox\bgroup
- \vskip100pt
- \bgroup
- \definecolor[FrameColor][TitleColor]
- \switchtobodyfont[big]
- \bfd\setupinterlinespace
- \xStartText#1\xStopText
- \vskip25pt
- \egroup}
-
-\def\StopTopic%
- {\vskip-\lastskip
- \vskip100pt
- \egroup
- \ignorespaces}
-
-\def\TitlePage#1%
- {\doStartPage{0}{\def\\{\vskip1ex\bfc\def\\{\vskip1ex\bfb}}#1}
- \StopPage}
-
-\doifnotmode{demo}{\endinput}
-
-\setupoutput[pdftex]
-
-\starttext
-
-\TitlePage{About Text\\Today's Talk\\Hans Hagen}
-
-\StartPage{The First Page}
-
-\StartTopic{Some Text}
- \StartText \input tufte \StopText
- \StartText \input knuth \StopText
- \StartText \input zapf \StopText
- \StartText \input knuth \StopText
-\StopTopic
-
-\StartTopic{Another Text}
- \StartText \input tufte \StopText
- \StartText \input zapf \StopText
- \StartText \input knuth \StopText
-\StopTopic
-
-\StartTopic{Some More Text}
- \StartText \input tufte \StopText
- \StartText \input knuth \StopText
- \StartText \input zapf \StopText
- \StartText \input tufte \StopText
-\StopTopic
-
-\StartTopic{Some Text Agian}
- \StartText \input tufte \StopText
- \StartText \input zapf \StopText
- \StartText \input knuth \StopText
- \StartText \input tufte \StopText
-\StopTopic
-
-\StopPage
-
-\StartPage{The Second Page}
-
-\StartTopic{Some Text}
- \StartText \input tufte \StopText
- \StartText \input knuth \StopText
- \StartText \input zapf \StopText
- \StartText \input tufte \StopText
- \StartText \input knuth \StopText
- \StartText \input zapf \StopText
-\StopTopic
-
-\StartTopic{Another Text}
- \StartText \input tufte \StopText
- \StartText \input knuth \StopText
- \StartText \input zapf \StopText
-\StopTopic
-
-\StartTopic{Some Nice Text}
- \StartText \input tufte \StopText
- \StartText \input knuth \StopText
- \StartText \input zapf \StopText
- \StartText \input tufte \StopText
- \StartText \input tufte \StopText
-\StopTopic
-
-\StartTopic{Some Funny Text}
- \StartText \input tufte \StopText
- \StartText \input knuth \StopText
-\StopTopic
-
-\StartTopic{Quite Some Text}
- \StartText \input tufte \StopText
- \StartText \input knuth \StopText
- \StartText \input zapf \StopText
- \StartText \input tufte \StopText
- \StartText \input knuth \StopText
- \StartText \input zapf \StopText
- \StartText \input tufte \StopText
- \StartText \input knuth \StopText
- \StartText \input zapf \StopText
-\StopTopic
-
-\StartTopic{Even More Text}
- \StartText \input knuth \StopText
- \StartText \input zapf \StopText
- \StartText \input tufte \StopText
- \StartText \input knuth \StopText
- \StartText \input zapf \StopText
-\StopTopic
-
-\StopPage
-
-\StartPage{The Third Page}
-
-\StartTopic{Some Short Text}
- \StartText \input tufte \StopText
- \StartText \input knuth \StopText
- \StartText \input zapf \StopText
-\StopTopic
-
-\StartTopic{Some Minimal Text}
- \StartText \input tufte \StopText
- \StartText \input zapf \StopText
-\StopTopic
-
-\StartTopic{Some More Text}
- \StartText \input tufte \StopText
- \StartText \input knuth \StopText
- \StartText \input zapf \StopText
- \StartText \input tufte \StopText
- \StartText \input tufte \StopText
-\StopTopic
-
-\StopPage
-
-\stoptext