replacing words by underlines

replacing words by underlines

[Alan Stone]

[-- Attachment #1.1: Type: text/plain, Size: 1174 bytes --]

Hi,

In the underneath example, how do you get each word replaced by an underline
?

Or, if not possible, underlined word groups with correct underline breaks
for multi-line phrases.

\def\UnderlineA#1%
{\underbars{#1}}

\def\UnderlineB#1%
{\underbars{\phantom{#1}}}
%{\underbar{\phantom{#1}}}

\definetextbackground[underline][%
    location=text,
    alternative=1,
    background=,
    frame=off]

\def\UnderlineC{%
    \groupedcommand
        {\starttextbackground[underline]}
        {\stoptextbackground}}

\starttext

Thus, I came to \UnderlineA{the conclusion} that the designer of a new
system \UnderlineA{must not only be the implementer and first} large--scale
user; the designer should also write the first user manual.

Thus, I came to \UnderlineB{the conclusion} that the designer of a new
system \UnderlineB{must not only be the implementer and first} large--scale
user; the designer should also write the first user manual.

Thus, I came to \UnderlineC{the conclusion} that the designer of a new
system \UnderlineC{must not only be the implementer and first} large--scale
user; the designer should also write the first user manual.

\stoptext


Thanks,
Alan

[-- Attachment #1.2: Type: text/html, Size: 1430 bytes --]

[-- Attachment #2: Type: text/plain, Size: 487 bytes --]

___________________________________________________________________________________
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://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Re: replacing words by underlines

[Wolfgang Schuster]

Am 24.01.2009 um 19:00 schrieb Alan Stone:

> Hi,
>
> In the underneath example, how do you get each word replaced by an  
> underline ?
>
> Or, if not possible, underlined word groups with correct underline  
> breaks for multi-line phrases.

\def\doUnderlineD#1%
   {\bgroup
    \setbox\scratchbox\hbox{#1}%
    \underbar{\hskip\wd\scratchbox}\space
    \egroup}

\def\UnderlineD#1%
   {\processseparatedlist[#1][ ]\doUnderlineD\removeunwantedspaces}

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://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Re: replacing words by underlines

[Alan Stone]

[-- Attachment #1.1: Type: text/plain, Size: 648 bytes --]

Mein Hut ab für den Künstler  :O)

Alan

On Sat, Jan 24, 2009 at 8:07 PM, Wolfgang Schuster <
schuster.wolfgang@googlemail.com> wrote:

>
> Am 24.01.2009 um 19:00 schrieb Alan Stone:
>
>  Hi,
>>
>> In the underneath example, how do you get each word replaced by an
>> underline ?
>>
>> Or, if not possible, underlined word groups with correct underline breaks
>> for multi-line phrases.
>>
>
> \def\doUnderlineD#1%
>  {\bgroup
>   \setbox\scratchbox\hbox{#1}%
>   \underbar{\hskip\wd\scratchbox}\space
>   \egroup}
>
> \def\UnderlineD#1%
>  {\processseparatedlist[#1][ ]\doUnderlineD\removeunwantedspaces}
>
> Wolfgang

[-- Attachment #1.2: Type: text/html, Size: 1227 bytes --]

[-- Attachment #2: Type: text/plain, Size: 487 bytes --]

___________________________________________________________________________________
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://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Re: replacing words by underlines

[Alan Stone]

At Saturday 24/01/2009 21:07, you wrote:

>Am 24.01.2009 um 19:00 schrieb Alan Stone:
>
>>Hi,
>>
>>In the underneath example, how do you get each word replaced by an
>>underline ?
>>
>>Or, if not possible, underlined word groups with correct underline
>>breaks for multi-line phrases.
>
>\def\doUnderlineD#1%
>   {\bgroup
>    \setbox\scratchbox\hbox{#1}%
>    \underbar{\hskip\wd\scratchbox}\space
>    \egroup}
>
>\def\UnderlineD#1%
>   {\processseparatedlist[#1][ ]\doUnderlineD\removeunwantedspaces}
>
>Wolfgang

Ahoi,

A finishing touch question...

How do you cut off underbar parts which exceed \textwidth ?

\showframe

\setuplayout[width=7cm]

\def\doUnderlineD#1%
   {\bgroup
    \setbox\scratchbox\hbox{#1}%
    \underbar{\hskip\wd\scratchbox}\space
    \egroup}

\def\UnderlineD#1%
   {\processseparatedlist[#1][ ]\doUnderlineD\removeunwantedspaces}

  \starttext

  \UnderlineD{aaaaaaaaaaaa  bbbb  cccccccccc ddddddddddddd eeeeeeeee 
vvvvvvvvvv wwwwwww xxxxxxxxxxxxx yyyyyyyyyyy zzzzzzz}

  \stoptext


Thanks in advance.
Alan


___________________________________________________________________________________
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://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________