%!


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

0 9.5 lineto

closepath

stroke


0.01 setlinewidth


%top
newpath
3 8.5 moveto
0 -1 rlineto
1 0 rlineto
closepath
stroke

%Dove
newpath
4 7 moveto
0 -4.227 rlineto
-1 1 rlineto
0 2.227 rlineto
closepath
stroke

%Amici
3 2.5 moveto
0 -.353535 rlineto
1 -1 rlineto
.3535 0 rlineto
0 1 rlineto
-.353535 .35355 rlineto
-1 0 rlineto
.5 0 rmoveto
.83535 -.853535 rlineto
stroke

1 0 0 setrgbcolor
%ray
2 8 moveto
1.5 0 rlineto
0 -1.5 rlineto
.5 -1.6135 rlineto
-.5 -1.6135 rlineto
0 -.75 rlineto
0 -.8535 rlineto
1.3535 0 rlineto
-.1 .05 rlineto
.1 -.05 rmoveto
-.1 -.05 rlineto
stroke

.5 setgray
newpath
2.8 7.5 moveto
0 -5.5 rlineto
1.2 -1.2 rlineto
.5 0 rlineto
0 1.5 rlineto
-.3 .3 rlineto
0 5 rlineto
-1.2 1.2 rlineto
-.4 0 rlineto
0 -1.3 rlineto
.2 0 rlineto
stroke

0 0 0 setrgbcolor
/Helvetica findfont 15 72 div scalefont setfont
2 1 moveto (Periscope) show