% name of textfile: p12a.autonaming badge-a-minit badges 
% ....


% =========

% This file requires the previous download of gonzo.psl
% available from https://www.tinaja.com/pssamp1.shtml

% Make sure the following line agrees with your own gonzo.psl location

(C:/Users/don/Desktop/gonzo/gonzo.psl) run  % use internal gonzo

% ==========



gutility begin               % open some dictionaries
printerror                   % print errors to paper
nuisance begin
gonzo begin

/stepnrptparams 40 dict def
stepnrptparams begin

/12badges [3 4 192.5 192.5 92.5 90 20 false false] def  %  12 badges per page  
end

% note that gonzo utilities dictionaries were opened before 
% the stepandrepeat dictionary on the template file - be sure 
% to append the auto label file to the end of the srtemplate

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  (I) CUSTOM AUTO-ADDRESSING SHIPPING LABEL DEMO 
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% This example creates and then auto-addresses a strip of custom
% shipping labels. Once again, use the Gonzo justification and
% utilities for fast and convenient results.

% /striplines takes a multi-line string, extracts each individual line string,
% and then executes stripproc for each line. Useful for simple addressing
% and custom form filling-in.

/striplines {{(\n) search {exch pop stripproc}
{stripproc exit} ifelse} loop } def

% Some stripproc is needed by striplines. This stripproc does a left
% justified address...

/stripproc { font4 xpos exch  ypos exch cc 0 yinc neg translate } def
 
% a simple centering proc

/censhow {currentpoint exch 2 index stringwidth pop 2 div
          sub exch moveto show} def

% Here is some badge art ...

/badge {save /snapb exch def 
/showthegrid false def       % do we want to see the grid?
20 15 10 setgrid            % set the main page grid
showthegrid {57 76 showgrid} if      % and maybe show the grid

0 setlinewidth               
0 0 9.5 0 360 arc stroke % this is the actual badge diameter

line3
0 0 7.5 0 360 arc stroke      % this is the outside printed circle

line1 
0 0 5.7 0 360 arc                          % this is the inside gray
stroke

/arckern 0.03 def              % slight character kerning 
/font0 /Helvetica-Bold 1.2 gonzofont                % pick nice font
font0
0 0 6.2 (Schizophrenic's International) karcjustify  % and show it convex

/arckern 0.08 def 
0 0 -7 (Convention 1989 - 1990) karcjustify     % same - only concave lower           

/cstretch 0.02 def                            % inside message
/sstretch 0.02 def

/font1 /Helvetica-Narrow-Bold [7 0 0 10 0 0] gonzofont
/font3 /Helvetica-Narrow-Bold 1.2 gonzofont
/font2 /Helvetica-Narrow 1 gonzofont

/yinc 2 def
0 setgray
0 3.1 (|3HI AND HELLO) cc
0 1.9 (|3OUR NAMES ARE) cc
0 -1.4 (|2and) cc

line1                               % the two write-your-name lines
-4 -0.5 mt 8 r
-3 -3.5 mt 6 r
snapb restore } def                      % and undo

/font4 /Helvetica-Narrow-Bold 12 gonzofont

/xpos 20 def  % left margin of main address
/ypos 11 def  % base position of top address line
/yinc 14 def  % spacing of main address

/repeatproc {
     
     srfile length 1 sub runnum lt {/quickexit true def exit} if

     badge

     gsave
     srfile runnum get striplines
     grestore

} def


/srfile [

(Aaron A. Aardvark)

(Boyd B. Benson)

(Clyde C. Calhoun)

(Darryl. D. Doldrum)

(Eggbert E. Evans)

(Frank F. Fairmont)

(Gertrude G. Gregg)

(Harriet H. Helespont)

(Isolda I. Igg)

] def


/runnum 0 def
/customdata true def

(12badges) stepandrepeat


% eof