Re: cropping with \limitatefirstline

[Peter Rolf <indiego@gmx.net>]

[-- Attachment #1: Type: text/plain, Size: 105 bytes --]

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

Greetings,

Peter


[-- Attachment #2: crop.tex --]
[-- Type: text/plain, Size: 2213 bytes --]

% interface=en output=pdftex
% Time-stamp: <Donnerstag, 08 September 2005 18:28:23; crop.tex>
%

\setupcolors[state=start]

\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}%
       \ifx\clip\undefined
         \box\plusone\removeunwantedspaces#3%
       \else\ifdim\wd\plusone>\hsize
         \hbox{\clip[\c!width=\hsize]{\box\plusone}#3}%
       \else
         \box\plusone\removeunwantedspaces#3%
       \fi\fi}%
  \else
    #1%
  \fi
  \egroup} 

\protect


\def\CropSymbol{\red...}%

\starttext

\setupframed[offset=overlay, height=\struttotal, framecolor=lightgray]
\setupframed[offset=overlay, height=\struttotal, framecolor=lightgray]

\framed[width=8ex,background=color,backgroundcolor=black]{\white 8ex}
\framed{\limitatefirstline{\underbar{Text dummy}}{8ex}{\CropSymbol}}
\framed{\limitatetext{\underbar{Text dummy}}{8ex}{\CropSymbol}}

\blank

\framed[width=120pt,background=color,backgroundcolor=black]{\white 120 pt}
\framed{\limitatefirstline{\textbar \_\textcircumflex\texttilde \%\$\#\textbraceleft \textbraceright \textpm \copyright \registered \pi \textdegree <>\&}{120pt}{\CropSymbol}}

\blank

\framed[width=110pt,background=color,backgroundcolor=black]{\white 110 pt}
\framed{\limitatefirstline{\textbar \_\textcircumflex\texttilde \%\$\#\textbraceleft \textbraceright \textpm \copyright \registered \pi \textdegree <>\&}{110pt}{\CropSymbol}}
\framed{\limitatefirstline{This text is definitely too long to fit this frame.}{110pt}{\CropSymbol}}

\blank

\framed[width=100pt,background=color,backgroundcolor=black]{\white 100 pt}
\framed{\limitatefirstline{\textbar \_\textcircumflex\texttilde \%\$\#\textbraceleft \textbraceright \textpm \copyright \registered\space \pi \textdegree <>\&}{100pt}{\CropSymbol}}

\stoptext

%%% Local Variables:
%%% mode: context
%%% TeX-master: ""
%%% End:

[-- Attachment #3: Type: text/plain, Size: 139 bytes --]

_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context