%!


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

% set units to inches

72 72 scale

0.04 setlinewidth

2 2 translate


(lenses.inc) run

%Border
newpath

0 0 moveto

6 0 lineto

6 6 lineto

0 6 lineto

closepath

stroke



newpath

0 0 moveto

6 0 lineto

6 6 lineto

0 6 lineto

closepath

clip


0.01 setlinewidth


%side
newpath
1 5 moveto
1 0 rlineto
-1 -1 rlineto
0 1 rlineto
closepath
stroke

/Helvetica findfont 12 72 div scalefont setfont
.8 4.3 moveto (A) show
1.3 5.1 moveto (B) show
1.55 4.4 moveto (C) show
1 3.7 moveto (Side View) show

1 0 0 setrgbcolor

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

%front
newpath
3 5 moveto
1 0 rlineto
0 -1 rlineto
-1 0 rlineto
0 1 rlineto
closepath
stroke

3 3.7 moveto (Front View) show

%Tunnel
newpath
1 3 moveto
1 0 rlineto
0 -1 rlineto
-1 0 rlineto
0 1 rlineto
1 -1 rlineto
closepath
stroke

1 1.7 moveto (Tunnel View) show


1 0 0 setrgbcolor
%ray2
newpath
.5 2.5 moveto
2 0 rlineto
-.1 .05 rlineto
.1 -.05 rmoveto
-.1 -.05 rlineto
stroke
0 0 0 setrgbcolor

/Helvetica findfont 15 72 div scalefont setfont
2 1.3 moveto (Right-Angle Prism) show