Re: [NTG-context] Howto fit text into a box

11 Jun 2008


      On Mon, Jun 9, 2008 at 3:44 PM, Wolfgang Schuster
 wrote:
...
On Mon, Jun 9, 2008 at 3:06 AM, Uwe Koloska  wrote:
...
Hello,
for a CD-Cover I have to fit a given text into a fixed box. I have tried to
achieve this with the help of mag-0010 "Good looking shapes" but was not
successful :-(
Can you help me with this?
The conditions:
 - the text is of fixed length
 - the area is of given size (has a given ratio)
 - the text has to fit completely inside this area
 - the last line must be justified, too
 - the fontsize of the text is the variable that can be changed
 - I have the current minimal context installation
and as an addition:
 - if possible the words should not be hyphenated at all or hyphenated
   at an arbitrary character without a hyphenation mark (the text
   consists of names)
A possible algorithm (similar to the one from mag-0010)
 1 start with a small box with the given ratio
 2 fill the text into the box
 3 if all text fits in with a small penalty we are ready
 4 make the box a bit larger
 5 goto 2
Unfortunately, I'm not able to understand the code from the mag nor can I code
the algorithm in context ...
I would appreciate any input on this problem!
Thank you
Uwe Koloska
Not perfect but you could use it as a start. I used ruledvbox only to
take a look
at the boxsize. There is a parameter to disable the indenting for the last line
but I don't know it's name without looking into a TeX book.
\startbuffer[cover]
\input ward
\stopbuffer
\definetwopasslist{cover}
\newbox\cover
\newdimen\coverheight \coverheight= 7cm
\newdimen\coverwidth  \coverwidth = 7cm
\newdimen\coverfont   \coverfont  =12pt
\newdimen\fontstep    \fontstep   = 1pt
\starttext
\definefont[Cover][Sans at \the\coverfont]
\gettwopassdata{cover}
\iftwopassdatafound
 \coverfont\twopassdata
 \definefont[Cover][Sans at \the\coverfont]
\fi
\setbox\cover\ruledvbox
 {\hsize\coverwidth
  \Cover\setupinterlinespace
  \setupalign[nothyphenated]
  \emergencystretch\maxdimen
  \getbuffer[cover]}
\ifdim\ht\cover<\coverheight
 \advance\coverfont\fontstep
 \savetwopassdata{cover}{1}{\the\coverfont}
\else
 \advance\coverfont-\fontstep
 \savetwopassdata{cover}{1}{\the\coverfont}
\fi
\ruledvbox to 7cm{\box\cover}
\stoptext
Another version, this did work without multiple passes and is faster.

\newbox\cover
\newdimen\coverheight \coverheight= 7cm
\newdimen\coverwidth  \coverwidth = 7cm
\newdimen\coverfont   \coverfont  =12pt
\newdimen\fontstep    \fontstep   = 1pt

\def\startcover
  {\dostartbuffer[cover][startcover][stopcover]}

\def\stopcover
  {\setups[cover:place]}

\def\boxsize
  {\setbox\cover\vbox
     {\hsize\coverwidth
      \definedfont[Serif at \the\coverfont]\setupinterlinespace
      \setupalign[nothyphenated]
      \emergencystretch\maxdimen
      \getbuffer[cover]}}

\def\covertext
  {\boxsize\doloop
     {\boxsize
      \ifdim\ht\cover>\coverheight
        \global\advance\coverfont-\fontstep
        \exitloop
      \else
        \global\advance\coverfont\fontstep
      \fi}}

\startsetups[cover:place]

  \covertext
  \boxsize
  \ruledvbox to\coverheight{\box\cover}

\stopsetups

\starttext

\startcover
\strut\input ward
\stopcover

\stoptext

Wolfgang