blob: f35ae1d94f9bc2154b01f49ed68778a0b6313fd6 (
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
|
\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]
},
actions={
0 100 50 colors 25 concentric-rings
/signe 1 def
100 100 1000 {/radius exch def
0 0 [radius] 10 60 signe mul 50 stir
/signe signe neg def
} for
90 [ 7 200 200 tines ] 40 200 31 rake
-90 [ 7 200 100 tines ] 40 200 31 rake
0 {2 mul sin 20 mul} wiggle
}](10,14)
\end{pspicture}
\end{document}
|