🚀 go-pugleaf

In article <41@ucla-an.UUCP>, chris@ee.ucla.edu (Christian Valcke) writes:
> After getting the nice PS-calendar generator from the net,
> I was wondering if anyone has (or know where I can find) a program
> to make mailing labels for postscript?

I haven't done much with postscript, but here's a little program with a
shell script front end which works well enough for me.  The only problem,
I suspect, is that the printer does too much work.  I'm sure there's
a more efficient way to fit the best size font onto a label than what
I've done, but there we are.

This is for printing onto 8.5" X 11" sheets with 11 rows by 3 columns
of labels.

------------------------------  cut here --------------------------------
#!/bin/csh -fe
# 
# This is a shell script for printing address labels.  The command
# prompts for all input.  If the first argument is 'autofeed',
# then manual feed (the default) is turned off.  All other flags
# are passed to the lpr command.  If no flags are given, the
# default flags are given.
# 
# For multiple instances of labels, you may give several instances
# of rows and columns, separated by spaces.  For example,
#
# enter rows for label 1
# (hit return to quit)
# rows: 2 3 4 5 6
# enter cols for label 1
# cols: 1 2

set noglob

set default = "-Pps"

set allRows = ""
set allCols = ""
set allLabels = ""
@ ln = 0

if ("$#argv" != "0") then               # yes, this is nasty...
    if ("$argv[1]" == "autofeed") then
	set feeder = "noManual"
	shift
    else
	set feeder = ""
    endif
else
    set feeder = ""
endif

while (1)
    @ ln = $ln + 1
    echo enter rows for label $ln
    echo \(hit return to quit\)
    echo -n "rows: "
    set rows = ( $< )
    if ( "$#rows" == "0" ) break
    foreach i ( $rows )
	@ n = $i
	if (($n < 1 ) || ($n > 11)) then
	    echo "$i - invalid"
	    exit 1
	endif
    end
    set rows = "[ $rows ]"

    echo
    echo columns for label $ln
    echo -n "cols: "
    set cols = ( $< )
    foreach i ( $cols )
	@ n = $i
	if (($n < 1 ) || ($n > 3)) then
	    echo "$i - invalid"
	    exit 1
	endif
    end
    set cols = "[ $cols ]"

    set labels = ""
    echo enter label $ln
    echo \(blank line when done\)
    while (1)
	echo -n ": "
	set label = ( $< )
	if ("$#label" == "0") break
	set labels = "$labels ($label)"
    end
    set labels = "[ $labels ]"

    set allRows = "$allRows $rows"
    set allCols = "$allCols $cols"
    set allLabels = "$allLabels $labels"
end
set allRows = "[ $allRows ]"
set allCols = "[ $allCols ]"
set allLabels = "[ $allLabels ]"

if ("$#argv" == "0") then
    set flags = "$default"
else
    set flags = "$*"
endif

if ($ln < 2) exit 0

lpr $flags << slashStarEof
%!
%
% This is the postscript code for printing address labels.  The
% function showLabel will print a label for a given row an column.
% An example is this:
% 
% 3 2 [
%     (Harry Fink)
%     (President, United States)
%     (1600 Pennsylvania)
%     (Bethany, OK 73008)
% ] showLabel
% 
% This will print the label in row 3, column 2.  This will choose
% the largest possible font for the given margins, etc.  The
% first line of a given label is treated specially; it is printed
% in the font defined as bigFont, and its size is the size of the
% other lines multiplied by deltaBig.  All other lines are in
% littleFont.
% 
% The functions showSquare and showSeveral are for making it easy
% for a shell script to print several labels.

/height 72 def
/width 8.5 3 div 72 mul def
/xmargin 36 def % ceiling of twice the value of pathbbox of default
/ymargin 16 def % clippath, with allowances for width
/deltaBig 1.25 def
/bigFont /Times-BoldItalic findfont def
/littleFont /Times-Bold findfont def
/buffy (x) def
/reCalc true def
statusdict /manualfeed true put

/noManual { statusdict /manualfeed false put } def

/labelbbox {
    /urx 0 def
    /ury 0 def
    /llx 0 def
    /lly 0 def
    0 0 moveto
    labelLine {
	{
	    buffy exch 0 exch put
	    currentpoint newpath moveto
	    buffy true charpath
	    flattenpath pathbbox
	    dup ury gt { /ury exch def } { pop } ifelse
	    dup urx gt { /urx exch def } { pop } ifelse
	    dup lly lt { /lly exch def } { pop } ifelse
	    dup llx lt { /llx exch def } { pop } ifelse
	} forall
	littleFont p scalefont setfont
	0 currentpoint exch pop p sub moveto
    } forall
} bind def

/showLabel { % row col [ (line1) (line2) ... ] showLabel -
    gsave
    /labelLine exch def
    /col exch 1 sub def
    /row exch 1 sub def

    reCalc {
	gsave
	/p height ymargin sub deltaBig
	labelLine length add 1 sub div ceiling def
	{
	    bigFont p deltaBig mul floor scalefont setfont
	    labelbbox
	    urx llx sub width xmargin sub lt
	    ury lly sub height ymargin sub lt
	    and { exit } if
	    /p p 1 sub def
	} loop
	grestore
    } if

    col width mul
    row height mul 11 72 mul exch sub height sub translate
    width urx llx sub sub 2 div
    height ury lly sub sub 2 div translate
    llx neg lly neg translate

    bigFont p deltaBig mul floor scalefont setfont
    0 0 moveto
    labelLine {
	show
	0 currentpoint exch pop p sub moveto
	littleFont p scalefont setfont
    } forall
    grestore
} bind def

/showSquare { % [ rows ] [ cols ] [ label ] showSquare -
    /ssLabel exch def
    /ssCols exch def
    /ssRows exch def

    ssRows {
	ssCols {
	    exch dup 3 -1 roll
	    ssLabel showLabel
	    /reCalc false def
	} forall
	pop
    } forall
    /reCalc true def
} bind def

/showSeveral { % [[rows] ...] [[cols] ...] [label ...] showSeveral -
    /sevLabel exch def
    /sevCols exch def
    /sevRows exch def

    1 1 sevCols length {
	/i exch 1 sub def
	sevRows i get
	sevCols i get
	sevLabel i get
	showSquare
    } for
} bind def

$allRows
$allCols
$allLabels
showSeveral

$feeder
showpage

slashStarEof
------------------------------  cut here --------------------------------
-- 
sam falkner
...!sun!texsun\             +------------------------------+
 	       >!uokmax!sam | if it bleeds, we can kill it |
...!att!occrsh/             +------------------------------+