\begin{Schunk}
\begin{Sinput}
 bdraw()
 points(x = x, y = y, col = "red")
\end{Sinput}
\end{Schunk}
