\limitatefirstline (or slave to the wiki)

\limitatefirstline (or slave to the wiki)

[Peter Rolf]

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

Hi all,

I've tested the latest version of \limitatefirstline and it still
doesn't work as expected. This is really a complex story (problem).

- the clip mechanism cuts off the lowest part of some special chars
  (clipping graphics is easy, but I don't understand what happens here)
- text is sometimes cropped at word boundaries (example 110pt),
  instead of beeing clipped

The example file is appended and I use the latest beta. There is no
timeline, so fixing is not that urgent.

And yes, I've cancelled my hollidays and will live for the wiki only
from now on :)

wiki, wiki, wiki,....

Greetings,

Peter

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

% interface=en output=pdftex
% Time-stamp: <Freitag, 09 September 2005 11:40:17; 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}%
      \hbox to #2
        {\ifx\clip\undefined
           \box\plusone
         \else\ifdim\wd\plusone>\hsize
           \clip[\c!width=\hsize,\c!height=\lineheight,\c!voffset=-4pt]{\box\plusone}%
         \else
           \box\plusone
         \fi\fi
         \removeunwantedspaces\hss#3}}%
 \else
   #1%
 \fi
 \egroup} 

\protect


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

\starttext

% blue for the limitatetext case

\setupframed[offset=overlay, framecolor=lightgray]

\framed[width=8ex,height=\struttotal,background=color,backgroundcolor=black]{\white 8ex}
\framed{\limitatefirstline{\underbar{WqTextdummy}}{8ex}{\CropSymbol}}
\framed{\limitatetext{\blue\underbar{WqTextdummy}}{8ex}{\CropSymbol}}

\blank

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

\blank

\framed[width=110pt,height=\struttotal,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}}
\framed{\limitatetext{\blue This text is definitely too long to fit this frame.}{110pt}{\CropSymbol}}

\blank

\framed[width=100pt,height=\struttotal,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

Re: \limitatefirstline (or slave to the wiki)

[Peter Rolf]

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

Peter Rolf wrote:
> Hi all,
> 
> I've tested the latest version of \limitatefirstline and it still
> doesn't work as expected. This is really a complex story (problem).
> 
> - the clip mechanism cuts off the lowest part of some special chars
>   (clipping graphics is easy, but I don't understand what happens here)
This one is unsolved. I added height to the clipping (\struttotal; maybe
not enought for \underbar). Now I get complete characters, but the
cropped text and the sentinel are not on the same baseline anymore.

> - text is sometimes cropped at word boundaries (example 110pt),
>   instead of beeing clipped
I have fixed this one. There must be another check in case of a
successful break (else it acts like \limitatetext). Haven't thought
about this :)

So just ignore the prior mail (example) and look at the attached code
instead.

Greetings,

Peter

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

% interface=en output=pdftex
% Time-stamp: <Sonntag, 11 September 2005 14:19:53; crop.tex>
%

\setupcolors[state=start]
\setupstrut

\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}


\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,\c!height=\struttotal]{\ruledhbox{\box\plusone}}
           \else
             \ifdim\wd\plusone<\dimexpr\hsize-2ex\relax% tolerance for "successful" breaking
               \clip[\c!width=\hsize,\c!height=\struttotal]{\ruledhbox{#1}}% must be #1 here
             \else
               \box\plusone
             \fi
           \fi
         \fi
         \removeunwantedspaces\hss#3}}%
 \else
   #1%
 \fi
 \egroup}

\protect


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

\starttext

% blue for the limitatetext examples

\setupframed[offset=overlay, framecolor=lightgray]

\framed[width=8ex,height=\struttotal,background=color,backgroundcolor=black]{\white 8ex}
\framed{\limitatefirstline{\underbar{WqTextdummy}}{8ex}{\CropSymbol}}
\framed{\limitatetext{\blue\underbar{WqTextdummy}}{8ex}{\CropSymbol}}

\blank

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

\blank

\framed[width=110pt,height=\struttotal,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}}
\framed{\limitatetext{\blue This text is definitely too long to fit this frame.}{110pt}{\CropSymbol}}

\blank

\framed[width=100pt,height=\struttotal,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

Re: \limitatefirstline (or slave to the wiki)

[Hans Hagen]

Peter Rolf wrote:

>Hi all,
>
>I've tested the latest version of \limitatefirstline and it still
>doesn't work as expected. This is really a complex story (problem).
>
>- the clip mechanism cuts off the lowest part of some special chars
>  (clipping graphics is easy, but I don't understand what happens here)
>- text is sometimes cropped at word boundaries (example 110pt),
>  instead of beeing clipped
>
>The example file is appended and I use the latest beta. There is no
>timeline, so fixing is not that urgent.
>  
>

add some struts:

   \setbox\scratchbox\hbox{\begstrut#1\endstrut}%
   \ifdim\wd\scratchbox>#2\relax
     \setbox\scratchbox\hbox{\begstrut#3\endstrut}%

and remove your funny voffset 

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

Re: \limitatefirstline (or slave to the wiki)

[Peter Rolf]

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

Hans Hagen wrote:
> Peter Rolf wrote:
> 
>> Hi all,
>>
>> I've tested the latest version of \limitatefirstline and it still
>> doesn't work as expected. This is really a complex story (problem).
>>
>> - the clip mechanism cuts off the lowest part of some special chars
>>  (clipping graphics is easy, but I don't understand what happens here)
>> - text is sometimes cropped at word boundaries (example 110pt),
>>  instead of beeing clipped
>>
>> The example file is appended and I use the latest beta. There is no
>> timeline, so fixing is not that urgent.
>>  
>>
> 
> add some struts:
> 
>   \setbox\scratchbox\hbox{\begstrut#1\endstrut}%
>   \ifdim\wd\scratchbox>#2\relax
>     \setbox\scratchbox\hbox{\begstrut#3\endstrut}%
> 
> and remove your funny voffset

oeps, a relict from testing.

> Hans

Yep, it (later example) works with the struts. Thank you Hans!
But the clipping still needs the height parameter, else you get no
drawings below the baseline. I use \struttotal in my example, which can
be too small in case of underbar/underline.

working example is attached.

Greetings,

Peter

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

% interface=en output=pdftex
% Time-stamp: <Sonntag, 11 September 2005 18:28:02; crop.tex>
%

\setupcolors[state=start]

\unprotect


\def\limitatefirstline#1#2#3%
{\hbox\bgroup\strut
 \setbox\scratchbox\hbox{\begstrut#1\endstrut}%
 \ifdim\wd\scratchbox>#2\relax
   \setbox\scratchbox\hbox{\begstrut#3\endstrut}%
   \hsize#2\relax
   \advance\hsize-\wd\scratchbox
   \setbox\scratchbox\vbox{\forgetall\veryraggedright\begstrut#1\endstrut}%
   \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,\c!height=\struttotal]{\ruledhbox{\box\plusone}}
           \else
             \ifdim\wd\plusone<\dimexpr\hsize-2ex\relax% tolerance for "successful" breaking
               \clip[\c!width=\hsize,\c!height=\struttotal]{\ruledhbox{\begstrut#1\endstrut}}% must be #1 here
             \else
               \box\plusone
             \fi
           \fi
         \fi
         \removeunwantedspaces\hss#3}}%
 \else
   #1%
 \fi
 \egroup}

\protect


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

\starttext

% blue for the limitatetext examples

\setupframed[offset=overlay, framecolor=lightgray]

\framed[width=8ex,height=\struttotal,background=color,backgroundcolor=black]{\white 8ex}
\framed{\limitatefirstline{\underbar{WqTextdummy}}{8ex}{\CropSymbol}}
\framed{\limitatetext{\blue\underbar{WqTextdummy}}{8ex}{\CropSymbol}}

\blank

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

\blank

\framed[width=110pt,height=\struttotal,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}}
\framed{\limitatetext{\blue This text is definitely too long to fit this frame.}{110pt}{\CropSymbol}}

\blank

\framed[width=100pt,height=\struttotal,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

Re: \limitatefirstline (or slave to the wiki)

[Peter Rolf]

Peter Rolf wrote:
> 
> Yep, it (later example) works with the struts. Thank you Hans!

I must clean my glasses. The sentinel is now at the bottom of the text
box (ruledhbox) and not on height on the baseline. So it's still not
working...

> But the clipping still needs the height parameter, else you get no
> drawings below the baseline. I use \struttotal in my example, which can
> be too small in case of underbar/underline.
> 
> working example is attached.
> 
> Greetings,
> 
> Peter
> 
Sorry for the noise,

Peter

Re: \limitatefirstline (or slave to the wiki)

[Hans Hagen]

Peter Rolf wrote:

>              \ifdim\wd\plusone<\dimexpr\hsize-2ex\relax% tolerance for 
> "successful" breaking
>                
> \clip[\c!width=\hsize,\c!height=\struttotal]{\ruledhbox{\begstrut#1\endstrut}}% 
> must be #1 here

This may fail, since it #1 may have more than one line, and this whole 
branch is entered when there are more lines

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

Re: \limitatefirstline (or slave to the wiki)

[Hans Hagen]

Peter Rolf wrote:

another one

\def\limitatefirstline#1#2#3%
  {\hbox\bgroup\strut
   \setbox\scratchbox\hbox{\begstrut#1\endstrut}%
   \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{\strut\unhbox\plusone}%
        \hbox % to #2
          {\ifx\clip\undefined
             \box\plusone
           \else\ifdim\wd\plusone>\hsize
             
\lower\strutdepth\hbox{\clip[\c!width=\hsize,\c!height=\lineheight]{\hbox{\raise\strutdepth\box\plusone}}}%
           \else
             \box\plusone
           \fi\fi
           \removeunwantedspaces#3}}% \removeunwantedspaces\hss#3}}%
   \else
     #1%
   \fi
   \egroup}

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

Re: \limitatefirstline (or slave to the wiki)

[Peter Rolf]

Hi all,

Hans Hagen wrote:
> Peter Rolf wrote:
> 
> another one
> 
> \def\limitatefirstline#1#2#3%
>  {\hbox\bgroup\strut
>   \setbox\scratchbox\hbox{\begstrut#1\endstrut}%
>   \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{\strut\unhbox\plusone}%
>        \hbox % to #2
>          {\ifx\clip\undefined
>             \box\plusone
>           \else\ifdim\wd\plusone>\hsize
>            
> \lower\strutdepth\hbox{\clip[\c!width=\hsize,\c!height=\lineheight]{\hbox{\raise\strutdepth\box\plusone}}}%
> 
>           \else
>             \box\plusone
>           \fi\fi
>           \removeunwantedspaces#3}}% \removeunwantedspaces\hss#3}}%
>   \else
>     #1%
>   \fi
>   \egroup}
> 
> Hans
> 

Seems to work now :)

There is only one thing left. The clip mechanism is only called, if
breaking fails (which is not enought). An example:

My name is ThisPartIsVisiblexxxxxxxxxxxxxxxxxx.
         ^^                ^^
        break           cut here

Breaking is successful, so \limitatefirstline acts nearly like
\limitatetext and you get

My name is...

  instead of

My name is ThisPartIsVisible...

There must be another test, which checks the quality (width) of the
breaking. If there is too much wasted space, clipping should be used
instead.

\else\ifdim\wd\plusone<\dimexpr\hsize-2ex\relax% breaking tolerance
\lower\strutdepth\hbox{\clip[\c!width=\hsize,\c!height=\lineheight]{\hbox{\raise\strutdepth\hbox{\begstrut#1\endstrut}}}}%


I don't know, if boxing #1 is enought (more than one line problem)...
and we have to add \dontcomplain somewhere.
The tolerance of 2ex acts very greedy, so in most cases, clipping is
used (not usefull in common , but that's the way I need it).
Maybe 6-8ex are a better value for the final (no need to force 2ex to
others).

Thanks Hans. This was a hard birth, but the baby is looking nice :)

Peter