% name of textfile: P14 certificate or award (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

% ==========

% A scroll bordered certificate that looks good on parchment

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                  % this one sideways

/showfullgrid false def    % show entire page grid?

20 20 10 setgrid           % get on a grid

showfullgrid {76 57 showgrid} if               % and maybe show it
 


% here are some routines that draw a full sized looping scroll border

/bline {gsave -0.5 0 moveto 0.3 -0.6 0.7 -0.6 1 0 rcurveto stroke grestore} def

/bloop {gsave -0.5 0 moveto -1 3 1 3 0 0 rcurveto stroke grestore} def

/bcorner {gsave 0 -0.8 moveto 0.4 0.15 0.1 0.6 0 0.8 rcurveto -3.8 1.8
-1.8 3.8 0 0 rcurveto 0.2 -0.1 0.65 -0.4 0.8 0 rcurveto stroke grestore} def

/drawscrollborder {borderlinewidth borderthickness div 0.37 div
setlinewidth gsave translate borderthickness .37 mul dup scale 2.25
hloops 1 sub 0.0 mul add 3.853 vloops 1 sub 1 mul add translate bcorner
1.3 0 translate hloops 1 sub {bloop bline 1 0 translate} repeat bloop 0.3
0 translate -90 rotate bcorner 1.3 0 translate vloops 1 sub {bloop bline 1
0 translate} repeat bloop 0.3 0 translate -90 rotate bcorner 1.3 0
translate hloops 1 sub {bloop bline 1 0 translate} repeat bloop 0.3 0
translate -90 rotate bcorner 1.3 0 translate vloops 1 sub {bloop bline 1 0
translate} repeat bloop grestore} def

% and here is how you use the border

/borderthickness 5.0 def /borderlinewidth 0.1 def
/hloops 34 def /vloops 25 def
1.5 0 drawscrollborder 

% some text 

/sstretch 0.3 def   % extra space stretch
/cstretch 0.02 def
/yinc 4 def


/font0 /Palatino-BoldItalic 3 gonzofont
/font1 /ZapfChancery-MediumItalic [5 0 0 5 0 0] gonzofont


font0

37.5 40 
(This certificate of appreciation
is reluctantly awarded to \274) cc


font1
37.5 28 (Joni L. Greebleknocker) cc


% this is the "sign here" line

line1
17 26 mt 42 r  stroke


% and here's the rest of the message ...

font0
37.5 20 (for no apparent reason at all.
She  certainly  did  nothing 
whatsoever to deserve it.) cc

showpage 

% eof