summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-marble/examples/Nautilus.tex
blob: 6c86c02624397633b5ddbd6752878c007492f28e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
\documentclass[pstricks]{standalone}
\usepackage{pst-marble}
\begin{document}
\begin{pspicture}(-6,-6)(6,6)
  \psMarble[
    colors={
      [0.20 0.10 0.02]
      [0.72 0.49 0.41]
    },
    viscosity=1000,
    oversample=2,
    actions={
      0 0 384 colors 1 get drop
      -192 0 288 colors 0 get drop
      -192 0 144 colors 1 get drop
      -192 0 56 colors 0 get drop
      180 [ -480 80 480 {} for ] 4 150 50 rake
      0 [ -520 80 520 {} for ] 4 150 50 rake
      -90 [ -480 80 480 {} for ] 4 150 50 rake
      90 [ -520 80 520 {} for ] 4 150 50 rake
      0 0 [ 75 150 225 300 375 ] 4 -120 50 stir
      0 0 -15 turn
    },
    shadings={
      0 0 -75 0 20 wriggle-shade
    }
  ](12,12)
\end{pspicture}
\end{document}