% name of textfile: P14 Character border  (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

% ==========



% Repeats a character in a font to form a border. All characters
% remain rightside up. 


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 true def     % show the layout grid?

20 20 10 setgrid                   % get on a grid  
showthegrid {57 78 showgrid} if    % optionally show the grid


% here are the routines for repeating characters for a border 

/stringup {/char exch def {gsave char show grestore
currentpoint vertcharspacing add moveto} repeat} def

/stringright {/char exch def {gsave char show grestore
currentpoint exch horizcharspacing add exch moveto} repeat} def

/stringdown {/char exch def {gsave char show grestore
currentpoint vertcharspacing sub moveto} repeat} def

/stringleft {/char exch def {gsave char show grestore
currentpoint exch horizcharspacing sub exch moveto} repeat} def

%  //// demo - remove or alter before reuse. ////

/font0 /ZapfDingbats  [2 0 0 2 0 0] gonzofont
/vertcharspacing 2 def
/horizcharspacing 2 def

font0

10 10 moveto
20 (\252) stringup
15 (\252) stringright
20 (\252) stringdown
15 (\252) stringleft

showpage 


% eof