%!PS

% Title here
% =======
% Author and date
% Function
% Details
% ======

% Gonzo utilities of http://www.tinaja.com/gonzo.psl are presently NOT 
% built in for immediate use. This adds 90K to the file size. A tutorial 
% can be found at http://www.tinaja.com/glib/gonzotut.pdf 

% If, instead, Gonzo is to be run as a diskfile for the much shorter code here, 
% Distiller MUST be run from the command line as this or similar
%  "C:/Program Files (x86)/Adobe/Acrobat 11.0/Acrobat/acrodist.exe" /F run

% Projects at http://www.tinaja.com/pssamp1.shtml

% =======

% Uncomment and modify to use disk based Gonzo. ( or other disk access )
 (C:/Users/Don/Desktop/Ghost/gonzo.psl) run % use internal 

20 20 10 setgrid  
% 57 75 showgrid
% ============== gonzo enhancements

/webtintmat [ 0 1 5 {/a exch store 0 1 5 
{/b exch store 0 1 5 {5 div b 5 div a 5 div}
for }for } for ] def

/setwebtint { abs cvi 216 cvi mod webtintmat
exch 3 mul 3 getinterval aload pop 
setrgbcolor} def

% supecrcstroke take a predefined path and a
% top-of-stack array of [width1 webcolor1  width2 webcolor2 .... widthn webcolorn]
% and do multiple strokes for wires, fancy borders, or braiding.
% Note that the FIRST array value pair has to be the WIDEST, etc.
% Use superstroke for wires; superinsidestroke for borders. 
% Six grays remain as 0 43 86 129 172 215.

/supercstroke { save /sssnap exch def /sscmd exch def mark 0 2 sscmd length
2 div cvi 1 sub 2 mul {/aposn exch def gsave sscmd aposn get
setlinewidth sscmd aposn 1 add get setwebtint stroke grestore} for cleartomark
sssnap restore newpath} def

/makered { mark 83 /setwebtint cvx ] cvx
printlist exch 3 index
exch put exch 1 add exch 
 } store

/makegray { mark 86 /setwebtint cvx ] cvx
printlist exch 3 index
exch put exch 1 add exch 
 } store


% ==================


/cstretch 0.1 def /sstretch 0.1 def /kern 0.1 def

/font1 /FilsonSoftHeavy [4 0 0 4 0 0 ] gonzofont
/font2 /FilsonSoftHeavy [1 0 0 1 0 0 ] gonzofont


0 65 translate % move to top of page

newpath
1 setlinecap 
2 4.1 mt 53 pr
[0.7 113 0.45 197] supercstroke


font1
newpath
4.35 5.10 mt (y) true charpath
215 setwebtint 
0.58 setlinewidth stroke

newpath
14.0 5.15 mt (g) true charpath
215   setwebtint 
0.58 setlinewidth stroke

font1
83 setwebtint % red
2 5.15 (S|k|k|kynergies) cl

font2
86 setwebtint
2 2.4 (8140 East Fourth Street|/makered  |k|k\267|k|k |/makegray Box 139 |/makered |k|k\267|k|k |/makegray Hualapai UT 71912) cl
55 5.15 (bill@tincan.com|/makered  |k|k\267|k|k |/makegray http:/|k|k/www.tincan.com) cr
55 2.4 ((127) 555-4773) cr

/makered { mark 83 /setwebtint cvx ] cvx
printlist exch 3 index
exch put exch 1 add exch 
 } store

/makegray { mark 86 /setwebtint cvx ] cvx
printlist exch 3 index
exch put exch 1 add exch 
 } store




showpage

% EOF