%!


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%  Victor Jitlin
%%%%  #82175019
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% set units to inches

72 72 scale

0.04 setlinewidth

1 1 translate


(lenses.inc) run

%Border
newpath

0 0 moveto

6 0 lineto

6 8 lineto

0 8 lineto

closepath

stroke



newpath

0 0 moveto

9 0 lineto

9 9 lineto

0 9 lineto

closepath

clip


0.01 setlinewidth


%side
newpath
1 6 moveto
1 -1 rlineto
-1 -1 rlineto
closepath
stroke
/Helvetica findfont 12 72 div scalefont setfont
1.2 4 moveto (Side View) show

1 0 0 setrgbcolor

%ray
newpath
.5 5.5 moveto
1 0 rlineto
0 -1 rlineto
-1 0 rlineto
.1 .05 rlineto
-.1 -.05 rmoveto
.1 -.05 rlineto
stroke
0 0 0 setrgbcolor

%front
newpath
4 6 moveto
1 0 rlineto
0 -2 rlineto
-1 0 rlineto
0 2 rlineto
0 -1 rmoveto
1 0 rlineto
stroke

4.2 3.8 moveto (Front View) show

%tunnel
newpath
1 3 moveto
2 -2 rlineto
0 2 rlineto
-2 -2 rlineto
0 2 rlineto
2 0 rlineto
stroke
1.4 .6 moveto (Tunnel View) show

1 0 0 setrgbcolor
%ray2
newpath
.5 2.5 moveto
3 0 rlineto
-.1 .05 rlineto
.1 -.05 rmoveto
-.1 -.05 rlineto
stroke
0 0 0 setrgbcolor
/Helvetica findfont 15 72 div scalefont setfont
1 6.5 moveto (Right-Angle Prism Used to Reverse a Ray) show