% name of textfile: P4 graduation glass
% ....

% =========

% 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

% ==========



% Does a curve traced graduation insert for a plastic mug
 
gutility begin               % turn on 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        % Do we want to see the layout grid?
                             % true = yes; false = no

landscape                    % set in horizontal mode
0 0 10 setgrid               % set the usual grid

showthegrid
{70 45 showgrid} if          % and maybe show the MUG-SIZED grid

/cstretch 0.02 def           % stretch spaces between characters slightly
/sstretch 0.1 def            % stretch spaces between words slightly



/capscroll {save /snapc exch def
0.1 setlinewidth
%...........diploma
[32 9.8 10   37 11 10   43.5 13 10   43.5 13 -55   44 10.5 -120   44 10.5 -160
33 7 -150   33 7 80   33 8.5 110   32 9.8 145   31.5 9 -90   32.5 7.5 0
32.6 8.5 125   32.1 9 165   31.9 8.5 -90   32.4 8 0   32.1 8.7 135   32.1 8.7 10
32.3 8.8 10] curvetrace stroke
32.6 7.5 moveto 0.5 0.2 rlineto stroke
%............ribbon
1 setgray
[37 11 -45   38 9 -90   37.8 7 -100   37.8 7 75   38.3 7.8 75   38.3 7.8 -75
38.6 7 -75   38.6 7 80   38.7 9 90   37.9 11.1 135] curvetrace fill
0 setgray
[37 11 -45   38 9 -90   37.8 7 -100   37.8 7 75   38.3 7.8 75   38.3 7.8 -75
38.6 7 -75   38.6 7 80   38.7 9 90   37.9 11.1 135] curvetrace stroke

%...........top of mortarboard
30 17 moveto 8 0 rlineto 6 -3 rlineto 0 -0.3 rlineto -10 0 rlineto
0 0.3 rlineto 0 -0.3 rlineto -4 3 rlineto closepath stroke
30 17 moveto 4 -3 rlineto 10 0 rlineto stroke

%...........cap portion of mortarboard
[33 14.5 -135   32.5 12.5 -90   32.5 12.5 10   34.5 11 -75   34.5 11 30
37.5 12 0   39.3 11.7 -20] curvetrace stroke
[40.5 13.7 -75   40.7 12.2 -95] curvetrace stroke

%..........tassle
%0.3 setlinewidth
[36.5 15.5 180   32.1 15.5 180   31.8 14.5 -90] curvetrace stroke %....cord
0.1 setlinewidth
[36.5 15.4 90 36.75 15.75 0 37 15.4 -90 37 15.4 180 36.5 15.4 180] curvetrace stroke %...button
[31.8 14.5 -20   32.1 14 -90   32 13.75 -110   32 13.75 -70   32.1 13 -90
32.2 9.9 -90] curvetrace stroke
[31.8 14.5 -160   31.5 14 -90   31.6 13.75 -70   31.6 13.75 110   31.3 13 -90
31.2 10 -90   31.3 7 -90   31.3 7 0   31.7 6.9 0   32.2 7 0   32.2 7 90
32.1 7.7 90] curvetrace stroke
snapc restore } def


gsave 23.5 22 translate capscroll grestore
gsave -23.5 0 translate capscroll grestore

/font1 /ZapfDingbats [4 0 0 4 0 -0.25] gonzofont        % define a dingbat (heart) font
/font2 /Bookman-Demi [3.5 0 0 3.5 0 0] gonzofont     % define a medium font
/font3 /Bookman-DemiItalic  [6 0 0 6 0 0] gonzofont    % define a large font
/font4 /Bookman-Demi  [2 0 0 2 0 0] gonzofont        % define a small font


/yinc 5 def
37 35 (|2Luisa Vasquez) cc
37 15 (|2Interior Design
|2NAU
1992) cc



gsave -15 rotate 
2 32.5 (|3Congraduations!) cl
grestore

showpage 
% eof