% name of textfile: P5 Quad Form Pads (DL/Synergetics Feb 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

% ==========


% Creates 4-up back-to-back pads arranged so you can apply padding
% compound to the outside edges.


gutility begin             % turn on the gonzo utilities
nuisance begin             % turn on the nuisance commands
printerror                 % turn on the printing error trapper  

gonzo begin                % turn on the gonzo justification 

landscape                  % landscape orientation

/showthegrid true def      % Do we want to see the grid?


% Define a routine called quadpad that draws ONE pad the way you want it

/quadpad {
save /snap1 exch def
0 0 10 setgrid
showthegrid {37 28 showgrid} if

/cstretch 0.02 def           % stretch spaces between characters slightly
/sstretch 0.1 def            % stretch spaces between words slightly

/font1 /AvantGarde-Demi 1.5 gonzofont  % Define some fonts

/yinc 2 def                % vertical spacing

font1
18.5 19 (Your stupendously great
padded form goes here) cc
6 15 25 7 1 roundbox line3 stroke

clear snap1 restore } def


% And these are the magic numbers to make two pads
% rightside up and two pads upside down...

gsave 16 316 translate quadpad grestore
gsave 406 316 translate quadpad grestore

% note that 11 x 72 = 792 and 8.5 x 72 = 612

180 rotate -792 -612 translate   % flip the whole world upside down

gsave 16 316 translate quadpad grestore
gsave 406 316 translate quadpad grestore


2 copies                     % make two copies
showpage                     % and show the page

% eof