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