%!

(lenses2.inc) run

72 72 scale
0.01 setlinewidth
4 6 translate
1.3 1.3 scale

-.9 0 1 334 26 arc
stroke
.9 0 1 154 206 arc
stroke

0 0 1 setrgbcolor

/intersect1 [-2 .3][1 0][.9 0] 1 hit def
/x0 intersect1 0 get def
/y0 intersect1 1 get def

newpath
-1.5 .3 moveto
x0 y0 lineto
stroke

/n1 [.9 0] intersect1 gradient normalized def
/v1 n1 [1 0] 1.5 refraction def
/intersect2 [x0 y0]v1[-.9 0] 1 hit def
/x1 intersect2 0 get def
/y1 intersect2 1 get def

newpath
x0 y0 moveto
x1 y1 lineto
stroke

/n2 [-.9 0] intersect2 gradient normalized def
/v2 n2 v1 1 1.5 div refraction def
/intersect3 [x1 y1]v2[1 0 -2.7] line-intersection def
/x2 intersect3 0 get def
/y2 intersect3 1 get def

newpath
x1 y1 moveto
x2 y2 lineto
stroke

/intersect1 [-1.5 .3][-11.3 cos -11.3 sin][.9 0] 1 hit def
/x0 intersect1 0 get def
/y0 intersect1 1 get def

newpath
-1.5 .3 moveto
x0 y0 lineto
stroke

/n1 [.9 0] intersect1 gradient normalized def
/v1 n1 [-11.3 cos -11.3 sin] 1.5 refraction def
/intersect2 [x0 y0]v1[-.9 0] 1 hit def
/x1 intersect2 0 get def
/y1 intersect2 1 get def

newpath
x0 y0 moveto
x1 y1 lineto
stroke

/n2 [-.9 0] intersect2 gradient normalized def
/v2 n2 v1 1 1.5 div refraction def
/intersect3 [x1 y1]v2[1 0 -2.7] line-intersection def
/x2 intersect3 0 get def
/y2 intersect3 1 get def

newpath
x1 y1 moveto
x2 y2 lineto
stroke

0 0 0 setrgbcolor

0.001 setlinewidth
-2 0 moveto
2.8 0 lineto
stroke
-1.5 0 moveto
-1.5 .3 lineto
stroke
-1.5 -.03 moveto
-1.5 -.45 lineto
stroke
2.3 0 moveto
2.3 -.45 lineto
stroke
.91 0 moveto
.91 .4 lineto
stroke
-.91 0.05 moveto
-.91 -.05 lineto
stroke




showpage