% name of textfile: P7 Gonzo Text Paragraph (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

% ==========


% An introduction to gonzo justification for large blocks of text.


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 

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

20 15 10 setgrid            % set the layout grid

showthegrid {57 76 showgrid} if      % and maybe show the grid



% select a bunch of fonts to show special effects . . .
% Remember that we are on a 10X grid, so 1.4 is 14 points  

/font0 /Times-Bold [6 0 0 6 0 -3.48] gonzofont   % special drop cap
/font1 /Times-Roman 1.4 gonzofont
/font2 /Times-Italic 1.4 gonzofont
/font3 /Times-Bold  [1.5 0 0 1.5 0 -1.3] gonzofont   % subscript
/font4 /Times-Roman 1.2 gonzofont
/font5 /Times-Italic 1.2 gonzofont
/font6 /Times-Bold 1.3 gonzofont
/font7 /Times-Bold 1.3 gonzofont
/font8 /Times-Roman [1.0 0 0 1.0 0 0.4] gonzofont   % superscript
/font9 /Times-Roman [1.0 0 0 1.0 0 -0.3] gonzofont   % subscript
/font- /ZapfDingbats 1.4 gonzofont
/font= /Symbol 1.4 gonzofont

% pick some template values

/txtwide 38 def             % width of text
/yinc 1.7 def               % line spacing
/cstretch  0.02 def         % minimum extra space between characters  
/sstretch 0 def             % minimum extra space between spaces

/maxsstretch 0.25 def       % trip point for character stretching     
/maxcstretch 0.1 def        % maximum allowable character stretching
/dropcount 3 def            % number of lines the drop cap drops
/dropindent 5 def           % indentation for the drop cap
/lastlinestretch 0.006 def  % slight stretch to last paragraph line


/overstrikechar (\320) def   % overstrike character 
/overstrikeht 0.7 def       % vertical shift of overstrike character

/ytop 59 def                 % base of top text line 
/ypos ytop def               % select top text line
/xpos 10 def                 % left margin
/pm 1 def                    % paragraph margin
/kern 0.1 def                % one point of custom kerning

% select two macros to simplify drop caps and centered drop text

/amacro {(Flzy0)  stringmacro} def  % start drop cap
/bmacro {(iFy1) stringmacro} def  % finish drop cap
/cmacro {(zynC3) stringmacro} def  % centered title
/dmacro {(pF1)  stringmacro} def  % normal text


% and print the paragraph

% IMPORTANT NOTE: Some word processors may force extra carriage returns
%                 on you. The reverse slashes shown below avoid this
%                 problem, but may not be required. Try it both ways.

startgonzo
|a
H
|b
ere is a demonstration of a premium, gonzo fill justified paragraph that \
has lots of interesting features. A very fancy automatic fill justify is \
used which stretches both spaces and between-character spacing by selected \
and controlled amounts. You can also individually kern characters, as in \
the word |4A|kW|kARD|1 here. See how the |4"W"|1 overlaps the |4"A"|1.
|c
A Centered And Dropped Heading
|d
Note that only one single embedded command is needed to start either \
the drop cap or the auto centering headers. Note also that the above \
header is dropped slightly to improve its vibes.
|h
Naturally, |7bold|1, |2italic|1, |8superscript|1, and |9subscript|1 are \
very easy to in- clude, freely intermixed on any line. Fully automatic \
hanging punctuation is included for such things as periods, commas, \
and  hyphens. This greatly improves the appearance, especially with \
small columns of |4300 DPI|1 text.
|h
Some other tricks include showing |4ALL CAPITAL LETTERS|1 in a slightly \
smaller font for improved balance, and in using a Greek alphabet \
should you need something electronic, such as a 220|=W|1 resistor, a |4R|oS|oT|o|1 \
complement, or an 0.1 |=m|1Fd. capacitor. |-G|1

|x                           % end of gonzo marker


5 17 48 47 1.5 roundbox             % draw a box to prove we are out of gonzo
[0.8 0 0.6 1 0.35 0] superinsidestroke


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

% eof