%!PS

% Title here
% =======
% Author and date
% Function
% Details
% ======

% Gonzo utilities of http://www.tinaja.com/gonzo.psl are presently NOT 
% built in for immediate use. This adds 90K to the file size. A tutorial 
% can be found at http://www.tinaja.com/glib/gonzotut.pdf 

% If, instead, Gonzo is to be run as a diskfile for the much shorter code here, 
% Distiller MUST be run from the command line as this or similar
%  "C:/Program Files (x86)/Adobe/Acrobat 11.0/Acrobat/acrodist.exe" /F run

% Projects at http://www.tinaja.com/pssamp1.shtml

% =======

% Uncomment and modify to use disk based Gonzo. ( or other disk access )
 (C:/Users/Don/Desktop/Ghost/gonzo.psl) run % use internal 

% 20 20 10 setgrid  
% 57 75 showgrid
% ============== gonzo enhancements

/webtintmat [ 0 1 5 {/a exch store 0 1 5 
{/b exch store 0 1 5 {5 div b 5 div a 5 div}
for }for } for ] def

/setwebtint { abs cvi 216 cvi mod webtintmat
exch 3 mul 3 getinterval aload pop 
setrgbcolor} def

% supecrcstroke take a predefined path and a
% top-of-stack array of [width1 webcolor1  width2 webcolor2 .... widthn webcolorn]
% and do multiple strokes for wires, fancy borders, or braiding.
% Note that the FIRST array value pair has to be the WIDEST, etc.
% Use superstroke for wires; superinsidestroke for borders. 
% Six grays remain as 0 43 86 129 172 215.

/supercstroke { save /sssnap exch def /sscmd exch def mark 0 2 sscmd length
2 div cvi 1 sub 2 mul {/aposn exch def gsave sscmd aposn get
setlinewidth sscmd aposn 1 add get setwebtint stroke grestore} for cleartomark
sssnap restore newpath} def

% ==================



% intended for Avery 8376



% Do we want to see the layout grid?
/showthegrid false def % true = yes; false = no


167 setwebtint
0 0 mt 1000 pu 1000 pr 1000 pd closepath fill
black





/repeatproc {
0 0 10 setgrid % get on the usual
% maybe show the CARD-SIZED grid
showthegrid {25 14 showgrid} if


gsave                    0.65 dup scale


/cstretch 0.05 def /sstretch 0.05 def /kern 0.1 def

/font1 /FilsonSoftHeavy [4 0 0 4 0 0 ] gonzofont
/font2 /FilsonSoftHeavy [1 0 0 1 0 0 ] gonzofont


0 10.5 translate % move to top of card

newpath
1 setlinecap 
2 4.1 mt 53   pop      17.3 pr
[0.7 126 0.45 210] supercstroke


font1


{
newpath
4.4 5.15 mt (y) true charpath
130 setwebtint 
0.58 setlinewidth stroke

newpath
14.0 5.15 mt (g) true charpath
130  setwebtint 
0.58 setlinewidth stroke
}

font1
82 setwebtint % aqua
2 5.15 (S|k|k|kyn|kergy) cl


grestore

82 setwebtint 
font2
1.7 8.2 (& Wurkupt Designs) cl



/font3 /FilsonSoftHeavy [0.8 0 0 0.8 0 0 ] gonzofont

font3
86 setwebtint
1.7 6 (Dave & Blair Grinell

8630 East Ninth Avenue 
Box 2215
Hualapai UT 71943) cl

82 setwebtint

23.7 4 (dave@treppance.com
|k|kwww|j.|jtreppance.com
|k|k(|j228|j) 555-4007) cr









} def


%   (1) step and repeat
%
%   Horizontal and vertical are defined AFTER selecting portrait or 
%   landscape. Parameters (in points or true/false) are as follows...
%
%      #horizrpts - times proc repeats in horizontal direction
%      #vertrpts  - times proc repeats in vertical direction
%      hspacing   - horizontal proc repeat spacing
%      vspacing   - vertical proc repeat spacing
%      hstart     - horizontal offset of first proc
%      vstart     - vertical offset of first proc
%      ticklen    - length of cropping ticks when and if used
%      useticks?  - show the ticks true/false boolean
%      landscape  - landscape orientation true/false boolean
 
/stepnrptparams 40 dict def
stepnrptparams begin
/buscard1    [2 5 
3.5                                                    0.17 add  inch    % hspace
2                                                    0.063 add  inch       % vspace
0.75                                                 0.1 sub  inch               % left
0.50                                                  0.12 sub   inch  % bot
20                 % tick
false false]  store     % 12 buscards adjusted for avery
end



(buscard1) stepandrepeat




% EOF