stable 2004.01.02

1 files changed, 147 insertions, 147 deletions

diff --git a/tex/context/base/supp-fun.tex b/tex/context/base/supp-fun.tex
index 4cbdf359f..2da73e625 100644
--- a/tex/context/base/supp-fun.tex
+++ b/tex/context/base/supp-fun.tex
@@ -8,15 +8,15 @@
 %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. 
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
 
 \unprotect
 
-%D This module implements some typographics tricks that can 
+%D This module implements some typographics tricks that can
 %D be fun when designing document layouts. The examples use
 %D macros that are typical to \CONTEXT, but non \CONTEXT\
-%D users can use the drop caps and first line treatment 
+%D users can use the drop caps and first line treatment
 %D macros without problems. This module will be extended
 %D when the need for more of such tricks arises.
 
@@ -30,17 +30,17 @@
 
 %D \macros
 %D   {DroppedCaps, DroppedString, DroppedIndent, DroppedLines}
-%D     
+%D
 %D \startbuffer
-%D \DroppedCaps 
-%D   {\color[green]} {cmbx12} 
-%D   {2.2\baselineskip} {2pt} {\baselineskip} {2} 
+%D \DroppedCaps
+%D   {\color[green]} {cmbx12}
+%D   {2.2\baselineskip} {2pt} {\baselineskip} {2}
 %D   Let's start
 %D \stopbuffer
 %D
 %D \haalbuffer with dropped caps, those blown up first
 %D characters of a paragraph. It's hard to implement a general
-%D mechanism that suits all situations, but dropped caps are so 
+%D mechanism that suits all situations, but dropped caps are so
 %D seldomly used that we can permit ourselves a rather user
 %D unfriendly implementation.
 %D
@@ -57,9 +57,9 @@
 %D natural position in the encoding vector.
 %D
 %D \startbuffer
-%D \DroppedCaps 
-%D   {\color[red]} {cmbx12} 
-%D   {\baselineskip} {0pt} {0pt} {1} 
+%D \DroppedCaps
+%D   {\color[red]} {cmbx12}
+%D   {\baselineskip} {0pt} {0pt} {1}
 %D   This simple
 %D \stopbuffer
 %D
@@ -69,26 +69,26 @@
 %D \typebuffer
 %D
 %D \startbuffer
-%D \DroppedCaps 
-%D   {\color[red]} {cmbx12} 
-%D   {2\baselineskip} {0pt} {\baselineskip} {2} 
-%D   Is this ugly 
+%D \DroppedCaps
+%D   {\color[red]} {cmbx12}
+%D   {2\baselineskip} {0pt} {\baselineskip} {2}
+%D   Is this ugly
 %D \stopbuffer
-%D 
-%D \haalbuffer example the third argument tells 
-%D this macro that we want a dropped capital scaled to the 
-%D baseline distance. The two zero point arguments are the 
+%D
+%D \haalbuffer example the third argument tells
+%D this macro that we want a dropped capital scaled to the
+%D baseline distance. The two zero point arguments are the
 %D horizontal and vertical offsets and the last arguments
-%D determines the hanging indentation. In this paragraph we 
-%D set the height to two times the baselinedistance and use 
-%D two hanging lines: 
-%D 
+%D determines the hanging indentation. In this paragraph we
+%D set the height to two times the baselinedistance and use
+%D two hanging lines:
+%D
 %D \typebuffer
-%D 
+%D
 %D Here, the first character is moved down one baseline. Here
 %D we also see why the horizontal offset is important. The
 %D first example (showing the~L) sets this to a few points and
-%D also used a slightly larger height. 
+%D also used a slightly larger height.
 %D
 %D Of course common users (typist) are not supposed to see this
 %D kind of fuzzy definitions, but fortunately \TEX\ permits us
@@ -97,15 +97,15 @@
 %D
 %D \startbuffer
 %D \def\MyDroppedCaps%
-%D   {\DroppedCaps 
-%D      {\color[green]} {cmbx12} 
+%D   {\DroppedCaps
+%D      {\color[green]} {cmbx12}
 %D      {5\baselineskip} {3pt} {3\baselineskip} {4}}
 %D
 %D \MyDroppedCaps The implementation
 %D \stopbuffer
-%D 
+%D
 %D \typebuffer
-%D 
+%D
 %D \haalbuffer of the general macro is rather simple and only
 %D depends on the arguments given and the dimensions of the
 %D strut box. We explicitly load the font, which is no problem
@@ -113,16 +113,16 @@
 %D combined some arguments, like the height, vertical offset
 %D and the number of lines, but the current implementation
 %D proved to be the most flexible. One should be aware of the
-%D fact that the offsets depend on the design of the glyphs 
-%D used. 
+%D fact that the offsets depend on the design of the glyphs
+%D used.
 
 \let\DroppedIndent\!!zeropoint \def\DroppedLines{0}
 
 \def\DroppedString%
   {ABCDEFGHIJKLMNOPQRSTUVWXYZ}
 
-% \def\DroppedCaps#1#2#3#4#5#6#7% 
-%   {\ExpandBothAfter\doifinstringelse{#7}{\DroppedString} % 
+% \def\DroppedCaps#1#2#3#4#5#6#7%
+%   {\ExpandBothAfter\doifinstringelse{#7}{\DroppedString} %
 %      {\ifvmode % this one is \EveryPar save, precede by \par if needed
 %         \vskip#6\baselineskip
 %         \penalty-200
@@ -149,7 +149,7 @@
 %       \hskip-\DroppedIndent
 %       \vbox{\forgetall\box0}%
 %       \nobreak
-%       \ignorespaces} % Could be a one character word ! 
+%       \ignorespaces} % Could be a one character word !
 %      {\edef\DroppedIndent{0pt}%
 %       \edef\DroppedLines {\number\maxdimen}%
 %       #7}}
@@ -196,10 +196,10 @@
 %       \globaldropcaps\edef\DroppedLines{\number\maxdimen}%
 %       \globaldropcaps\chardef\DroppedStatus3
 %       \def\next{#7}}%
-%    \let\globaldropcaps\global 
+%    \let\globaldropcaps\global
 %    \next}
 
-\chardef\DropMode=0 % 1 == marginhang 
+\chardef\DropMode=0 % 1 == marginhang
 
 \def\DroppedCaps#1#2#3#4#5#6#7% does not yet handle accented chars
   {\convertargument            #7\to\asciia
@@ -248,20 +248,20 @@
       \globaldropcaps\edef\DroppedLines{\number\maxdimen}%
       \globaldropcaps\chardef\DroppedStatus3
       \def\next{#7}}%
-   \let\globaldropcaps\global 
+   \let\globaldropcaps\global
    \next}
 
 %D Before we go to the next topic, we summarize this command:
 %D
 %D \starttypen
-%D \DroppedCaps 
-%D   {command} {font} 
+%D \DroppedCaps
+%D   {command} {font}
 %D   {height} {hoffset} {voffset} {lines}
 %D \stoptypen
-%D 
+%D
 %D Sometimes you need to make sure that the global settings are
-%D kept local, as in:  
-%D 
+%D kept local, as in:
+%D
 % %D \startbuffer
 % %D \defineparagraphs[SomePar][n=2,rule=on]
 % %D \setupparagraphs [SomePar][1][width=.5\textwidth]
@@ -270,26 +270,26 @@
 %D \definieeralineas[SomePar][n=2,rule=on]
 %D \stelalineasin [SomePar][1][width=.5\textwidth]
 %D \stelalineasin [SomePar][2][width=.5\textwidth]
-%D 
+%D
 %D \startSomePar
 %D   \localdropcaps\NiceDroppedCaps{}{cmr12}{0pt}{2}Here we need
 %D   to explicitly keep the hanging indentation local, like it or
-%D   not. 
+%D   not.
 %D \SomePar
 %D   \localdropcaps\NiceDroppedCaps{}{cmr12}{0pt}{2}Here we need
 %D   to explicitly keep the hanging indentation local, like it or
-%D   not. 
+%D   not.
 %D \stopSomePar
 %D \stopbuffer
-%D 
+%D
 %D \typebuffer \getbuffer
 
-%D \macros 
+%D \macros
 %D   {AutoDroppedCaps, CheckDroppedCaps}
 %D
 %D {\em To be documented.}
 
-% example usage 
+% example usage
 %
 % \def\bpar{\ifvmode\CheckDroppedCaps\fi}
 % \def\epar{\ifhmode\par\fi\CheckDroppedCaps}
@@ -307,17 +307,17 @@
    \EveryPar{\doAutoDroppedCaps}}
 
 \let\AutoDroppedNext\relax
-  
+
 \def\doAutoDroppedCaps
   {\ifcase\DroppedStatus % done
-     \let\next\relax  
+     \let\next\relax
    \or % starting
-   % \ifnum\lastprevgraf>0 % tricky, probably a wrong par 
+   % \ifnum\lastprevgraf>0 % tricky, probably a wrong par
    %   \globaldropcaps\chardef\DroppedStatus=3 % and inhibits dropped
    %   \let\next\relax % caps after titles and more than once
-   % \else % so let's nill this rubishly code fragment 
+   % \else % so let's nill this rubishly code fragment
        \def\next{\NiceDroppedCaps{}{\@@dcfont}{.125em}{\@@dcn}}%
-   % \fi % and hope for the best 
+   % \fi % and hope for the best
    \or % doing
      \global\advance\droppedlines \lastprevgraf
      \ifnum\droppedlines=\zerocount
@@ -344,21 +344,21 @@
    \fi
    \next}
 
-%D \macros 
+%D \macros
 %D   {LineDroppedCaps, NiceDroppedCaps}
 %D
-%D To save definitions, we also provide: 
+%D To save definitions, we also provide:
 %D
 %D \starttypen
 %D \LineDroppedCaps {command} {font} {hoffset} {lines}
 %D \NiceDroppedCaps {command} {font} {hoffset} {lines}
 %D \stoptypen
 %D
-%D The first command scales the font to the exact height, while 
-%D the second command scales the font to a nice 2.5 times the 
-%D line height, a value that gives a pleasant grayness. 
+%D The first command scales the font to the exact height, while
+%D the second command scales the font to a nice 2.5 times the
+%D line height, a value that gives a pleasant grayness.
 
-\def\DoLineDroppedCaps#1#2#3#4#5% compensation command font offset lines 
+\def\DoLineDroppedCaps#1#2#3#4#5% compensation command font offset lines
   {\scratchcounter#5%
    \advance\scratchcounter \minusone
    \scratchdimen\scratchcounter\baselineskip
@@ -398,15 +398,15 @@
 %D \haalbuffer
 %D
 %D \typebuffer
-%D 
+%D
 %D Before we explain the third and fourth argument, we show the
-%D implementation. Those who know a bit about the way \TEX\ 
+%D implementation. Those who know a bit about the way \TEX\
 %D treats tokens, will probably see in one glance that this
 %D alternative works all right for most text||only situations
 %D in which there is enough text available for the first line,
 %D but that more complicated things will blow. One has to live
 %D with that. A workaround is rather trivial but obscures the
-%D principles used. 
+%D principles used.
 
 \def\TreatFirstLine#1#2#3#4% before, after, first, next
   {\leavevmode
@@ -429,7 +429,7 @@
         \@EA\grabfirstline
       \else\ifdim\wd2>\hsize
         \hbox to \hsize{\strut\unhbox0}#2\egroup
-        \break##1\ 
+        \break##1\
         \egroup
       \else
         \setbox0\box2
@@ -444,19 +444,19 @@
 %D    \getrandomfloat\FunnyB{0}{1}%
 %D    \definecolor[FunnyColor][r=\FunnyR,g=\FunnyG,b=\FunnyB]%
 %D    \color[FunnyColor]}
-%D 
+%D
 %D \TreatFirstLine {\bf} {} {\FunnyCommand} {\FunnyCommand}
-%D The third and fourth argument can be used to gain special 
+%D The third and fourth argument can be used to gain special
 %D effects on the individual words. Of course one needs ...
 %D \stopbuffer
-%D 
-%D \haalbuffer 
-%D to know a bit more about the macro package used to get real 
-%D nice effects, but this example probably demonstrates the 
-%D principles well. 
-%D 
+%D
+%D \haalbuffer
+%D to know a bit more about the macro package used to get real
+%D nice effects, but this example probably demonstrates the
+%D principles well.
+%D
 %D \typebuffer
-%D 
+%D
 %D Like in dropped caps case, one can hide such treatments in a
 %D macro, like:
 %D
@@ -465,38 +465,38 @@
 %D   {\TreatFirstLine{\bf}{}{\FunnyCommand}{\FunnyCommand}}
 %D \stoptypen
 
-%D \macros 
+%D \macros
 %D   {reshapebox}
-%D 
-%D \startbuffer 
+%D
+%D \startbuffer
 %D \beginofshapebox
-%D When using \CONTEXT, one can also apply this funny command 
-%D to whole lines by using the reshape mechanism. Describing 
-%D this interesting mechanism falls outside the scope of this 
-%D module, so we only show the trick. This is an example of 
-%D low level \CONTEXT\ functionality: it's all there, and it's 
-%D stable, but not entirely meant for novice users. 
+%D When using \CONTEXT, one can also apply this funny command
+%D to whole lines by using the reshape mechanism. Describing
+%D this interesting mechanism falls outside the scope of this
+%D module, so we only show the trick. This is an example of
+%D low level \CONTEXT\ functionality: it's all there, and it's
+%D stable, but not entirely meant for novice users.
 %D \endofshapebox
-%D 
+%D
 %D \reshapebox{\FunnyCommand{\box\shapebox}} \flushshapebox
 %D \stopbuffer
-%D 
+%D
 %D \haalbuffer
-%D 
+%D
 %D \typebuffer
 %D
-%D This mechanism permits hyphenation and therefore gives 
-%D better results than the previously discussed macro 
-%D \type{\TreatFirstLine}. 
+%D This mechanism permits hyphenation and therefore gives
+%D better results than the previously discussed macro
+%D \type{\TreatFirstLine}.
 
 %D \macros
 %D   {TreatFirstCharacter}
 %D
 %D \startbuffer
-%D \TreatFirstCharacter{\bf\color[green]} Just to be 
+%D \TreatFirstCharacter{\bf\color[green]} Just to be
 %D \stopbuffer
 %D
-%D \haalbuffer complete we also offer a very simple one 
+%D \haalbuffer complete we also offer a very simple one
 %D character alternative, that is not that hard to understand:
 
 \def\TreatFirstCharacter#1#2% command, character
@@ -523,9 +523,9 @@
 %D \startbuffer
 %D \StackCharacters{CONTEXT}{}{\vskip.2ex}{\FunnyCommand}
 %D \stopbuffer
-%D 
+%D
 %D Such a stack looks like:
-%D 
+%D
 %D \startregelcorrectie
 %D \hbox to \hsize
 %D    {$\hss\bfd
@@ -538,7 +538,7 @@
 %D     \vcenter{\StackCharacters{CONTEXT}{}{\vskip.2ex}{\FunnyCommand}}
 %D     \hss$}
 %D \stopregelcorrectie
-%D 
+%D
 %D and is typeset by saying:
 %D
 %D \typebuffer
@@ -560,18 +560,18 @@
 %D \stoptypen
 %D
 %D \startbuffer[a]
-%D \processtokens 
-%D   {\hbox to .5\hsize\bgroup} {\hfill} 
+%D \processtokens
+%D   {\hbox to .5\hsize\bgroup} {\hfill}
 %D   {\egroup} {\space} {LET'S HAVE}
 %D \stopbuffer
-%D  
+%D
 %D \startbuffer[b]
-%D \processtokens 
-%D   {\vbox\bgroup\raggedcenter\hsize1em} 
+%D \processtokens
+%D   {\vbox\bgroup\raggedcenter\hsize1em}
 %D   {\vskip.25ex} {\egroup} {\strut} {FUN}
 %D \stopbuffer
 %D
-%D This macro is able to typeset: 
+%D This macro is able to typeset:
 %D
 %D \leavevmode\hbox to \hsize
 %D   {$\hfil\hfil
@@ -586,24 +586,24 @@
 %D \typebuffer[b]
 
 %D \macros
-%D   {NormalizeFontHeight, NormalizeFontWidth, 
+%D   {NormalizeFontHeight, NormalizeFontWidth,
 %D    TheNormalizedFontSize}
 %D
 %D Next we introduce some font manipulation macros. When we
 %D want to typeset some text spread in a well defined area, it
 %D can be considered bad practice to manipulate character and
 %D word spacing. In such situations the next few macros can be
-%D of help: 
-%D 
+%D of help:
+%D
 %D \starttypen
 %D \NormalizeFontHeight \name {sample text} {height} {font}
 %D \NormalizeFontWidth  \name {sample text} {width}  {font}
 %D \stoptypen
-%D 
+%D
 %D These are implemented using an auxilliary macro:
 
 \def\NormalizeFontHeight{\NormalizeFontSize\ht}
-\def\NormalizeFontWidth {\NormalizeFontSize\wd} 
+\def\NormalizeFontWidth {\NormalizeFontSize\wd}
 
 % \def\NormalizeFontSize#1#2#3#4#5%
 %   {\bgroup
@@ -624,9 +624,9 @@
 %    \egroup
 %    \expandafter\font\expandafter#2\fontname\font\relax}
 %
-% the familiar struggle with accuracy forces us to use: 
+% the familiar struggle with accuracy forces us to use:
 
-\def\NormalizeFontSize#1#2#3#4#5% 
+\def\NormalizeFontSize#1#2#3#4#5%
   {\bgroup
    \dimen0=#4% #4 can be \ht0 or so
    \setbox0\hbox{\definedfont[#5 at 5pt]#3}% 10pt
@@ -646,62 +646,62 @@
    \egroup
    \expandafter\font\expandafter#2\fontname\font\relax}
 
-%D Afterwards, we have access to the calculated size by: 
+%D Afterwards, we have access to the calculated size by:
 
 \let\TheNormalizedFontSize\!!zeropoint
 
-%D Extra: 
+%D Extra:
 
-\def\WidthSpanningText#1#2#3% text width font 
+\def\WidthSpanningText#1#2#3% text width font
   {\hbox{\NormalizeFontWidth\temp{#1}{#2}{#3}\temp\the\everydefinedfont#1}}
 
 %D Consider for instance:
-%D 
+%D
 %D \startbuffer
 %D \NormalizeFontHeight \tmp {X} {2\baselineskip} {cmr10}
-%D 
+%D
 %D {\tmp To Be Or Not To Be}
 %D \stopbuffer
-%D 
+%D
 %D \typebuffer
-%D 
+%D
 %D This shows up as (we also show the baselines):
-%D  
+%D
 %D {\showbaselines\haalbuffer}
-%D 
+%D
 %D The horizontal counterpart is:
-%D 
+%D
 %D \startbuffer
 %D \NormalizeFontWidth \tmp {This Line Fits} {\hsize} {cmr10}
-%D 
+%D
 %D \hbox{\tmp This Line Fits}
 %D \stopbuffer
-%D 
+%D
 %D \typebuffer
-%D 
-%D The calculated font scale is avaliable in the macro 
-%D \type{\NormalizedFontSize}. 
+%D
+%D The calculated font scale is avaliable in the macro
+%D \type{\NormalizedFontSize}.
 %D
 %D \startregelcorrectie
 %D \ruledhbox{\haalbuffer}
 %D \stopregelcorrectie
 %D
-%D One can of course combine these macros with the ones 
+%D One can of course combine these macros with the ones
 %D described earlier, like in:
-%D 
+%D
 %D \starttypen
 %D \NormalizeFontHeight {text} \DroppedFont {2\baselineskip} {cmbx12}
-%D 
+%D
 %D \def\NicelyDroppedCaps
-%D   {\DroppedCaps 
-%D      {\kleur[groen]} 
-%D      {\DroppedFont} 
-%D      {2pt} 
-%D      {\baselineskip} 
+%D   {\DroppedCaps
+%D      {\kleur[groen]}
+%D      {\DroppedFont}
+%D      {2pt}
+%D      {\baselineskip}
 %D      {2}}
 %D \stoptypen
 %D
-%D It's up to the reader to test this one. 
+%D It's up to the reader to test this one.
 
 \unexpanded\def\FirstNCharacters#1#2% \FirstNCharacters{3}{fr{\"o}beln}
   {\bgroup
@@ -714,15 +714,15 @@
    \handletokens#2\with\docommando
    \egroup}
 
-%D \macros 
+%D \macros
 %D   {FittingText}
 %D
-%D First used in Pascal (demo-bbv):  
-%D 
+%D First used in Pascal (demo-bbv):
+%D
 %D \startbuffer
 %D \ruledvbox{\FittingText{3cm}{1cm}{Serif}{24pt}{1pt}{1}
 %D   {\veryraggedright
-%D    \hangindent1em\hangafter1\relax 
+%D    \hangindent1em\hangafter1\relax
 %D    \begstrut \dorecurse{8}{Bram Marta }\unskip \endstrut}}
 %D
 %D \ruledvbox{\FittingText{3cm}{1cm}{Serif}{24pt}{1pt}{1}
@@ -735,19 +735,19 @@
 %D \getbuffer
 %D \stoplinecorrection
 
-% #1 width #2 height #3 font #4 size #5 step #6 interlinie #7 text 
+% #1 width #2 height #3 font #4 size #5 step #6 interlinie #7 text
 
-\long\def\FittingText#1#2#3#4#5#6#7% 
+\long\def\FittingText#1#2#3#4#5#6#7%
   {\bgroup
    \forgetall
    \dontcomplain
    \setuptolerance[\v!zeersoepel]% == \tolerance4500
-   \hsize#1% 
+   \hsize#1%
    \def\\{\softbreak}%
    \!!heighta#4%
    \!!heightb#2%
    \doloop
-     {\ifdim\!!heighta>\!!onepoint
+     {\ifdim\!!heighta>\onepoint
         \expanded{\definefont[\s!dummy][#3 at \the\!!heighta][\c!interlinie=#6]}%
         \getvalue\s!dummy
         \setbox\scratchbox\vbox{#7\endgraf}%
@@ -760,14 +760,14 @@
           \global\dimen1\hsize
           \reshapebox
             {\setbox\shapebox\hbox{\unhbox\shapebox}%
-             \ifdim\wd\shapebox>\dimen1 
+             \ifdim\wd\shapebox>\dimen1
                \global\dimen1\wd\shapebox
              \fi}%
-          \ifdim\dimen1>\hsize 
+          \ifdim\dimen1>\hsize
             \advance\!!heighta-#5%
           \else
             \exitloop
-          \fi 
+          \fi
         \fi
       \else
         \exitloop
@@ -776,25 +776,25 @@
    \unvbox\scratchbox
    \egroup}
 
-%D New: 
+%D New:
 
-% \font width gap font spec text 
+% \font width gap font spec text
 
-\def\NormalizeFontWidthSpread#1#2#3#4#5#6% 
+\def\NormalizeFontWidthSpread#1#2#3#4#5#6%
   {\global\setfalse\NFSpread
    \scratchdimen#3%
    \scratchdimen-.5\scratchdimen
    \advance\scratchdimen#2\relax
-   \NormalizeFontWidth  
+   \NormalizeFontWidth
      #1%
      {\def\+{\global\settrue\NFSpread\gobbleuntil\relax}%
-      \def\\{\gobbleuntil\relax}% newline 
+      \def\\{\gobbleuntil\relax}% newline
       \setupspacing
       #6\relax}%
      {\scratchdimen}%
      {#4}%
    \ifconditional\NFSpread
-     % de gap valt in de binding 
+     % de gap valt in de binding
    \else
      \definefont[\strippedcsname#1][#4 #5]%
    \fi}