%!PS-ADOBE- 

% Display this file with psview: "psview dipper.ps"

%This code was written by Dennis Monti - monti@spinaltap from the QIS
%group at Sun Microsystems.  The original idea came from the elipse
%example in one of the Adobe PS books and I hacked it into 'DIPPER'.  
%'DIPPER' was chosen as a name because watching the elipses being drawn
%reminds me of riding a roller-coaster.  Dennis Monti 3/11/88

% Hacked it to use pause and took out delay loops. 
% -Don Hopkins

systemdict /pause known not {
  /pause {} def
} if

/z {60.0} def 
/circle {/z exch def 0 0 z 0 360 arc stroke } def

/elipse
{1 .8 scale z .95 mul circle stroke
} def

/elipse2
{1 1.25 scale z .95 mul circle stroke
}def

/elipse3
{1 .8 scale z 1.0526 mul circle stroke
} def

/elipse4
{1 1.25 scale z 1.0526 mul circle stroke
}def

/drawslinky
{
2{
gsave
10{pause 10 72 translate elipse} repeat 
10{pause 10 72 neg translate elipse2} repeat
grestore
gsave
210 72 translate
180 rotate
10{pause 10 72 translate elipse3} repeat 
10{pause 10 72 neg translate elipse4} repeat
grestore
1 1 translate
}repeat } def

%----------------------------------
erasepage
330 450 translate
24{drawslinky 15 rotate erasepage} repeat  
drawslinky
showpage