\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}
