\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}
