%!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 

} pop

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

initgraphics

200 200 translate

/ccc {trip 400 div sqrt 2.5 mul 0.6 1 sethsbcolor } store

/side 400 store

/colorit {gsave closepath ccc fill grestore} store

0 0 moveto  






0 1 400 pop 20  {  /trip exch store
           0 side rlineto curang rotate
           /side side decay mul store
           0 side rlineto 
             gsave colorit grestore 
           /side side decay mul store 
             curang rotate 0 side rlineto

      1 setlinewidth currentpoint   newpath     % stroke 

moveto
      curang rotate

   } for
 

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

initgraphics
200 200 translate
/side 400 store


/decay decay dup 1 sub 2 div   pop 0  sub store


 /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