diff options
| author | Hans Hagen <pragma@wxs.nl> | 1997-10-28 00:00:00 +0100 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 1997-10-28 00:00:00 +0100 |
| commit | 4da38599c2b3c2397582838a9ac715897af7b1a8 (patch) | |
| tree | 143f0325bc01f46719da582c7ee7cfd95aba8de1 /tex/context/base/supp-fun.tex | |
| download | context-4da38599c2b3c2397582838a9ac715897af7b1a8.tar.gz | |
stable 1997.10.28
Diffstat (limited to 'tex/context/base/supp-fun.tex')
| -rw-r--r-- | tex/context/base/supp-fun.tex | 171 |
1 files changed, 171 insertions, 0 deletions
diff --git a/tex/context/base/supp-fun.tex b/tex/context/base/supp-fun.tex new file mode 100644 index 000000000..f747bed2c --- /dev/null +++ b/tex/context/base/supp-fun.tex @@ -0,0 +1,171 @@ +%D \module
+%D [ file=supp-fun,
+%D version=1995.10.10,
+%D title=\CONTEXT\ Support Macros,
+%D subtitle=Fun Stuff,
+%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. Non||commercial use is
+%C granted.
+
+\unprotect
+
+%\dorecurse{10}
+% {\horizontalpositionbar\pos\recurselevel\min1\max10\token\blokje\\}
+%
+%\hbox to 15em
+% {\hss
+% \dorecurse{10}
+% {\verticalpositionbar\pos\recurselevel\min1\max10\token\blokje\\
+% \hss}}
+
+\def\horizontalpositionbar\pos#1\min#2\max#3\token#4\\%
+ {\hbox to \hsize
+ {\hskip\!!zeropoint\!!plus #1\!!fill
+ \hskip\!!zeropoint\!!plus-#2\!!fill
+ #4\relax
+ \hskip\!!zeropoint\!!plus #3\!!fill
+ \hskip\!!zeropoint\!!plus-#1\!!fill}}
+
+\def\verticalpositionbar\pos#1\min#2\max#3\token#4\\%
+ {\vbox to \vsize
+ {\vskip\!!zeropoint\!!plus #1\!!fill
+ \vskip\!!zeropoint\!!plus-#2\!!fill
+ \hbox{#4}\relax
+ \vskip\!!zeropoint\!!plus #3\!!fill
+ \vskip\!!zeropoint\!!plus-#1\!!fill}}
+
+\def\horizontalgrowingbar\pos#1\min#2\max#3\height#4\depth#5\\%
+ {\hbox to \hsize
+ {\scratchcounter=#1\relax
+ \advance\scratchcounter by -#2\relax
+ \advance\scratchcounter by 1\relax
+ \leaders\vrule\hskip\!!zeropoint\!!plus \scratchcounter\!!fill
+ \vrule\!!width\!!zeropoint\!!height#4\!!depth#5\relax
+ \hskip\!!zeropoint\!!plus #3\!!fill
+ \hskip\!!zeropoint\!!plus-#1\!!fill}}
+
+\def\verticalgrowingbar\pos#1\min#2\max#3\width#4\\%
+ {\vbox to \vsize
+ {\scratchcounter=#1\relax
+ \advance\scratchcounter by -#2\relax
+ \advance\scratchcounter by 1\relax
+ \leaders\hrule\vskip\!!zeropoint\!!plus\scratchcounter\!!fill
+ \hrule\!!width#4\!!height\!!zeropoint\!!depth\!!zeropoint
+ \vskip\!!zeropoint\!!plus #3\!!fill
+ \vskip\!!zeropoint\!!plus-#1\!!fill}}
+
+% \font\GROOT=cminch \GROOT
+%
+% \showmakeup
+%
+% \def\dodoprocesstokens%
+% {\ifx\next\lastcharacter
+% \after
+% \let\next=\relax
+% \else
+% \expandafter\if\normalspace\next
+% \before{\white}%
+% \else
+% \before{\next}%
+% \fi
+% \let\before=\between
+% \let\next=\doprocesstokens
+% \fi
+% \next}
+%
+% \def\stapel#1%
+% {\setbox0=\vbox
+% {\processtokens
+% {\leavevmode\hbox}
+% {\endgraf\leavevmode\hbox}
+% {\endgraf}
+% {\relax}
+% {#1}}%
+% \vbox
+% {\raggedcenter
+% \hsize\wd0
+% \lineskip=5pt
+% \processtokens
+% {\leavevmode\hbox}
+% {\endgraf\leavevmode\hbox}
+% {\endgraf}
+% {\relax}
+% {#1}}}
+%
+% \stapel{NEWMAN 1}
+%
+% \stelkleurenin[status=start]
+%
+% \def\TreatFirstLine#1#2#3#4% before, after, first, next
+% {\bgroup
+% #1%
+% \setbox0=\box\voidb@x
+% \setbox2=\box\voidb@x
+% \def\grabfirstline##1 %
+% {\setbox2=\hbox{\ifvoid0 #3{##1}\else\unhcopy0\ #4{##1}\fi}%
+% \ifdim\wd2>\hsize
+% \hbox to \hsize{\unhbox0}#2##1\
+% \egroup
+% \else
+% \setbox0=\box2
+% \expandafter\grabfirstline
+% \fi}%
+% \grabfirstline}
+%
+% \TreatFirstLine {\bgroup\startkleur[rood]\sc}
+% {\stopkleur\egroup} {} {}Hello there are we once more hello
+% there are we once more hello there are we once more hello
+% there are we once more hello there are we once more hello
+% there are we once more hello there are we once more hello
+% there are we once more
+%
+% \def\DroppedCaps#1#2#3#4#5#6#7% command font height hoffset voffset lines
+% {\setbox0=\hbox
+% {\font\temp=#2 at #3%
+% \temp#1{#7}\hskip#4}%
+% \setbox0=\hbox
+% {\lower#5\box0}%
+% \ht0=\ht\strutbox
+% \dp0=\dp\strutbox
+% \hangindent\wd0
+% \hangafter-#6\noindent\hskip-\wd0\vbox{\box0\nobreak}}
+%
+% \DroppedCaps {\kleur[groen]} {cmbx12} {2.2\baselineskip}
+% {2pt} {\baselineskip} {2} Hello there are we once more hello
+% there are we once more hello there are we once more hello
+% there are we once more hello there are we once more hello
+% there are we once more hello there are we once more hello
+% there are we once more
+%
+% \def\MyDroppedCaps%
+% {\DroppedCaps
+% {\kleur[groen]}
+% {cmbx12}
+% {2.2\baselineskip}
+% {2pt}
+% {\baselineskip}
+% {2}}
+%
+% \MyDroppedCaps Hello there etc etc etc etc etc etc etc etc
+% etc etc etc etc etc etc etc etc etc etc etc etc
+% etc etc etc etc etc etc etc etc etc etc etc etc
+% etc etc etc etc etc etc etc etc etc etc etc etc
+%
+%
+% \def\TreatFirstCharacter#1#2% command, char
+% {#1{#2}}
+%
+% \TreatFirstCharacter {\kleur[groen]} Hello there are we once
+% more hello there are we once more hello there are we once
+% more hello there are we once more hello there are we once
+% more hello there are we once more hello there are we once
+% more hello there are we once more
+
+\protect
+
+\endinput
+
\ No newline at end of file |