% name of textfile: P6 Report Cover (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 simple report cover includes bold text and uses some simple
% sketching tools. Also shows use of two relative layout grids.


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 

/showmaingrid false def     % Do we want to see the main grid?
/showboxgrid true def       % Do we want to see the box grid?

20 15 10 setgrid            % set the main page grid
showmaingrid {57 76 showgrid} if      % and maybe show the grid


% put down the main message ...

/cstretch 0.02 def                   % stretch characters slightly
/sstretch 0.02 def                   % stretch spaces slightly

/font1 /Palatino-Bold 8 gonzofont    % pick a big font
/font2 /Palatino-Bold 2 gonzofont    % pick a big font

font1
28.5 10 (A  REPORT) cc               % our title message 

font2
28.5 6.5 (by  Dramatis  Personnae) cc    % and the author


% draw a moveable box ...

gsave 10.5 20 translate                % put bottom of box where wanted
0 0 36 50 1.5 roundbox               % create a box
0.6 setlinewidth stroke              % and stroke the outline

showboxgrid {36 50 showgrid} if      % view the box grid - maybe


% draw some stuff inside the box ...

1 setlinecap line1 1 30 mt 34 r       % horizon line

gsave                                 % the mountain
newpath 2 29 mt 6 4.5 rlineto
2 -3 rlineto  4.5 3.5 rlineto
6 -5 rlineto closepath
gsave line3 stroke grestore
bestgray lightgray fill
grestore

/cactus {1 setlinecap 3 setlinewidth   % definie a reusable generic cactus
0 6 mt 18 u 0 setlinecap 0 0 mt 6 u
2 setlinewidth 1 setlinecap -4 22 mt
11 d 4 r 2 setlinewidth 1 setlinecap
3.5 20 mt 6 d 4 l} def

gsave 28 8 translate cactus grestore    % the big cactus

gsave 8 22 translate 0.2 dup neg exch   % medium reversed cactus
scale cactus grestore

gsave 18.5 30.5 translate 0.06 dup neg  % tiny frontwards cactus
exch scale cactus grestore

newpath 24 42 2 0 360 arc line3 stroke   % add a little sunshine
grestore                                 % get back out of the box

1 copies                     % make one copy
showpage                     % and show the page

% eof