% name of textfile: P13 Rubber Stamps (DL/Synergetics May 91 v1.0)
% ....

% =========

% 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

% ==========


% Makes up a master negative for rubber stamp production

gonzo begin                 % turn on gonzo justify
gutility begin              % turn on utilities
printerror                  % print any mistakes
nuisance begin              % activate the nusiance dictionary

% blackflash                % activate for final copy
% manual                    % 

% here is a signature ....

/dianesignature {save /snapd exch def
% curvetrace D
[4.5 4.9 180   2.5 2.2 -120   1 1 160   -.3 2.6 80   1 3.2 .30   2.5 2 -50   4.9 1.2 40     
5.2 4.9 -130   5.9 2.8 0    8 3 -10] curvetrace
0.2 setlinewidth  1 setlinejoin 1 setlinecap stroke  

%curvetrace ia
[6.4 1.2 -60 %start  i
8 1.2 30   
9.1 2.8 -110  %top of i   
8.5 1.7 -110       
9 1.1 -30  %bottom of i   
10.9 2.2 60   %start a  
12.8 2.5 -60   %top right of a  
12.8 2.5 120   %backtrack top  
10.9 2.2 -120  %return to start of a   
11 1.3 -60   
12 1.3 40   
12.8 2.5 -120   
12.4 1.8 -90
13 1 -10  %exit a
14.5 1.9 40  %begin n
16 2.6 -30   %top of first hump
16 1 -120
16 1  60  % bottom n reverse
16.5 2 40
17 2.5 20
18 2.2 -100
18 1.5 -100  %finish n
20.2 1.3 40   %bottom e
20.7 2.5 120
20.2 2.5  -120
20.2 1.3 -30
23.5 2.2 60  %finish Diane
] curvetrace 0.2 setlinewidth 1 setlinejoin 1 setlinecap stroke
snapd restore} def

/firstset {save /snapf exch def
185 470 10 setgrid
25 30 showgrid

-1 -1 mt 0 32 rlineto 27 0 rlineto 0 -32 rlineto closepath black fill

nuisance begin
negative               % this makes black = white and vice versa

% a border

0.5 setlinewidth 1 setlinecap
0 0 mt 30 u 25 r 30 d 25 l stroke

/cstretch 0.05 def                    % extra character spacing
/sstretch 0.05 def                    % extra space stretch

/font1 /Helvetica-Narrow-Bold 1.2  gonzofont
/font2 /ZapfChancery-MediumItalic 1.6 gonzofont
/font3 /ZapfChancery-MediumItalic 1.6 gonzofont
/font4 /Palatino-BoldItalic 0.8 gonzofont
/font5 /Palatino-BoldItalic 1 gonzofont
/font6 /Helvetica-Bold 1.4 gonzofont
/font8 /ZapfDingbats [6 0 0 6 0 0] gonzofont
/font9 /ZapfDingbats [-2 0 0 2 0 0] gonzofont

0 -5 translate
/yinc 1.4 def
2 32 (|2Jocelyn Susan Nelson) cl

2 29
(|1Dorothea B Riley
2504 16th Street
Wittford, AZ 85964) cl

/yinc 1.6 def
7 24 (|3photo by
Diane Dobbins) cc

% combining a bunch on one liners

/yinc 1.4 def
2 20 (|6Econobuy Food and Drug
|4
Without prejudice U.C.C. 1-207

Without prejudice AZ 47-2214
|5
Without prejudice U.C.C. 1-207

Without prejudice AZ 47-2214) cl

20 13 (|8`) cc


gsave 
-7 -750 translate landscape
gsave 9 27.5 translate 0.4 dup scale dianesignature grestore
grestore

snapf restore} def

firstset


/secondset {save /snapf exch def
landscape

400 185 10 setgrid
35 24 showgrid

%-1 -1 mt 0 27 rlineto 37 0 rlineto 0 -27 rlineto closepath black fill

nuisance begin
%negative   % this makes black = white and vice versa

0.5 setlinewidth
0 0 mt 24 u 35 r 24 d 35 l stroke

snapf restore} def

%secondset

showpage 

% eof