1 files changed, 144 insertions, 0 deletions
diff --git a/tex/context/base/s-pre-67.tex b/tex/context/base/s-pre-67.tex
new file mode 100644
index 000000000..53c3260f5
--- /dev/null
+++ b/tex/context/base/s-pre-67.tex
@@ -0,0 +1,144 @@
+% todo: version of placement that also takes the sync node
+
+\usemodule[s][abr-02]
+\usemodule[s][pre-60]
+
+\definecolor[red:fullcolor]    [r=1]
+\definecolor[red:lightcolor]   [r=.5]
+\definecolor[red:darkcolor]    [r=.375]
+
+\definecolor[green:fullcolor]  [g=1]
+\definecolor[green:lightcolor] [g=.5]
+\definecolor[green:darkcolor]  [g=.375]
+
+\definecolor[blue:fullcolor]   [b=1]
+\definecolor[blue:lightcolor]  [b=.5]
+\definecolor[blue:darkcolor]   [b=.375]
+
+\definepalet[red-scheme]  [fullcolor=red:fullcolor,  lightcolor=red:lightcolor,  darkcolor=red:darkcolor]
+\definepalet[green-scheme][fullcolor=green:fullcolor,lightcolor=green:lightcolor,darkcolor=green:darkcolor]
+\definepalet[blue-scheme] [fullcolor=blue:fullcolor, lightcolor=blue:lightcolor, darkcolor=blue:darkcolor]
+
+\setuppalet[red-scheme]
+
+\setupcolors
+  [textcolor=darkcolor]
+
+\setupinteraction
+  [color=darkcolor,
+   contrastcolor=darkcolor]
+
+\startuseMPgraphic{bullet}
+    path b, p ;
+    p := fullsquare scaled .5LineHeight ;
+    b := boundingbox p ;
+    p := p rotatedaround(center p, 45) ;
+    p := p shifted (0,-.125StrutDepth) ;
+    fill p withcolor \MPcolor{lightcolor} ;
+    setbounds currentpicture to b ;
+\stopuseMPgraphic
+
+\startuseMPgraphic{bar}
+    path b, p ;
+    p := fullsquare scaled .25LineHeight ;
+    b := boundingbox p ;
+    p := p rotatedaround(center p, 45) ;
+    p := p shifted (0,+.25StrutDepth) ;
+    fill p withcolor \MPcolor{lightcolor} ;
+    setbounds currentpicture to b ;
+\stopuseMPgraphic
+
+\startuseMPgraphic{page}
+    StartPage ;
+        fill Page enlarged 5mm withcolor .1[white,\MPcolor{fullcolor}] ;
+        interim linecap := butt ;
+        numeric h ; h := bbheight(Page)/4 ;
+        numeric w ; w := bbwidth(Page)/4 ;
+        h := h randomized(h) ;
+        w := w randomized(w) ;
+        draw
+            ulcorner Page shifted (0,-h) -- ulcorner Page -- ulcorner Page shifted (w,0)
+            withpen pensquare scaled .5cm
+            withcolor \MPcolor{lightcolor} ;
+        numeric h ; h := bbheight(Page)/4 ;
+        numeric w ; w := bbwidth(Page)/4 ;
+        h := h randomized(h) ;
+        w := w randomized(w) ;
+        draw
+            lrcorner Page shifted (0,h) -- lrcorner Page -- lrcorner Page shifted (-w,0)
+            withpen pensquare scaled .5cm
+            withcolor \MPcolor{lightcolor} ;
+        setbounds currentpicture to Page ;
+    StopPage ;
+\stopuseMPgraphic
+
+\defineoverlay[page][\useMPgraphic{page}]
+
+\definesymbol[1][\reuseMPgraphic{bullet}]
+\definesymbol[2][\reuseMPgraphic{bar}]
+
+\setupitemgroup[itemize][2][width=1em]
+
+\setupinteraction
+  [state=start,
+   click=no]
+
+\setuppapersize
+  [S6][S6]
+
+\setuplayout
+  [width=middle,
+   height=middle,
+   header=0pt,
+   footer=0pt,
+   backspace=1cm,
+%    topspace=1cm]
+   topspace=.5cm]
+
+\setupbackgrounds
+  [page]
+  [background=page]
+
+\setuphead
+  [chapter]
+  [command=\MyCommand,
+   before=,
+   after={\blank[disable]},
+   color=lightcolor,
+   style=\bfc]
+
+\definelayer
+  [title]
+  [width=\paperwidth,
+   height=\paperheight]
+
+\setupbackgrounds
+  [page]
+  [background={page,title}]
+
+\setupwhitespace
+  [big]
+
+\def\MyCommand#1#2%
+  {\setlayer[title][preset=rightbottom,x=.75cm,y=.5cm]{#2}}
+
+\def\titlepage#1#2%
+  {\startstandardmakeup
+     \definefont[LargeFont][Normal at 120pt]
+     \setlayerframed
+        [title]
+        [preset=lefttop,x=1cm,y=.25cm]
+        [align=flushleft,foregroundstyle=\LargeFont,offset=0pt,foregroundcolor=lightcolor,frame=off]
+        {#1}
+     \definefont[SmallFont][Normal at  60pt]
+     \setlayerframed
+        [title]
+        [preset=rightbottom,x=1cm,y=.5cm]
+        [align=flushright,foregroundstyle=\SmallFont,offset=0pt,foregroundcolor=lightcolor,frame=off]
+        {#2}
+   \stopstandardmakeup}
+
+\let\Title\title
+\let\TitlePage\titlepage
+
+\endinput