%!ps

% Initial Spiral attempt
% ======================
%  Copyright c 9/2017 by Don Lancaster & Synergetics, Box 809, Thatcher, AZ, 85552
%  (928) 428-4073 Email: don@tinaja.com Website: http://www.tinaja.com
%  Consulting services available don@tinaja.com or http://www.tinaja.com/info01.html
 
%  All commercial rights and all electronic media rights ~fully~ reserved.
%  Linking usually welcome. Reposting expressly forbidden. Version 2.1 

% Send code to Acrobat Distiller, preferably using Windows Command
% mode and "//acrodist /F".


% from gonzo 
/m {moveto} store
/dot2 { currentpoint newpath 5 0 360 arc fill } def
/mdot2 { m dot2} def

/dot3 { currentpoint newpath 10 0 360 arc fill } def
/mdot3 { m dot3} def


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/side 400 store
/decay .985 store
/angdec -1 store

/curang -126.5 pop -121.5 store

200 200 translate


 /cc 0 store
0 0 moveto 

0 1 300 { /pass exch store  

        0 side rlineto 
        curang rotate
         /side side decay mul store
currentpoint closepath 
  gsave 0 1 0 setrgbcolor fill grestore moveto

        } for
   
1 setlinewidth stroke 



showpage
%EOF