% name of textfile: P12 Badge & Arcjustify  (DL/Synergetics Feb 91 v1.0)
% ....

% =========

% This file requires the previous download of gonzo.psl
% available from http://www.tinaja.com/post01.asp

% Make sure the following line agrees with your own gonzo.psl location

(C:/Users/don/Desktop/gonzo/gonzo.psl) run  % use internal gonzo

% ==========

% Two uses of circular text include T-Shirts and badges.

gutility begin              % turn on the gonzo utilities
nuisance begin              % turn on the nuisance commands
printerror                  % turn on the printing error trapper  


landscape                   % this one horizontal

gonzo begin                 % turn on the gonzo justification 

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

20 15 10 setgrid            % set the main page grid

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

% THE FIRE JACKET

% NOTE: in an arcjustify, the first number is the xcenter, the second
% is the ycenter, and the third is the radius. Use a negative radius
% if you want to be concave instead of convex.

/arckern 0.15 def                        % stretch characters slightly
/font9 /Times-Bold 7 gonzofont           % pick a big font
font9                                    % select the font
38 6 42 (THATCHER FIRE DEPT.) karcjustify % and draw it




% THE BADGE

% Define a badge proc

/badge {gsave translate       % move to desired CENTER location
0 setlinewidth                % draw an (optional) outside circle
0 0 17.2 0 360 arc stroke     % for the Badge-A-Minit cutter

0 0 9.5 0 360 arc stroke % this is the actual badge diameter

line3
0 0 7.5 0 360 arc stroke      % this is the outside printed circle

line1 
0 0 5.7 0 360 arc                          % this is the inside gray
gsave bestgray lightgray fill grestore     % circular fill area
stroke

/arckern 0.03 def              % slight character kerning 

/font0 /Helvetica-Bold 1.2 gonzofont                % pick nice font
font0
0 0 6.2 (Schizophrenic's International) karcjustify  % and show it convex

/arckern 0.08 def 
0 0 -7 (Convention 1989 - 1990) karcjustify     % same - only concave lower           



/cstretch 0.02 def                            % inside message
/sstretch 0.02 def

/font1 /Helvetica-Narrow-Bold [7 0 0 10 0 0] gonzofont
/font3 /Helvetica-Narrow-Bold 1.2 gonzofont
/font2 /Helvetica-Narrow 1 gonzofont

/yinc 2 def
0 setgray
0 3.1 (|3HI AND HELLO) cc
0 1.9 (|3OUR NAMES ARE) cc

0 -1.4 (|2and) cc

line1                               % the two write-your-name lines
-4 -0.5 mt 8 r
-3 -3.5 mt 6 r

grestore } def                      % and undo




52 18 badge                  % this draws the badge on the page
25 18 badge

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

% eof