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

gsave

44 20 translate

(lenses.inc) run

/f { 4 dict begin
/y exch def
/i y asin def
/r y 1.33 div asin def
4 r mul 2 i mul sub
end } def

100 dup scale
1 100 div setlinewidth

gsave
0.7 setgray
newpath
-0.125 0 moveto
1.25 0 rlineto
0 -0.125 moveto
0 1.375 rlineto
1 -0.125 moveto
0 1.375 rlineto
stroke

newpath
0 10 50 { /i exch def
-0.125 i 90 div 2 mul moveto
1.25 0 rlineto
} for
stroke

grestore

/N 100 def
/y 0 def
/dy 0.99 N div def

newpath
currentlinewidth 2 mul setlinewidth
y y f 90 div 2 mul moveto
N {
/y y dy add def
y y f 90 div 2 mul lineto
} repeat
stroke

grestore

/Helvetica-Bold findfont
11 scalefont
setfont

gsave

14 0 translate

30 20 moveto
-8 2 rlineto
(0) show

/Y 22.1 def

0 Y translate
30 20 moveto
-14.5 2 rlineto
(10) show

0 Y translate
30 20 moveto
-14.5 2 rlineto
(20) show

0 Y translate
30 20 moveto
-14.5 2 rlineto
(30) show

0 Y translate
30 20 moveto
-14.5 2 rlineto
(40) show

0 Y translate
30 20 moveto
-14.5 2 rlineto
(50) show

grestore

64 8 moveto
(deflection) show

20 58 translate
90 rotate 
0 0 moveto
(incidence) show

    showpage