Re: [NTG-context] shrink inter-line space

18 Dec 2021

      On 12/18/2021 9:47 AM, mf via ntg-context wrote:
...
Il 17/12/21 20:17, Wolfgang Schuster ha scritto:> \starttext
...
\samplefile{ward}\par
\blank
\start \setupinterlinespace[line=12pt]
\samplefile{ward}\par
\stop
\stoptext
Yes, but you can't say \setupinterlinespace[line=6pt] and make lines 
overlap. At a certain point baselines don't get closer any more.
----------------------------------------------
\starttext
\samplefile{ward}\par
\blank
\start \setupinterlinespace[line=12pt]
\samplefile{ward}\par
\stop
\blank
\start \setupinterlinespace[line=6pt]
\samplefile{ward}\par
\stop
\stoptext
----------------------------------------------
You can do something like this:
----------------------------------------------
\starttext
\samplefile{ward}\par
\blank
\start \setupinterlinespace[line=12pt]
\samplefile{ward}\par
\stop
\blank
The Earth, as a habitat for animal life, is in old age and has a fatal 
illness.\vadjust{\kern-6pt}
Several, in fact. It would be happening whether humans had ever evolved 
or not.\vadjust{\kern-6pt}
But our presence is like the effect of an old-age patient who smokes 
many packs\vadjust{\kern-6pt}
of cigarettes per day—and we humans are the cigarettes.
\stoptext
----------------------------------------------
but I had to insert all those \kern-6pt manually.
How can I obtain the same result automatically?
(please don't argue about the ugliness of the result ;) )
there is no real need to argue because it *is* ugly -)

so say that you choose 6pt interlinespace ... which means that all lines 
will likely touch

in that case tex will inject lineskip (assuming that you didn't disable it)

and as tex doesn't care about results being ugly (plenty of examples of 
that on the internet) it will happily insert a negative skip when you do 
this:

\start \setupinterlinespace[line=6pt]
\lineskip-6pt
\samplefile{ward}\par
\stop

now, of course, this will not be pretty when heights and depths differ 
per line so here's another way:

\start
     \setbox\scratchbox\vbox{\samplefile{ward}}
     \dorecurse {\boxlines\scratchbox} {
         \boxlineht\scratchbox#1 2pt % 4pt
         \boxlinedp\scratchbox#1 1pt % 2pt
         \nointerlineskip
         \boxline  \scratchbox#1
         \par
     }
\stop

so ... in tex there's always a way out

Hans

-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
        tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------