Re: Gridsetting

[Hans Hagen <pragma@wxs.nl>]

At 14:55 14/06/2003 +0200, Matthias Vogel wrote:

>normaltext text text text text text text text text texttext text
>text texttext texttext texttext texttext texttext text
>---in 9dd, line: 10dd
>text text text texttext texttext texttext texttext text
>text texttext texttext texttext texttext texttext text
>
>\startcitation
>
>smalltext text text texttext texttext texttext texttext text
>text text text texttext texttext texttext texttext text
>---text in 8dd, line: 9dd
>text texttext texttext texttext texttext texttext text
>
>\stopcitation
>
>normaltext text text texttext texttext texttext texttext text
>text texttext texttext texttext texttext texttext text
>---in 9dd line 10dd
>text texttext texttext texttext texttext texttext text...
>
>we are loosing the grid because of the smaller lineskip
>in citation. I would like to modify the definition of
>citation (and other stuff, that causes deviations from the
>grid (headings)) in a way that the following text will
>adjust to the grit again. Is that possible?  As far
>as I can see "\moveongrid" does not work in cases like
>the given example.

ah ... grid and automated typesetting ... only to be used by those who are 
aware of the problems -)

one wat of dealing with this is:

\snaptogrid\vbox\bgroup

your smaller text

\egroup

but this does not break across pages. One way out is the following (put the 
macro defs in your local cont-new.tex)

\unprotect

\newcounter\currentgridsync

\def\gridsynctag{grs:\currentgridsync}

\def\synchronizegrid
   {\doglobal\increment\currentgridsync
    \par\prevdepth\zeropoint
    \nointerlineskip
    \hpos\gridsynctag{\strut}\par
    \vskip-\lineheight
    \nointerlineskip
    % top of text
    \scratchdimen\MPy{\v!tekst:\MPp\gridsynctag}%
    \advance\scratchdimen\MPh{\v!tekst:\MPp\gridsynctag}%
    % move to first baseline
    \advance\scratchdimen-\topskip
    % subtract wrong baseline
    \advance\scratchdimen-\MPy\gridsynctag
    % get minimal number of lines
    \advance\scratchdimen\lineheight
    \getnoflines\scratchdimen
    % calculate difference
    \advance\scratchdimen-\noflines\lineheight\relax
    \scratchdimen-\scratchdimen
    \ifdim\scratchdimen>\zeropoint
      \nointerlineskip
      \advance\scratchdimen-\lineheight
      \vskip\scratchdimen \strut
      \par
    \fi}

\protect

% test

\setuplayout[grid=yes,lines=42] \showgrid \showstruts

\starttext

\input tufte

\snaptogrid\vbox{\switchtobodyfont[small] \input tufte \par}

\input tufte

{\switchtobodyfont[small] \input tufte \par}

\synchronizegrid \input tufte

\stoptext

beware: this is tricky and if it starts oscillating, try to force page 
breaks here and there

Hans
-------------------------------------------------------------------------
                                   Hans Hagen | PRAGMA ADE | pragma@wxs.nl
                       Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
  tel: +31 (0)38 477 53 69 | fax: +31 (0)38 477 53 74 | www.pragma-ade.com
-------------------------------------------------------------------------
                        information: http://www.pragma-ade.com/roadmap.pdf
                     documentation: http://www.pragma-ade.com/showcase.pdf
-------------------------------------------------------------------------