Re: [NTG-context] cropping with \limitatefirstline

8 Sep 2005


      Peter Rolf wrote:
...
Hans, is this a trick to get even more wiki pages?
\clip is still running wild... :)
\unprotect

\def\limitatefirstline#1#2#3%
 {\hbox\bgroup\strut
  \setbox\scratchbox\hbox{#1}%
  \ifdim\wd\scratchbox>#2\relax
    \setbox\scratchbox\hbox{#3}%
    \hsize#2\relax
    \advance\hsize-\wd\scratchbox
    \setbox\scratchbox\vbox{\forgetall\veryraggedright#1}%
    \setbox\scratchbox\vsplit\scratchbox to \lineheight
    \vbox
      {\unvbox\scratchbox
       \global\setbox\plusone\lastbox
       \global\setbox\plusone\hbox{\unhbox\plusone}%
       \hbox to #2
         {\ifx\clip\undefined
            \box\plusone
          \else\ifdim\wd\plusone>\hsize
            \clip[\c!width=\hsize]{\box\plusone}%
          \else
            \box\plusone
          \fi\fi
          \removeunwantedspaces\hss#3}}%
  \else
    #1%
  \fi
  \egroup}

\protect

indeed, 4 wiki pages now -) 

Hans 

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