\documentclass[pstricks]{standalone}
\usepackage{pst-marble}
\begin{document}
\begin{pspicture}(-5,-5)(5,5)
\psMarble[
actions={
    150{rand srand
    /n {rrand 360 mod} def
     n sin 350 rrand 200 mod sub mul
      n cos 350 rrand 200 mod sub mul
      rrand 25 mod 5 add
      [0.98 0.89 0.56] drop
    } repeat
    150{rand srand
    /n {rrand 360 mod} def
     n sin 350 rrand 200 mod sub mul
      n cos 350 rrand 200 mod sub mul
      rrand 15 mod 7 add
      [0.357 0.525 0.13] drop
    } repeat
    150{rand srand
    /n {rrand 360 mod} def
     n sin 350 rrand 200 mod sub mul
      n cos 350 rrand 200 mod sub mul
      rrand 10 mod 8 add
      [0.2 0.05 0.015] drop
    } repeat
    150{rand srand
    /n {rrand 360 mod} def
     n sin 350 rrand 200 mod sub mul
      n cos 350 rrand 200 mod sub mul
      rrand 10 mod 3 add
      [0.07 0.41 0.255] drop
    } repeat
0 0 -32e3 17 vortex
}](10,10)
\end{pspicture}
\end{document} 