%!


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%  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 4 moveto
0 1 rlineto
1 0 rlineto
.4142 -1 rlineto
-.4142 -.4142 rlineto
closepath
stroke

/Helvetica findfont 15 72 div scalefont setfont
1.7 5.5 moveto (Pentaprism) show

/Helvetica findfont 12 72 div scalefont setfont
1.2 3.3 moveto (Side View) show
1.2 0 rmoveto (Front View) show
.8 4.3 moveto (A) show
1.3 3.65 moveto (B) show
.8 0 rmoveto (C) show

1 0 0 setrgbcolor

newpath
.5 4.5 moveto
1.7071 0 rlineto
1.5 3.7929 lineto
0 1.7071 rlineto
-.05 -.1 rlineto
.05 .1 rmoveto
.05 -.1 rlineto
stroke

0 0 0 setrgbcolor
%front
newpath
3 4 moveto
0 1 rlineto
1 0 rlineto
0 -1 rlineto
-1 0 rlineto
0 -.4142 rlineto
1 0 rlineto
0 .4142 rlineto
stroke

%Tunnel
newpath
1 1 moveto
0 1 rlineto
1 0 rlineto
.4142 -1 rlineto
-.4142 -.4142 rlineto
-1 .4142 rlineto
1.4142 0 rmoveto
.5857 0 rlineto
.4141 -.4142 rlineto
1 .4142 rlineto
0 1 rlineto
-1 0 rlineto
-.707 .707 rlineto
-.707 -.707 rlineto
1.414 0 rmoveto
-.4142 -1 rlineto
stroke

2.2 .5 moveto (Tunnel View) show


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