diff options
author | Hans Hagen <pragma@wxs.nl> | 2004-06-10 00:00:00 +0200 |
---|---|---|
committer | Hans Hagen <pragma@wxs.nl> | 2004-06-10 00:00:00 +0200 |
commit | 51d573f4c0e8d3b8499bff7a3c6fba3dcd71d725 (patch) | |
tree | a902c3c67fe2272ee9e2325d6a6f28f0fd15d9d8 /tex/context/base/page-one.tex | |
parent | ab3f887feadf929129087cd2cbc3783064507565 (diff) | |
download | context-51d573f4c0e8d3b8499bff7a3c6fba3dcd71d725.tar.gz |
stable 2004.06.10
Diffstat (limited to 'tex/context/base/page-one.tex')
-rw-r--r-- | tex/context/base/page-one.tex | 131 |
1 files changed, 86 insertions, 45 deletions
diff --git a/tex/context/base/page-one.tex b/tex/context/base/page-one.tex index c5707a0e7..bdae19104 100644 --- a/tex/context/base/page-one.tex +++ b/tex/context/base/page-one.tex @@ -31,7 +31,7 @@ {\superejectpage} \def\OTRONEsethsize - {\global\hsize\tekstbreedte} + {\global\hsize\textwidth} % keep (original one) % @@ -93,13 +93,13 @@ \def\OTRONEsetvsize {\ifgridsnapping \ifcase\layoutlines - \getrawnoflines\teksthoogte + \getrawnoflines\textheight \else \noflines\layoutlines \fi \global\vsize\noflines\openlineheight \else - \global\vsize\teksthoogte + \global\vsize\textheight \fi \ifdim\pagegoal<\maxdimen \ifdim\oldvsize=\vsize @@ -120,7 +120,7 @@ % {\edef\currentpagedepth{\the\dp#2}% still to be derived from #1 % \dotopinsertions % #1#2% -% \pushcolor +% \everypushproperties % \ifgridsnapping % \vskip-\currentpagedepth % \vskip\openstrutdepth % \strutdp @@ -173,12 +173,12 @@ % #1#2#3% % \fi} -\chardef\kindofpagetextareas=2 % whole page +\chardef\kindofpagetextareas=2 % whole page (public variable! never change) \def\OTRONEregisteredtextarea#1% {\ifregistertextareas \setbox0\vbox{#1}% - \wd0\zetbreedte % somehow a space creeps in + \wd0\makeupwidth % somehow a space creeps in \vbox{\registeredtextarea000}% \else #1% @@ -195,37 +195,37 @@ \or % whole page \let\OTRONEregisteredtextareaB\OTRONEregisteredtextarea \fi - \setbox0\vbox \ifbottomnotes to \teksthoogte \fi + \setbox0\vbox \ifbottomnotes to \textheight \fi {\edef\currentpagedepth{\the\dp#2}% still to be derived from #1 \dotopinsertions \ifgridsnapping \OTRONEregisteredtextareaA{#1#2}% \vskip-\currentpagedepth\vskip\openstrutdepth - \pushcolor % moved from just after #1#2 + \pushproperties % moved from just after #1#2 \prevdepth\openstrutdepth \dobotinsertions \vfil \else\ifr@ggedbottom \OTRONEregisteredtextareaA{#1#2}% \vskip-\currentpagedepth\vskip\openstrutdepth - \pushcolor % moved from just after #1#2 + \pushproperties % moved from just after #1#2 \prevdepth\openstrutdepth \dobotinsertions \vfil \else\ifb@selinebottom \OTRONEregisteredtextareaA{#1#2}% \kern-\currentpagedepth\kern\maxdepth - \pushcolor % moved from just after #1#2 + \pushproperties % moved from just after #1#2 \dobotinsertions \else \OTRONEregisteredtextareaA{#1#2}% - \pushcolor % moved from just after #1#2 + \pushproperties % moved from just after #1#2 \dobotinsertions % added \fi\fi\fi - \fakenotes}% + \fakepagenotes}% was \fakenotes, but wrong! (check with \setupalign[height]) \ifbottomnotes \ifgridsnapping - \getnoflines\teksthoogte + \getnoflines\textheight \advance\noflines \minusone \scratchdimen\noflines\lineheight \advance\scratchdimen \topskip @@ -243,7 +243,7 @@ \ht0\zeropoint \fi \OTRONEregisteredtextareaB - {\vbox to \teksthoogte + {\vbox to \textheight {\box0\box2\ifbottomnotes\else\vfill\fi}}% \egroup} @@ -263,14 +263,14 @@ \noffloatinserts\zerocount \let\totaltopinserted\!!zeropoint \OTRONEdodosettopinserts - \ifnum\@@bknonder=\zerocount - \ifnum\@@bknregels>\zerocount + \ifnum\@@bknbottom=\zerocount + \ifnum\@@bknlines>\zerocount \ifdim\totaltopinserted>\zeropoint\relax \dimen0=\lineheight - \dimen0=\@@bknregels\dimen0 + \dimen0=\@@bknlines\dimen0 \advance\dimen0 \totaltopinserted\relax - \ifdim\dimen0>\teksthoogte - \showmessage\m!floatblocks8\@@bknregels + \ifdim\dimen0>\textheight + \showmessage\m!floatblocks8\@@bknlines \vfilll\eject \fi \fi @@ -332,7 +332,7 @@ \global\advance\topinserted \ht\floatbox \global\advance\topinserted \dp\floatbox \global\advance\topinserted \floatbottomskip\relax - \ifdim\topinserted<\teksthoogte\relax + \ifdim\topinserted<\textheight\relax \xdef\totaltopinserted{\the\topinserted}% \insert\topins {\forgetall @@ -341,11 +341,11 @@ \kern-\lineskip\par \prevdepth\maxdimen \else - %\blanko[-\@@bknawit,\@@bkvoorwit]% inserts can't look back + %\blank[-\@@bkspaceafter,\@@bkspacebefore]% inserts can't look back \betweenfloatblanko \fi \flushfloatbox - \blanko[\@@bknawit]}% + \blank[\@@bkspaceafter]}% \ifsomefloatwaiting \advance\noffloatinserts \plusone \else @@ -381,7 +381,7 @@ \ifdim\botinserted<\pagegoal\relax \insert\botins {\forgetall - \blanko[\@@bkvoorwit]% + \blank[\@@bkspacebefore]% \flushfloatbox}% \ifsomefloatwaiting \advance\noffloatinserts \plusone @@ -486,8 +486,8 @@ \ifpackflushedfloats \centerfloatboxfalse \dogetfloat - \ifdim\wd\floatbox>\zetbreedte - \global\setbox\floatbox\hbox to \zetbreedte{\hss\box\floatbox\hss}% + \ifdim\wd\floatbox>\makeupwidth + \global\setbox\floatbox\hbox to \makeupwidth{\hss\box\floatbox\hss}% \fi \OTRONEsetvsize \!!widtha\wd\floatbox @@ -553,10 +553,48 @@ % \fi % \fi} +% \def\OTRONEdocheckiffloatfits % vervangen ivm downward comp +% {\ifnofloatpermitted +% \global\roomforfloatfalse +% \else +% \dimen0 \pagetotal +% \advance\dimen0 \ht\floatbox +% \advance\dimen0 \dp\floatbox +% \advance\dimen0 \floattopskip +% \advance\dimen0 -\pageshrink % toegevoegd +% %\message{c:\the\mofcolumns,t:\the\pagetotal,g:\the\pagegoal}%\wait +% \dimen2\pagegoal +% \relax % needed +% \ifcase\textfloatmethod +% % method 0 : raw +% \or +% % method 1 : safe +% \dimen2 .99\pagegoal +% \or +% % method 2 : tight +% \advance\dimen0 -\onepoint +% \fi +% \relax % really needed ! ! ! ! +% \ifdim\dimen0>\dimen2 +% \global\roomforfloatfalse +% \else +% \global\roomforfloattrue +% \fi +% \fi} + \def\OTRONEdocheckiffloatfits % vervangen ivm downward comp {\ifnofloatpermitted \global\roomforfloatfalse \else + % new per 31/5/2004, should be an option, only one column mode + \begingroup + \scratchdimen\pagetotal + \advance\scratchdimen\lineheight % maybe strutheight + \ifdim\scratchdimen>\pagegoal + \goodbreak % hack ? needed in icare-az + \fi + % should be an option + \endgroup \dimen0 \pagetotal \advance\dimen0 \ht\floatbox \advance\dimen0 \dp\floatbox @@ -603,8 +641,8 @@ \someherefloat} % [#1] \def\OTRONEsomesidefloat[#1]% links, rechts NOG TESTEN EN AANPASSEN - {\ifbinnenkolommen - \someelsefloat[\v!hier]% + {\ifinsidecolumns + \someelsefloat[\v!here]% \else %\checkwaitingfloats{#1}% \def\logsidefloat @@ -613,29 +651,29 @@ \wd\floatbox\floatwidth \processfirstactioninset [#1] - [ \v!links=>\leftfloat {\box\floatbox}, - \v!rechts=>\rightfloat {\box\floatbox}, - \v!inlinker=>\leftmarginfloat {\box\floatbox}, - \v!inrechter=>\rightmarginfloat{\box\floatbox}, - \v!linkermarge=>\leftmarginfloat {\box\floatbox}, - \v!rechtermarge=>\rightmarginfloat{\box\floatbox}, - \v!linkerrand=>\leftedgefloat {\box\floatbox}, - \v!rechterrand=>\rightedgefloat {\box\floatbox}, - \v!rugwit=>\backspacefloat {\box\floatbox}, - \v!snijwit=>\cutspacefloat {\box\floatbox}, - \v!inmarge=>{\doinmargenormal\leftmarginfloat + [ \v!left=>\leftfloat {\box\floatbox}, + \v!right=>\rightfloat {\box\floatbox}, + \v!inleft=>\leftmarginfloat {\box\floatbox}, + \v!inright=>\rightmarginfloat{\box\floatbox}, + \v!leftmargin=>\leftmarginfloat {\box\floatbox}, + \v!rightmargin=>\rightmarginfloat{\box\floatbox}, + \v!leftedge=>\leftedgefloat {\box\floatbox}, + \v!rightedge=>\rightedgefloat {\box\floatbox}, + \v!backspace=>\backspacefloat {\box\floatbox}, + \v!cutspace=>\cutspacefloat {\box\floatbox}, + \v!inmargin=>{\doinmargenormal\leftmarginfloat \rightmarginfloat{\box\floatbox}}]% - \doifinset\v!lang{#1}\flushsidefloatsafterpar + \doifinset\v!tall{#1}\flushsidefloatsafterpar \fi} \def\OTRONEsomepagefloat[#1]% {%\checkwaitingfloats{#1}% \global\setbox\collectedpagefloats\vbox {\unvbox\collectedpagefloats - \vbox to \teksthoogte - {\doifnotinset\v!hoog{#1}\vfill + \vbox to \textheight + {\doifnotinset\v!high{#1}\vfill \box\floatbox - \doifnotinset\v!laag{#1}\vfill}% + \doifnotinset\v!low{#1}\vfill}% \goodbreak}% \doinsertfloatinfo} @@ -675,11 +713,11 @@ \topskipcorrection % [xx] new: see icare topbleed \kern-\lineskip\par\prevdepth\maxdimen \else - %\blanko[-\@@bknawit,\@@bkvoorwit]% inserts can't look back + %\blank[-\@@bkspaceafter,\@@bkspacebefore]% inserts can't look back \betweenfloatblanko \fi \flushfloatbox - \blanko[\@@bknawit]}% + \blank[\@@bkspaceafter]}% \doinsertfloatinfo} \def\OTRONEsomebotsfloat[#1]% @@ -688,11 +726,14 @@ \global\advance\botinserted \floattopskip \insert\botins {\forgetall - \blanko[\@@bkvoorwit]% + \blank[\@@bkspacebefore]% \flushfloatbox}% %\global\nofloatpermittedtrue \doinsertfloatinfo} +\def\OTRONEsomefacefloat[#1]% untested + {\startopposite\flushfloatbox\stopopposite} + \def\OTRONEnextcolumn[#1]% {} |