Re: shrink inter-line space

[Wolfgang Schuster via ntg-context <ntg-context@ntg.nl>]

mf via ntg-context schrieb am 18.12.2021 um 09:47:
> 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 ;) )


TeX prevents overlapping line but you cheat and modify the dimensions of 
all characters.

The following example set the height and depth to 0 ex for all character 
in the current font (I used \definedfont to keep it local to the group) 
and now you can change the interlinespace to whatever value you like.


\definefontfeature [tightlines] [dimensions={*,0,0}]

\starttext

\samplefile{ward}\par

\blank

\start
     \setupinterlinespace[line=5pt]
     \definedfont[Normal*default,tightlines]
     \samplefile{ward}\par
\stop

\stoptext

Wolfgang

___________________________________________________________________________________
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
___________________________________________________________________________________