pst-marble-1.0 : exemples

\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]
[0.98 0.89 0.56]
},
    actions={
0 100 50 5  concentric-bands
 /signe 1 def
  100 100 1000 {/radius exch def
  [0 0 [radius] 10 60 signe mul 50 /stir]
    /signe signe neg def
    } for
    [ 90 [ -400 200 600 {} for ] 40 200 31 /rake]
    [-90 [ -500 200 600 {} for ] 40 200 31 /rake]
    [ 0 {2 mul sin 20 mul} /wiggle]
   }](10,14)
\end{pspicture}
\end{document}

Envoyé par Jürgen Gilg.

\documentclass[pstricks]{standalone}
\usepackage{pst-marble}
\begin{document}
\begin{pspicture}(-5,-5)(5,5)
\psMarble[
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]
[0.98 0.89 0.56]
},
actions={
0 0 45 6 concentric-bands
[0 500 -32e3 15 /vortex]
[500 0 -32e3 15 /vortex]
[-500 0 -32e3 15 /vortex]
[0 -500 -32e3 15 /vortex]
[-350 350 -32e3 15 /vortex]
[350 -350 -32e3 15 /vortex]
[350 350 -32e3 15 /vortex]
[-350 -350 -32e3 15 /vortex]
[0 0 -32e3 15 /vortex]
}](10,10)
\end{pspicture}
\end{document}

 Envoyé par Jürgen Gig.
\documentclass{article}
\usepackage{pst-marble}
\begin{document}
\begin{pspicture}(-5,-5)(5,5)
\psMarble[viscosity=1000,
    background=1 1 1,
    actions={
40 [0 0 1] 30 random-drops
25 [1 0 0] 40 random-drops
30 [1 1 1] 25 random-drops
[45 [-500 100 500 {} for] 50 100 30 /rake]
[-45 {5 mul sin 50 mul} /wiggle]
[45 {5 mul sin 50 mul} /wiggle]
[250 250 [275] -10 60 30 /stir]
[-250 -250 [275] 10 60 30 /stir]
   }](10,10)
\end{pspicture}
\end{document}

 Envoyé par Jürgen Gig.
\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
      background [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
      background [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
      background [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
      background [0.07 0.41 0.255] /drop]
    } repeat
[0 0 -32e3 17 /vortex]
}](10,10)
\end{pspicture}
\end{document} 

 Envoyé par Jürgen Gig.
\documentclass{article}
\usepackage{pst-marble}
\begin{document}
\begin{pspicture}(-5,-5)(5,5)
\psMarble[viscosity=1000,
    background=1 1 1,
    actions={
40 [0 0 0] 30 random-drops
30 [1 0 0] 25 random-drops
25 [1 1 0] 40 random-drops
[45 [-500 100 500 {} for] 50 100 30 /rake]
[-45 {5 mul sin 50 mul} /wiggle]
[250 250 -32e3 10 /vortex]
[-250 -250 32e3 10 /vortex]
   }](10,10)
\end{pspicture}
\end{document}