%!


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%  Victor Jitlin
%%%%  #82175019
%%%%  SLR Camera
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%Note: not an exact diagram
% 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


/Helvetica findfont 15 72 div scalefont setfont
newpath

0 0 moveto

6 0 lineto

6 6 lineto

0 6 lineto

closepath

clip


0.01 setlinewidth


1 5 moveto (SLR Camera) show
/Helvetica findfont 12 72 div scalefont setfont
2 3.2 moveto (Lenses) show
1.7 4.3 moveto (Penta-Roof Prism) show
%side
newpath
1 4 moveto
0 -.5 rlineto
.5 0 rlineto
.2071 .5 rlineto
-.2071 .2071 rlineto
-.5 -.2071 rlineto
.5 .2071 rmoveto
-.2071 .2071 rlineto
-.5 .58 mul -.2071 .58 mul rlineto
0 -.3 rlineto
stroke

1 0 0 setrgbcolor
newpath
.5 3.75 moveto
.1 .05 rlineto
-.1 -.05 rlineto
.1 -.05 rlineto
-.1 .05 rmoveto
1.1 0 rlineto
-.56 .8 mul .6 .8 mul rlineto
0 -1.25 rlineto
2 0 rlineto
stroke


0 0 0 setrgbcolor
newpath
1 3.13 moveto

.5 -.5 rlineto 
-.5 .5 rmoveto
stroke
1 2.5 moveto (Film) show
.2 0 rmoveto (Hinged Mirror) show
.5 .5 0 setrgbcolor

newpath
1 3.13 moveto
0 -.5 rlineto
stroke

0 0 0 setrgbcolor
.5 setgray
newpath
.8 4.4 moveto
.5 .2 rlineto
.64 -.6 rlineto
-.31 -.6 rlineto
.5 0 rlineto

0 .1 rlineto
.1 0 rlineto
0 -.1 rlineto

.2 0 rlineto

0 .1 rlineto
.1 0 rlineto
0 -.1 rlineto

.2 0 rlineto

0 .1 rlineto
.1 0 rlineto
0 -.1 rlineto
0 -1.1  rlineto

-.1 0 rlineto
0 .1 rlineto
-.2 0 rlineto
0 -.1 rlineto

-.1 0 rlineto
0 .1 rlineto
-.2 0 rlineto
0 -.1 rlineto

-.1 0 rlineto
0 .1 rlineto
-1.35 0 rlineto
0 2 rlineto
stroke