blob: 732b177d517d0698cdfae83a009263769ececc64 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
\documentclass[pstricks]{standalone}
\usepackage{pst-contourplot,multido}
\begin{document}
\multido{\r=-2+0.08}{50}{
\begin{pspicture}(-6.4,-4)(6.4,4)
\psframe*(-6.4,-4)(6.4,4)
\pstVerb{/xC \r\space def
/FonctionMetaballs {
1 x xC sub dup mul y dup mul add sqrt div
0.5 x xC add dup mul y dup mul add sqrt div
add
1 sub
} def}%
\psContourPlot[unit=2,a=0.1,linewidth=0.025,linecolor=red,fillcolor=cyan,Fill,ReverseColors,function=FonctionMetaballs](-4,-2)(4,2)
\psdots(! xC 2 mul 0)(! xC neg 2 mul 0)
\end{pspicture}}
\end{document}
|