%!PS-Adobe-2.0
%%BoundingBox: 0 0 300 300

newpath
0 0 moveto
300 0 rlineto
0 300 rlineto
-300 0 rlineto
closepath
clip

/w 300 def
/h 300 def
/llx -150 def
/urx 150 def
/R 5 def

(lenses.inc) run

/page-begin {
gsave
w 2 div h 2 div translate
72 dup scale
1 72 div setlinewidth
} def

/page-end {
grestore
showpage
} def

page-begin

newpath
-4 0 moveto
4 0 lineto
4 -6 lineto
-4 -6 lineto
closepath
gsave
0.9 setgray
fill
grestore
stroke

/rmin 89.9 sin red-index div asin def
/N 16 def
/dr rmin N div 2 mul def
/depth -1 def
/r rmin def

1 0 0 setrgbcolor
newpath
N 1 add {
0 depth moveto
r sin r cos div depth mul 0 lineto
/i r sin red-index mul asin 90 add def
i cos 5 mul i sin 5 mul rlineto
/r r dr sub def
} repeat
-2 0 moveto
stroke

page-end