\begin{Schunk}
\begin{Sinput}
> bdraw()
> points(x = x, y = y, col = gray.colors(3))
\end{Sinput}
\end{Schunk}
