Re: shrink inter-line space

[Hans Hagen via ntg-context <ntg-context@ntg.nl>]

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
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________