summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/modules/common/s-pre-50.tex
blob: 8b55cf67aea41bd9a8f63e1f640cc336e0d8d0a9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
%D \module
%D   [      file=s-pre-50,
%D        version=2003.01.26,
%D          title=\CONTEXT\ Style File,
%D       subtitle=Presentation Environment 50,
%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 When my mailbox started to overflow with messages about
%D problems with the presentation step mechanism, I looked up
%D old presentaton, hacked a bit and cooked up an alternative
%D that is less dependent on \PDF\ trickery.
%D
%D Consider it a cheap trick and prelude to a couple of new
%D presentation styles. (At the time of writing this, I
%D still have some 10 of those styles to clean up and
%D document.) You can give it a try:
%D
%D \starttyping
%D texexec --pdf --mode=demo s-pre-50
%D \stoptyping

% Basic definitions.

\defineframedtext
  [horizontal]
  [width=\textwidth,
   frame=off,
   strut=no,
   height=fit,
   align={right,lohi},
   before=,
   after=]

\definecollector
  [contribution]
  [state=repeat,
   corner={left,bottom},
   location={right,bottom}]

%D An example of tuning:

\startmode[demo]

  \setupcollector
    [contribution]
    [voffset=-.25\bodyfontsize]

  \setupframedtexts
    [horizontal]
    [background=color,
     backgroundcolor=darkgray,
     foregroundcolor=white]

\stopmode

%D Structure and trick.

\def\StartSteps
  {\doifnotmode{mkiv}{\checkutilities}}

\def\StopSteps
  {\resetcollector[contribution]}

\long\def\StartStep#1\StopStep
  {\setcollector
     [contribution]
     {\starthorizontal[none]#1\stophorizontal}
   \flushcollector[contribution]
   \page}

%D Trick. Nowadays we can use streams.

\installoutputroutine\FlushStep
  {\StartStep\unvbox\normalpagebox\StopStep}

%D Demo.

\doifnotmode{demo}{\endinput}

\setupcolors[state=start] \setuppapersize[S6][S6] \setuplayout[middle]

\starttext

\StartSteps

  \title[whow]{How Much?} \FlushStep
  \startitem More              \stopitem \FlushStep
  \startitem And More          \stopitem \FlushStep
  \startitem And Even More     \stopitem \FlushStep

  \StartStep And So On    \StopStep

\StopSteps

\stoptext