Re: Cross out

[Valeriy E. Ushakov]

On Mon, Jan 17, 2000 at 10:41:27AM +0100, Matthias Teege wrote:

> is there any way in lout to "cross out" (durchstreichen) a word?

>From the German term I guess that you mean strike-out style (like
STRIKE element in HTML), right?

    extend @BasicSetup # to reach @ColourCommand
    def @StrikeOut
      named @Colour  # for Englishmen
            @Color   # for Americans
            @        # a shorhand
                { red }  # default color of the line
      right word
    {
      @BackEnd @Case {
        PostScript @Yield {
          { @ColourCommand @Colour 0 ymark moveto xsize ymark lineto stroke }
          @Graphic word
        }
        PDF @Yield {
          { @ColourCommand @Colour 0 __ymark m __xsize __ymark l s }
          @Graphic word
        }
        else @Yield {
          word
        }
      }
    }

Usage:

    @StrikeOut { word }  and @StrikeOut @{blue} { another }.

Effect:

    Draws a strike-out at object's horizontal mark.


Of course, the @OneRow effect of @Graphic applies, so this definition
is not suitable for any sizeable amount of text.  Adding line
parameter for thickness is left as an exercise for the reader.

HTH.

SY, Uwe
-- 
address@hidden                         |       Zu Grunde kommen
http://www.ptc.spbu.ru/~uwe/            |       Ist zu Grunde gehen