blob: 065139970b187141b7f73e7290b181f4f4690666 (
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
\documentclass[pstricks]{standalone}
\usepackage{pst-marble}
\begin{document}
\begin{pspicture}(-5,-5)(5,5)
\psMarble[
viscosity=1000,
%% Background color goes here:
background=0.9 0.9 0.9,
colors={
[0.176 0.353 0.129]
[0.635 0.008 0.094]
[0.078 0.165 0.518]
[0.824 0.592 0.031]
[0.059 0.522 0.392]
[0.816 0.333 0.475]
},
actions={
0 0 600 colors 4 get drop
-200 -90 100 colors 5 get drop
-200 -200 200 colors 0 get drop
-200 200 200 colors 1 get drop
200 -200 200 colors 2 get drop
200 200 200 colors 3 get drop
% Commenting vortex gives a fine result ...
0 0 -32e3 750 vortex
250 0 [ 120 80 ] 20 -100 20 stir
0 -500 850 -30 15 colors 2 get 5 50 arc-drops
0 -500 840 -30 16 colors 1 get 5 50 arc-drops
0 -500 850 -30 15 colors 5 get 5 50 arc-drops
0 0 150 0 15 10 [105 160 99] 35 20 spiral-drops
}]
\psMarble[
viscosity=1000,drawcontours,linewidth=0.2,linecolor=black,bckg=false,
%% Background color goes here:
background=0.9 0.9 0.9,
colors={
[0 0 0]
[0 0 0]
[0 0 0]
[0 0 0]
[0 0 0]
[0 0 0]
},
actions={
0 0 600 colors 4 get drop
-200 -90 100 colors 5 get drop
-200 -200 200 colors 0 get drop
-200 200 200 colors 1 get drop
200 -200 200 colors 2 get drop
200 200 200 colors 3 get drop
0 0 -32e3 750 vortex
250 0 [ 120 80 ] 20 -100 20 stir
0 -500 850 -30 15 colors 2 get 5 50 arc-drops
0 -500 840 -30 16 colors 1 get 5 50 arc-drops
0 -500 850 -30 15 colors 5 get 5 50 arc-drops
0 0 150 0 15 10 colors 5 get 35 20 spiral-drops
}]
\end{pspicture}
\end{document}
|