% name of textfile: P15 Tent Effects  (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

% ==========



gonzo begin
gutility begin
printerror
nuisance begin

% tentproc - simplifies layout of back-to-back
% lettering as used on an announcement, point
% of purchase ad, or sealing product label.
% predefine a frontproc and a rearproc. Then enter
% tentproc with -lowerleft- -lowerbot- -gridresolution-
% -xgridwidth- -ygridheight- -showtick- -showgrid-
% tentproc

/tentproc { /showtheticks exch def /showthegrid exch def
/ygridheight exch def /xgridwidth exch def gridresolution
exch def /lowerbot exch def /lowerleft exch def save /snap1
exch def gsave lowerleft lowerbot translate 0 0 moveto
gridresolution dup dup setgrid
showthegrid { xgridwidth ygridheight showgrid} if
showtheticks { gsave 0 setlinewidth -1 -2 moveto 0 2
rlineto stroke
-2 -1 moveto 2 0 rlineto stroke
xgridwidth 1 add -2 moveto 0 2 rlineto stroke
xgridwidth -1 moveto 2 0 rlineto stroke
-2 ygridheight 1 add moveto 2 0 rlineto stroke
-1 ygridheight moveto 0 2 rlineto stroke
xgridwidth ygridheight 1 add moveto 2 0 rlineto stroke
xgridwidth 1 add ygridheight moveto 0 2 rlineto stroke
-2 ygridheight 2 mul 3 add moveto 2 0 rlineto stroke
-1 ygridheight 2 mul 2 add moveto 0 2 rlineto stroke
xgridwidth ygridheight 2 mul 3 add moveto 2 0 rlineto
stroke
xgridwidth 1 add ygridheight 2 mul 2 add moveto 0 2
rlineto stroke } if
save /frontsave exch def
frontsideproc
frontsave restore
180 rotate xgridwidth neg ygridheight 1 add 2 mul neg
translate
showthegrid { xgridwidth ygridheight showgrid} if
save /rearsave exch def
rearsideproc
rearsave restore} def
% demo -- remove before use
/lowerleft 100 def
/lowerbot 50 def
/gridresolution 10 def
/xgridwidth 20 def
/ygridheight 22.5 def
/showthegrid false def
/showtheticks true def
% define a step-and-repeat
/stepnrptparams 40 dict def
stepnrptparams begin
/threetentsplit [3 1 250 500 25 25 10 true true] def
end
0.9 1 scale % make it smaller in the x direction only
/frontsideproc {


/font1 /AvantGarde-DemiOblique [2.75 0 0 2.75 0 0]
gonzofont
/font4 /AvantGarde-DemiOblique [1.5 0 0 1.5 0 0]
gonzofont
/font6 /AvantGarde-DemiOblique [2 0 0 2 0 0] gonzofont
/yinc 2 def
10 21 (|6Natural Beeswax
Candles) cc
/yinc 2 def
10 12 (|4~ 100% dripless ~
~ hand-rolled ~
~ natural honey scent ~)cc
10 3 (|1eden candles) cc
newpath 10 16.5 0.85 0 360 arc fill
} def
/rearsideproc {
/font0 /AvantGarde-DemiOblique [2.5 0 0 2.5 0 0]
gonzofont
/font2 /AvantGarde-DemiOblique [1.5 0 0 1.5 0 0]
gonzofont
/font3 /AvantGarde-DemiOblique [2 0 0 2 0 0] gonzofont
/font5 /ZapfDingbats [1.5 0 0 1.75 0 0] gonzofont
/yinc 2 def
10 21 (|3...we'd love to hear
from you) cc
15 19.25 (|5“) cl
10 10 (|0eden candles) cc
/yinc 2 def
4 8 (|2p.o.box 299
cotton, ak 99543
903-485-2017) cl
newpath 10 16.5 0.85 0 360 arc fill
newpath 15.5 18.75 0.2 0 360 arc fill
grestore } def
% lowerleft lowerbot gridresolution xgridwidth ygridheight
% showthegrid showtheticks tentproc
/hopistuff { 0 0 10 20 22.5 false false tentproc} def
/repeatproc {hopistuff} def
(threetentsplit) stepandrepeat




% eof