lout-users
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Designing labels (business cards w/ Debian)


From: Robert Cymbala
Subject: Re: Designing labels (business cards w/ Debian)
Date: Wed, 13 Jun 2001 00:07:31 -0700

That previous bundle posted on June 11 works with version 3.12
(currently Debian's stable version).  Someone tried it with a
more-recent version and got errors.  So i installed version 3.24 from
debian's unstable archive and modified as needed; below is the new
bundle, same instructions as previous post.

Change path to these two file names:
2 lines matching "home/cym" in buffer gnug_bc.bundle.
   18:@SysInclude { "/home/cymbala/Gnug/gnug_bc_doc" }
   41:@SysInclude { "/home/cymbala/Gnug/gnug_bc" }


# To unbundle, sh this file
echo gnug_bc.lout 1>&2
cat >gnug_bc.lout <<'End of gnug_bc.lout'


#  For business cards.
#  Basser Lout Version 3.24 (October 2000)
#
#                                 Time-stamp: <2001-06-12 23:34:15 cymbala>
#
#  See "gnug_bc_doc" for how to fine-tune margins.
#
#  Bundle needed for cards (from Mark G. Sobell, PRACTICAL GUIDE, pg 395):
#         sh bundle   gnug_bc.lout mydefs gnug_bc_doc gnug_bc
#         > gnug_bc.bundle
#
@SysInclude { tab }
@SysInclude { "/home/cymbala/Gnug/gnug_bc_doc" }
@Doc @Text @Begin

    @PageHeight @High @PageWidth @Wide {
        @Tab
            hmargin { @TabHMargin }
            @Fmta   { @Col A ! @Col B }                         {
            @Rowa A { @BusinessCard } B { @BusinessCard }
            @Rowa A { @BusinessCard } B { @BusinessCard }
            @Rowa A { @BusinessCard } B { @BusinessCard }
            @Rowa A { @BusinessCard } B { @BusinessCard }
            @Rowa A { @BusinessCard } B { @BusinessCard } }   }
@End @Text
# Local variables:
#   tab-width:4
# End:
End of gnug_bc.lout
echo mydefs 1>&2
cat >mydefs <<'End of mydefs'
# /home/cymbala/myrefs
#
#   Lout "myrefs"
#   Time-stamp: <2001-06-12 23:33:57 cymbala>

@SysInclude { "/home/cymbala/Gnug/gnug_bc" }

###
#
End of mydefs
echo gnug_bc_doc 1>&2
cat >gnug_bc_doc <<'End of gnug_bc_doc'
#
# Time-stamp: <2001-06-12 23:23:11 cymbala>
# From: /usr/share/lout/include/doc

# version 3.12: @SysInclude { fontdefs  } # font definitions
@SysInclude { langdefs  } # language definitions
# version 3.12: @SysInclude { dl        } # DocumentLayout package
@SysInclude { bsf               } # BasicSetup package
@SysInclude { dsf               } # DocumentSetup package
@SysInclude { docf      } # OrdinaryLayout extension

@Use { @BasicSetup }
# version 3.12: @Use { @DocumentLayout
@Use { @DocumentSetup
  @PageType                     { Letter @OrIfPlain Other }
  # page type (width, height)

  @TopMargin                    { 1.95c  @OrIfPlain 6f    }
  # top margin of all pages
  @FootMargin                   { 0.05c  @OrIfPlain 6f    }
  # bottom margin of all pages

  @OddLeftMargin                { 1.03i   @OrIfPlain 10s   }
  # left margin of odd pages
}

# version 3.12: @Use { @OrdinaryLayout }
@Use { @OrdinarySetup }

@SysDatabase @FontDef  { fontdefs }     # font definitions
@SysDatabase @RefStyle { refstyle }     # reference printing styles
@Include    { mydefs    }
###
#
End of gnug_bc_doc
echo gnug_bc 1>&2
cat >gnug_bc <<'End of gnug_bc'
#
# ~/Gnug/gnug_bc
# Time-stamp: <2001-06-12 23:37:32 cymbala>

# Based upon post by Greg A. Woods:
#   Re: Designing labels
#     From: address@hidden (Greg A. Woods)
#     Date: Mon, 6 Nov 2000 15:58:46 -0500 (EST)
#     Resent-Sender: address@hidden
#     http://snark.ptc.spbu.ru/mail-archives/lout/latest/msg01674.html

def @PersonFirstname     { " Rob" }
def @PersonLastname      { "Cymbala" }
def @PersonMi            { "J." }
def @PersonEmailA        { " address@hidden " }
def @PersonEmailB        { "address@hidden" }
def @PersonURL           { "www.lafn.org/~cymbala" }
def @PersonVoicePhone    { " 213) 365-0960" }
#
def @FictitiousName { "GNU Guidance" }
def @SloganOne      { "  Linux  Installation" }
def @SloganTwo      { "  Linux  Training" }
def @PhraseOne      { 
                           @Bullet "  Runs  80386  PCs  and  up" }
def @PhraseTwo      { 
                           @Bullet "  LA  Free-Net  ($40 /year)" }
def @PhraseThree    { 
                           @Bullet "  10+  years  with  UNIX" }


def @PageHeight  { "10.2i"  }
def                              @PageWidth   { "8.0i"   }
def @CardHeight  { "3.0i"   }
def                              @CardWidth   { "1.92i"  }

# Change this to adjust horizontal alignment.
# Change this and OddLeftMargin (in opposite directions) to adjust
# horizontal alignment of one column but _not_ the other.
def @TabHMargin { "0.25i"   }


# Pg 107: '@Wide should be used only to reduce the width of the wider
# columns, not to increase the width of the narrower ones.'
def @vmargin_onev { "0.15v" }

# *****************************************************************************
def @BusinessCard {
    @CardWidth @High @CardHeight @Wide {
        @Tab
            vmargin { @vmargin_onev }
            @Fmta { @Col                      H               @Over X }
            @Fmtb { @Col 2.5c @Wide  9p @Font A ! @Col 9p @Font @RR B }
            @Fmtc { @Col 3.0c @Wide 13p @Font A ! @Col B }
            @Fmtd { @Col                      A ! @Col              B }
            @Fmte { @Col                      H               @Over X }

            {       
            @Rowa
                below { single }
                vmargin { 0.15ix }
                H {
                    { 18p } @Font @FictitiousName
                }
            @Rowa
                H { @Null }

            @Rowb
                vmargin { 0.25v }
                A { 3p @Font " " }
            @Rowb
                A { @SloganOne }
                B { @PhraseOne }
            @Rowb
                vmargin { @vmargin_onev }
                A { @SloganTwo }
                B { @PhraseTwo }
            @Rowb
                A { }  B { @PhraseThree }
            @Rowb
                A { }  B { }

            @Rowc
                vmargin { 0.2v }
                A { @PersonFirstname { } @PersonLastname { } }
                B { "" }

            @Rowd
                A { { Courier Base 8p } @Font     @PersonEmailA }
                B { { Courier Base 9p } @Font @RR @PersonVoicePhone
                }

            @Rowe
                H { { 10p } @Font {
                    ""
                } }
        }
    }
}
# Local variables:
# mode:lout
# tab-width:4
# End:
End of gnug_bc


reply via email to

[Prev in Thread] Current Thread [Next in Thread]