\documentclass[pstricks]{standalone}
\usepackage{pst-marble}
\begin{document}
\begin{pspicture}(-5,-7)(5,7)
\psMarble[
  background={[1 1 0.9]},
      colors={
[0.98 0.89 0.56]
[0.357 0.525 0.13]
[0.2 0.05 0.015]
[0.07 0.41 0.255]
[0.87 0.63 0.051]
},
    actions={
0 100 50 colors 25 concentric-rings
 /signe 1 def
  100 100 1000 {/radius exch def
  0 0 [radius] 10 60 signe mul 50 stir
    /signe signe neg def
    } for
     90 [ 7 200 200 tines ] 40 200 31 rake
    -90 [ 7 200 100 tines ] 40 200 31 rake
     0 {2 mul sin 20 mul} wiggle
   }](10,14)
\end{pspicture}
\end{document}