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

% ==========


% Three panel brochure with center panel inverted ...


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?




/showallgrids true def
/quadpixel {} def % cures a bug of mine


% here are your three panels. Each is done seperately and positions
% itself automatically ...

%%

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


/font0 /Helvetica-Bold 1.2 gonzofont
/font1 /Helvetica 0.85 gonzofont
/font2 /Helvetica-Oblique 0.85 gonzofont

5 5 (|1 top panel ) cl } def

%%

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


/font0 /Helvetica-Bold 1.2 gonzofont
/font1 /Helvetica 0.85 gonzofont
/font2 /Helvetica-Oblique 0.85 gonzofont

5 5 (|1 middle panel ) cl } def

%%

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


/font0 /Helvetica-Bold 1.2 gonzofont
/font1 /Helvetica 0.85 gonzofont
/font2 /Helvetica-Oblique 0.85 gonzofont

5 5 (|1 bottom panel ) cl } def

%%




/triplepanelbrooch {

save /p1snap exch def 20 11 72 mul 2 mul 3 div 20 add 3 sub 10 setgrid
showallgrids {57 23 showgrid} if
toppanelproc clear p1snap restore

save /p1snap exch def 20 11 72 mul 3 div 20 add 3 sub 10 setgrid
upsidedownpanel
showallgrids {57 23 showgrid} if
midpanelproc clear p1snap restore

save /p1snap exch def 20 17 10 setgrid
showallgrids {57 23 showgrid} if
botpanelproc clear p1snap restore
} def

showallgrids {gsave 0 setlinewidth 0 11 72 mul 2 mul 3 div moveto  1000 0 rlineto stroke
0 11 72 mul 1 mul 3 div moveto  1000 0 rlineto stroke grestore} if

/upsidedownpanel { 57 23 translate 180 rotate } def % used by middle panel



% this does all the work ....

triplepanelbrooch

showpage 

% eof