\begin{Schunk}
\begin{Sinput}
 for(i in length(x2):1) {
    s3d$points3d(x1, rep(x2[i], length(x1)), dens[,i], type = "l")
  }
\end{Sinput}
\end{Schunk}
