From 85b7bc695629926641c7cb752fd478adfdf374f3 Mon Sep 17 00:00:00 2001
From: Marius <mariausol@gmail.com>
Date: Sun, 4 Jul 2010 15:32:09 +0300
Subject: stable 2010-05-24 13:10

---
 tex/context/base/s-pre-18.tex | 177 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 177 insertions(+)
 create mode 100644 tex/context/base/s-pre-18.tex

(limited to 'tex/context/base/s-pre-18.tex')

diff --git a/tex/context/base/s-pre-18.tex b/tex/context/base/s-pre-18.tex
new file mode 100644
index 000000000..407f30824
--- /dev/null
+++ b/tex/context/base/s-pre-18.tex
@@ -0,0 +1,177 @@
+%D \module
+%D   [      file=s-pre-18,
+%D        version=1999.08.20,
+%D          title=\CONTEXT\ Style File,
+%D       subtitle=Presentation Environment 18,
+%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.
+
+
+
+% output=pdftex interface=en 
+
+% todo: met pos en dan iedere titel 
+
+\setuppapersize
+  [S6][S6]
+
+\setupbodyfont
+  [loc,ppl] 
+
+\setupcolors
+  [state=start]
+
+\definecolor [shade-1] [s=.7] 
+\definecolor [shade-2] [s=.1]  
+
+\definecolor [shade-3] [s=.8]  
+\definecolor [shade-4] [b=.8]  
+
+\definecolor [shade-5] [g=.6] 
+
+\setuplayout
+  [topspace=1cm,
+   height=fit,
+   backspace=1cm,
+   width=middle,
+   header=0pt,
+   footer=0pt,
+   bottomdistance=1cm]
+
+\setupbackgrounds
+  [state=repeat]
+
+\setupbackgrounds [page] [background=page]
+
+\defineoverlay [page] [\useMPgraphic{page}]
+\defineoverlay [text] [\useMPgraphic{text}]
+
+\startuseMPgraphic{page}
+  StartPage ; 
+    path p ; numeric s ; pair cp ; cp := center Page ; 
+    s := define_circular_shade(cp,cp,0,TextWidth,
+      \MPcolor{shade-1},\MPcolor{shade-2}) ; 
+    fill Page withshade s ; 
+    p := fullcircle xyscaled (TextWidth+1cm, TextHeight+1cm) shifted cp ;
+    s := define_circular_shade(cp,cp,0,TextWidth,\MPcolor{shade-3},
+      \MPcolor{shade-4}) ; 
+    fill p withshade s ; 
+  StopPage
+\stopuseMPgraphic
+
+\startuseMPgraphic{text}
+  StartPage ; 
+    path p ; numeric s, t ; pair cp ; cp := center Page ; 
+    s := define_circular_shade(cp,cp,0,TextWidth,
+      \MPcolor{shade-1},\MPcolor{shade-2}) ; 
+    fill Page withshade s ; 
+    p := llcorner Field[Text][Bottom] -- 
+         lrcorner Field[Text][Bottom] -- 
+         urcorner Field[Text][Text]   -- 
+         ulcorner Field[Text][Text]   -- cycle ; 
+    p := p enlarged .5cm randomized .5cm ; 
+    t := define_circular_shade(cp,cp,0,TextWidth,\MPcolor{shade-3}, 
+      \MPcolor{shade-4}) ; 
+    fill p withshade t ; 
+
+    def bottom_menu_button (expr nn, rr, pp, xx, yy, ww, hh, dd) =  
+      if (pp>0) and (rr>0) : 
+        if     nn = 1 : 
+          p := (0,0)--(ww,hh/2)--(0,hh)--cycle ; 
+        elseif nn = 2 : 
+          p := (0,hh/2)--(ww,hh)--(ww,0)--cycle ; 
+        else :
+          p := origin--cycle ; 
+        fi ; 
+        fill p randomized 2.5mm shifted (xx,yy) withshade s ; 
+      fi ; 
+    enddef ; 
+
+    \MPmenubuttons{bottom} 
+
+    if length \MPstring{topic} > 0 : 
+      graphictext
+        \MPstring{topic} 
+        scaled 3
+        shifted ulcorner Field[Text][Text] 
+        shifted (0,-1.5cm) 
+        withshade s ;
+    fi ;
+
+  StopPage ; 
+\stopuseMPgraphic
+
+\setupinteractionmenu
+  [bottom]
+  [state=start,
+   frame=off,
+   left=\hfill,
+   middle=\hskip.5cm,
+   width=2\bottomheight,
+   position=yes]
+
+\startinteractionmenu[bottom]
+  \but [previouspage] \\ 
+  \but [nextpage]     \\ 
+\stopinteractionmenu
+
+\setupinteraction
+  [state=start,
+   click=no,
+   color=shade-5,
+   contrastcolor=shade-5,
+   menu=on]
+
+\setupwhitespace
+  [big]
+
+\def\Topic#1%
+  {\page
+   \setMPtext{topic}{#1}
+   \vbox to 2cm{}}
+
+\setMPtext{topic}{}
+
+\def\StartTitlePage%
+  {\startstandardmakeup[bottomstate=none]
+   \setupalign[middle]
+   \vfill}
+
+\def\StopTitlePage%
+  {\stopstandardmakeup
+   \setuplayout[bottom=1.5cm]
+   \setupbackgrounds[page][background=text]}
+
+\def\TitleString#1#2%
+  {\indent 
+   \startMPcode
+     graphictext
+       "#2" 
+       scaled #1
+       withdrawcolor .4white
+       withfillcolor .7white
+       withpen pencircle scaled 2pt ;
+   \stopMPcode
+   \vfill} 
+
+\doifnotmode{demo}{\endinput} 
+
+\starttext 
+
+\StartTitlePage
+  \TitleString{8}{Welcome}
+  \TitleString{4}{to my favourite}
+  \TitleString{8}{Quotes}
+\StopTitlePage
+
+\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 
+
+\stoptext 
-- 
cgit v1.2.3

