\begin{tikzpicture}

\tkzInit[xmin=-5,ymin=-5,xmax=5,ymax=5]
%\tkzClip

% Draw projective grid
\tkzGrid(0,0)(3,3)
\foreach \i in {0,1,2,3}
{
	\foreach \j in {0,1,2,3}
	{
		\tkzPoint[color=red,noname](\i,\j){X\i\j}
	}
}

% Draw eye
\path  (4.0, 1.5) coordinate (E0)
      +(0.5, 0.5) coordinate (E1)
      +(0.5,-0.5) coordinate (E2);

\path  (4.42,1.5) coordinate (EP);

\tkzSegment(E0/E1)
\tkzSegment(E0/E2)
\tkzMarkAngle[size=.5](E1/E0/E2)

	\tkzFillCircle(EP,0.1cm)

% Draw frustum
\path  (4.5, 1.5) coordinate (F0)
      +(2.0, 1.0) coordinate (F1)
      +(2.0, 0.333) coordinate (F2)
      +(2.0,-0.333) coordinate (F3)
      +(2.0,-1.0) coordinate (F4)
\tkzSegment(F0/F1)
\tkzSegment(F0/F4)

% Draw grid on frustum
\tkzSegment[style=dashed](F1/F4)
\tkzDrawPoint[color=red,noname](F1,F2,F3,F4)

\end{tikzpicture}
