%!


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%  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 8 lineto

0 8 lineto

closepath

stroke


0.01 setlinewidth


/Helvetica findfont 15 72 div scalefont setfont
2 7.3 moveto (Dove Prism) show

/Helvetica findfont 12 72 div scalefont setfont
3 7.1 moveto (C) show
newpath
1 6 moveto
4.227 0 rlineto
-1 1 rlineto
-2.227 0 rlineto
closepath
stroke
2.5 5.8 moveto (Side View) show
2 5.8 moveto (B) show

1 0 0 setrgbcolor
newpath
.5 6.5 moveto
1 0 rlineto
1.6135 -.5 rlineto
1.6135 .5 rlineto
1 0 rlineto
-.1 .05 rlineto
.1 -.05 rmoveto
-.1 -.05 rlineto
stroke

0 0 0 setrgbcolor
newpath
1 4 moveto
1 0 rlineto
0 1 rlineto
-1 0 rlineto
closepath
stroke
.8 4.5 moveto (A) show
1.2 3.8 moveto (Side View) show

newpath
1 2 moveto
4.227 0 rlineto
-1 1 rlineto
-2.227 0 rlineto
closepath
stroke

newpath
1 2 moveto
4.227 0 rlineto
-1 -1 rlineto
-2.227 0 rlineto
closepath
stroke
2.5 .8 moveto (Tunnel View) show

1 0 0 setrgbcolor

newpath
.5 2.5 moveto
1 0 rlineto
3.227 -1 rlineto
1 0 rlineto
-.1 .05 rlineto
.1 -.05 rmoveto
-.1 -.05 rlineto
stroke