diff options
Diffstat (limited to 'tex/context/modules')
22 files changed, 0 insertions, 5692 deletions
diff --git a/tex/context/modules/common/s-mag-01.tex b/tex/context/modules/common/s-mag-01.tex deleted file mode 100644 index e2d30f4e5..000000000 --- a/tex/context/modules/common/s-mag-01.tex +++ /dev/null @@ -1,438 +0,0 @@ -%D \module -%D [ file=s-mag-01, -%D version=2002.12.14, -%D title=\CONTEXT\ Style File, -%D subtitle=\CONTEXT\ Magazine Base Style, -%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. - -% This style is used for producing explanationary documents. -% Don't misuse it for other purposes, since it may confuse -% users. Don't change the title either, since it provides a -% way to categorize documents. Numbers are disabled in -% instances produced outside PRAGMA ADE. -% -% The layout setup is such that one has several text areas -% available: headers and footers, margins and edges as well -% as the main text area. The surrounding (gray) makes the -% main page stand out and is suitable for viewing in spread -% mode. -% -% Since this style is under constant construction, messing -% around with settings will produce unwanted side effects. -% So, if some feature or settings is needed, let me know. - -% todo: mp frames - -\setvariables[magazine][number=0] -\setvariables[magazine][author=] -\setvariables[magazine][title={Zero Issue}] -\setvariables[magazine][date=\currentdate] - -% These are reserved for PRAGMA-ADE, don't use them yourself! - -% \setvariables[magazine][main=Tricky] -% \setvariables[magazine][main=Update] -% \setvariables[magazine][main=HOWTO] - -% \setvariables[magazine][main=This Way] % preludes to a/the manual -% \setvariables[magazine][main=A Better Way] % dirty versus clean -% \setvariables[magazine][main=No Way] % how users should not do it -% \setvariables[magazine][main=Your Way] % how users do it -% \setvariables[magazine][main=My Way] % how users do it -% \setvariables[magazine][main=Our Way] % how we do things at pragma -% \setvariables[magazine][main=Their Way] % how to do latex things in context - -\setvariables[magazine][main=My Way] - -\startmode[atpragma] - \setvariables[magazine][main=This Way] -\stopmode - -\definepapersize - [magazine] - [width=\dimexpr\paperwidth-.1\paperwidth\relax, - height=\dimexpr\paperheight-.1\paperheight\relax] - -\setuppapersize - [magazine] - [A4] - -\setupinteractionscreen - [option=doublesided] - -\definecolor[OuterColor][s=.3] -\definecolor[InnerColor][s=.8] -\definecolor[MainColor] [s=.2] -\definecolor[TitleColor][s=.7] - -\definecolor[MyRed] [r=.6] -\definecolor[MyGreen][g=.6] -\definecolor[MyBlue] [b=.6] - -\startuseMPgraphic{paper} - sh := define_circular_shade(a,a,0,bbheight(OverlayBox), - \MPcolor{InnerColor},\MPcolor{OuterColor}) ; - fill OverlayBox withshade sh ; -\stopuseMPgraphic - -\startreusableMPgraphic{middlepaper} - pair a ; a := center OverlayBox ; - \includeMPgraphic{paper} -\stopreusableMPgraphic - -\startreusableMPgraphic{rightpaper} - pair a ; a := .5[urcorner OverlayBox,lrcorner OverlayBox] ; - \includeMPgraphic{paper} -\stopreusableMPgraphic - -\startreusableMPgraphic{leftpaper} - pair a ; a := .5[ulcorner OverlayBox,llcorner OverlayBox] ; - \includeMPgraphic{paper} -\stopreusableMPgraphic - -\startreusableMPgraphic{page} - fill OverlayBox withcolor white ; -\stopreusableMPgraphic - -\startusableMPgraphic{text} - StartPage ; - for i = Header,Text,Footer : - for j = LeftEdge, LeftMargin, Text, RightMargin, RightEdge : - draw Field[i][j] withpen pencircle scaled .5pt ; - endfor ; - endfor ; - StopPage ; - setbounds currentpicture to Field[Text][Text] ; -\stopusableMPgraphic - -\startsetups[paper] - - \doifmodeelse{*makeup} - {\reuseMPgraphic{middlepaper}} - {\doifoddpageelse - {\reuseMPgraphic{rightpaper}} - {\reuseMPgraphic{leftpaper}}} - -\stopsetups - -\defineoverlay[paper] [\setups{paper}] -\defineoverlay[page] [\reuseMPgraphic{page}] -\defineoverlay[text] [\doifmode{frame}{\useMPgraphic{text}}] - -\setupbackgrounds [paper] [background=paper] -\setupbackgrounds [page] [background={page,title}] -\setupbackgrounds [text] [background=text] - -\definelayer - [title] - [state=repeat, - hoffset=-1cm, - voffset=1cm, - width=\paperwidth, - height=\paperheight] - -\setupoutput - [pdftex] - -\setuplayout - [width=middle, - topspace=1.5cm, - height=middle, - header=1.5cm, - footer=1cm, - %grid=yes, - headerdistance=.25cm, - footerdistance=.5cm, - backspace=3cm, - margin=1.5cm, - margindistance=.25cm, - edge=.75cm, - edgedistance=.25cm, - bottomdistance=1.5cm, - bottom=.1\printpaperheight] - -\definelayout - [makeup] - [topspace=1cm, - backspace=1cm, - header=0pt, - footer=0pt, - bottom=0pt] - -\setuppagenumbering - [alternative=doublesided] - -\setupcolors - [state=start] - -\usetypescript - [palatino][\defaultencoding] - -\setupbodyfont - [palatino,10pt] - -\setuptolerance - [verytolerant,stretch] - -\appendtoks\setups[papershift]\to\beforeeverypage - -\startsetups[papershift] - - \setuppapersize[top=\vskip.5cm,bottom=\vss] - - \doifmodeelse{*makeup} - {\setuppapersize[left=\hfill,right=\hfill]} - {\doifoddpageelse - {\setuppapersize[right=\hfill]} - {\setuppapersize[left=\hfill]}} - -\stopsetups - -\setupbottomtexts - [\setups{rightbanner}] [] - [] [\setups{leftbanner}] - -\startsetups [leftbanner] - - \definedfont[Regular at \the\bottomheight] - \setbox\scratchbox\hbox{\TitleColor\getvariable{magazine}{main}} - \ht\scratchbox1ex - \dp\scratchbox\zeropoint - \MainColor - \definedfont[Regular sa 2] - \doifsomething{\getvariable{magazine}{number}} - {\doifnot{\getvariable{magazine}{number}}{0} - {\#\getvariable{magazine}{number}}} - \quad - \currentdate - \quad - \scale[height=.25\bottomheight]{\box\scratchbox} - \quad - \hbox to 1.5em{\hss\pagenumber\hss} - \quad - \hskip-\backspace - -\stopsetups - -\startsetups [rightbanner] - - \definedfont[Regular at \the\bottomheight] - \setbox\scratchbox\hbox{\TitleColor\getvariable{magazine}{main}} - \ht\scratchbox1ex - \dp\scratchbox\zeropoint - \MainColor - \hskip-\backspace - \definedfont[Regular sa 2] - \quad - \hbox to 1.5em{\hss\pagenumber\hss} - \quad - \scale[height=.25\bottomheight]{\box\scratchbox} - \quad - \currentdate - \quad - \doifmode{atpragma}{\#\getvariable{magazine}{number}} - -\stopsetups - -\startsetups[titlepage] - - \disablemode[frame] - - \setuplayout[makeup] - - \startstandardmakeup[doublesided=no] - - \dontcomplain - - \definelayer - [makeup] - [width=\textwidth, - height=\textheight] - - \setlayerframed - [makeup] - [corner={left,top},location={right,bottom}] - [frame=off, - foregroundcolor=MainColor] - {\scale - [width=\makeupwidth] - {\definedfont[Regular sa 10]% - \getvariable{magazine}{main}}} - - \setlayerframed - [makeup] - [corner={right,top},location={left},y=.4\textheight] - [frame=off, - foregroundcolor=MainColor, - width=\textwidth, - align=left] - {\definedfont[Regular sa 2.5]\setupinterlinespace - \startmode[atpragma] - \strut \ConTeXt\ magazine \#\getvariable{magazine}{number}\endgraf - \stopmode - \strut \getvariable{magazine}{date} \endgraf - \blank - \strut \getvariable{magazine}{title}\endgraf - \doifsomething{\getvariable{magazine}{author}} - {\strut \getvariable{magazine}{author}\endgraf} - \doifsomething{\getvariable{magazine}{affiliation}} - {\strut \getvariable{magazine}{affiliation}\endgraf}} - - \setlayerframed - [makeup] - [corner={right,bottom},location={left,top}] - [frame=off, - align=normal, - width=.8\textwidth, - foregroundcolor=MainColor] - {\getbuffer[abstract]} - - \flushlayer[makeup] - - \stopstandardmakeup - - \setuplayout[reset] - -\stopsetups - -\startsetups[listing] - - \page \disablemode[frame] - - \setuptexttexts [][] \setuptexttexts [] - \setupheadertexts[][] \setupheadertexts[source code of this document] - \setupfootertexts[][] \setupfootertexts[] - - \start \dontcomplain - - \typefile[TEX]{\inputfilename} - - \stop - -\stopsetups - -\startsetups[lastpage] - - \page \disablemode[frame] \page[even] - - \doifoddpageelse - {} - {\setuplayout[makeup] - \startstandardmakeup[doublesided=no,page=] - \stopstandardmakeup - \setuplayout[reset]} - -\stopsetups - -\startsetups[title] - - \disablemode[frame] - - \setlayerframed - [title] - [corner={left,top},location={left,bottom}, - rotation=90] - [frame=off, - foregroundcolor=MainColor] - {\definedfont[RegularBold sa 2]\strut\getvariable{magazine}{title}} - - \setlayerframed - [title] - [corner={right,top}, - rotation=270] - [frame=off, - foregroundcolor=MainColor] - {\definedfont[RegularBold sa 2]\strut\getvariable{magazine}{title}} - -\stopsetups - -\startbuffer[abstract] - % no abstract -\stopbuffer - -\setuphead - [chapter] - [page=yes, - after={\blank[2*big]}, - color=MainColor, - style=\bfc] - -\setuphead - [section] - [before={\blank[2*big]}, - after=\blank, - color=MainColor, - style=\bfb] - -\setuphead - [subsection] - [before=\blank, - after=, - color=MainColor, - style=\bf] - -\setupwhitespace - [big] - -\definetyping[xtyping] [style=\ttx] -\definetyping[xxtyping][style=\ttxx] - -\definetypeface - [narrowtt] [tt] - [mono] [modern-cond] [default] [encoding=\defaultencoding] - -\definetyping[ntyping] \setuptyping[ntyping][style=\narrowtt] -\definetype [ntype] \setuptype [ntype] [style=\narrowtt] - -\doifnotmode{demo}{\endinput} - -% \usemodule[mag-01] - -\setvariables - [magazine] - [title={Introduction}, - author=Hans Hagen, - affiliation=PRAGMA ADE, - date=Januari 2003, - number=0] - -\startbuffer[abstract] - This is the zero issue of a semi periodical. The - associated style can be used by \CONTEXT\ users to - typeset and publish their own issues. -\stopbuffer - -\starttext \setups [titlepage] \setups [title] - -\setupheadertexts[welcome] - -This is the zero issue of a range of \CONTEXT\ related -publications, in most cases short introductions to new -functionality. The style may be used by users for providing -similar documents, but preferably not for other purposes, -since it may confuse readers in their expectations. - -We've chosen a layout which is more functional than -beautiful. This layout provides several text areas: headers -and footers, margins and edges as well as a main text area. -The surrounding (gray) makes the main page (which is -slightly smaller than A4) stand out and is suitable for -viewing in spread mode. - -The documents produced at \PRAGMA\ are called {\bf This -Way}, user documents gets the title {\bf My Way}. The -\PRAGMA\ issues are numbered. We strongly advise you not to -use the \type {mag-} prefix for your issues, since this may -lead to clashes with files distributed by \PRAGMA. - -\setups [listing] - -\setups [lastpage] - -\stoptext diff --git a/tex/context/modules/common/s-pre-01.tex b/tex/context/modules/common/s-pre-01.tex deleted file mode 100644 index 89c5642f9..000000000 --- a/tex/context/modules/common/s-pre-01.tex +++ /dev/null @@ -1,404 +0,0 @@ -%D \module -%D [ file=s-pre-01, -%D version=1997.07.22, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 1, -%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 This environment can be used to typeset interactive -%D presentations. This module was first used at the 1997 \TUG\ -%D meeting. - -\usemodule[pre-general] - -%D \macros -%D {language} -%D -%D Because this module is defined in english, we default to the -%D english hyphenation patterns and labels too. - -\language - [en] - -%D \macros -%D {setupbodyfont,setuplayout} -%D -%D For screen reading, a Lucida Bright font looks nice. We use -%D a 14.4 point bodyfont for the main text, but switch back to -%D 12 points for ornaments. - -\startmode[asintended] \setupbodyfont[lbr] \stopmode - -\setupbodyfont[14.4pt] - -\setuplayout - [style=smallbodyfont] - -%D \macros -%D {setupcolors,definecolor} -%D -%D Screen presentations without color just look dull, so we -%D enable color support. We define ourselves a yellowish -%D backgroundcolor and a not too dark blue interactioncolor. - -\setupcolors - [state=start] - -\definecolor [BackgroundColor] [r=1, g=1, b=.7] -\definecolor [InteractionColor] [r=.1, g=.5, b=.8] -\definecolor [ContrastColor] [r=.9, g=.5, b=.2] - -%D \macros -%D {setuppapersize,setuplayout,setupinteractionscreen} -%D -%D -%D We use a nice large screen, and dedicate the right edge and -%D bottom part to navigational tools. We automatically set -%D the width and height of the page and start up full screen. - -\setuppapersize - [S6][S6] - -\setuplayout - [topspace=12pt, - header=0pt, - footer=0pt, - height=402pt, % 450 - 12 - 15 - 12 - 12 + 3 - bottomdistance=15pt, - bottom=12pt, - backspace=12pt, - margin=0pt, - width=fit, - edgedistance=12pt, - rightedge=96pt] - -\setupinteractionscreen - [option=max] - -%D \macros -%D {setupbackgrounds} -%D -%D We set the pagecolor to yellow except the part of the screen -%D that is used to display the running text. By seting the -%D offset to 3pt the text will not touch the yellow parts. We -%D do not set the depth. - -\setupbackgrounds - [page] - [background=color, - backgroundcolor=BackgroundColor, - offset=3pt] - -\setupbackgrounds - [text][text] - [background=color, - backgroundcolor=white] - -%D I considered the next setup too, but finaly decided to -%D comment it out. -%D -%D \starttyping -%D \setupbackgrounds -%D [bottom][text] -%D [frame=on, -%D framecolor=white] -%D \stoptyping - -%D \macros -%D {setupinteraction} -%D -%D We did not enable interactive text support yet, so let's do -%D that now. We force page reference to circumvent problems -%D with named destinations in buggy viewers. - -\setupinteraction - [page=yes, - color=InteractionColor, - contrastcolor=ContrastColor, - menu=on, - state=start] - -%D \macros -%D {setupinteractionmenu,startinteractionmenu} -%D -%D At the bottom of the screen we show two navigational bars. -%D At the left we show the subpage bar, at the right we use a -%D non default backward|/|forward bar. - -\setupinteractionmenu - [bottom] - [leftoffset=-3pt, - rightoffset=-3pt] - -\startinteractionmenu[bottom] - \txt \InteractionBar \\ - \txt \InteractionButtons \\ -\stopinteractionmenu - -%D \macros -%D {interactionbar} -%D -%D The left bar gets a white border (on the yellow background). -%D Because we don't want to typeset an empty frame when no -%D subpage bar is shown, we check for the number of subpages. - -\def\InteractionBar% - {\ifnum\nofsubpages>1 - \framed - [framecolor=white,rulethickness=1pt, - height=\bottomheight,strut=no] - {\interactionbar[alternative=f,width=.5\makeupwidth,height=1ex]} - \fi} - -%D \macros -%D {setupinteractionbar, interactionbuttons} -%D -%D The right hand buttons enable us to jump backward and forward, -%D as well as to the previous and next jump. We also enable to -%D close the presentation. - -\setupinteractionbar - [framecolor=white,rulethickness=1pt, - height=\bottomheight,strut=no] - -\def\InteractionButtons% - {\interactionbuttons - [width=15em] - [PreviousJump,NextJump, - firstpage, - firstsubpage,previouspage,nextpage,lastsubpage, - lastpage, - CloseDocument]} - -%D \macros -%D {StartTitlePage, TitlePage} -%D -%D The titlepage is rather simple and can be typeset in two -%D ways: -%D -%D \starttyping -%D \StartTitlePage -%D text \\ text \\ text -%D \StopTitlepage -%D \stoptyping -%D -%D or more straightforward: -%D -%D \starttyping -%D \TitlePage{text\\text\\text} -%D \stoptyping -%D -%D The first alternative can be used for more complicated -%D title pages. - -\def\StartTitlePage% - {\startstandardmakeup - \bfd\setupinterlinespace - \setupalign[middle] - \vfil - \let\\=\vfil} - -\def\StopTitlePage% - {\vfil\vfil\vfil - \stopstandardmakeup} - -\def\TitlePage#1% - {\StartTitlePage#1\StopTitlePage} - -%D \macros -%D {TitlePage, Topics, Topic, Subject} -%D -%D A presentation after loading this module looks like: -%D -%D \starttyping -%D \TitlePage {About Whatever\\Topics} -%D -%D \Topics {Todays Talk} -%D -%D \Topic {Some topic} -%D -%D \Subject {Alfa} -%D -%D ..... -%D -%D \Subject {Beta} -%D -%D ..... -%D \stoptyping - -%D \macros -%D {definehead} -%D -%D The commands \type{\Topic} and \type{\Subject} are defined -%D as copies of head. We use \type{\Nopic} for internal -%D purposes. - -\definehead [Topic] [chapter] -\definehead [Subject] [section] - -\definehead [Nopic] [title] - -%D \macros -%D {setuphead} -%D -%D Because chapters and sections do not make sense in -%D presentations, we use our own command for typesetting the -%D titles. Sectionnumbers are of course hidden from viewing. -%D Each topic is followed by a list of subjects that belong -%D to the topic. - -\setuphead - [Topic, Nopic, Subject] - [command=\HeadLine, - page=yes, - style=\tfb, - after=\blank, - sectionnumber=no] - -\setuphead - [Topic] - [after=\PlaceSubjectList] - -\setuphead - [Subject] - [continue=no] - -%D \macros -%D {framed, midalined} -%D -%D The command used to typeset the head lines is rather simple. -%D We just center the framed title. The frame macro optimizes -%D the alignment and at the same time enables us to typeset a -%D nice colored rule. - -\def\HeadLine#1#2% - {\midaligned - {\framed - [framecolor=BackgroundColor,rulethickness=1pt, - width=.8\hsize,align=middle,strut=no] - {#2}}} - -%D \macros -%D {setuplist} -%D -%D The subject list is automatically placed. We center each -%D subject line by using one of the default alternatives (g). We -%D could have said: -%D -%D \starttyping -%D \setuplist -%D [Subject] -%D [alternative=none, -%D command=\SubjectListLine, -%D interaction=all] -%D -%D \def\SubjectListLine#1#2#3% -%D {\midaligned{#2}} -%D \stoptyping -%D -%D But why should we complicate things when we can use -%D alternative~\type{g}. The test is only needed if one -%D does not automatically goes a new page with each subject. - -\def\PlaceSubjectList% - {\blank - \determinelistcharacteristics[Subject] - % \ifnum\utilitylistlength>0 \placelist[Subject] \fi} - \doifmode{*list}{\placelist[Subject]}} - -\setuplist - [Subject, Topic] - [alternative=g, - interaction=all, - before=, - after=] - -% %D \macros -% %D {setuptexttexts} -% %D -% %D The topics will be listed in the right edge, using: -% -% \setuptexttexts -% [edge] -% [][\TopicList] - -%D \macros -%D {setuplist, placelist,startinteractionmenu} -%D -%D The actual topic list is typeset using a \type{\vbox}. We -%D have to specify \type{criteriumcriterium=all} because otherwise no -%D list will be typeset. (By default lists are typeset -%D locally.) - -\startinteractionmenu[right] - \placelist - [Topic] - [alternative=f, % command, % none, - maxwidth=\hsize, - width=\hsize, - offset=0pt, - criterium=all, - align=left, - style=\setsmallbodyfont\bfx] -\stopinteractionmenu - -\def\Topics#1% temporary hack - {\Nopic{#1} - \placelist[Topic][criterium=all]} - -\def\Subjects% - {} - -%D \macros -%D {setuptexttexts, button} -%D -%D During a presentation, we want to use the cursor to point to -%D parts of the text. Furthermore we want to be able to jump to -%D the next page, without the need to move the cursor on buttons. -%D Therefore we make the text part of the screen into an -%D invisible button. - -\setuptexttexts - [\GotoNextPage][] - -\def\GotoNextPage - {\button[width=\hsize,height=\vsize,frame=off]{}[nextpage]} - -%D \macros -%D {setupsubpagenumber} -%D -%D The left bottom navigation bar shows the subpages, which will -%D be counted by text. One can change this in the preentation -%D itself by saying \type {[way=byTopic]}. - -\setupsubpagenumber - [way=bytext, % Topic, - state=start] - -\doifnotmode{demo}{\endinput} - -%D The (rather silly) demo section. - -\starttext - -\TitlePage{Title Page\\pre-original} - -\Topics{Some Nice Quotes} - -\Topic{A Few} - -\Subject{Knuth} \input knuth -\Subject{Tufte} \input tufte - -\Topic{Some More} - -\Subject{Zapf} \input zapf -\Subject{Bryson} \input bryson - -\stoptext diff --git a/tex/context/modules/common/s-pre-02.tex b/tex/context/modules/common/s-pre-02.tex deleted file mode 100644 index d7a6fe458..000000000 --- a/tex/context/modules/common/s-pre-02.tex +++ /dev/null @@ -1,381 +0,0 @@ -%D \module -%D [ file=s-pre-02, -%D version=1998.04.21, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 2, -%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 This environment can be used to typeset interactive -%D presentations. This module was first used at the 1998 -%D publishers conference of the European Portable Document -%D Association (now merged into a graphics association). - -\usemodule[pre-general] - -%D \macros -%D {setupbodyfont, switchtobodyfont, setuplayout} -%D -%D At \PRAGMA\ we prefer using the Lucida Bright fonts, but -%D one can of course load another typeface. - -\startmode[asintended] \setupbodyfont[lbr] \stopmode - -\setupbodyfont[14.4pt] - -\setuplayout - [style=smallbodyfont] - -%D \macros -%D {setuppapersize, setuplayout} -%D -%D The papersize suits the screen dimensions. The layout is -%D rather simple. We use the whole width of the screen and only -%D have navigational tools at the bottom of the screen. - -\setuppapersize - [S6][S6] - -\setuplayout - [backspace=1cm, - topspace=1cm, - margin=0pt, - header=0pt, - footer=0pt, - bottomdistance=.875cm, - bottom=1cm, - width=fit, - height=fit] - -%D \macros -%D {setupwhitespace, setuptyping} -%D -%D We don't have much height, so we use a more cramped -%D spacing. Verbatim text looks better when indented. -%D - -\setupwhitespace - [medium] - -\setuptyping - [margin=standard] - -%D \macros -%D {definecolor, setupcolors} -%D -%D Of course we enable color. We define some logical colors, -%D of which most default to the same green shade. - -\definecolor [BackgroundColor] [r=.8, g=.8, b=.8] -\definecolor [OrnamentColor] [r= 0, g=.7, b=.4] - -\setupcolors - [state=start] - -%D \macros -%D {setupinteraction, setupinteractionscreen} -%D -%D We still have to enable interaction mode. We go full -%D screen! - -\setupinteraction - [state=start, - color=OrnamentColor, - contrastcolor=OrnamentColor] - -\setupinteractionscreen - [option=max, - width=fit, - height=fit] - -%D \macros -%D {setupitemize} -%D -%D And why not bring some color in itemizations too? - -\setupitemize - [color=OrnamentColor] - -%D \macros -%D {defineoverlay, setupbackgrounds} -%D -%D The navigational elements and the backgrounds are -%D provided by \METAPOST. -%D -%D When \METAPOST\ is used, it makes sense to generate the -%D graphics at runtime. This is supported when one enables -%D system calls in the local \type {texmf.cnf} file and add the -%D switch \type {\runMPgraphicstrue} to the local file \type -%D {cont-sys.tex}. When direct processing is disabled or not -%D supported, \TEXEXEC\ will take care of graphic generation. - -\startuniqueMPgraphic{PageBackground} - fill unitsquare - xyscaled(OverlayWidth,OverlayHeight) - withcolor OverlayColor ; - draw unitsquare - xyscaled(OverlayWidth,OverlayHeight) - enlarged (-2*OverlayLineWidth) - withpen pencircle scaled OverlayLineWidth - withcolor OverlayLineColor ; -\stopuniqueMPgraphic - -\defineoverlay - [PageBackground] - [\uniqueMPgraphic{PageBackground}] - -\setupbackgrounds - [page] - [background=PageBackground, - backgroundcolor=BackgroundColor, - rulethickness=.125cm, - framecolor=OrnamentColor] - -%D \macros -%D {setuptexttexts} -%D -%D By clicking on the text area, one goes to the next page. -%D We hook this feature into the text backgrounds. - -\startuniqueMPgraphic{TextBackground} - draw unitsquare - xyscaled(OverlayWidth,OverlayHeight) - enlarged (4*OverlayLineWidth) - withpen pencircle scaled OverlayLineWidth - withcolor OverlayLineColor ; -\stopuniqueMPgraphic - -\defineoverlay - [TextBackground] - [\uniqueMPgraphic{TextBackground}] - -\defineoverlay - [NextPage] - [\overlaybutton{nextpage}] - -\setupbackgrounds - [text] - [background={TextBackground,NextPage}, - backgroundcolor=BackgroundColor, - rulethickness=.0625cm, - framecolor=OrnamentColor] - -%D \macros -%D {setupinteractionmenu,startinteractionmenu} -%D -%D At the bottom of the screen, we show three buttons. These -%D direct us to the previous or next jump or exit the document. - -\setupMPvariables[RightArrow][height=\bottomheight] -\setupMPvariables[LeftArrow] [height=\bottomheight] -\setupMPvariables[Circle] [height=\bottomheight] -\setupMPvariables[UpArrow] [height=\bottomheight] - -\startuniqueMPgraphic{RightArrow}{height} - z1=(0,0) ; z2=(\MPvar{height},.5y3) ; z3=(0,\MPvar{height}) ; - drawfill z1--z2--z3--cycle - withpen pencircle scaled (\MPvar{height}/5) - withcolor \MPcolor{OrnamentColor} ; -\stopuniqueMPgraphic - -\startuniqueMPgraphic{LeftArrow}{height} - z1=(\MPvar{height},0) ; z2=(0,.5y3) ; z3=(\MPvar{height},\MPvar{height}) ; - drawfill z1--z2--z3--cycle - withpen pencircle scaled (\MPvar{height}/5) - withcolor \MPcolor{OrnamentColor} ; -\stopuniqueMPgraphic - -\startuniqueMPgraphic{Circle}{height} - drawfill fullcircle scaled \MPvar{height} - withpen pencircle scaled (\MPvar{height}/5) - withcolor \MPcolor{OrnamentColor} ; -\stopuniqueMPgraphic - -\startuniqueMPgraphic{UpArrow}{height} - z1=(0,0) ; z2=(\MPvar{height},0) ; z3=(.5x2,\MPvar{height}) ; - drawfill z1--z2--z3--cycle - withpen pencircle scaled (\MPvar{height}/5) - withcolor \MPcolor{OrnamentColor} ; -\stopuniqueMPgraphic - -\setupinteractionmenu - [bottom] - [state=start, - frame=off, - width=.3\textwidth, - height=\bottomheight] - -\setupinteraction - [menu=on] - -\def\WhateverButton - {\doifreferencefoundelse{Whatever} - {\raw [Whatever] \uniqueMPgraphic{UpArrow} \\} - {}} - -\startinteractionmenu[bottom] - \but [Topics] \\ % secret button - \hfill - \WhateverButton % user specific - \kern2\bottomheight - \raw [previouspage] \uniqueMPgraphic{LeftArrow} \\ - \kern.5\bottomheight - \raw [CloseDocument] \uniqueMPgraphic{Circle} \\ - \kern.5\bottomheight - \raw [nextpage] \uniqueMPgraphic{RightArrow} \\ - \kern.5\bottomheight -\stopinteractionmenu - -%D \macros -%D {TitlePage, Topics, Topic, Subject} -%D -%D A presentation after loading this module looks like: -%D -%D \starttyping -%D \TitlePage {About Whatever\\Topics} -%D -%D \Topics {Todays Talk} -%D -%D \Topic {Some topic} -%D -%D ..... -%D -%D \Topic {Next Topic} -%D -%D ..... -%D \stoptyping - -%D \macros -%D {StartTitlePage, TitlePage} -%D -%D The titlepage is rather simple and can be typeset in two -%D ways: -%D -%D \starttyping -%D \StartTitlePage -%D text \\ text \\ text -%D \StopTitlepage -%D \stoptyping -%D -%D or as one||liner: -%D -%D \starttyping -%D \TitlePage{text\\text\\text} -%D \stoptyping -%D -%D The first alternative can be used for more complicated -%D title pages. - -\def\StartTitlePage% - {\startstandardmakeup - \bfd\setupinterlinespace - \setupalign[middle] - \vfil - \let\\=\vfil} - -\def\StopTitlePage% - {\vfil\vfil\vfil - \stopstandardmakeup} - -\def\TitlePage#1% - {\StartTitlePage#1\StopTitlePage} - -%D \macros -%D {definehead} -%D -%D The commands \type{\Topic} and \type{\Subject} are defined -%D as copies of head. We use \type{\Nopic} for internal -%D purposes. - -\definehead [Topic] [chapter] -\definehead [Subject] [section] - -\definehead [Nopic] [title] - -%D \macros -%D {setuphead} -%D -%D We use our own command for typesetting the titles. We hide -%D sectionnumbers from viewing. Each topic is followed by a -%D list of subjects that belong to the topic. - -\setuphead - [Topic, Nopic] - [after={\blank[3*medium]}, - number=no, - style=\tfb, - page=yes, - alternative=middle] - -\setuphead - [Subject] - [after=\blank, - number=no, - page=yes, - continue=no, - style=\tfa] - -%D \macros -%D {setuplist} -%D -%D When found, the subject list is automatically placed -%D after the topic head. - -\setuplist - [Topic,Subject] - [alternative=g, - interaction=all, - before=, - after=] - -\setuplist - [Topic] - [criterium=all] - -\def\Topics#1% - {\determinelistcharacteristics[Topic] - \doifmode{*list} - {\Nopic[Topics]{#1} - \startcolumns - \placelist[Topic] - \stopcolumns}} - -\setuplist - [Subject] - [criterium=Topic] - -\def\Subjects% - {\determinelistcharacteristics[Subject] - \doifmode{*list} - {\placelist[Subject]}} - -\setuphead - [Topic] - [after={\blank[3*medium]\Subjects}] - -\doifnotmode{demo}{\endinput} - -%D The (rather silly) demo section. - -\starttext - -\TitlePage{Title Page\\pre-green} - -\Topics{Some Nice Quotes} - -\Topic{A Few} - -\Subject{Knuth} \input knuth -\Subject{Tufte} \input tufte - -\Topic{Some More} - -\Subject{Zapf} \input zapf -\Subject{Bryson} \input bryson - -\stoptext diff --git a/tex/context/modules/common/s-pre-03.tex b/tex/context/modules/common/s-pre-03.tex deleted file mode 100644 index 19a11d24e..000000000 --- a/tex/context/modules/common/s-pre-03.tex +++ /dev/null @@ -1,257 +0,0 @@ -%D \module -%D [ file=s-pre-03, -%D version=1998.09.06, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 3, -%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 This is the third environment for typesetting interactive -%D presentations. I used this style for a talk on \TEX\ and -%D \JAVASCRIPT\ at \TUG98, mainly because I didn't want to -%D use the same style three times. Therefore this is a rather -%D simple, silly style. - -\usemodule[pre-general] - -%D \macros -%D {setupbodyfont} -%D -%D We use a large bodyfont. Combined with the fancy -%D background, this does not leave that much room for text, but -%D presentations should use much text anyway. - -\startmode[asintended] \setupbodyfont[lbr] \stopmode - -\setupbodyfont[14.4pt] - -%D \macros -%D {setuppapersize,setuplayout,setupinteractionscreen} -%D -%D The page dimensions are set to size \type {S6}, being -%D 600pt by 450pt. We use wide margins and discard headers -%D and footers. We also launch the document full screen. - -\setuppapersize - [S6][S6] - -\setuplayout - [width=middle, - height=middle, - topspace=75pt, - backspace=100pt, - header=0pt, - footer=0pt] - -\setupinteractionscreen - [option=max] - -%D \macros -%D {setupcolors,definecolor} -%D -%D Next, color support is turned on and a dark red color is -%D defined. Other red shades will be derived from this one -%D color. - -\setupcolors - [state=start] - -\definecolor [PageColor] [black] -\definecolor [BackgroundColor] [s=.85] -\definecolor [OrnamentColor] [r=.75] - -%D \macros -%D {setupinteraction} -%D -%D We turn on interaction mode and use the same color for -%D hyperlinks and redundant hyperlinks (the ones that point -%D to the current page). - -\setupinteraction - [state=start, - contrastcolor=OrnamentColor, - color=OrnamentColor] - -%D \macros -%D {defineoverlay, setupbackgrounds} -%D -%D The joke in this presentation is the elliptical shape of -%D which the bottom part includes a page indication. - -\defineoverlay - [PageShape][\useMPgraphic{PageShape}] - -% \startuseMPgraphic{PageShape} -% lin := 20pt ; off := .75lin ; -% wid := \overlaywidth ; hei := \overlayheight ; -% pos := \currentpage ; tot := \lastpage ; -% path bb; bb := unitsquare xscaled wid yscaled hei ; -% filldraw bb withcolor \MPcolor{PageColor} ; -% pickup pencircle xscaled .5lin yscaled lin rotated 45 ; -% pair r, t, l, b ; -% r := (wid-off,.5hei) ; t := (.5wid,hei-off) ; -% l := (off,.5hei) ; b := (.5wid,off) ; -% path p; p := superellipse(r,t,l,b,.8) ; -% fill p withcolor \MPcolor{Backgroundcolor} ; -% draw p withcolor \MPcolor{OrnamentColor} ; -% color contrastcolor ; contrastcolor = 2/3 * \MPcolor{OrnamentColor} ; -% if (pos>0) and (tot>0): -% pair pa ; pa := point 5 of p ; -% pair pb ; pb := point 7 of p ; -% draw pa withcolor contrastcolor ; -% draw pb withcolor contrastcolor ; -% len := 2/tot ; -% pair pa ; pa := point (5+len*pos) of p ; -% pair pb ; pb := point (5+len*(pos-1)) of p ; -% p := p cutafter pa ; -% p := p cutbefore pb ; -% draw p withcolor contrastcolor ; -% fi ; -% setbounds currentpicture to bb ; -% \stopuseMPgraphic - -\startuseMPgraphic{PageShape} - StartPage ; - path p ; pair pa, pb ; numeric len ; color contrastcolor ; - fill Page withcolor \MPcolor {PageColor} ; - pickup pencircle rotated 45 xscaled 10pt yscaled 20pt ; - p := Page enlarged (-10pt,-15pt) superellipsed .8 ; - p := p shifted (-1.5pt,0) ; % looks better - fill p withcolor \MPcolor{BackgroundColor} ; - draw p withcolor \MPcolor{OrnamentColor} ; - contrastcolor = 2/3 * \MPcolor{OrnamentColor} ; - if (PageNumber>0) and (NOfPages>0): - draw point 5 of p withcolor contrastcolor ; - draw point 7 of p withcolor contrastcolor ; - len := 2/NOfPages ; - pa := point (5+len*PageNumber) of p ; - pb := point (5+len*(PageNumber-1)) of p ; - draw (p cutafter pa) cutbefore pb - withcolor contrastcolor ; - fi ; - StopPage ; -\stopuseMPgraphic - -%D We use the viewer provided feature to go to the previous or -%D next page. - -\defineoverlay[PrevButton][\overlaybutton{PreviousPage}] -\defineoverlay[NextButton][\overlaybutton{NextPage}] - -\setupbackgrounds - [page] - [background={PageShape,PrevButton}] - -\setupbackgrounds - [text][text] - [background=NextButton] - -% or using hard coded next/prev pages: -% -% \defineoverlay[PrevButton][\overlaybutton{previouspage}] -% \defineoverlay[NextButton][\overlaybutton{nextpage}] -% -% \setupbackgrounds[state=repeat] -% \setupbackground[text][text][background=NextButton] -% -% or simply (using an repeated layer): -% -% \setupbackground[text][background=NextButton] - -%D \macros -%D {definehead, setuphead} -%D -%D Like the other presentation styles, we use \type {\Topic} -%D instead of \type {\chapters}. This time we don't provide -%D an additional sectioning. So we have: -%D -%D \starttyping -%D \TitlePage{How nice} -%D -%D \Topics{This is about ...} -%D -%D \Topic{The first one} -%D -%D \Topic{Another one} -%D \stoptyping - -\definehead [Topic] [chapter] -\definehead [Nopic] [title] - -\setuphead - [Topic,Nopic] - [after={\blank[3*medium]}, - number=no, - style=\tfb, - page=yes, - alternative=middle] - -\setuplist - [Topic] - [alternative=g, - interaction=all, - before=, - after=] - -\def\Subject - {\Topic} - -%D The tables of contents is associated with \type -%D {\Topics}. - -\def\Topics#1% - {\Nopic[Topics]{#1} - \placelist[Topic][criterium=all]} - -\def\Subjects - {} - -%D Instead of \type {\TitlePage}, one can use the pair -%D \type {\StartTitlePage} -- \type {\StopTitlePage}: -%D -%D \starttyping -%D \StartTitlePage -%D A Self Made Title -%D \StopTitlePage -%D \stoptyping - -\def\StartTitlePage% - {\startstandardmakeup - \bfd\setupinterlinespace - \setupalign[middle] - \vfil - \def\\{\vfil\bfb\setupinterlinespace}} - -\def\StopTitlePage% - {\vfil\vfil\vfil - \stopstandardmakeup} - -\def\TitlePage#1% - {\StartTitlePage#1\StopTitlePage} - -\doifnotmode{demo}{\endinput} - -%D The (rather silly) demo section. - -\starttext - -\TitlePage{Title Page\\pre-funny} - -\Topics{Some Nice Quotes} - -\Topic{A Few} - -\Subject{Knuth} \input knuth -\Subject{Tufte} \input tufte - -\Topic{Some More} - -\Subject{Zapf} \input zapf -\Subject{Bryson} \input bryson - -\stoptext diff --git a/tex/context/modules/common/s-pre-04.tex b/tex/context/modules/common/s-pre-04.tex deleted file mode 100644 index 088f4e510..000000000 --- a/tex/context/modules/common/s-pre-04.tex +++ /dev/null @@ -1,377 +0,0 @@ -%D \module -%D [ file=s-pre-04, -%D version=1998.09.06, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 4, -%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. - -\usemodule[pre-general] - -%D \macros -%D {setupbodyfont} -%D -%D This is just another environment for typesetting interactive -%D presentations. I wrote this module on behalf of a course I -%D gave for the United Kingdom \TeX\ users group. - -\setupbodyfont[ams,pos,14.4pt] - -%D \macros -%D {setupcolors,definecolor} -%D -%D I started using dark blue for the navigational elements. In -%D that context, dark red is a logical choice for the contrast -%D color. While playing around with the navigational elements -%D I decided to use the not so dominant color yellow for the -%D status bar. -%D -%D A few days before I wrote this style, the recent acquisition -%D of Mondriaans last painting by the Dutch governement was a -%D hot topic in the dutch news scenary. Therefore I decided to -%D replace the rather dull title page by something more -%D colorful, in mondriaan colors, but far more random than any -%D of his paintings. For consistence we remap the already -%D defined primary colors. - -\setupcolors [state=start] - -\definecolor [NoneColor] [s=.6] -\definecolor [GotoColor] [b=.6] \definecolor[blue] [GotoColor] -\definecolor [ExitColor] [r=.6] \definecolor[red] [ExitColor] -\definecolor [JumpColor] [s=.6] -\definecolor [UserColor] [g=.6] \definecolor[green] [UserColor] -\definecolor [StepColor] [r=.6,g=.6] \definecolor[yellow][StepColor] - -\definecolor [PageColor] [s=.80] \definecolor[gray] [PageColor] -\definecolor [TextColor] [s=.90] - -%D \macros -%D {setuppapersize} -%D -%D As usual, we take a screen oriented paper size: - -\setuppapersize - [S6][S6] - -%D \macros -%D {setuplayout,setupinteractionscreen} -%D -%D The layout definition fits into this $600\times450$ point -%D area, but the dimensions are somewhat diffused by the text -%D background offset. - -\setuplayout - [width=530pt, - height=400pt, - header=0pt, - footer=0pt, - backspace=15pt, - topspace=15pt, - bottomdistance=15pt, - bottom=10pt, - margin=0pt, - rightedgedistance=15pt, - rightedge=30pt] - -\setupinteractionscreen - [option=max] - -%D \macros -%D {setupbackgrounds} -%D -%D Both the page and the text area have a gray background. -%D The \type {[text,text]} area also has an offset. Later we -%D will see that we have to compensate for that in the -%D navigational areas. - -\setupbackgrounds - [page] - [background=color, - backgroundcolor=PageColor] - -\setupbackgrounds - [text][text] - [background=color, - backgroundcolor=TextColor, - backgroundoffset=5pt] - -%D \macros -%D {setupinteraction} -%D -%D For convenient navigation, we turn on interaction. - -\setupinteraction - [state=start, - menu=on, - color=UserColor, - contrastcolor=NoneColor] - -%D \macros -%D {setupsubpagenumber} -%D -%D When navigating the document, we keep the title page out -%D of sight, therefore we use sub page numbers. - -\setupsubpagenumber - [state=start, - way=bytext] - -%D \macros -%D {setupinteractionmenu} -%D -%D There is only one interaction menu, located in the right -%D edge of the screen. Both offsets enlarge the edge by the -%D same amount as the text background offset. - -\setupinteractionmenu - [right] - [state=start, - frame=off, - strut=no, - offset=0pt, - inbetween=, - bottomoffset=-5pt, - topoffset=-5pt] - -%D \macros -%D {startinteractionmenu} -%D -%D The menu itself is not that spectacular. We use the -%D start||stop alternative for setting the content. The macro -%D \type {\interactioncolor} expands into either the -%D interaction color or the contrast color, the latter only -%D when no jump is possible. - -\startinteractionmenu[right] - \setupinteraction[color=GotoColor] - \but [previoussubpage] \Triangle {90}\framedwidth\interactioncolor \\ - \vskip10pt - \but [nextsubpage] \Triangle{270}\framedwidth\interactioncolor \\ - \vfill - \but [PreviousJump] \Triangle{180}\framedwidth{NoneColor} \\ - \vskip-5pt - \but [NextJump] \Triangle {0}\framedwidth{NoneColor} \\ -\stopinteractionmenu - -%D \macros -%D {setupinteractionbar} -%D -%D The interaction bar at the bottom is also larger than the -%D normal width of the bottom area. - -\setupinteractionbar - [alternative=f, - width=\textwidth, - height=\bottomheight, - distance=10pt, - color=NoneColor, - contrastcolor=StepColor] - -%D \macros -%D {setupbottomtexts} -%D -%D The bar is centered in the middle. - -\setupbottomtexts - [\interactionbar] - -%D We can exit viewing with a close button, located on the -%D rightmost bottom area. - -\def\CloseButton - {\button - [width=\rightedgewidth,height=\bottomheight,offset=overlay, - background=color,backgroundcolor=ExitColor,frame=off] - {}% - [CloseDocument]} - -\setupbottomtexts - [edge][][\CloseButton] - -%D \macros -%D {definesymbol,setupitemize} -%D -%D Because some prominent things are rectangular or triangular, -%D we prefer some different symbols in itemizations: - -\definesymbol[1][$\blacktriangleright$] -\definesymbol[2][$\blacktriangledown$] -\definesymbol[3][$\blacktriangleright$] -\definesymbol[4][$\blacktriangledown$] - -\setupitemize[each][color=NoneColor] - -%D \macros -%D {TitlePage,defineoverlay,button,setupalign, -%D setupbackgrounds,setupinteraction,setupinteractionbar, -%D startstandardmakeup,switchtobodyfont,setupinterlinespace} -%D -%D Now the main layout and navigational definitions are -%D done, it makes sense to define and tune some structuring -%D commands. First we build the titlepage. - -\defineoverlay [TitleGraphic] [\useMPgraphic{title}] -\defineoverlay [NextPage] [\overlaybutton{nextpage}] - -\def\StartTitlePage - {\setupbackgrounds[page][background={color,TitleGraphic,NextPage}] - \setupbackgrounds[text][text][background=] - \setupinteraction[menu=off] - \setupinteractionbar[state=stop] - \startstandardmakeup - \switchtobodyfont[24pt] - \bfd\setupinterlinespace - \setupalign[middle] - \vfil - \let\\=\vfil} - -\def\StopTitlePage - {\vfil\vfil\vfil - \stopstandardmakeup - \setupinteraction[menu=on] - \setupinteractionbar[state=start] - \setupbackgrounds[page][background=color] - \setupbackgrounds[text][text][background=color] - \setupsubpagenumber[reset]} - -\def\TitlePage#1% - {\StartTitlePage#1\StopTitlePage} - -%D \macros -%D {Topic, Nopic, Subject, -%D definehead, setuphead} -%D -%D We use \type {\Topic} and \type {\Subject} instead of -%D chapters and sections. The \type {\Nopic} alternative is -%D meant for internal use. - -\definehead [Topic] [chapter] -\definehead [Nopic] [title] -\definehead [Subject] [section] - -\setuphead - [Topic, Nopic] - [after={\blank[3*medium]}, - number=no, - style=\tfb, - page=yes, - alternative=middle] - -\setuphead - [Subject] - [after=\blank, - number=no, - page=yes, - continue=no, - style=\tfa] - -%D \macros -%D {Topics, Subjects, -%D setuplist, placelist, startcolumns} -%D -%D This style is meant for the more large presentations, and -%D therefore provided for a list of topics as well as local -%D lists of subjects. When many topics are introduces, the -%D list is typeset in columns. - -\setuplist - [Topic,Subject] - [alternative=g, - interaction=all, - before=, - after=] - -\setuplist - [Topic] - [criterium=all] - -\def\Topics#1% - {\determinelistcharacteristics[Topic] - \ifnum\utilitylistlength>0 - \Nopic[Topics]{#1} - \ifnum\utilitylistlength>12 - \startcolumns - \placelist[Topic] - \stopcolumns - \else - \placelist[Topic] - \fi - \fi} - -\def\Subjects% - {\placelist[Subject]} - -%D Last we define the overlays. Look at the way colors are -%D linked into the macros. - -\startMPinclusions - def triangle (expr wid, rot, col) = - x1 := x3 := y1 := 0 ; x2 := y3 := wid ; y2 := .5y3 ; - fill (z1--z2--z3--cycle) rotated rot withcolor col ; - currentpicture := currentpicture xysized (wid,wid) ; - enddef ; -\stopMPinclusions - -\setupMPvariables - [triangle] - [width=1cm, - rotation=0, - color=black] - -\startuniqueMPgraphic{triangle}{width,rotation,color} - triangle(\MPvar{width},\MPvar{rotation},\MPvar{color}) ; -\stopuniqueMPgraphic - -\def\Triangle#1#2#3% - {\uniqueMPgraphic{triangle}{rotation=#1,width=#2,color=#3}} - -\startuseMPgraphic{title} % can be simplified with "randomized" - color c ; path p ; - for i=1 upto 250 : - x0 := uniformdeviate \overlaywidth ; - y0 := uniformdeviate \overlayheight ; - sx := uniformdeviate 20 ; - sy := uniformdeviate 20 ; - cc := round(uniformdeviate 2) ; - if cc=0 : c := \MPcolor{GotoColor} fi ; - if cc=1 : c := \MPcolor{ExitColor} fi ; - if cc=2 : c := \MPcolor{StepColor} fi ; - qq := round(uniformdeviate 1) ; - if qq=0 : - p := unitsquare xscaled sx yscaled sy ; - else : - rr := round(uniformdeviate 3) * 90 ; - x1 := x3 := y1 := 0 ; x2 := y3 := sx; y2 := .5y3 ; - p := (z1--z2--z3--cycle) rotated rr ; - fi ; - fill p shifted z0 withcolor c ; - endfor ; -\stopuseMPgraphic - -\doifnotmode{demo}{\endinput} - -%D The (rather silly) demo section. - -\starttext - -\TitlePage{Title Page\\pre-colorfull} - -\Topics{Some Nice Quotes} - -\Topic{A Few} - -\Subject{Knuth} \input knuth -\Subject{Tufte} \input tufte - -\Topic{Some More} - -\Subject{Zapf} \input zapf -\Subject{Bryson} \input bryson - -\stoptext diff --git a/tex/context/modules/common/s-pre-05.tex b/tex/context/modules/common/s-pre-05.tex deleted file mode 100644 index ccffd1f4d..000000000 --- a/tex/context/modules/common/s-pre-05.tex +++ /dev/null @@ -1,240 +0,0 @@ -%D \module -%D [ file=s-pre-05, -%D version=1998.12.12, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 5, -%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. - -\usemodule[pre-general] - -%D As all styles sofar, this one has the same structuring -%D commands. - -\startmode[asintended] \setupbodyfont[ludicaot] \stopmode - -\setupbodyfont[14.4pt] - -\setupcolors [state=start] - -\definecolor [BackgroundColor] [s=.95] -\definecolor [OrnamentColor] [r=.6,g=.7,b=.8] - -\setuppapersize - [S6][S6] - -\setuplayout - [width=430pt, - height=400pt, - header=0pt, - footer=0pt, - margin=0pt, - backspace=25pt, - topspace=25pt, - rightedgedistance=20pt, - rightedge=110pt] - -\setupinteractionscreen - [option=max] - -\setupbackgrounds - [state=repeat] - -\setupbackgrounds - [page] - [backgroundcolor=white] - -\setupbackgrounds - [text][text] - [background={HashFrameA,NextPage}, - backgroundoffset=20pt] - -\defineoverlay - [HashFrameA] - [\useMPgraphic{HashFrameA}] - -\defineoverlay - [HashFrameB] - [\useMPgraphic{HashFrameB}] - -\setupinteraction - [state=start, - menu=on, - color=OrnamentColor, - contrastcolor=OrnamentColor] - -%D Watch how we use a list alternative that matches the -%D menu. - -\setupinteractionmenu - [right] - [background=HashFrameB, - style=smallbold, - frame=off, - offset=10pt, - height=35pt, - before=, - after=, - inbetween=\endgraf, - width=\rightedgewidth] - -\startinteractionmenu[right] - \placelist - [Topic] - [criterium=all, - alternative=right, - maxwidth=.8\rightedgewidth, - interaction=all, - before=, - after=] - \vfill - \setupinteractionmenu - [right] - [height=30pt] - \but [CloseDocument] Close \\ -\stopinteractionmenu - -\setupwhitespace - [big] - -\setupblank - [big] - -%D \macros -%D {TitlePage} -%D -%D Now the main layout and navigational definitions are -%D done, it makes sense to define and tune some structuring -%D commands. First we build the titlepage. - -\defineoverlay [TitleGraphic] [\useMPgraphic{TitleGraphic}] -\defineoverlay [NextPage] [\overlaybutton{forward}] - -\unexpanded\def\StartTitlePage - {\setupbackgrounds[page][background={color,TitleGraphic,NextPage}] - \setupbackgrounds[text][text][background=] - \setupinteraction[menu=off] - \setupinteractionbar[state=stop] - \setuplayout[width=550pt,rightedge=0pt] - \startstandardmakeup - \switchtobodyfont[24pt] - \bfd\setupinterlinespace - \setupalign[middle] - \vfil - \let\\=\vfil} - -\unexpanded\def\StopTitlePage - {\vfil\vfil\vfil - \stopstandardmakeup - \setuplayout[width=430pt,rightedge=110pt] - \setupinteraction[menu=on] - \setupinteractionbar[state=start] - \setupbackgrounds[page][background=color] - \setupbackgrounds[text][text][background={HashFrameA,NextPage}]} - -\unexpanded\def\TitlePage#1% - {\StartTitlePage#1\StopTitlePage} - -%D \macros -%D {Topics,Subjects} -%D -%D Since the lists are in the menu, we don't honor list -%D placement macros. - -\unexpanded\def\Topics#1{} -\unexpanded\def\Subjects{} - -%D \macros -%D {Topic, Nopic, Subject} -%D -%D Since t his style is meant for rather flat structured -%D documents, only \type {\Topic} makes sense. - -\definehead [Topic] [chapter] -\definehead [Nopic] [title] -\definehead [Subject] [section] - -\setuphead - [Topic, Nopic] - [after={\blank[3*medium]}, - number=no, - style=\tfb, - page=yes, - alternative=middle] - -\setuphead - [Subject] - [after=\blank, - number=no, - page=yes, - continue=no, - style=\tfa] - -%D We use only one kind of base graphic, which is sligthly -%D tuned for the different usage. - -\startMPinclusions - def random_hash_frame (expr width, height, offset, linewidth ) = - - def delta = ((uniformdeviate .5offset) + .25offset) enddef ; - x1 := offset ; y1 := offset ; x2 := width-offset ; y2 := height-offset ; - - drawoptions(withpen pencircle scaled linewidth withcolor \MPcolor{BackgroundColor}) ; - fill z1--(x2,y1)--z2--(x1,y2)--cycle ; - - drawoptions(withpen pencircle scaled linewidth withcolor \MPcolor{OrnamentColor}) ; - draw (x1-delta,y1)--(x2+delta,y1) ; - draw (x2,y1-delta)--(x2,y2+delta) ; - draw (x2+delta,y2)--(x1-delta,y2) ; - draw (x1,y2+delta)--(x1,y1-delta) ; - - drawoptions(); - setbounds currentpicture to unitsquare xscaled width yscaled height ; - enddef ; -\stopMPinclusions - -\startuseMPgraphic{HashFrameA} - random_hash_frame(OverlayWidth,OverlayHeight,15pt,2pt) ; -\stopuseMPgraphic - -\startuseMPgraphic{HashFrameB} - random_hash_frame(OverlayWidth,OverlayHeight, 5pt,2pt) ; -\stopuseMPgraphic - -\startuseMPgraphic{TitleGraphic} - for i=1 upto 300 : - offset := uniformdeviate 10pt ; - width := 2*offset + 30pt + uniformdeviate 30pt ; - height := 2*offset + 10pt + uniformdeviate 10pt ; - addto currentpicture also - image(random_hash_frame(width,height,offset,1pt)) shifted - (uniformdeviate OverlayWidth, uniformdeviate OverlayHeight) ; - endfor ; -\stopuseMPgraphic - -\continueifinputfile{s-pre-05.tex} - -%D The (rather silly) demo section. - -\starttext - -\TitlePage{Title Page\\pre-fuzzy} - -\Topics{Some Nice Quotes} - -\Topic{A Few} - -\Subject{Knuth} \input knuth -\Subject{Tufte} \input tufte - -\Topic{Some More} - -\Subject{Zapf} \input zapf -\Subject{Bryson} \input bryson - -\stoptext diff --git a/tex/context/modules/common/s-pre-09.tex b/tex/context/modules/common/s-pre-09.tex deleted file mode 100644 index a20b9f31a..000000000 --- a/tex/context/modules/common/s-pre-09.tex +++ /dev/null @@ -1,380 +0,0 @@ -%D \module -%D [ file=s-pre-09, -%D version=unknown, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 9, -%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 made this style when I had to give a presentation on -%D the \MAPS\ bibliography production for several user group -%D meetings. This style is rather tuned for combinations of -%D examples and explanations. The colors match the \MAPS\ -%D bibliography colors. - -\startmode[asintended] \setupbodyfont[lbr] \stopmode - -\setupbodyfont[14.4pt] - -%D A couple of years later, in 2001 this style was documented -%D and made public. While documenting, I also changed box -%D building on top of overlays into the now available layer -%D positioning. So, this styles demonstrates quite some -%D tricks. - -\setuppapersize - [S6][S6] - -\setuplayout - [topspace=0cm, - backspace=0cm, - header=0pt, - footer=0pt, - width=middle, - height=middle] - -%D Local environments can be set by using the setups commands. -%D For downward compatibility, we keep supporting the \type -%D {\...Settings} hooks. Using local environments is seldom -%D needed. - -\let\TextSettings \empty -\let\SampleSettings\empty - -\startsetups [text] \TextSettings \stopsetups -\startsetups [sample] \SampleSettings \stopsetups - -%D The dimensions are kind of fixed. - -\def\FrameWidth {448pt} -\def\FrameHeight {348pt} -\def\FrameOffset {24pt} -\def\FrameSkip {12pt} - -%D But they {\em can} and {\em will} be changed. - -\def\FrameWidth {408pt} -\def\FrameHeight {318pt} - -%D The funny values come from the $3:4$ display aspect -%D ratio. - -\setupcolors - [state=start] - -\definecolor[PageColor] [s=.40] -\definecolor[TextColor] [s=.90] -\definecolor[InteractionColor][r=.40] -\definecolor[LineColor] [r=.60,g=.60] - -%D Of course we go interactive and since we will probably -%D open other documents, we make sure that the viewer opens a -%D new window. - -\setupinteraction - [color=InteractionColor, - contrastcolor=LineColor, - display=new, - state=start] - -\setupinteractionscreen - [option=max] - -%D Before we come to the real macros, we do a little bit of -%D tuning. - -\setupitemize - [1][packed] - -\setuptyping - [blank=medium] - -%D Apart from the titlepage, the page gets a simple colored -%D background. Later we will activate the background. - -\setupbackgrounds - [page] - [backgroundcolor=PageColor] - -%D Everything gets frames by a nice \METAPOST\ frame. - -\defineoverlay [background] [\uniqueMPgraphic{background}] - -\startuniqueMPgraphic{background} - path p ; color c, w, d ; - c := \MPcolor{PageColor} ; - w := \MPcolor{TextColor} ; - d := \MPcolor{LineColor} ; - p := unitsquare xscaled OverlayWidth yscaled OverlayHeight ; - pickup pencircle scaled (1.5*\FrameSkip) ; - draw p withcolor c ; - pickup pencircle scaled \FrameSkip ; - fill p withcolor w ; - draw p withcolor d ; -\stopuniqueMPgraphic - -%D We will present samples and explanation pair||wise, so -%D we need a hyperlink that skips a page. - -\defineoverlay [nextpage] [\overlaybutton{nextpage}] -\defineoverlay [previouspage] [\overlaybutton{previouspage}] -\defineoverlay [skippage] [\overlaybutton{page(+2)}] - -%D Layers are normally used to position multiple content on -%D a specific overlay. Here we will use them to position -%D only and since the samples and text will swap place, we -%D will use quite a few layers. - -\defineoverlay [text] [\composedlayer{text}] -\defineoverlay [sample] [\composedlayer{sample}] -\defineoverlay [common] [\composedlayer{common}] - -%D There are three positions. When combined, the sample and -%D text windows overlap, otherwise the lone window is -%D centered. We could have used one layer and reversed the -%D order by setting the \type {direction} parameter, but -%D this approach is more readable. - -\definelayer - [text] - [x=\makeupwidth,y=\makeupheight,location=lt, - hoffset=-\FrameSkip,voffset=-\FrameSkip] - -\definelayer - [sample] - [hoffset=\FrameSkip,voffset=\FrameSkip] - -\definelayer - [common] - [x=.5\makeupwidth,y=.5\makeupheight,location=c] - -%D The topic is put in the lower right corner of the text -%D window. - -\defineoverlay [topic] [\composedlayer{topic}] - -\definelayer - [topic] - [x=\FrameWidth,y=\FrameHeight,location=lt, - hoffset=-\FrameOffset,voffset=-\FrameSkip] - -%D The topic is put in a framed box. That way we can make -%D sure that it gets a background, which looks better when -%D it covers something else. Otherwise we could have stuct -%D to: -%D -%D \starttyping -%D \def\Topic#1% -%D {\setlayer[topic]{\color[PageColor]{\bfb\setstrut#1}}} -%D \stoptyping -%D -%D But, we go for the nice alternative: - -\def\Topic#1% - {\doifsomething{#1} - {\setlayer [topic] - {\bfb\setstrut - \inframed - [frame=off,foregroundcolor=PageColor,offset=0pt, - background=color,backgroundcolor=TextColor] - {#1}}}} - -%D The sample as well as the explanation will be collected in -%D a buffer. That way we can reuse the content. We could -%D have used a box instead, but can we be sure that the content -%D is not adapting itself? So, buffers we use. - -\resetbuffer[sample] -\resetbuffer[text] - -%D Both the sample and explanation are kind of windowed. - -\defineframedtext - [SampleText] - [width=\FrameWidth,height=\FrameHeight,offset=\FrameOffset, - frame=off,align=normal,strut=no,before=,after=, - background={background,nextpage}] - -%D We safe some keying in by combining things in one macro. - -\def\DoSampleText#1#2#3% kind layer overlays - {\setupframedtexts[SampleText][background={background,#3}] - \setlayer[#2] - {\startSampleText[none] - \setups[#1] - \getbuffer[#1] - \stopSampleText}} - -\def\StartSample{\dostartbuffer[sample][StartSample][StopSample]} -\def\StartText {\dostartbuffer[text] [StartText] [StopText]} - -%D The following definitions apply at the outer level. - -\def\StopSample - {\startstandardmakeup - \DoSampleText{sample}{common}{nextpage} - \stopstandardmakeup - \resetbuffer[sample]} - -\def\StopText - {\startstandardmakeup - \DoSampleText{text}{common}{topic,nextpage} - \stopstandardmakeup - \resetbuffer[text]} - -\setupbackgrounds[page][background={color,nextpage}] -\setupbackgrounds[text][background=common] - -%D When we combine sample and text, we get slightly -%D different definitions. As you can see we generate two -%D pages. Watch how we manipulate the order of the -%D overlays and teh nature of the buttons. Here data -%D abstraction really pays off. - -\def\StartIdea - {\bgroup - \let\StopSample\relax - \let\StopText \relax} - -\def\StopIdea% - {\setupbackgrounds[page][background={color,skippage}] - \setupbackgrounds[text][background={text,sample}] - \startstandardmakeup - \DoSampleText{sample}{sample}{previouspage} - \DoSampleText{text} {text} {topic,nextpage} - \stopstandardmakeup - \setupbackgrounds[page][background={color,nextpage}] - \setupbackgrounds[text][background={sample,text}] - \startstandardmakeup - \DoSampleText{sample}{sample}{previouspage} - \DoSampleText{text} {text} {topic,nextpage} - \stopstandardmakeup - \egroup} - -%D The rest of the definitions takes care of the title page. -%D Please don't steal this one for your own documents. - -\defineoverlay[joke] [\useMPgraphic{joke}{n=0}] % not to be changed! - -\startuseMPgraphic{joke}{n} - StartPage ; - path p, q ; numeric w ; pair xy ; - set_grid(OverlayWidth,OverlayHeight,OverlayWidth/8,OverlayHeight/8) ; - if \MPvar{n}=1 : - p := fulldiamond ; fill Page withcolor \MPcolor{TextColor} ; - else : - p := fullsquare ; fill Page withcolor \MPcolor{PageColor} ; - fi ; - forever : - xy := center Page randomized (OverlayWidth,OverlayHeight) ; - if new_on_grid(xpart xy, ypart xy) : - q := (p xyscaled (OverlayWidth/5,OverlayHeight/5)) - randomized (\FrameSkip,\FrameSkip) - shifted xy ; - w := (\FrameSkip) randomized (\FrameSkip/2) ; - draw q withcolor \MPcolor{PageColor} withpen pencircle scaled (1.5w) ; - fill q withcolor \MPcolor{TextColor} ; - draw q withcolor \MPcolor{LineColor} withpen pencircle scaled ( w) ; - fi ; - exitif grid_full ; - endfor ; - StopPage ; -\stopuseMPgraphic - -\defineoverlay[fuzzy][\useMPgraphic{fuzzy}] - -\startuseMPgraphic{fuzzy} - path p ; numeric w ; - p := (fullsquare xyscaled (OverlayWidth,OverlayHeight)) - randomized (\FrameSkip,\FrameSkip) ; - w := (\FrameSkip) randomized (\FrameSkip/2) ; - draw p withcolor \MPcolor{PageColor} withpen pencircle scaled (1.5w) ; - fill p withcolor \MPcolor{TextColor} ; - draw p withcolor \MPcolor{LineColor} withpen pencircle scaled ( w) ; -\stopuseMPgraphic - -%D This time we use a fit window, but with a slightly randomized -%D frame, our trademark so to say. - -\def\StartTitlePage - {\bgroup - \setupbackgrounds[page][background={joke,nextpage}] - \startstandardmakeup - \switchtobodyfont[big] - \setupframedtexts - [SampleText] - [background=fuzzy, - foregroundcolor=PageColor, - width=fit, - height=fit, - align=middle] - \startSampleText[middle] - \bfd\setupinterlinespace - \def\\{\bfb\setupinterlinespace\vfil\def\\{\vfil}}} - -\def\StopTitlePage - {\stopSampleText - \stopstandardmakeup - \egroup} - -\def\TitlePage#1% - {\StartTitlePage#1\StopTitlePage} - -%D Let's nill some error prone presentation macros. - -\let\Subject \Topic -\let\Topics \gobbleoneargument -\let\Subjects \relax - -%D We will avoid \quote {overfull} messages. - -\dontcomplain - -\doifnotmode{demo}{\endinput} - -%D The (rather silly) demo section. - -\starttext - -\setupbodyfont[12pt] - -\TitlePage{Quotes, Quotes\\and more quotes} - -\StartIdea - \StartSample - \input knuth \par - \StopSample - \StartText - \Topic{Tufte} - \input tufte \par - \StopText - \StopIdea - -\StartIdea - \StartSample - \input materie \par - \StopSample - \StartText - \input reich \par - \StopText -\StopIdea - -\StartText - \input tufte \par -\StopText - -\StartIdea - \StartSample - \input knuth \par - \StopSample - \StartText - \input tufte \par - \StopText -\StopIdea - -\stoptext diff --git a/tex/context/modules/common/s-pre-10.tex b/tex/context/modules/common/s-pre-10.tex deleted file mode 100644 index a92e5af01..000000000 --- a/tex/context/modules/common/s-pre-10.tex +++ /dev/null @@ -1,308 +0,0 @@ -%D \module -%D [ file=s-pre-10, -%D version=unknown, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 10, -%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 This style is derived from the ninth style, which was -%D used first at \EUROTEX\ 99 and later at \TUG\ 2000. This -%D alternative build up a page. - -\startmode [demo] - \disablemode[demo] \usemodule[pre-09] \enablemode[demo] -\stopmode - -\startnotmode [demo] - \usemodule[pre-09] -\stopnotmode - -%D We use blue colors instead of yellow ones. Since we have -%D used symbolic names, we can easily overload the existing -%D scheme. - -\definecolor[LineColor][r=.40,g=.40,b=1.00] - -%D Here we don't use fixed dimensions, but fit the sample -%D windows and derive the text windows's width from this one. - -\setupframedtexts - [SampleText] - [width=fit,height=fit, - background={background,nextpage}] - -%D The topic goes to the top right corner of the screen which -%D means that it is positioned left down to the reference -%D point. Watch how we make data on this layer (here only -%D the topic but it can be more) persistent. - -\setuplayer - [topic] - [y=0pt,x=\makeupwidth,location=lb,state=repeat, - hoffset=-\FrameSkip,voffset=\FrameSkip] - -%D Clicking on the page brings us back. - -\setupbackgrounds - [page] - [background={previouspage,color,topic}] - -%D All layers end up on the text area. This could have been -%D the page area too since these have the same dimensions. - -\setupbackgrounds - [text] - [background={common,sample,text}] - -%D Because we build up the text window step by step, we will -%D separate the entries by white space. - -\startsetups [always] - \setupwhitespace[big] - \setupblank[big] -\stopsetups - -%D The \type {\Topic} commands can be simplified to: - -\def\Topic#1% - {\resetlayer[topic] - \setlayer[topic]{\bfb\setstrut\color[TextColor]{#1}}} - -%D We also provide a way to erase the topic. - -\def\NoTopic - {\resetlayer[topic]} - -%D We have to redefine the structuring commands to support -%D the resetting of buffer counters. - -\newcounter\TextN - -\def\StartSample - {\doglobal\newcounter\TextN - \dostartbuffer[sample][StartSample][StopSample]} - -\def\StartText - {\doglobal\newcounter\TextN - \dostartbuffer[text][StartText][StopText]} - -\def\StartSubText - {\doglobal\increment\TextN - \dostartbuffer[text-\TextN][StartSubText][StopSubText]} - -\def\StopText - {\startstandardmakeup - \DoSampleText{text}{common}{nextpage} - \stopstandardmakeup} - -\def\StopSubText - {\startstandardmakeup - \DoSampleText{text}{common}{nextpage} - \stopstandardmakeup} - -%D The \type {\DoSampleText} command is adapted to support -%D addition of subtexts (each subtext goes into its own -%D buffer). - -\def\DoSampleText#1#2#3% - {\setupframedtexts[SampleText][background={background,#3}] - \bgroup - \setups[#1]% - \setups[always]% - \setbox\nextbox=\hbox - {\startSampleText[none] - \getbuffer[#1]\par - \doif{#1}{text} - {\dorecurse{\TextN}{\getbuffer[text-\recurselevel]\par}} - \stopSampleText} - \xdef\SampleTextWidth{\the\wd\nextbox} - \setlayer[#2]{\box\nextbox}% - \egroup} - -%D Since we are no longer swapping windows, we end up with a -%D much simplier \type {\Stopidea} macro. We don't reset -%D samples at the inner level. - -\def\StartIdea% - {\bgroup - \let\StopSample \relax - \let\StopText \relax - \let\StopSubText\relax - \def\StartSample{\dostartbuffer[sample][StartSample][StopSample]}} - -\def\StopIdea% - {\startstandardmakeup - \DoSampleText{sample}{sample}{nextpage} - \SetTextWidth - \DoSampleText{text} {text} {nextpage} - \stopstandardmakeup - \egroup} - -%D Here we determine the width of the text window. It is -%D derived from the width of the sample and stays the same -%D within a sequence. - -\def\SetTextWidth - {\ifnum\TextN<1 % yes or no, may change - \scratchdimen=\makeupwidth - \advance\scratchdimen by -\SampleTextWidth - \advance\scratchdimen by \FrameSkip - \xdef\SampleWidth{\the\scratchdimen}% - \fi - \setupframedtexts - [SampleText] - [width=\SampleWidth]} - -%D We use the (already implemented) second alternative of -%D the titlepage graphic. Please don't change this. - -\defineoverlay[joke] [\useMPgraphic{joke}{n=1}] % not to be changed ! - -\doifnotmode{demo}{\endinput} - -%D The demo section. The original presentation uses proper -%D graphics and has better spacing. - -\def\SomeSymbol#1#2{\definedfont[ContextNavigation at #1]\char#2} - -\setupcombinations[distance=\FrameOffset,inbetween=\vskip\FrameOffset] - -\starttext - -\TitlePage{Some Famous Symbols} - -\Topic{Symbols} - -\StartSample - \startcombination[2*2] - {\SomeSymbol{5cm}{1}} {} - {\SomeSymbol{5cm}{3}} {} - {\SomeSymbol{5cm}{2}} {} - {\SomeSymbol{5cm}{4}} {} - \stopcombination -\StopSample - -\Topic{Previous} - -\StartIdea - \StartSample - \SomeSymbol{7cm}{1} - \StopSample - \StartText - This symbol can be used to indicate a hyperlink to a - previous page. - \StopText -\StopIdea - -\StartIdea - \StartSubText - As one can expect there is also a symbol for going to - the next page. - \StopSubText -\StopIdea - -\Topic{Previous} - -\StartIdea - \StartSample - \SomeSymbol{9cm}{2} - \StopSample - \StartText - This symbol is actually just a mirrored version of the - first symbol we showed. - \StopText -\StopIdea - -\NoTopic - -\StartText - Is this nice or not? -\StopText - -\Topic{First and Last} - -\StartSample - \SomeSymbol{11cm}{3} -\StopSample - -\StartSample - \SomeSymbol{11cm}{4} -\StopSample - -\StartIdea - \StartSample - \SomeSymbol{5cm}{3} - \StopSample - \StartText - A few screens back, we saw this symbol. - \StopText -\StopIdea - -\StartIdea - \StartSubText - This symbol represents the beginning of something. - \StopSubText -\StopIdea - -\StartIdea - \StartSample - \SomeSymbol{5cm}{4} - \StopSample - \StartSubText - Just like this one represents an end. - \StopSubText -\StopIdea - -\StartIdea - \StartSubText - They look just like the symbols found on audio and - video players. - \StopSubText -\StopIdea - -\Topic{Summary} - -\StartIdea - \StartSample - \SomeSymbol{6cm}{1} - \StopSample - \StartText - So we have a symbol for previous \unknown - \StopText -\StopIdea - -\StartIdea - \StartSample - \SomeSymbol{6cm}{2} - \StopSample - \StartSubText - \unknown\ and one for next \unknown - \StopSubText -\StopIdea - -\StartIdea - \StartSample - \SomeSymbol{6cm}{3} - \StopSample - \StartSubText - \unknown\ and yet another for first \unknown - \StopSubText -\StopIdea - -\StartIdea - \StartSample - \SomeSymbol{6cm}{4} - \StopSample - \StartSubText - \unknown\ and of course for last. - \StopSubText -\StopIdea - -\stoptext - 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 diff --git a/tex/context/modules/common/s-pre-14.tex b/tex/context/modules/common/s-pre-14.tex deleted file mode 100644 index 4dae6c009..000000000 --- a/tex/context/modules/common/s-pre-14.tex +++ /dev/null @@ -1,263 +0,0 @@ -%D \module -%D [ file=s-pre-14, -%D version=1999.08.20, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 14, -%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 In the process of making a couple of simple styles for -%D \EUROTEX\ 99, I came to this one. The joke is in the -%D pagenumber. This style can be used for short presentations -%D with much text. - -\startmode[asintended] \setupbodyfont[lbr] \stopmode - -\setupbodyfont[14.4pt] - -%D Since we expect text, we can best be very tolerant. - -\setuptolerance - [verytolerant,stretch] - -%D As most styles we choose a large screen page size. - -\setuppapersize - [S6][S6] - -\setuplayout - [width=fit, - rightedge=3cm, - margin=0pt, - rightedgedistance=2cm, - height=middle, - header=0pt, - footer=0pt, - topspace=1cm, - backspace=1cm] - -%D We only use two colors, named \type {One} and \type -%D {Two}: - -\setupcolors - [state=start] - -\definecolor [One] [r=.6,g=.4,b=.4] -\definecolor [Two] [r=.4,g=.6,b=.6] - -%D If you've looked at the demo file, you will have noticed -%D that the background consists of four pieces: two filled -%D rectangles and two half numbers. These are put on th epage -%D using four overlays: - -\setupbackgrounds - [page] - [background={one,two,three,four}] - -%D When we code this in \TEX, we get the following -%D definitions. As an alternative we coudl have used layers -%D but I'm afraid that it would not have led to less code. - -\defineoverlay - [one] - [{\framed - [frame=off,background=color,backgroundcolor=Two, - width=\overlaywidth,height=\overlayheight] - {}}] - -\defineoverlay - [three] - [{\hbox to \overlaywidth - {\hfill\SetOverlayWidth - \framed - [frame=off,background=color,backgroundcolor=One, - width=\overlaywidth,height=\overlayheight] - {}}}] - -%D We could have used the main backgroundcolor instead of -%D overlay \type {one}. - -\definefont[NumberFont][RegularBold at 3cm] - -\defineoverlay - [two] - [{\framed - [frame=off,width=\overlaywidth,height=\overlayheight, - offset=overlay] - {\vfill - \NumberFont\setstrut\SetOverlayWidth - \hbox to \hsize - {\hfill - \setupinteraction[style=,color=]% - \setbox0=\hbox{\strut\One\pagenumber}% - \hbox to 0pt{\hss\gotobox{\box0}[previouspage]\hss}% - \hskip\overlaywidth}}}] - -\defineoverlay - [four] - [{\framed - [frame=off,width=\overlaywidth,height=\overlayheight,offset=overlay] - {\vfill - \hbox to \hsize - {\hfill - \SetOverlayWidth - \framed - [frame=off,width=\overlaywidth,height=\overlayheight,offset=overlay] - {\vfill\NumberFont\setstrut - \setbox0=\hbox{\strut\Two\pagenumber}% - \setbox2=\hbox{\clip[nx=2,ny=1,x=2,y=1]{\copy0}}% - \dp2=\dp0 - \hbox to \hsize{\hbox to 0pt{\hss\hskip.5\wd0\box2\hss}\hfill}}}}}] - -\def\SetOverlayWidth% - {\scratchdimen = \rightedgedistance - \divide\scratchdimen by 2 - \advance\scratchdimen by \rightedgewidth - \advance\scratchdimen by \backspace - \edef\overlaywidth{\the\scratchdimen}} - -%D A much cleaner implementation is the following. If you hate -%D \METAPOST, you can run this style in the specified mode: - -\startnotmode[no-metapost] - -\setupbackgrounds - [page] - [background={number}] - -\defineoverlay[number][\useMPgraphic{number}] - -\startuseMPgraphic{number} - StartPage ; - path Vage ; picture Left, Right ; - x1 = x2 = xpart (llcorner Field[Text][RightEdge] shifted (-RightEdgeDistance/2,0)) ; - y1 = ypart llcorner Page ; - y2 = ypart ulcorner Page ; - Vage := llcorner Page -- z1 -- z2 -- ulcorner Page -- cycle ; - fill Page withcolor \MPcolor {One} ; - fill Vage withcolor \MPcolor {Two} ; - if PageNumber>0 : - defaultfont := "\truefontname{RegularBold}" ; - Left := Right := thelabel("\folio",origin) ysized 3cm ; - clip Right to boundingbox Right shifted (bbwidth(Right)/2,0) ; - draw Left shifted z1 shifted (0,2.25cm) withcolor \MPcolor {One} ; - draw Right shifted z1 shifted (0,2.25cm) withcolor \MPcolor {Two} ; - fi ; - StopPage ; -\stopuseMPgraphic - -\stopnotmode - -%D We use the simple label typesetting present in \METAPOST\ -%D because digits are seldom kerned so real \TEX ing is not -%D needed. As in the previous method, we let the graphics -%D overlap so that we don't get white lines due to rounding -%D problems in viewers. -%D -%D We put a button behind the text (this overlay is calculated -%D each page). - -\defineoverlay - [nextpage] - [\overlaybutton{nextpage}] - -\setupbackgrounds - [text] - [backgroundoffset=.5cm, - background=nextpage] - -%D We still have to turn on interaction mode. - -\setupinteraction - [state=start, - display=new, - menu=on] - -\setupinteraction - [color=, - contrastcolor=] - -%D Next we define structuring commands. - -\definehead[Topic] [chapter] \setuphead[Topic] [style=\bfc] -\definehead[Subject][section] \setuphead[Subject][style=\bfa] - -\setuphead - [Topic, Subject] - [number=no, - after={\blank[big]}] - -%D Because we will provide a menu, we don't offer lists. - -\let\Topics \gobbleoneargument -\let\Subjects\relax - -%D The table of contents goes to the right edge. - -\startinteractionmenu[right] - \setupinteraction - [color=black, - contrastcolor=Two] - \placelist - [Topic] - [alternative=e, - frame=off, - criterium=all] - \vfill -\stopinteractionmenu - -\setuplist - [Topic] - [width=\rightedgewidth, - maxwidth=\rightedgewidth, - style=\bfa] - -%D We safe some space: - -\setupwhitespace - [medium] - -\setupblank - [medium] - -%D In the titlepage, we still use the \TEX\ overlays, -%D so that we don't have to define a second graphic. - -\def\TitlePage#1% - {\StartTitlePage#1\StopTitlePage} - -\def\StartTitlePage% - {\bgroup - \setupbackgrounds[page][background={one,three}] - \startstandardmakeup - \setupalign[middle] - \def\\{\vfil\bfb\setupinterlinespace} - \bfd\setupinterlinespace - \vfil} - -\def\StopTitlePage% - {\vfil\vfil\vfil - \stopstandardmakeup - \egroup} - -%D This is it. - -\doifnotmode{demo}{\endinput} - -\starttext - -\TitlePage{Some Quotes\\(that you probably know by now)} - -\Topic{Tufte} \input tufte -\Topic{Knuth} \input knuth -\Topic{Reich} \input reich -\Topic{Zapf} \input zapf -\Topic{Materie} \input materie -%Topic{Stork} \input stork - -\stoptext diff --git a/tex/context/modules/common/s-pre-15.tex b/tex/context/modules/common/s-pre-15.tex deleted file mode 100644 index 25fb35783..000000000 --- a/tex/context/modules/common/s-pre-15.tex +++ /dev/null @@ -1,186 +0,0 @@ -%D \module -%D [ file=s-pre-15, -%D version=1999.09.01, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 15, -%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 This is one of the styles I made for the presentation on -%D the \NTS\ project at Euro\TeX\ 1998. You need balls to let -%D \TEX\ typeset graphics, but this style demonstrates that it -%D can be done. -%D -%D This presentation is meant for presentations that build up -%D an idea stepwise. -%D -%D \starttyping -%D \TitlePage{Do you know \TEX ?} -%D -%D \StartIdea -%D \StartItem We use \TEX\ for typesetting \unknown \StopItem -%D \StartItem mathematical text \unknown \StopItem -%D \StartItem but also for text that has no math \unknown \StopItem -%D \StartItem or presentations like this \unknown \StopItem -%D \StartItem and whatever you can come up with! \StopItem -%D \StopIdea -%D \stoptyping - -%D The basic layout is rather simple and used as much of the -%D screen as possible. - -\setuppapersize - [S6][S6] - -\setuplayout - [backspace=25pt, - topspace=25pt, - width=middle, - height=middle, - header=0pt, - footer=0pt] - -\setupinteraction - [state=start, - display=new, - color=LineColor, - contrastcolor=LineColor, - click=no] - -\setupinteractionscreen - [option=max] - -\startmode[asintended] \setupbodyfont[lbr] \stopmode - -\setupbodyfont[14.4pt] - -%D We use a lot of color. You can remap them if you want -%D differend ones. The ideas circulate over the colors. - -\setupcolors - [state=start] - -\definecolor[TextColor][s=.8] -\definecolor[PageColor][s=.6] -\definecolor[LineColor][s=.4] - -\definecolor[red] [r=.4] \definecolor[cyan] [g=.4,b=.4] -\definecolor[green][g=.4] \definecolor[magenta][r=.4,b=.4] -\definecolor[blue] [b=.4] \definecolor[yellow] [r=.4,g=.4] - -\definecolor[linecolor 1][red] \definecolor[linecolor 5][cyan] -\definecolor[linecolor 2][green] \definecolor[linecolor 6][magenta] -\definecolor[linecolor 3][blue] \definecolor[linecolor 4][yellow] - -%D We use variables to make sure that the graphics are reused -%D but unique. - -\setupMPvariables[pageframe][pagecolor=PageColor,linecolor=LineColor] -\setupMPvariables[textframe][textcolor=TextColor,linecolor=LineColor] - -\setupbackgrounds - [page] - [background={pageframe,nextpage}] - -\defineoverlay [pageframe] [\uniqueMPgraphic{pageframe}] -\defineoverlay [textframe] [\uniqueMPgraphic{textframe}] -\defineoverlay [nextpage] [\overlaybutton{forward}] - -\startuniqueMPgraphic{pageframe}{pagecolor,linecolor} - path p ; p := fullsquare xyscaled (\overlaywidth,\overlayheight) ; - pickup pencircle scaled 10pt ; - fill p withcolor \MPvar{pagecolor} ; - draw p withcolor \MPvar{linecolor} ; -\stopuniqueMPgraphic - -\startuniqueMPgraphic{textframe}{textcolor,linecolor} - path p ; p := fullcircle xyscaled (\overlaywidth,\overlayheight) ; - pickup pencircle scaled 10pt ; - fill p withcolor \MPvar{textcolor} ; - draw p withcolor \MPvar{linecolor} ; -\stopuniqueMPgraphic - -%D The rest of the file implements the nasty part: typesetting -%D text embedded in a graphic. The text is collected in a box -%D so that we can reuse it. - -\newbox\CollectedIdeas -\newcounter\CurrentTopic - -\def\StartItem% - {\setbox\CollectedIdeas=\hbox\bgroup - \ifdim\wd\CollectedIdeas>0pt \unhbox\CollectedIdeas\hskip25pt \fi - \setbox\scratchbox=\hbox\bgroup - \framed - [width=160pt,height=160pt,align=middle,frame=off, - background=textframe,offset=15pt,top=\vfill,bottom=\vfill] - \bgroup} - -\def\StopItem% - {\egroup - \egroup - \setbox\scratchbox=\hbox{\lower.5\ht\scratchbox\box\scratchbox}% - \ht\scratchbox=.5\ht\scratchbox - \dp\scratchbox= \ht\scratchbox - \box\scratchbox - \egroup - \startstandardmakeup - \dontcomplain - \leftskip 0pt plus 50pt - \rightskip 0pt plus 50pt - \parfillskip 0pt - \baselineskip 100pt - \unhcopy\CollectedIdeas - \stopstandardmakeup} - -\def\StartIdea% - {\ifnum\CurrentTopic=6 \doglobal\newcounter\CurrentTopic \fi - \doglobal\increment\CurrentTopic - \definecolor[LineColor][linecolor \CurrentTopic] - \setbox\CollectedIdeas=\null} - -\def\StopIdea% - {} - -\def\StartTitlePage% - {\startstandardmakeup - \setupalign[middle] - \def\\{\vfil\bfb\setupinterlinespace} - \bfd\setupinterlinespace - \vfil} - -\def\StopTitlePage% - {\vfil\vfil - \stopstandardmakeup} - -\def\TitlePage#1% - {\StartTitlePage#1\StopTitlePage} - -\doifnotmode{demo}{\endinput} - -%D A simple test on functionality. - -\setupoutput[pdftex] - -\starttext - -\TitlePage{Do you know \TEX ?} - -\startbuffer -\StartIdea - \StartItem We use \TEX\ for typesetting \unknown \StopItem - \StartItem mathematical text \unknown \StopItem - \StartItem but also for text that has no math \unknown \StopItem - \StartItem or presentations like this \unknown \StopItem - \StartItem and whatever you can come up with! \StopItem -\StopIdea -\stopbuffer - -\dorecurse{6}{\getbuffer} - -\stoptext diff --git a/tex/context/modules/common/s-pre-19.tex b/tex/context/modules/common/s-pre-19.tex deleted file mode 100644 index 991d311ce..000000000 --- a/tex/context/modules/common/s-pre-19.tex +++ /dev/null @@ -1,347 +0,0 @@ -%D \module -%D [ file=s-pre-19, -%D version=2000.07.31, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 19, -%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 This style is made in the process or writing the \METAFUN\ -%D manual. It exploits a few tricks, like graphics calculated -%D using positional information. It also uses the (at that -%D moment) new menu list placement alternative. If you forget -%D about the definition of the button shapes, which is -%D complicated in any system, this style is not even that hard -%D to follow. Watch how the left side of the buttons follow -%D the right side of the text graphic. -%D -%D While playing bit with this style, the random alternative -%D made me think of those organic building with non equal -%D windows (we have a few in The Netherlands), so I decided to -%D label this style as \type {pre-organic}. -%D -%D At the end of this file, there is a small test file, so -%D when you process this file with \TEXEXEC\ and the options -%D \type {--mode=demo} and \type {--pdf}, you will get a demo -%D document. - -%D We use one of the standard screen \quote {paper} sizes, and -%D map it onto the same size, so that we get a nicely cropped -%D page. - -\setuppapersize - [S6][S6] - -%D Like in the \METAFUN\ manual, we use the Palatino as main -%D bodyfont. This font is quite readable on even low -%D resolution screens, although I admit that this style is -%D developed using an $1400\times1050$ pixel LCD screen, so I -%D may be biased. - -%\startmode[asintended] \setupbodyfont[ppl] \stopmode - -%D The layout specification sets up a text area and a right -%D edge area where the menus will go. Watch the rather large -%D edge distance. By setting the header and footer dimensions -%D to zero, we automatically get rid of page body ornaments, -%D like the pagenumber. - -\setuplayout - [topspace=48pt, - backspace=48pt, - cutspace=12pt, - width=400pt, - margin=0cm, - rightedge=88pt, - rightedgedistance=48pt, - header=0cm, - footer=0cm, - height=middle] - -%D We use a moderate, about a line height, interparagraph -%D white space. - -\setupwhitespace - [big] - -%D Of course we use colors, since on computer displays they -%D come for free. - -\setupcolors - [state=start] - -\definecolor [red] [r=.75] -\definecolor [yellow] [r=.75,g=.75] -\definecolor [gray] [s=.50] -\definecolor [white] [s=.85] - -\definecolor [PageColor] [yellow] -\definecolor [TextColor] [white] -\definecolor [OrnamentColor] [red] -\definecolor [InteractionColor] [red] -\definecolor [ContrastColor] [gray] - -%D This is an interactive document, so we enable interaction. -%D In this style, we disable the viewer's \quote {highlight a -%D hyperlink when it's clicked on} feature. We will use a -%D menu, so we enable menus. Later we will see the contract -%D color |<|hyperlinks gets that color when we are already on -%D the location|>| in action. - -\setupinteraction - [state=start, - click=off, - color=InteractionColor, - contrastcolor=ContrastColor, - menu=on] - -%D The menu itself is set up as follows. Because we will -%D calculate menubuttons based on their position on the page, -%D we have to keep track of the positions. Therefore, we set -%D the \type {position} variable to \type {yes}. - -\setupinteractionmenu - [right] - [frame=off, - position=yes, - align=middle, - topoffset=-.75cm, - bottomoffset=-.75cm, - color=gray, - contrastcolor=gray, - style=bold, - before=, - after=] - -%D The menu content is rather sober: a list of topics (later -%D we will define the command that generates topic entries), -%D and a close button. - -\startinteractionmenu[right] - \placelist[Topic][alternative=right] - \vfill - \but [CloseDocument] close \\ -\stopinteractionmenu - -%D We have now arived at the more interesting part of the style -%D definition: the graphic that goes in the page background. -%D Because this graphic will change, we define a usable -%D \METAPOST\ graphic. Page backgrounds are recalculated each -%D page, opposite to the other backgrounds that are calculated -%D when a new background is defined, or when repetitive -%D calculation is turned on. - -\setupbackgrounds - [page] - [background=page] - -\defineoverlay - [page] - [\useMPgraphic{page}] - -\setupMPvariables - [page] - [alternative=3] - -\startuseMPgraphic{page} - - \includeMPgraphic{rightsuperbutton} - - StartPage ; - - path p, q ; pickup pencircle scaled 3pt ; - - p := Field[Text][Text] enlarged 36pt superellipsed .90 ; - - fill Page withcolor \MPcolor{PageColor} ; - fill p withcolor \MPcolor{TextColor} ; - draw p withcolor \MPcolor{OrnamentColor} ; - - p := Field[Text][Text] enlarged 48pt superellipsed .90 ; - - def right_menu_button (expr nn, rr, pp, xx, yy, ww, hh, dd) = - if (pp>0) and (rr>0) : - q := rightsuperbutton(p,xx,yy,RightEdgeWidth,hh) ; - fill q withcolor \MPcolor{TextColor} ; - draw q withcolor if rr=2 : \MPcolor{ContrastColor} - else : \MPcolor{InteractionColor} fi ; - fi ; - enddef ; - - \MPmenubuttons{right} - - StopPage ; -\stopuseMPgraphic - -\startuseMPgraphic{page} - - \includeMPgraphic{rightsuperbutton} - - StartPage ; - - numeric alternative, seed, superness, squeezeness, randomness ; - path p, q ; transform t ; - - alternative := \MPvar{alternative} ; - seed := uniformdeviate 100 ; - - if alternative > 10 : - superness := .85 + ((\realfolio-1)/\lastpage) * .15 ; - squeezeness := 12pt - ((\realfolio-1)/\lastpage) * 10pt ; - else : - superness := .90 ; - squeezeness := 12pt ; - fi ; - - randomness := squeezeness ; - - alternative := alternative mod 10 ; - - t := identity if alternative=3: shifted (9pt,-9pt) fi ; - - % first we draw the shape that surrounds the text - - randomseed := seed ; - - p := Field[Text][Text] enlarged if - alternative = 1 : 36pt superellipsed superness elseif - alternative = 2 : 36pt squeezed squeezeness elseif - alternative = 3 : 36pt randomized randomness else - : 36pt fi ; - pickup pencircle scaled 3pt ; - - fill Page withcolor \MPcolor{PageColor} ; - fill p withcolor \MPcolor{TextColor} ; - draw p withcolor \MPcolor{OrnamentColor} ; - - % we set p to the wider shape from which we will chip off pieces - - randomseed := seed ; - - p := ( Field[Text][Text] enlarged if - alternative = 1 : 48pt superellipsed superness elseif - alternative = 2 : 48pt squeezed squeezeness elseif - alternative = 3 : 36pt randomized randomness else - : 48pt fi ) transformed t ; - - % calls to *_menu_button are generated automatically ... - - vardef right_menu_button (expr nn, rr, pp, xx, yy, ww, hh, dd) = - save q ; path q ; - if (pp>0) and (rr>0) : - q := rightsuperbutton(p,xx,yy,RightEdgeWidth,hh) ; % \MPw{menu:right:\realfolio} - fill q withcolor \MPcolor{TextColor} ; - draw q withcolor if rr=2 : \MPcolor{ContrastColor} - else : \MPcolor{InteractionColor} fi ; - fi ; - enddef ; - - % ... and inserted when the graphic data is flushed here ... - - \MPmenubuttons{right} - - StopPage ; -\stopuseMPgraphic - -\startuseMPgraphic{rightsuperbutton} - -vardef rightsuperbutton (expr pat, xpos, ypos, wid, hei) = - - save p, ptop, pbot, t, b, edge, shift, width, height ; - path p, ptop, pbot ; pair t, b ; numeric edge, shift, width, height ; - - edge := xpos + wid ; shift := ypos + hei ; - - p := rightpath pat ; - - ptop := ((-infinity,shift)--(edge,shift)) ; - pbot := ((-infinity,shift-hei)--(edge,shift-hei)) ; - - t := p intersection_point ptop ; - b := p intersection_point pbot ; - - p := subpath(0,xpart (p intersectiontimes ptop)) of p ; - p := subpath(xpart (p intersectiontimes pbot),length(p)) of p ; - - (p -- t -- point 1 of ptop & - point 1 of ptop -- point 1 of pbot & - point 1 of pbot -- b - -- cycle) - -enddef ; - -\stopuseMPgraphic - -%D Topics are identified with \type {\Topic}, which is an -%D instance of chapter headings. The number is made invisible. -%D Since it still is a numbered section header, \CONTEXT\ will -%D write the header to the table of contents. - -\definehead - [Topic] - [chapter] - -\setuphead - [Topic] - [number=no] - -%D We will use a bold font in the table of contents. We also -%D force a complete list. - -\setuplist - [Topic] - [criterium=all, - style=bold, - before=, - after=] - -%D The \type {\TitlePage} macro looks horrible, because we -%D want to keep the interface simple: a list of small -%D sentences, separated by \type {\\}. - -\def\StartTitlePage - {\startstandardmakeup - \switchtobodyfont[big] - \def\\{\vfill\bfb\let\\=\par} - \bfd\setupinterlinespace\gray - \vskip.5cm} - -\def\StopTitlePage - {\\\vskip.5cm % the \\ is really needed - \stopstandardmakeup} - -\def\TitlePage#1% - {\StartTitlePage#1\StopTitlePage} - -%D A couple of goodies: - -\def\Subject {\Topic} -\def\Topics #1{} -\def\Subjects {} - -%D For those who want to test: - -\doifnotmode{demo}{\endinput} - -\starttext - -\setupMPvariables[page][alternative=3] - -\TitlePage - {A Few Nice Quotes\\ - A Simple Style Demo\\ - Hans Hagen, August 2000} - - -\Topic {Douglas R. Hofstadter} \input douglas \page -\Topic {Donald E. Knuth} \input knuth \page -\Topic {Edward R. Tufte} \input tufte \page -\Topic {Hermann Zapf} \input zapf \page -%Topic {David F. Stork} \input stork \page - -\stoptext diff --git a/tex/context/modules/common/s-pre-61.tex b/tex/context/modules/common/s-pre-61.tex deleted file mode 100644 index 48b9d09a0..000000000 --- a/tex/context/modules/common/s-pre-61.tex +++ /dev/null @@ -1,275 +0,0 @@ -%D \module -%D [ file=s-pre-61, -%D version=2004.03.15, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 61, -%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 Optima - -\usemodule[pre-60] - -\doifmodeelse {mkiv} { - \usetypescriptfile[ghz] - \definetypeface[mainface][ss][sans][optima-nova][default] -} { - \usetypescriptfile[type-ghz] - \definetypeface[mainface][ss][sans][optima-nova][default][encoding=\defaultencoding] -} - -\setupbodyfont[mainface,ss,18pt] -\setupinterlinespace[line=3.25ex] - -\setuppapersize - [S6][S6] - -% \setuppapersize -% [SW][SW] - -\setuplayout - [topspace=10pt, - header=30pt, - headerdistance=20pt, - height=middle, - footerdistance=20pt, - footer=0pt, - bottomdistance=20pt, - bottom=20pt, - bottomspace=50pt, - backspace=30pt, - width=middle] - -\setupinteraction - [state=start, - click=off, - menu=on, - style=, - color=interactioncolor, - contrastcolor=interactioncolor] - -\setupinteractionscreen - [option=max] - -\setupinteractionmenu - [bottom] - [color=maincolor, - contrastcolor=maincolor, - style=\tfa, % acceptable - left=\hfill, - middle=, - right=, - height=\bottomheight, - width=2\bottomheight, - offset=overlay, - frame=off] - -\startinteractionmenu[bottom] - \but [firstpage] \symbol[firstpage] \\ - \but [previouspage] \symbol[previouspage] \\ - \but [InvokeStepper] \StartBusy\symbol[PauseRendering]\StopBusy \\ - \but [nextpage] \symbol[nextpage] \\ - \but [lastpage] \symbol[lastpage] \\ - \but [CloseDocument] \symbol[CloseDocument] \\ -\stopinteractionmenu - -% maybe in colo-sjk : \setupcolor[sjk] - -\definecolor [dark] [s=.4] -\definecolor [bright] [s=.9] - -\definecolor [red] [r=.4,g=.2,b=.2] -\definecolor [green] [r=.2,g=.4,b=.2] -\definecolor [blue] [r=.2,g=.2,b=.4] - -\definecolor [cyan] [r=.2,g=.4,b=.4] -\definecolor [magenta][r=.4,g=.2,b=.4] -\definecolor [yellow] [r=.4,g=.4,b=.2] - -\definecolor [pagecolor] [dark] -\definecolor [maincolor] [bright] -\definecolor [textcolor] [red] - -\definecolor [interactioncolor] [r=.8,g=.8,b=.6] - -\setupcolors - [state=start, - textcolor=maincolor] - -\setupbackgrounds - [page] - [background=page, - backgroundcolor=textcolor] - -\setupbackgrounds - [text]% [text] - [background={comments,text,invoke}] - -\definelayer - [text] - [width=\textwidth, - height=\textheight] - -\defineoverlay - [comments] - [{\setlayer[text][preset=middle]{\placecomments}}] - -\defineoverlay[page][\uniqueMPgraphic{page-\ifcase\realpageno\or one\else plus\fi}] - -\startuniqueMPgraphic{page-one} - StartPage ; - fill Page - enlarged 4pt - withcolor \MPcolor{pagecolor} ; - fill Field[Text][Text] - enlarged 10pt -% topenlarged (HeaderHeight+HeaderDistance) - leftenlarged (BackSpace+4pt) - rightenlarged (CutSpace +4pt) - withcolor OverlayColor ; - StopPage ; -\stopuniqueMPgraphic - -\startuniqueMPgraphic{page-plus} - StartPage ; - fill Page - enlarged 4pt - withcolor \MPcolor{pagecolor} ; - fill Field[Text][Text] - enlarged 10pt - leftenlarged (BackSpace+4pt) - rightenlarged (CutSpace+4pt) - withcolor OverlayColor ; - StopPage ; -\stopuniqueMPgraphic - -% this needs to be sorted out ! - -\appendtoks - \NormalizeFontHeight \HeadFont {\setstrut\strut\quad} {1.0\headerheight} {SansBold} - \NormalizeFontHeight \TitleFont {\setstrut\strut\quad} {2.0\headerheight} {SansBold} - \NormalizeFontHeight \SubTitleFont {\setstrut\strut\quad} {1.5\headerheight} {SansBold} - \NormalizeFontHeight \SubSubTitleFont {\setstrut\strut\quad} {1.0\headerheight} {SansBold} -\to \everystarttext - -\appendtoks - \NormalizeFontHeight \HeadFont {\setstrut\strut\quad} {1.0\headerheight} {SansBold} - \NormalizeFontHeight \TitleFont {\setstrut\strut\quad} {2.0\headerheight} {SansBold} - \NormalizeFontHeight \SubTitleFont {\setstrut\strut\quad} {1.5\headerheight} {SansBold} - \NormalizeFontHeight \SubSubTitleFont {\setstrut\strut\quad} {1.0\headerheight} {SansBold} -\to \everystoptext - -\setuphead - [chapter] - [placehead=empty, - after={\blank[medium]}, - color=maincolor, - placenumber=no, - style=\HeadFont] - -\setupheadertexts - [\doiftextelse{\currentheadnumber}{\placeheadtext[Topic]}{\placeheadtext[Nopic]}] - [] - -\setuppagenumbering - [location=] - -\definesymbol - [emdash] - [\emdash] - -\setupitemize - [each] - [loose,serried,joinedup,broad] - [symbol=emdash] - -\setupalign - [broad,right] - -\def\doTitlePage#1#2#3% - {\startstandardmakeup[headerstate=high] - \def\\{\def\\{\endgraf\quad\quad}\endgraf\quad\ignorespaces#2}% - #1\setstrut\setupinterlinespace\vfil#3\vfil\vfil - \stopstandardmakeup} - -\def\TitlePage {\doTitlePage\TitleFont\relax} -\def\SubTitlePage{\doTitlePage\TitleFont\SubTitleFont} - -\definehead[Topic][chapter] -\definehead[Nopic][title] - -\def\Topics#1% - {\Nopic[topics]{#1} - \startcolumns - \placelist[Topic] - \stopcolumns} - -\setuplist - [Topic] - [alternative=f, - color=maincolor, - contrastcolor=maincolor, - criterium=all] - -\defineoverlay[topics][\overlaybutton{topics}] - -\setupbackgrounds - [bottom] [text] - [background=topics] - -\continueifinputfile{s-pre-61.tex} - -\starttext - -\TitlePage{Stepwise\\Refinement} - -\Topics{Topics} - -\Topic{Female Artists} - -\StartSteps - -\startitemize -\item Fiona Apple \FlushStep -\item Tori Amos \FlushStep -\item Kate Bush \FlushStep -\item Heather Nova \FlushStep -\item Alanis Morissette \FlushStep -\item Suzanne Vega \FlushStep -\stopitemize - -\StopSteps - -\Topic{Male Composers} - -\StartSteps - -\startitemize -\item John Adams \FlushStep -\item Steve Reich \FlushStep -\item Louis Andriessen \FlushStep -\item Olivier Messiaen \FlushStep -\stopitemize - -\StopSteps - -\Topic{And Some More} - -\StartSteps - -\startitemize -\item Mark Hollis \FlushStep -\item Roger Waters \FlushStep -\item David Gilmore \FlushStep -\item Peter Gabriel \FlushStep -\item Randy Newman \FlushStep -\stopitemize - -\StopSteps - -\stoptext diff --git a/tex/context/modules/common/s-pre-62.tex b/tex/context/modules/common/s-pre-62.tex deleted file mode 100644 index a1a405c23..000000000 --- a/tex/context/modules/common/s-pre-62.tex +++ /dev/null @@ -1,224 +0,0 @@ -%D \module -%D [ file=s-pre-62, -%D version=2005.03.04, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 62, -%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 Melior - -\usemodule[pre-60] - -\usetypescriptfile - [type-ghz] - -\doifmodeelse {mkiv} { - - \definetypeface[mainface][rm][serif][melior] [default] - \definetypeface[mainface][tt][mono] [modern] [default][rscale=1.05] - \definetypeface[mainface][ss][serif][melior] [default] - \definetypeface[mainface][mm][math] [palatino][default][rscale=0.95] - -} { - - \definetypeface[mainface][rm][serif][melior] [default][encoding=texnansi] - \definetypeface[mainface][tt][mono] [modern] [default][encoding=texnansi,rscale=1.05] - \definetypeface[mainface][ss][serif][melior] [default][encoding=texnansi] - \definetypeface[mainface][mm][math] [palatino][default][encoding=texnansi,rscale=0.95] - -} - -\setupbodyfont - [mainface,14.4pt] - -\setuppapersize - [S6][S6] - -\setvariables[layout][dx=0,dy=1,nx=2,ny=2,step=64] - -\definemeasure[layoutwd][\dimexpr\paperwidth /\getvariable{layout}{step}\relax] -\definemeasure[layoutht][\dimexpr\paperheight/\getvariable{layout}{step}\relax] - -\setuplayout - [ width=middle, - height=middle, - header=0pt, - footer=0pt, - margin=0pt, - backspace=5\measure{layoutwd}, - topspace=5\measure{layoutht}] - -\definelayout - [step] - [ backspace=\numexpr2+ \getvariable{layout}{dx}\relax\measure{layoutwd}, - cutspace=\numexpr3+\getvariable{layout}{nx}-\getvariable{layout}{dx}\relax\measure{layoutwd}, - topspace=\numexpr2+ \getvariable{layout}{dy}\relax\measure{layoutht}, - bottomspace=\numexpr3+\getvariable{layout}{ny}-\getvariable{layout}{dy}\relax\measure{layoutht}] - -\definecolor[layout:left] [t=.5,a=1,b=1] -\definecolor[layout:right] [t=.5,a=1,r=1] -\definecolor[layout:top] [t=.5,a=1,g=1] -\definecolor[layout:bottom][t=.5,a=1,y=1] -\definecolor[layout:page] [s=.75] - -\definehspace[menu][\measure{layoutwd}] - -\setupinteraction - [state=start, - click=off, - style=, - color=interactioncolor, - contrastcolor=interactioncolor] - -\setupinteractionscreen - [option=max] - -\setupbuttons - [color=maincolor, - contrastcolor=maincolor, - style=\tf, % acceptable - height=2\measure{layoutht}, - width=2\measure{layoutwd}, - offset=overlay, - frame=off] - -\definecolor[interactioncolor][darkgray] -\definecolor[maincolor] [lightgray] - -\setuptexttexts - [] - [\vbox to \textheight{\vfill\hfill\setups{menu:content}}] - -\startsetups menu:content - - \button{\symbol[firstpage]}[firstpage] - \hspace[menu] - \button{\symbol[previouspage]}[previouspage] - \hspace[menu] - \button{\StartBusy\symbol[PauseRendering]\StopBusy}[InvokeStepper] - \hspace[menu] - \button{\symbol[nextpage]}[nextpage] - \hspace[menu] - \button{\symbol[lastpage]}[lastpage] - \hspace[menu] - \button{\symbol[CloseDocument]}[CloseDocument] - -\stopsetups - -\startuseMPgraphic{page}{step} - StartPage ; - numeric dx, dy ; dx := PaperWidth/\MPvar{step} ; dy := PaperHeight/\MPvar{step} ; - fill Page withcolor .5white ; - fill - ulcorner Page -- urcorner Page -- - urcorner Page shifted (0,-TopSpace+dy) -- ulcorner Page shifted (0,-TopSpace+dy) -- cycle - withcolor \MPcolor{layout:top} ; - fill - llcorner Page -- lrcorner Page -- - lrcorner Page shifted (0,BottomSpace-dy) -- llcorner Page shifted (0,BottomSpace-dy) -- cycle - withcolor \MPcolor{layout:bottom} ; - fill - ulcorner Page -- llcorner Page -- - llcorner Page shifted (BackSpace-dx,0) -- ulcorner Page shifted (BackSpace-dx,0) -- cycle - withcolor \MPcolor{layout:left} ; - fill - urcorner Page -- lrcorner Page -- - lrcorner Page shifted (-CutSpace+dx,0) -- urcorner Page shifted (-CutSpace+dx,0) -- cycle - withcolor \MPcolor{layout:right} ; - fill Field[Text][Text] enlarged (dx,dy) withcolor white ; - fill Field[Text][Text] enlarged (dx,dy) withcolor \MPcolor{layout:page} ; - StopPage ; -\stopuseMPgraphic - -\defineoverlay[page][\useMPgraphic{page}{step=\getvariable{layout}{step}}] - -\setupbackgrounds - [page] - [background=page] - -\setupcolors - [state=start] - -\startsetups nextstep - % pagebreak handlers are grouped, so we need to set global - \ifnum\getvariable{layout}{dx}=\getvariable{layout}{nx}\relax - \ifnum\getvariable{layout}{dy}=\getvariable{layout}{ny}\relax - \setxvariables[layout][dy=1] - \else - \setxvariables[layout][dy=\the\numexpr\getvariable{layout}{dy}+1\relax] - \fi - \setxvariables[layout][dx=1] - \else - \setxvariables[layout][dx=\the\numexpr\getvariable{layout}{dx}+1\relax] - \fi - % global anyway - \setuplayout[step] -\stopsetups - -\definefontsynonym[MainTitleFont][SerifBold] - -\definefont[ChapterTitleFont][MainTitleFont sa 2] - -\appendtoks - \NormalizeFontHeight \TitleFont {\setstrut\strut\quad} {4\lineheight} {MainTitleFont} - \NormalizeFontHeight \SubTitleFont {\setstrut\strut\quad} {3\lineheight} {MainTitleFont} - \NormalizeFontHeight \ChapterNumberFont {XVI} {4\lineheight} {MainTitleFont} -\to \everystarttext - -\setupsection - [section-2] - [bodypartconversion=Romannumerals] - -\installpagebreakhandler {step} {\setups{nextstep}} - -\definepagebreak[chapter][yes,step] - -\setuphead - [chapter] - [page=chapter, - command=\MyChapterCommand] - -\definehead[Topic][chapter] -\definehead[Nopic][title] - -\setuphead[chapter,Topic,Nopic] - [numberstyle=\ChapterNumberFont, - textstyle=\ChapterTitleFont, - numbercolor=lightgray, - textcolor=darkgray] - -\def\MyChapterCommand#1#2% - {\hbox \bgroup % we need to nil the strut added by the headplacement - \setupframed[frame=off,lines=4,offset=overlay]% - \rlap{\hskip2\lineheight\framed{\setnostrut#1}}\framed{#2}% - \egroup} - -\setupitemize - [each] - [R,broad] - [stopper=, - color=lightgray] - -\def\doTitlePage#1#2#3% - {\startstandardmakeup[headerstate=high,textstate=stop] - \setupalign[middle] - \def\\{\def\\{\endgraf}\endgraf\vfil\ignorespaces#2}% - \startcolor[darkgray] - #1\setstrut\setupinterlinespace\vfil#3\vfil - \stopcolor - \stopstandardmakeup} - -\def\TitlePage {\doTitlePage\TitleFont\relax} -\def\SubTitlePage{\doTitlePage\TitleFont\SubTitleFont} - -\long\def\StartTitlePage #1\StopTitlePage {\TitlePage {#1}} -\long\def\StartSubTitlePage#1\StopSubTitlePage{\SubTitlePage{#1}} - -\endinput - diff --git a/tex/context/modules/common/s-pre-63.tex b/tex/context/modules/common/s-pre-63.tex deleted file mode 100644 index 974c67a5f..000000000 --- a/tex/context/modules/common/s-pre-63.tex +++ /dev/null @@ -1,77 +0,0 @@ -%D \module -%D [ file=s-pre-63, -%D version=2006.05.11, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 63, -%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. - -this module is under reconstruction - -\endinput - -\usemodule[pre-61,streams] - -\definemeasure[textgap] [\dimexpr24pt\relax] - -\definemeasure[leftwidth] [\dimexpr.25\textwidth-.5\measure{textgap}\relax] -\definemeasure[rightwidth][\dimexpr.75\textwidth-.5\measure{textgap}\relax] - -\definestreamlayer[left] [width=\measure{leftwidth}] -\definestreamlayer[right][width=\measure{rightwidth}] - -\setupbodyfont[12pt] - -\definefont[LeftFont][Normal sa 3] - -\setupheader[style=\tfc,before=\vss,after=\vss] - -\startsetups streamlayer:left:settings - \hsize\measure{leftwidth} - \LeftFont - \setupinterlinespace -\stopsetups - -\startsetups streamlayer:right:settings - \hsize\measure{rightwidth} -\stopsetups - -\definecombination[both][distance=\measure{textgap},location=top] - -\startsetups place:both - \startcombination[both] - {\StartLocalStep\placestreamlayer[left]\StopLocalStep} {} - {\StartLocalStep\placestreamlayer[right]\StopLocalStep} {} - \stopcombination -\stopsetups - -\def\StartPage {\page \StartLocalSteps} -\def\StopPage {\StopLocalSteps \page} - -\def\StartLeft {\startstreamlayer[left]} -\def\StartRight{\startstreamlayer[right]} - -\def\StopLeft {\stopstreamlayer} -\def\StopRight {\stopstreamlayer} - -\def\StartPair {} -\def\StopPair {\setups[place:both]} - -% \doifnotmode {demo} {\endinput} - -\setupbodyfont[8pt] \definefont[BigFont][Normal sa 4] - -\starttext - -\StartPage - \StartPair \StartLeft ZAPF \StopLeft \StartRight \input zapf \StopRight \StopPair - \StartPair \StartLeft DAVIS \StopLeft \StartRight \input davis \StopRight \StopPair - \StartPair \StartLeft WARD \StopLeft \StartRight \input ward \StopRight \StopPair -\StopPage - -\stoptext diff --git a/tex/context/modules/common/s-pre-64.tex b/tex/context/modules/common/s-pre-64.tex deleted file mode 100644 index ef4889bbb..000000000 --- a/tex/context/modules/common/s-pre-64.tex +++ /dev/null @@ -1,208 +0,0 @@ -%D \module -%D [ file=s-pre-64, -%D version=2006.05.11, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 64, -%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. - -% To be documented, used in 2007 - -\usemodule[s][pre-60] - -\newcounter\shapesynctag -\newdimen\slantedshapedimen -\newdimen\slantedshapestep -\newdimen\slantedshapeleftskip -\newdimen\slantedshapeoffset -\newdimen\slantedshapeextra - -\positioningtrue - -\def\AdaptShape - {\doglobal\increment\shapesynctag - \getnoflines\textheight - \slantedshapestep\dimexpr\slantedshapeleftskip/\noflines\relax - \leftskip\slantedshapeleftskip - \scratchdimen\dimexpr\MPy{text:\MPp\shapesynctag}+\MPh{text:\MPp\shapesynctag}-\topskip-\MPy\shapesynctag\relax - \advance\scratchdimen\slantedshapeextra - \getnoflines\scratchdimen - \slantedshapedimen \noflines \slantedshapestep - \scratchtoks\emptytoks - \dorecurse{30} - {\appendetoks - \the\dimexpr-\slantedshapedimen+\slantedshapeoffset \relax\space - \the\dimexpr \hsize-2\slantedshapeoffset\relax\space - \to\scratchtoks - \advance\slantedshapedimen \slantedshapestep}% - \parshape 30 \the\scratchtoks - \strut\xypos\shapesynctag} - -\def\AdaptShapeX - {\doglobal\increment\shapesynctag - \getnoflines\textheight - \slantedshapestep\dimexpr\slantedshapeleftskip/\noflines\relax - \leftskip\slantedshapeleftskip - \scratchdimen\dimexpr\MPy{text:\MPp\shapesynctag}+\MPh{text:\MPp\shapesynctag}-\topskip-\MPy\shapesynctag\relax - \advance\scratchdimen\slantedshapeextra - \getnoflines\scratchdimen - \slantedshapedimen \noflines \slantedshapestep - \scratchtoks\emptytoks - \dorecurse{30} - {\appendetoks - \the\dimexpr-\slantedshapedimen+\slantedshapeoffset +5cm \relax\space - \the\dimexpr \hsize-2\slantedshapeoffset\relax\space - \to\scratchtoks - \advance\slantedshapedimen \slantedshapestep}% - \parshape 30 \the\scratchtoks - \strut\xypos\shapesynctag} - -\setuppapersize[S6][S6] - -\setupinteraction - [state=start, - click=no] - -\setupinteractionscreen - [option=max] - -\setuplayout - [backspace=12pt, - topspace=24pt, - height=middle, - width=middle, - header=0pt, - footer=0pt] - -\definecolor[maincolor][b=.5] -\definecolor[somecolor][g=.5] -\definecolor[morecolor][r=.5] - -\setupcolors - [textcolor=maincolor, - state=start] - -\setupbackgrounds - [text]% [text] - [background={base,text,invoke}] - -\definelayer - [text] - [width=\textwidth, - height=\textheight] - -\definelayer - [base] - [width=\textwidth, - height=\textheight] - -\definetype [epet] [style=,color=morecolor] -\setuptype [style=,color=somecolor] - -\slantedshapeleftskip150pt -\slantedshapeoffset12pt -\slantedshapeextra10pt - -\startreusableMPgraphic{page} - StartPage ; - fill Page withcolor \MPcolor{maincolor} ; - path p ; p := Field[Text][Text] enlarged 6pt ; - p := - llcorner p shifted (0,-12pt) -- - lrcorner p shifted (-150pt,0) -- - urcorner p shifted (0,12pt) -- - ulcorner p shifted (150pt,0) -- - cycle ; - fill p - withcolor .9white ; - StopPage ; -\stopreusableMPgraphic - -\defineoverlay[page][\reuseMPgraphic{page}] -\setupbackgrounds[page][background=page] - -\setupalign[flushleft] - -\def\StartItem - {\blank[line] - \begingroup - \EveryPar {\AdaptShape}} % beware: \ABBREV aan begin gaat fout - -\def\StopItem - {\endgraf - \endgroup - \blank[line]} - -\def\StartType - {\blank[halfline] - \begingroup - \EveryPar {\AdaptShape} - \dontleavehmode \quad} - -\def\StopType - {\endgraf - \endgroup - \blank[halfline]} - -\def\Title#1% - {\page - \setlayer - [text] - [preset=lefttop, - rotation=90] - {\color[white]{\scale[height=24pt]{\strut#1}}}} - -\def\SetBanner#1% - {\setuplayer[base][state=repeat] - \setlayer[base][preset=rightbottom]{\color[white]{\scale[height=9pt]{\strut#1}}}} - -\let\TitleFont\relax - -\startmode[atpragma] - \definefontfeature[default][method=node,script=latn,language=dflt,liga=yes,onum=yes,kern=yes] - \definefont[TitleFont][palatinosanscom-bold*default at 48pt] - \definefont[MainTextFont][palatinosanscom-regular*default at 12pt] \setupinterlinespace[line=15pt] - \appendtoks - \MainTextFont % hack, as we define a bodyfont at that point (better have a proper typeface) - \to \everystarttext -\stopmode - -\doifnotmode{demo}{\endinput} - -\starttext - -\usemodule[abr-01] - -\SetBanner{tug 2007 san diego} - -\Title {hans hagen} - -\startstandardmakeup \TitleFont \setupinterlinespace[line=3ex] \vfill - -\StartItem \dontleavehmode \quad {\morecolor zapfino, a} \StopItem -\StartItem \dontleavehmode \quad {\morecolor torture test} \StopItem -\StartItem \dontleavehmode \quad {\morecolor for luatex} \StopItem - -\vfill \stopstandardmakeup - -\Title{loading fonts} - -\StartSteps - -\StartItem the \OPENTYPE\ font reader is borrowed from \FONTFORGE\ \FlushStep \StopItem -\StartItem once it was ready, we could look into such a font \FlushStep \StopItem -\StartItem it tooks while to figure out the format due to rather fuzzy specs \FlushStep \StopItem -\StartItem it took us even more time to find out that the loader was flawed \FlushStep \StopItem -\StartItem one reason was that fonts themselves may have bugs or be incomplete \FlushStep \StopItem -\StartItem then we changed to \FONTFORGE\ version 2 \FlushStep \StopItem -\StartItem this made the missing pieces surface in more complex feature handling \FlushStep \StopItem -\StartItem while implementing features the new table format was cleaned up \FlushStep \StopItem - -\StopSteps - -\stoptext diff --git a/tex/context/modules/common/s-pre-68.tex b/tex/context/modules/common/s-pre-68.tex deleted file mode 100644 index 3c04a87e1..000000000 --- a/tex/context/modules/common/s-pre-68.tex +++ /dev/null @@ -1,150 +0,0 @@ -%D \module -%D [ file=s-pre-68, -%D version=2009.08.28, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 68, -%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. - -\usemodule[pre-60,abr-02] - -% style - -\setuppapersize - [S66][S66] - -\setuplayout - [height=middle, - width=middle, - header=0pt, - footer=0pt, - backspace=2cm, - topspace=2cm] - -\setupinteraction - [state=start, - click=no] - -\definecolor[maincolor][r=.4] - -\startreusableMPgraphic{page} - StartPage ; - fill Page enlarged 5mm withcolor \MPcolor{maincolor} ; - StopPage ; -\stopreusableMPgraphic - -\startreusableMPgraphic{next} - fill ultriangle scaled .15PaperWidth withcolor white ; -\stopreusableMPgraphic - -\startreusableMPgraphic{last} - fill boundingbox(ultriangle scaled .15PaperWidth) withcolor white ; -\stopreusableMPgraphic - -\startuniqueMPgraphic{bullit} - fill ultriangle scaled 2ExHeight withcolor white ; -\stopuniqueMPgraphic - -\definelayer - [extra] - [width=\paperwidth, - height=\paperheight] - -\defineoverlay - [page] - [\reuseMPgraphic{page}] - -\setupbackgrounds - [page] - [background={page,extra}] - -\setupcolors - [state=start, - textcolor=white] - -\setuphead - [chapter] - [style=\bfc] - -\definehead[Title][title] - -\definesymbol[MyBullet][\uniqueMPgraphic{bullit}] - -\setupitemgroup[itemize][each][symbol=MyBullet] - -\usetypescript[cambria] -\setupbodyfont[cambria,14.4pt] - -% interface - -\def\StartItems - {\begingroup - \StartSteps - \startitemize - \def\StartItems{\startitemize\def\StopItems{\stopitemize}}} - -\def\StopItems - {\FlushStep - \stopitemize - \NextPageSymbol - \StopSteps - \endgroup} - -\def\Item - {\def\Item{\FlushStep\item} - \item} - -\def\NextPageSymbol - {\setlayer - [extra] - [preset=rightbottom,offset=2mm] - {\ifnum\realpageno=\lastpage - \reuseMPgraphic{last}% - \else\ifnum\realpageno>1 - \reuseMPgraphic{next}% - \fi\fi - \FlushStep}} - -\def\TitlePage#1#2% - {\startstandardmakeup[bottom=,top=] - \scale[width=\textwidth]{\framed[align=flushleft,foregroundstyle=\bf,frame=off]{#1}} - \vfilll - \hfill\scale[width=.5\textwidth]{\framed[align=flushright,foregroundstyle=\bf,frame=off]{#2}} - \stopstandardmakeup} - -\doifnotmode{demo}{\endinput} - -\starttext - -\TitlePage{I'm running\\out of examples}{Hans Hagen\\Someplace, 2031} - -\Title{Alpha} - -\StartItems -\Item one -\Item two -\Item three -\StopItems - -\Title{Beta} - -\StartItems -\Item four -\Item five -\Item six -\StopItems - -\Title{Gamma} - -\StartItems -\Item seven -\Item eight -\Item nine -\StopItems - -\stoptext diff --git a/tex/context/modules/mkiv/s-pre-60.mkiv b/tex/context/modules/mkiv/s-pre-60.mkiv deleted file mode 100644 index 70f8978b0..000000000 --- a/tex/context/modules/mkiv/s-pre-60.mkiv +++ /dev/null @@ -1,212 +0,0 @@ -%D \module -%D [ file=s-pre-60, -%D version=2004.03.15, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 60, -%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. - -% use lua instead of global mess - -\unprotect - -\startmode[paper,print] - \let\StartSteps\relax - \let\StopSteps \relax - \let\FlushStep \relax - \let\ResetStep \relax - \let\StartBusy \relax - \let\StopBusy \relax - \endinput -\stopmode - -\newcount\c_module_pre_steps_current -\newcount\c_module_pre_steps_maximum -\newcount\c_module_pre_steps_nesting_step -\newcount\c_module_pre_steps_nesting_steps -\newcount\c_module_pre_steps_nesting_busy - -\def\StepCounter {\the\c_module_pre_steps_current} -\def\StepMaximum {\the\c_module_pre_steps_maximum} -\def\StepLayer {step:\the\c_module_pre_steps_current} -\def\NextStepLayer {step:\the\numexpr\c_module_pre_steps_current+\plusone\relax} -\def\FirstStepLayer{step:1} - -\useJSscripts[stp] - -\startsetups[set-stepper] - - \ifnum\getvariable{stepper}{nofsteps}>\c_module_pre_steps_maximum - - \dostepwiserecurse {\numexpr\c_module_pre_steps_maximum+\plusone\relax} {\getvariable{stepper}{nofsteps}} {1} { - \doifnotmode{nosteps,nostep} { - \expanded{\defineviewerlayer[step:\recurselevel][state=stop,scope=global]} - } - } - - \global\c_module_pre_steps_maximum\getvariable{stepper}{nofsteps}\relax - - \fi - -\stopsetups - -\setvariables - [stepper] - [set=\setups{set-stepper}, - nofsteps=50] - -\defineviewerlayer[step:busy][state=start] - -\definereference [SetupStepper] [JS(SetupStepper{step,\StepMaximum})] -\definereference [ResetStepper] [JS(ResetStepper)] -\definereference [CheckStepper] [JS(CheckStepper{\StepCounter})] -\definereference [InvokeStepper] [JS(InvokeStepper)] - -% todo: roll back blank - -\unexpanded\def\ResetStep - {\iftrialtypesetting\else - \global\c_module_pre_steps_current\zerocount - \fi} - -\unexpanded\def\NextStep - {\iftrialtypesetting\else - \global\advance\c_module_pre_steps_current\plusone - \fi} - -\unexpanded\def\PrevStep - {\iftrialtypesetting\else - \global\advance\c_module_pre_steps_current\minusone - \fi} - -\unexpanded\def\FlushStep - {\iftrialtypesetting\else - \StopStep - \NextStep - \StartStep - \fi} - -\unexpanded\def\StartStep - {\iftrialtypesetting\else - \global\advance\c_module_pre_steps_nesting_step\plusone - \ifcase\c_module_pre_steps_nesting_step\or - \startviewerlayer[\StepLayer]% - \fi - \fi - \ignorespaces} - -\unexpanded\def\StopStep - {\removeunwantedspaces - \iftrialtypesetting\else - \ifcase\c_module_pre_steps_nesting_step\or - \stopviewerlayer - \fi - \global\advance\c_module_pre_steps_nesting_step\minusone - \fi} - -\unexpanded\def\StartSteps - {\iftrialtypesetting\else - \global\advance\c_module_pre_steps_nesting_steps\plusone - \ifcase\c_module_pre_steps_nesting_steps\or - \ResetStep - \NextStep - \StartStep - \fi - \fi} - -\unexpanded\def\StopSteps - {\iftrialtypesetting\else - \ifcase\c_module_pre_steps_nesting_steps\or - \StopStep - \PrevStep - \fi - \global\advance\c_module_pre_steps_nesting_steps\minusone - \fi} - -\unexpanded\def\StartBusy - {\iftrialtypesetting\else - \global\advance\c_module_pre_steps_nesting_busy\plusone - \ifcase\c_module_pre_steps_nesting_busy\or - \startviewerlayer[step:busy] - \fi - \fi - \ignorespaces} - -\unexpanded\def\StopBusy - {\removeunwantedspaces - \iftrialtypesetting\else - \ifcase\c_module_pre_steps_nesting_busy\or - \stopviewerlayer - \fi - \global\advance\c_module_pre_steps_nesting_busy\minusone - \fi} - -%D Handy: - -\unexpanded\def\StartLocalSteps - {\ResetStep} - -\unexpanded\def\StopLocalSteps - {} - -\unexpanded\def\StartLocalStep - {\NextStep - \StartStep} - -\unexpanded\def\StopLocalStep - {\StopStep} - -\appendtoks - \ResetStep -\to \everyaftershipout - -\setupinteraction - [%openaction=SetupStepper, - closeaction=ResetStepper, - openpageaction=CheckStepper, - closepageaction=ResetStepper] - -\defineoverlay[invoke][\overlaybutton{InvokeStepper}] - -\setupbackgrounds - [text] - [background=invoke] - -% bonus - -\useMPlibrary[nav] - -\definepalet - [navplus] - [attach=interactioncolor, - comment=interactioncolor] - -\setupcomment - [symbol={comment-normal,comment-down}, - textlayer=\StepLayer, - option=buffer, - height=\textheight, - width=\textwidth, - margin=0pt] - -\setupattachments - [symbol={attach-normal,attach-down}, - textlayer=\StepLayer] - -%D used as (given some definitions): -%D -%D \starttyping -%D \StartLocalSteps -%D \startcombination[both] -%D {\StartLocalStep\placestreamlayer[left]\StopLocalStep} {} -%D {\StartLocalStep\placestreamlayer[right]\StopLocalStep} {} -%D \stopcombination -%D \StopLocalSteps -%D \stoptyping - -\protect \endinput diff --git a/tex/context/modules/mkiv/s-pre-69.mkiv b/tex/context/modules/mkiv/s-pre-69.mkiv deleted file mode 100644 index cc6af9ad3..000000000 --- a/tex/context/modules/mkiv/s-pre-69.mkiv +++ /dev/null @@ -1,336 +0,0 @@ -%D \module -%D [ file=s-pre-69, -%D version=2010.04.28, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 69, -%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] -\setuppapersize[SM][SM] - -\usemodule - [abr-01,pre-60] - -\setupinteraction - [state=start, - contrastcolor=white, - color=white, - click=no] - -\setuplayout - [location=middle, - topspace=60pt, - bottomspace=80pt, - backspace=80pt, - header=0pt, - footer=0pt, - width=middle, - height=middle] - -\setupcolors - [textcolor=white] - -\setupbodyfont[euler] - -\definecolor[maincolor] [blue] -\definecolor[extracolor][green] - -% \definecolor[maincolor] [red] -% \definecolor[extracolor][blue] - -\startMPinitializations - if unknown MyColor[1] : - color MyColor[] ; - MyColor[1] := transparent(1,.25,\MPcolor{maincolor}) ; - MyColor[2] := transparent(1,.25,\MPcolor{extracolor}) ; - - picture MySoFar ; MySoFar := nullpicture ; - path MyLastOne ; MyLastOne := origin -- cycle ; - color MyPageColor ; MyPageColor := MyColor[1] ; - path MyLeftSteps, MyRightSteps ; - boolean MyPageDone ; MyPageDone := false ; - - vardef MySmallShape(expr parent) = - path p ; p := boundingbox parent ; - p := boundingbox parent ; - numeric w, h ; w := bbwidth(p) ; h := bbheight(p) ; - urcorner p shifted (-uniformdeviate w/4,0) -- - lrcorner p shifted (0,uniformdeviate h/4) -- - llcorner p shifted (uniformdeviate w/4,0) -- - ulcorner p shifted (0,-uniformdeviate h/4) -- cycle - enddef ; - - vardef MyShape(expr parent) = - path p ; p := boundingbox parent ; - if MyPageDone : - MyPageDone := false ; - urcorner p shifted (-EmWidth + -uniformdeviate CutSpace/2,0) -- - lrcorner p shifted (0,EmWidth + uniformdeviate BottomSpace/2) -- - llcorner p shifted (EmWidth + uniformdeviate BackSpace/2,0) -- - ulcorner p shifted (0,-EmWidth + -uniformdeviate TopSpace/2) -- cycle - else : - MyPageDone := true ; - urcorner p shifted (0,-EmWidth + -uniformdeviate TopSpace/2) -- - lrcorner p shifted (-EmWidth + -uniformdeviate CutSpace/2,0) -- - llcorner p shifted (0,EmWidth + uniformdeviate BottomSpace/2) -- - ulcorner p shifted (EmWidth + uniformdeviate BackSpace/2,0) -- cycle - fi - enddef ; - - vardef MyMakeOne = - MyLastOne := MyShape(Page) ; - enddef ; - - vardef MyAddOne = - addto MySoFar also image(fill MyLastOne withcolor MyPageColor ; ) ; - enddef ; - - vardef MyDrawOne = - fill MyLastOne withcolor black ; - fill MyLastOne withcolor MyPageColor ; - enddef ; - - vardef MyDrawPage = - draw MySoFar ; - enddef ; - - vardef MySetSteps = - path l, r ; numeric s ; path ll[], rr[] ; path t ; - l := point 2 of MyLastOne -- point 3 of MyLastOne ; - r := point 0 of MyLastOne -- point 1 of MyLastOne ; - t := topboundary Field[Text][Text] rightenlarged TextWidth leftenlarged TextWidth ; - s := bbheight(Field[Text][Text])/LineHeight + 2 ; - t := t shifted (0,-TopSkip) ; - for i=1 upto s : - ll[i] := t intersectionpoint l ; - rr[i] := t intersectionpoint r ; - t := t shifted (0,-LineHeight) ; - endfor ; - MyLeftSteps := for i=1 upto s : ll[i] -- endfor cycle ; - MyRightSteps := for i=1 upto s : rr[i] -- endfor cycle ; - enddef ; - - vardef MyDrawText(expr txt) = - pair a ; a := (point 1 of MyLastOne) - (point 2 of MyLastOne) ; - picture p ; p := txt ; - p := p - shifted (-EmWidth,EmWidth) - shifted ulcorner txt - shifted point 1 of MyLastOne ; - p := p rotatedaround(lrcorner p, radian * tan(ypart a/xpart a)) ; - setbounds p to origin -- cycle ; - draw p ; - enddef ; - - vardef MyDrawTitle(expr txt) = - % pair a ; a := (point 2 of MyLastOne) - (point 3 of MyLastOne) ; - pair a ; a := (point 3 of MyLastOne) - (point 4 of MyLastOne) ; - picture p ; - if bbheight(txt) > bbwidth(txt) : - p := txt ysized(0.8*TextHeight) ; - else : - p := txt xsized(0.8*TextWidth) ; - fi ; - numeric d ; d := arclength(point 2 of MyLastOne -- point 3 of MyLastOne) - bbheight(p) ; - p := p - shifted (BackSpace,-d/2) - shifted -ulcorner p - shifted point 3 of MyLastOne ; - % p := p rotatedaround(ulcorner p, - radian * tan(xpart a/ypart a)) ; - % p := p rotatedaround(ulcorner p, radian * tan(ypart a/xpart a)) ; - setbounds p to origin -- cycle ; - draw p ; - enddef ; - - vardef MyDrawSteps = - s := bbheight(Field[Text][Text])/LineHeight + 2 ; - for i=1 upto s : - draw ll[i] withpen pencircle scaled 1mm ; - draw rr[i] withpen pencircle scaled 1mm ; - draw ll[i] -- rr[i] ; - endfor ; - draw Field[Text][Text] ; - enddef ; - - fi ; -\stopMPinitializations - -\startuseMPgraphic{initialization} - StartPage ; - MySoFar := image(fill Page enlarged 12pt withcolor MyPageColor) ; - MyMakeOne ; - MySetSteps ; - StopPage ; -\stopuseMPgraphic - -\appendtoks - \startnointerference - \useMPgraphic{initialization} - \stopnointerference -\to \everystarttext - -\startuseMPgraphic{page} - StartPage ; - MyDrawPage ; - MyDrawOne ; - MySetSteps ; - MyDrawTitle(textext("\getvariable{document}{title}")) ; - MyDrawText(textext("\getvariable{document}{topic}")) ; - % - % we have multiple runs when we have text - % -% MyDrawSteps ; -% MyMakeOne ; -% MySetSteps ; - StopPage ; -\stopuseMPgraphic - -\appendtoks - \startnointerference - \startMPcode - MyAddOne ; - MyMakeOne ; - MySetSteps ; - \stopMPcode - \stopnointerference -\to \everyshipout - -\defineoverlay[page][\useMPgraphic{page}] - -\startuseMPgraphic{symbol} - color cc ; cc := MyColor[2] ; - path p ; p := MySmallShape(unitsquare scaled (.6*LineHeight)) ; - fill p withcolor white ; - fill p withcolor cc ; -\stopuseMPgraphic - -\definesymbol[mysymbol][\struttedbox{\useMPgraphic{symbol}}] - -\setupitemgroup[itemize][1][symbol=mysymbol] - -\setupbackgrounds - [page] - [background=page] - -\startluacode - local texdimen = tex.dimen - function document.SetParShape() - local leftpath = metapost.getclippath("metafun","metafun","clip currentpicture to MyLeftSteps ;") - local rightpath = metapost.getclippath("metafun","metafun","clip currentpicture to MyRightSteps ;") - local shape = { } - for i=1,#leftpath do - local left = leftpath[i].x_coord - local right = rightpath[i].x_coord - local hsize = right - left - (texdimen.backspace + texdimen.cutspace)*number.dimenfactors.bp - shape[#shape+1] = string.format("%sbp %sbp",left,hsize) - end - -- print(table.serialize(shape)) - -- context.parshape(string.format("%s %s ",#shape,table.concat(shape," "))) - context("\\parshape %s %s ",#shape,table.concat(shape," ")) - end -\stopluacode - -\nopenalties \dontcomplain - -\setupwhitespace[none] - -\def\StartText#1#2% - {\starttext - \setvariable{document}{title}{\framed[frame=off,offset=0pt,align=flushleft,foregroundstyle=\tfd\setupinterlinespace]{\begstrut#1\endstrut}} - \setvariable{document}{topic}{\tfb#2} - \startstandardmakeup - % dummy page - \stopstandardmakeup - \setvariable{document}{title}{} - \setvariable{document}{topic}{}} - -\def\StopText - {\stoptext} - -\def\StartItems#1% - {\setvariable{document}{topic}{\tfb#1} - \startstandardmakeup[top=,bottom=\vss] - \startelement[items][title={#1}]% - \ctxlua{document.SetParShape()} - \StartSteps} - -\def\StopItems - {\StopSteps - \stopelement - \stopstandardmakeup} - -\def\StartItem - {\dontleavehmode - \startelement[item]% - \llap{\symbol[mysymbol]\quad}% graphic - \ignorespaces} - -\def\StopItem - {\removeunwantedspaces - \nobreak - \crlf - \stopelement - \crlf - \FlushStep} - -\def\ShapeParagraph - {\ctxlua{document.SetParShape()}} - -% no parshape yet - -\def\StartParagraphs#1% - {\setvariable{document}{topic}{\tfb#1} - \startstandardmakeup[top=,bottom=\vss] - %\ctxlua{document.SetParShape()} - \startelement[paragraphs]% - \StartSteps} - -\def\StopParagraphs - {\StopSteps - \stopelement - \stopstandardmakeup} - -\def\StartParagraph - {\startelement[paragraph]} - -\def\StopParagraph - {\par - \stopelement - \FlushStep} - -% experiment .. likely to change - -\setelementexporttag[items] [nature][display] -\setelementexporttag[item] [nature][mixed] -\setelementexporttag[paragraphs][nature][display] -\setelementexporttag[paragraph] [nature][mixed] - -\continueifinputfile{s-pre-69.mkiv} - -% finetuning: \StartText{\TEX\ and Reality\vskip2exClashing Mindsets?\vskip1ex}{Bacho\TEX, May 1, 2010} - -\StartText{Just\\A Demo}{Bacho\TEX, May 1, 2010} - -\StartItems{Quote from Tufte and Ward} - \StartItem - \input tufte - \StopItem - \StartItem - \input ward - \StopItem -\StopItems - -% \dorecurse{20}{ -% \ctxlua{document.SetParShape()} -% \input tufte -% \page -% } - -\StopText - diff --git a/tex/context/modules/mkiv/s-pre-70.mkiv b/tex/context/modules/mkiv/s-pre-70.mkiv deleted file mode 100644 index 2c8bb2d26..000000000 --- a/tex/context/modules/mkiv/s-pre-70.mkiv +++ /dev/null @@ -1,176 +0,0 @@ -%D \module -%D [ file=s-pre-70, -%D version=2008.04.15, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 70, -%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 At the cost of more runtime and a larger output file, we -%D turn on randomization. The instances are cached in the -%D MkIV cache, so successive runs use the same shapes. - -% \usemodule[punk] \usetypescript[punk] \setupbodyfont[punk,20pt] -% -% \EnableRandomPunk - -\setupbodyfont[punknova,20pt] % we now use the opentype variant - -%D We use the regular screen size paper and layout setup. - -\setuppapersize - [S6][S6] - -\setuplayout - [topspace=30pt, - backspace=30pt, - width=middle, - height=fit, - header=0pt, - footer=0pt, - bottomdistance=24pt, - bottom=30pt, - bottom=18pt, - top=0pt] - -\setupinterlinespace - [top=height, - line=1.25\bodyfontsize] - -\setupcolors - [state=start, - textcolor=white] - -\setupinteraction - [state=start, - %click=off, - menu=on] - -%D We predefine a few palets. Of course you can define more. - -\definecolor[punkblue] [r=.4,b=.8,g=.4] -\definecolor[punkgreen] [r=.4,b=.4,g=.8] -\definecolor[punkred] [r=.8,b=.4,g=.4] -\definecolor[punkyellow][r=.6,g=.6,b=.2] - -\definepalet [punk-one] [textcolor=punkblue,pagecolor=punkgreen] -\definepalet [punk-two] [textcolor=punkred,pagecolor=punkyellow] -\definepalet [punk-three] [textcolor=punkblue,pagecolor=punkyellow] -\definepalet [punk-one-reverse] [textcolor=punkgreen,pagecolor=punkblue] -\definepalet [punk-two-reverse] [textcolor=punkyellow,pagecolor=punkred] -\definepalet [punk-three-reverse] [textcolor=punkyellow,pagecolor=punkblue] - -\setuppalet[punk-one] - -%D We use a few backgrounds. The hyperlink that invokes the -%D stepper is hooked into the text background. - -\definelayer - [page] - [width=\paperwidth, - height=\paperheight] - -\setupbackgrounds - [page] - [background={color,page}, - backgroundcolor=pagecolor, - setups=pagestuff] - -\setupbackgrounds - [text] - [background={color,invoke}, - backgroundoffset=12pt, - backgroundcolor=textcolor] - -%D We need different symbols for itemized lists. - -\definesymbol[1][\hbox{\lower1ex\hbox{*}}] -\definesymbol[2][\endash] -\definesymbol[3][\letterhash] -\definesymbol[3][>] - -%D We don't want these reversed clicked areas in Acrobat. - -\setupinteraction - [click=no, - color=white, % pagecolor, - contrastcolor=white] % pagecolor, - -%D We define a rather simple navigational panel at the -%D bottom - -\setupinteractionmenu - [bottom] - [color=white, % pagecolor, - contrastcolor=white, % pagecolor, - background=color, - backgroundcolor=textcolor, - frame=off, - height=24pt, - left=\hfill, - middle=\hskip12pt] - -\setupsubpagenumber - [state=start] - -\startinteractionmenu[bottom] - \starttxt - \interactionbar - [alternative=d, - symbol=yes, - color=white, - contrastcolor=textcolor] - \stoptxt - \hfilll - \startbut [previouspage] < < < \stopbut - \startbut [nextpage] > > > \stopbut -\stopinteractionmenu - -%D Instead of the normal symbols we use more punky ones. - -\startsymbolset [punk] - \definesymbol[previous] [\string<\string<] - \definesymbol[somewhere] [\string^\string^] - \definesymbol[next] [\string>\string>] -\stopsymbolset - -\setupinteraction[symbolset=punk] - -%D Because the font is rather large, we use less whitespace. - -\setuphead - [chapter] - [after={\blank[big]}] - -%D Run this file with the command: \type {context --mode=demo s-pre-70} -%D in order to get an example. - -\continueifinputfile{s-pre-70.mkiv} - -\usemodule[pre-60] % use the stepper - -\starttext - -\title {Punk for dummies} - -\dorecurse{10} { - - \title{Just a few dummy pages} - - \StartSteps - \startitemize[packed] - \startitem bla \FlushStep \stopitem - \startitem bla bla \FlushStep \stopitem - \startitem bla bla bla \FlushStep \stopitem - \startitem bla bla bla bla \FlushStep \stopitem - \stopitemize - \StopSteps - -} - -\stoptext diff --git a/tex/context/modules/mkiv/s-pre-71.lua b/tex/context/modules/mkiv/s-pre-71.lua deleted file mode 100644 index bfa45a705..000000000 --- a/tex/context/modules/mkiv/s-pre-71.lua +++ /dev/null @@ -1,63 +0,0 @@ -if not modules then modules = { } end modules ['steps'] = { - version = 1.001, - comment = "companion to steps.mkiv", - author = "Hans Hagen, PRAGMA-ADE, Hasselt NL", - copyright = "PRAGMA ADE / ConTeXt Development Team", - license = "see context related readme files" -} - -moduledata.steps = moduledata.steps or { } -local steps = moduledata.steps - -local locations = { - 'lefttop', - 'middletop', - 'righttop', - 'middleleft', - 'middle', - 'middleright', - 'leftbottom', - 'middlebottom', - 'rightbottom', -} - -local done, current, previous, n - -function steps.reset_locations() - done, current, previous, n = table.tohash(locations,false), 0, 0, 0 -end - -function steps.next_location(loc) - previous = current - n = n + 1 - loc = loc and loc ~= "" and tonumber(loc) - while true do - current = loc or math.random(1,#locations) - if not done[current] then - done[current] = true - break - end - end -end - -function steps.current_location() - context(locations[current] or "") -end - -function steps.previous_location() - context(locations[previous] or "") -end - -function steps.current_n() - context(current) -end - -function steps.previous_n() - context(previous) -end - -function steps.step() - context(n) -end - -steps.reset_locations() diff --git a/tex/context/modules/mkiv/s-pre-71.mkiv b/tex/context/modules/mkiv/s-pre-71.mkiv deleted file mode 100644 index 38dae61df..000000000 --- a/tex/context/modules/mkiv/s-pre-71.mkiv +++ /dev/null @@ -1,170 +0,0 @@ -% engine=luatex - -%D \module -%D [ file=s-pre-71, -%D version=2008.08.05, -%D title=\CONTEXT\ Style File, -%D subtitle=Presentation Environment 71, -%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 might improve this module so consider it experimental. - -% \enablemode[numbers] -% \enablemode[paper] - -\usemodule[pre-60,abr-02] - -\registerctxluafile{s-pre-71}{} - -\setupinteraction[state=start,click=off] - -\definepapersize[wide][width=900pt,height=600pt] - -\setuppapersize[wide][wide] - -\setuplayout[page] - -% \setupbodyfont[15pt] - -\usetypescriptfile[type-hgz] -\usetypescript[palatino-informal] -\setupbodyfont[palatino-informal,15pt] - -\setupsorting[logo][style=] - -\startnotmode[paper] - \setupbackgrounds[page][background=color,backgroundcolor=black] -\stopnotmode - -\TransparencyHack - -\definelayer[page][width=\paperwidth,height=\paperheight] - -\definecolor[TopicColor-1][r=.3,g=.4,b=.5] -\definecolor[TopicColor-2][r=.3,g=.5,b=.4] -\definecolor[TopicColor-3][r=.4,g=.3,b=.5] -\definecolor[TopicColor-4][r=.4,g=.5,b=.3] -\definecolor[TopicColor-5][r=.5,g=.3,b=.4] -\definecolor[TopicColor-6][r=.5,g=.4,b=.3] -\definecolor[TopicColor-7][r=.35,g=.35,b=.6] -\definecolor[TopicColor-8][r=.6,g=.35,b=.35] -\definecolor[TopicColor-9][r=.35,g=.6,b=.35] - -\definecolor[TopicColor-0][t=.5,a=1,s=.5] -\definecolor[TopicColor] [s=1] - -\setupcolors[state=start] -\setupcolors[textcolor=TopicColor] - -\def\StartTopics - {\startstandardmakeup - \ctxlua{moduledata.steps.reset_locations()} - \doifnotmode{paper}{\StartLocalSteps}} - -\def\StopTopics - {\doifnotmode{paper}{\StopLocalSteps} - \flushlayer[page] - \stopstandardmakeup} - -\def\StartTopic - {\dosingleempty\doStartTopic} - -\def\doStartTopic[#1]% - {\doifnotmode{paper}{\NextStep} - \ctxlua{moduledata.steps.next_location("#1")} - \startnotmode[paper] - \doifnothing{#1} - {\ifcase\ctxlua{moduledata.steps.previous_n()}\else - \setlayer - [page] - [preset=\ctxlua{moduledata.steps.previous_location()}] - \bgroup - \doifnotmode{paper}{\startviewerlayer[\StepLayer]}% - \framed - [offset=20pt, - strut=no, - align=normal, - frame=off, - height=\dimexpr\paperheight/3\relax, - width=\dimexpr\paperwidth/3\relax, - background=color, - backgroundcolor=TopicColor-0] - {}% - \doifnotmode{paper}{\stopviewerlayer}% - \egroup - \fi} - \stopnotmode - \setlayer - [page] - [preset=\ctxlua{moduledata.steps.current_location()}] - \bgroup - \doifnotmode{paper}{\startviewerlayer[\StepLayer]}% - \framed - [offset=20pt, - strut=no, - align=\expdoifelse{#1}{}{normal}{middle,lohi}, - align=\expdoifelse{#1}{}{flushleft,verytolerant}{middle,lohi}, - frame=off, - height=\dimexpr\paperheight/3\relax, - width=\dimexpr\paperwidth/3\relax, - background=color, - backgroundcolor=TopicColor-\ctxlua{moduledata.steps.current_n()}] - \bgroup - \ignorespaces} - -\def\StopTopic - {\removeunwantedspaces - \egroup - \doifnotmode{paper}{\stopviewerlayer}% - \egroup - \startmode[numbers] - \setlayerframed - [page] - [preset=\ctxlua{moduledata.steps.current_location()}] - [height=\dimexpr\paperheight/3\relax, - width=\dimexpr\paperwidth/3\relax, - frame=off, - foregroundstyle=\bfa, - align={flushright,low}] - {\doifnotmode{paper}{\startviewerlayer[\StepLayer]}% - \ctxlua{moduledata.steps.step()}\kern\strutdepth - \doifnotmode{paper}{\stopviewerlayer}} - \stopmode} - -\logo [METAPOST] {MetaPost} - -\definefont[TitleFont][SansBold at 60pt] -\definefont[TempFont] [SansBold at 12pt] - -\let\StartText\starttext -\let\StopText \stoptext - -\continueifinputfile{s-pre-71.mkiv} - -\starttext - -\StartTopics - \StartTopic[1] A \StopTopic - \StartTopic[5] B \StopTopic - \StartTopic[9] C \StopTopic -\StopTopics - -\StartTopics - \StartTopic A \StopTopic - \StartTopic B \StopTopic - \StartTopic C \StopTopic - \StartTopic D \StopTopic - \StartTopic E \StopTopic - \StartTopic F \StopTopic - \StartTopic G \StopTopic - \StartTopic H \StopTopic - \StartTopic I \StopTopic -\StopTopics - -\stoptext |