% name of textfile: P11 quadfold (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

% ==========


% Four panel foldover for announcements or thankyou notes


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 

/showallgrids true def     % Do we want to see all four grids?




% This magic proc takes four individual panels called firstpanelproc
% through fourthpanelproc and arranges them properly on the page ....


/quadfoldproc {

save /p1snap exch def 20 11 72 mul 2 div 20 add 10 setgrid
upsidedownpanel
showallgrids {27 36 showgrid} if
firstpanelproc clear p1snap restore

save /p1snap exch def 20 20 3 sub 10 setgrid
showallgrids {27 36 showgrid} if
secondpanelproc clear p1snap restore


save /p1snap exch def 8.5 72 mul 2 div 20 add 20 3 sub 10 setgrid
showallgrids {27 36 showgrid} if
thirdpanelproc clear p1snap restore

save /p1snap exch def 8.5 72 mul 2 div 20 add 11 72 mul 2 div 20 add 10 setgrid
upsidedownpanel
showallgrids {27 36 showgrid} if
fourthpanelproc clear p1snap restore
} def

/upsidedownpanel { 27 36 translate 180 rotate } def % used by quadfoldproc


% here is a quick and simple border ...

/niceborder { 2 [0 20 0 36 27 36 27 0 0 0 0 20] roundpath 
[0.8 0 0.6 1 0.4 0] superinsidestroke} def


% Here are four example panels ...

/firstpanelproc {
/cstretch 0.02 def         % a little bit of character stretch
/sstretch 0.02 def         % a little bit of space stretch

/font1 /Helvetica 0.85 gonzofont
/font2 /ZapfChancery-MediumItalic 3 gonzofont

niceborder 5 5 ( |1first panel ) cl
13.5 20 (|2Thank  you) cc
 } def

/secondpanelproc {
/cstretch 0.02 def         % a little bit of character stretch
/sstretch 0.02 def         % a little bit of space stretch

/font1 /Helvetica 0.85 gonzofont
/font2 /ZapfChancery-MediumItalic 3 gonzofont

 5 5 ( |1second panel ) cl } def

/thirdpanelproc { 
/cstretch 0.02 def         % a little bit of character stretch
/sstretch 0.02 def         % a little bit of space stretch

/font1 /Helvetica 0.85 gonzofont
/font2 /ZapfChancery-MediumItalic 3 gonzofont

5 5 ( |1third panel ) cl
/yinc 4 def
13.5 20 (|2for  the  giant
sea  tortoise.) cc
 } def

/fourthpanelproc { 
/cstretch 0.02 def         % a little bit of character stretch
/sstretch 0.02 def         % a little bit of space stretch

/font1 /Helvetica 0.85 gonzofont
/font2 /ZapfChancery-MediumItalic 3 gonzofont

5 5 ( |1fourth panel ) cl } def


% and this does the whole job automatically

quadfoldproc     % this automatically does the panels


showpage 

% eof