%!


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

% set units to inches

72 72 scale

0.04 setlinewidth

1 1 translate


(lenses.inc) run

%Border
newpath

0 0 moveto

6 0 lineto

6 8 lineto

0 8 lineto

closepath

stroke



newpath

0 0 moveto

9 0 lineto

9 9 lineto

0 9 lineto

closepath

clip


0.01 setlinewidth


newpath
3 5 moveto
2 -2 rlineto
stroke

/Helvetica findfont 15 72 div scalefont setfont
1.2 5.4 moveto (The Imaginary Pencil Technique) show

newpath
1 3 moveto
0 2 rlineto
-.1 -.2 rlineto
0 -1.8 rlineto
.2 0 rlineto
0 1.8 rlineto
-.2 0 rlineto
.1 .2 rmoveto
.1 -.2 rlineto
stroke

.5 setgray
newpath
1.5 3.3 moveto
3.2 0 rlineto
0 -2 rlineto
-.1 .2 rlineto
.1 -.2 rmoveto
.1 .2 rlineto
stroke

newpath
1.5 4.7 moveto
1.8 0 rlineto
0 -3.4 rlineto
-.1 .2 rlineto
.1 -.2 rmoveto
.1 .2 rlineto
stroke

0 setgray
newpath
5 1 moveto
-1.8 0 rlineto
-.2 -.1 rlineto
.2 -.1 rlineto
1.8 0 rlineto
0 .1 rlineto
-2 0 rlineto
2 0 rmoveto
0 .1 rlineto
-1.8 0 rmoveto
0 -.2 rlineto
stroke