diff options
Diffstat (limited to 'tex/context/base/m-streams.tex')
| -rw-r--r-- | tex/context/base/m-streams.tex | 446 |
1 files changed, 0 insertions, 446 deletions
diff --git a/tex/context/base/m-streams.tex b/tex/context/base/m-streams.tex deleted file mode 100644 index a8589a89c..000000000 --- a/tex/context/base/m-streams.tex +++ /dev/null @@ -1,446 +0,0 @@ -%D \module -%D [ file=m-streams, -%D version=2006.03.21, -%D title=\CONTEXT\ Modules, -%D subtitle=Streams, -%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 First we implement a simple left||right synchronization -%D mechanism, which we may perfect and extend over time. - -\unprotect - -\defineoutputstream [\v!left] -\defineoutputstream [\v!right] - -\definemarknote[\v!left] -\definemarknote[\v!right] - -\startsetups stream:\v!left:bottom - \flushmarknotes[\v!left] -\stopsetups -\startsetups stream:\v!right:bottom - \flushmarknotes[\v!right] -\stopsetups -\startsetups stream:\v!left:reset - \erasemarknotes[\v!left] -\stopsetups -\startsetups stream:\v!right:reset - \erasemarknotes[\v!right] -\stopsetups - -\def\LeftNote {\setmarknote [\v!left]} % {#1} -\def\RightNote {\setmarknote [\v!right]} % {#1} -\def\SwitchToLeft {\enableoutputstream [\v!left]} -\def\SwitchToRight {\enableoutputstream [\v!right]} -\def\SwitchToNormal {\enableoutputstream [\s!default]} -\def\SynchronizeLeftAndRight{\synchronizeoutputstreams[\v!left,\v!right]} -\def\FlushLeftAndRight {\flushoutputstreampages [\v!left,\v!right]} - -\protect - -% \topskip \strutheight -% \splittopskip\strutheight - -%D Example of usage: -%D -%D \starttyping -%D \nopenalties \setupinterlinespace[top=height] \setupcolors[state=start] -%D -%D \showgrid \showstruts -%D -%D \starttext -%D -%D \title{Whatever} \page -%D -%D \dorecurse {5} { -%D \let\RecurseLevel\recurselevel -%D \SwitchToLeft \dorecurse{10}{\dontleavehmode{\tf\RecurseLevel:l \begstrut \input tufte \endstrut \endgraf}} -%D \SwitchToRight \dorecurse{10}{\dontleavehmode{\sl\RecurseLevel:r \begstrut \input knuth \endstrut \endgraf}} -%D \SwitchToNormal \SynchronizeLeftAndRight -%D \SwitchToLeft \dorecurse{10}{\dontleavehmode{\bf\RecurseLevel:l \begstrut \input zapf \endstrut \endgraf}} -%D \SwitchToRight \dorecurse{10}{\dontleavehmode{\bs\RecurseLevel:r \begstrut \input davis \endstrut \endgraf}} -%D \SwitchToNormal \SynchronizeLeftAndRight -%D } -%D -%D \FlushLeftAndRight -%D -%D \stoptext -%D \stoptyping -%D -%D Another example: -%D -%D \starttyping -%D \nopenalties \setupinterlinespace[top=height] \setupcolors[state=start] -%D -%D \showgrid \showstruts -%D -%D \starttext -%D -%D \SwitchToNormal \FlushLeftAndRight \page -%D -%D \def\StartCouple{\page\SwitchToNormal} -%D \def\StopCouple {\SwitchToNormal \SynchronizeLeftAndRight \FlushLeftAndRight} -%D -%D \def\Original {\SwitchToNormal\SynchronizeLeftAndRight\SwitchToLeft} -%D \def\Translation{\SwitchToRight} -%D -%D \StartCouple -%D \dorecurse{10} { -%D \Original o: \begstrut \inright{\blackrule}\input tufte \endstrut \LeftNote {tufte} \endgraf -%D \Translation t: \begstrut \inleft {\blackrule}\input zapf \endstrut \RightNote{zapf} \endgraf -%D \Original o: \begstrut \inright{\blackrule}\input knuth \endstrut \LeftNote {knuth} \endgraf -%D \Translation t: \begstrut \inleft {\blackrule}\input davis \endstrut \RightNote{davis} \endgraf -%D \Original o: \begstrut \inright{\blackrule}\input douglas \endstrut \LeftNote {douglas} \endgraf -%D \Translation t: \begstrut \inleft {\blackrule}\input bryson \endstrut \RightNote{bryson} \endgraf -%D } -%D \StopCouple -%D \stoptext -%D \stoptyping - -%D Next we implement stream layers. - -\unprotect - -\def\overloadtextwidth#1% - {\makeupwidth#1\relax - \textwidth\makeupwidth - \hsize\makeupwidth} - -\startsetups streamlayer:default:settings - % set hsize etc, like \overloadtextwidth{12cm} -\stopsetups - -\startsetups streamlayer:default:extras - % flush goodies, like local floats -\stopsetups - -\startsetups streamlayer:default:place - \setlayer - [\currentstreamlayer] - [\c!preset=\v!left\v!top] - {\outputstreambox[\currentstreamlayer]}% -\stopsetups - -\startsetups streamlayer:default:copy - \setlayer - [\currentstreamlayer] - [\c!preset=\v!left\v!top] - {\outputstreamcopy[\currentstreamlayer]}% -\stopsetups - -\startsetups streamlayer:default:reset - \outputstreambox[\currentstreamlayer] -\stopsetups - -\startsetups streamlayer:default:flush - \tightlayer[\currentstreamlayer] -\stopsetups - -\def\definestreamlayer - {\dodoubleempty\dodefinestreamlayer} - -\def\dodefinestreamlayer[#1][#2]% - {\defineoutputstream[#1]% - \defineoutputstream[main]% - \definelayer[#1][\c!method=\v!fit,\c!width=\textwidth,#2]} - -\def\dostreamsetups#1% - {\doifsetupselse{streamlayer:\currentstreamlayer:#1} - {\directsetup{streamlayer:\currentstreamlayer:#1}} - {\directsetup{streamlayer:\s!default:#1}}} - -\def\startstreamlayer[#1]% - {\bgroup -% \def\startstreamlayer[##1]{\bgroup\let\stopstreamlayer\egroup}% - \edef\currentstreamlayer{#1}% - \enableoutputstream[main]% - \synchronizeoutput - \enableoutputstream[\currentstreamlayer]% - \bgroup - \dostreamsetups{settings}} - -\def\stopstreamlayer - {\endgraf - \egroup - \disableoutputstream % \enableoutputstream[\s!default]% - \outputstreambox[main]% -% \dostreamsetups{place}% -% \dostreamsetups{extras}% -% \dostreamsetups{flush}% - \egroup} - -\def\preparestreamlayer{\dosingleempty\dopreparestreamlayer} -\def\flushstreamlayer {\dosingleempty\doflushstreamlayer } -\def\placestreamlayer {\dosingleempty\doplacestreamlayer } - -\def\dopreparestreamlayer[#1]% - {\bgroup - \edef\currentstreamlayer{\iffirstargument#1\else\currentstreamlayer\fi}% - \dostreamsetups{place}% - \dostreamsetups{extras}% -% \dostreamsetups{flush}% - \egroup} - -\def\doflushstreamlayer[#1]% - {\bgroup - \edef\currentstreamlayer{\iffirstargument#1\else\currentstreamlayer\fi}% - \dostreamsetups{flush}% - \egroup} - -\def\doplacestreamlayer[#1]% - {\preparestreamlayer[#1]% - \flushstreamlayer[#1]} - -\protect - -%D Usage: - -%D \starttyping -%D \setupinterlinespace[top=height] -%D -%D \setupcolors[state=start] -%D -%D \definestreamlayer[block] -%D -%D \definemeasure[localtextwidth] [\dimexpr.7\textwidth\relax] -%D \definemeasure[localfloatwidth][\dimexpr.3\textwidth-2\bodyfontsize\relax] -%D -%D \startsetups streamlayer:block:settings -%D \hsize=\measure{localtextwidth} -%D \setupfloat[figure][maxwidth=\measure{localfloatwidth}] -%D \stopsetups -%D -%D \startsetups streamlayer:block:extras -%D \setuplocalfloats -%D [before=\blank, -%D after=\blank, -%D inbetween=\blank] -%D \setbox\scratchbox\vbox{\hsize\measure{localfloatwidth}\getlocalfloats} -%D \ifdim\ht\scratchbox>\thelayerheight\currentstreamlayer\relax -%D % more float than text -%D \setlayerframed -%D [\currentstreamlayer] -%D [preset=righttop] -%D [frame=off, -%D offset=overlay] -%D {\box\scratchbox} -%D \else -%D % more text than float -%D \setuplocalfloats -%D [before=\vfill, -%D after=\removedepth\vfill, -%D inbetween=\removedepth\vfill] -%D \setlayerframed -%D [\currentstreamlayer] -%D [preset=righttop] -%D [frame=off, -%D offset=overlay] -%D {\vbox to \thelayerheight\currentstreamlayer {\hsize\measure{localfloatwidth}\getlocalfloats}} -%D \fi -%D \resetlocalfloats -%D \stopsetups -%D -%D \startsetups streamlayer:block:place -%D \setlayerframed -%D [\currentstreamlayer] -%D [preset=lefttop] -%D [frame=off, -%D offset=overlay] -%D {\outputstreambox[\currentstreamlayer]}% -%D \stopsetups -%D -%D \startsetups streamlayer:block:flush -%D \framed -%D [offset=overlay, -%D frame=off, -%D background=color, -%D backgroundcolor=red] -%D {\tightlayer[\currentstreamlayer]} -%D \stopsetups -%D -%D \setupbodyfont[small] -%D -%D \starttext -%D -%D \dorecurse {10} { -%D \startstreamlayer[block] -%D \title{Sample \recurselevel} -%D \input tufte \endgraf -%D \placefigure[local]{}{} -%D \placefigure[local]{}{} -%D \ifodd\recurselevel\relax \placefigure[local]{}{} \fi -%D \startitemize[columns] -%D \item xxx -%D \item xxx -%D \item xxx -%D \item xxx -%D \item xxx -%D \stopitemize -%D \stopstreamlayer -%D \placestreamlayer[block] -%D } -%D -%D \dorecurse {10} { -%D \startstreamlayer[block] -%D \title{Sample \recurselevel} -%D \startcolumns -%D \input tufte -%D \stopcolumns -%D \stopstreamlayer -%D \placestreamlayer[block] -%D } -%D -%D \stoptext -%D \stoptyping - -\def\starttextstreamlayer - {\startstreamlayer} - -\def\stoptextstreamlayer - {\endgraf - % maybe depth if no proper depth and no skip - \removelastskip - \stopstreamlayer} - -\def\placetextstreamlayer{\placestreamlayer} - -%D \starttyping -%D \definestreamlayer[whatever][width=12cm] -%D -%D \startstreamlayer[whatever] -%D \startitemize[columns,two][after=] -%D \item one -%D \item two -%D \item three -%D \item four -%D \stopitemize -%D \stopstreamlayer -%D -%D \framed[strut=no,align=normal]{\placestreamlayer[whatever]\obeydepth} -%D -%D \starttextstreamlayer[whatever] -%D \startitemize[columns,two] -%D \item one -%D \item two -%D \item three -%D \item four -%D \stopitemize -%D \stoptextstreamlayer -%D -%D \framed[strut=no]{\placetextstreamlayer[whatever]} -%D \stoptyping - -\endinput - -\setupinterlinespace[top=height] - -\setupcolors[state=start] - -\definestreamlayer[block] - -\definemeasure[localtextwidth] [\dimexpr.7\textwidth\relax] -\definemeasure[localfloatwidth][\dimexpr.3\textwidth-2\bodyfontsize\relax] - -\startsetups streamlayer:block:settings - \hsize=\measure{localtextwidth} - \setupfloat[figure][maxwidth=\measure{localfloatwidth}] -\stopsetups - -\startsetups streamlayer:block:extras - \setuplocalfloats - [before=\whitespace\blank, - after=\whitespace\blank, - inbetween=\whitespace\blank] - \setbox\scratchbox\vbox{\hsize\measure{localfloatwidth}\getlocalfloats} - \ifdim\ht\scratchbox>\thelayerheight\currentstreamlayer\relax - % more float than text - \setlayerframed - [\currentstreamlayer] - [preset=righttop] - [frame=off, - offset=overlay] - {\box\scratchbox} - \else - % more text than float - \setuplocalfloats - [before=\vfill, - after=\removedepth\vfill, - inbetween=\removedepth\vfill] - \setlayerframed - [\currentstreamlayer] - [preset=righttop] - [frame=off, - offset=overlay] - {\vbox to \thelayerheight\currentstreamlayer {\hsize\measure{localfloatwidth}\getlocalfloats}} - \fi - \resetlocalfloats -\stopsetups - -\startsetups streamlayer:block:place - \setlayerframed - [\currentstreamlayer] - [preset=lefttop] - [frame=off, - offset=overlay] - {\outputstreambox[\currentstreamlayer]}% -\stopsetups - -\startsetups streamlayer:block:flush - \framed - [offset=overlay, - frame=off, - background=color, - backgroundcolor=red] - {\tightlayer[\currentstreamlayer]} -\stopsetups - -\setupbodyfont[small] - -\starttext - -% \definestreamlayer[block] -% -% \startstreamlayer[block] -% \title{Sample \recurselevel} -% \startcolumns -% \dorecurse{4}{\input tufte \par} -% \stopcolumns -% \stopstreamlayer -% \placestreamlayer[block] - -\dorecurse {10} { - \startstreamlayer[block] - \title{Sample \recurselevel} - \input tufte \endgraf - \placefigure[local]{}{} - \placefigure[local]{}{} - \ifodd\recurselevel\relax \placefigure[local]{}{} \fi - \startitemize[columns] - \item xxx - \item xxx - \item xxx - \item xxx - \item xxx - \stopitemize - \stopstreamlayer - \placestreamlayer[block] -} - -\dorecurse {10} { - \startstreamlayer[block] - \title{Sample \recurselevel} - \startcolumns - \input tufte - \stopcolumns - \stopstreamlayer - \placestreamlayer[block] -} - -\stoptext |