%!
% set units to inches
(lenses.inc) run

110 110 scale
0.01 setlinewidth
1 1 translate

% draw the boundary of the picture
newpath
0 0 moveto
4 0 lineto
4 3 lineto
0 3 lineto
closepath
stroke

% restrict all subsequent drawing to inside that boundary by clipping
newpath
0 0 moveto
4 0 lineto
4 3 lineto
0 3 lineto
closepath
clip



newpath
0 1.5 moveto
4 1.5 lineto
0 0 0 setrgbcolor
stroke

% draw the water in the pool
newpath
0 1.5 moveto
4 1.5 lineto
4 3 lineto
0 3 lineto
closepath
0.8 0.9 1 setrgbcolor
fill
newpath
2 0 moveto
2 3 lineto
0 0 0 setrgbcolor
stroke


2 0 translate
0.03 setlinewidth

/A 33.6 def
/x 2 A sin A cos div mul def 

newpath
x 0 moveto
0 1.5 lineto
/r A sin 1.33 div asin def
/l r sin r cos div 1.5 mul def
l -1 mul 3 lineto
0 0 1 setrgbcolor
stroke

/dx 2 4 div def
/B 33 def
/x 4 def
5 {
newpath


stroke
/x x dx add def
} repeat
/Times-Roman findfont 0.10 scalefont setfont

showpage