\begin{Schunk}
\begin{Sinput}
> bdraw()
> x <- c(-3, -1.5, -1.8, 0, 2, -3)
> y <- c(2,   10,    0.5, -8, 5, 2)
> polygon(x, y)
\end{Sinput}
\end{Schunk}
