stable 2000.10.22

1 files changed, 328 insertions, 0 deletions

diff --git a/tex/context/base/s-pre-19.tex b/tex/context/base/s-pre-19.tex
new file mode 100644
index 000000000..f93deb1a7
--- /dev/null
+++ b/tex/context/base/s-pre-19.tex
@@ -0,0 +1,328 @@
+%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 / Hans Hagen \& Ton Otten}]
+%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.
+
+\setupbodyfont 
+  [ppl]        
+
+%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]
+
+%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=red,
+   contrastcolor=gray,
+   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{yellow} ; 
+    fill p    withcolor \MPcolor{white} ;  
+    draw p    withcolor \MPcolor{red} ;  
+
+    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{white} ; 
+        draw q withcolor if rr=2 : \MPcolor{gray} else : \MPcolor{red} 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{yellow} ; 
+    fill p    withcolor \MPcolor{white} ;  
+    draw p    withcolor \MPcolor{red} ;  
+
+    % 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 ...
+
+    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) ; % \MPw{menu:right:\realfolio}  
+        fill q withcolor \MPcolor{white} ; 
+        draw q withcolor if rr=2 : \MPcolor{gray} else : \MPcolor{red} 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 intersectionpoint ptop ;
+  b := p intersectionpoint 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\TitlePage#1%
+  {\startstandardmakeup
+     \switchtobodyfont[big]
+     \def\\{\vfill\bfb\let\\=\par}
+     \bfd\setupinterlinespace\gray
+     \vskip.5cm#1\\\vskip.5cm  % \\ is really needed -) 
+   \stopstandardmakeup}
+
+\doifnotmode{demo}{\endinput}
+
+\starttext 
+
+% \useenvironment[pre-organic]
+% \setupoutput[pdftex]
+
+\setupMPvariables[page][alternative=1]
+
+\TitlePage
+  {A Few Nice Quotes\\
+   A Simple Style Demo\\
+   Hans Hagen, August 2000}
+
+\Topic {Rudolf D. Hofstadter} \input douglas \page 
+\Topic {Donald E. Knuth}      \input knuth   \page 
+\Topic {Edward R. Tufte}      \input tufte   \page 
+\Topic {Hermann Zapf}         \input zapf    \page 
+
+\stoptext