address@hidden: Re: <OK> Re: [Groff] Address labels]

[M Bianchi]

On Tue, Aug 08, 2006 at 12:20:25PM -0600, Clarke Echols wrote:
> I haven't done labels, but I wrote a package to print business cards
> on pre-perforated business-card stock.
>       :

On the basis that 0x01 example is worth 1K words,
here is a test sheet for  Avery 5163  2 x 4 inch Mailing Labels ...


.nr Centered     1      \" Uncentered Labels == 0; Centered Labels == 1
.nr LabelWidth   4.00i
.nr LabelHeight  2.00i
.nr FirstTopEdge 0.50i
.nr HorizSpacing 0.20i
.nr PageOffset   0.15i
.nr Columns      2
.nr PointSize    16
.
.ll \n[LabelWidth]u
.lt \n[.l]u
.nf
.rs
.di LabelDiversion
.       ft HB
.       if \n[Centered] .ce 99
.       ps \n[PointSize]
.       vs \n[.s]+2
.       ps (\n[PointSize]+1)
Foveal
.       br
.       vs -4
.       ps -4
.       sp 0.4
Line 2
Line 3
.       tl '|'Line 4'|'
Line 5
Line 6
.       ps \n[PointSize]-2
.       vs \n[.s]+2
.       sp 0.2
.       ps \n[PointSize]-4
.       vs \n[.s]+2
F\s-2OVEAL\s0 S\s-2YSTEMS\s0 \s-2LLC\s0
.       ps -3
.       vs -3
973 822-2085
.       ps +2
\f[CB]www.FovealMounts.com\fP
.       br
.
.       if \n[Centered] .ce 0
.
.di
\#
.nr ColumnsRemaining \n[Columns]
\#
\#
.ie !\n[Centered] \{\
.       nr xx (\n[LabelWidth]u-\n[dl]u)/2
.       po \n[xx]u+\n[PageOffset]u+\n[HorizontalBias]u \}
.el .   po \n[PageOffset]u+\n[HorizontalBias]u
\#
.rs
.nr xx (\n[LabelHeight]-\n[dn])/2+\n[FirstTopEdge]+\n[VerticalBias]
.sp |\n[xx]u
.mk
.de xX
.ie !\\n[ColumnsRemaining] \{
.       in 0
.       nr ColumnsRemaining \n[Columns]
.       rt
.       sp \n[LabelHeight]u
.       mk
.       br \}
.el \{
.       nr ColumnsRemaining -1
.       rt
.       LabelDiversion
.       in +\n[LabelWidth]u+\n[HorizSpacing]u
.       xX \}
..
.xX
.xX
.xX
.xX
.xX

-- 
 Mike Bianchi
 Foveal Systems

 973 822-2085   call to arrange Fax

 address@hidden
 http://www.AutoAuditorium.com
 http://www.FovealMounts.com