\documentclass[pstricks]{standalone}
\usepackage{pst-marble}
\begin{document}
\begin{pspicture}(-6,-6)(6,6)
 \psMarble[
   background={
     [0.1 0 0.1]
   },
   colors={
     (e7cc9b)
     (c28847)
     (80410b)
   },
   viscosity=1000,
   actions={
     %% coffee mug rim and stirred foam
     0 0 150 [ .8 .8 .7 ] drop
     0 0 150 [ .8 .9 .8 ] drop
     0 0 150 [ .9 .9 .8 ] drop
     0 0 500 colors 2 get drop
     0 0 566 dup 0 colors 1 get 30 30 normal-drops
     0 0 -50e3 100 vortex
     %% tulip
     0 -250 30 colors 1 get drop
     0 -250 50 colors 0 get drop
     0 -200 20 colors 1 get drop
     0 -200 30 colors 2 get drop
     0 -150 30 colors 1 get drop
     0 -150 50 colors 0 get drop
     0 -100 20 colors 1 get drop
     0 -100 30 colors 2 get drop
     0 -50 30 colors 1 get drop
     0 -50 50 colors 0 get drop
     0 75 0 -450 20 30 stylus
     %% wreath
     0 10 390 90 95 0 colors 1 get 14 25 coil-drops
     0 0 400 90 100 0 colors 0 get 14 40 coil-drops
     0 0 [ -400 ] 1 20 31 stir
     %% short vine
     -100 250 75 [ 6 80 0 tines ] colors 1 get 20 line-drops
     -100 250 75 [ 6 80 0 tines ] colors 0 get 30 line-drops
     -300 200 300 350 20 30 stylus
   },
   spractions={
     0 0 300 300 0 [0.3 0.15 0.1] 1000 1.7 normal-spray
   }
 ](12,12)
\end{pspicture}
\end{document}