summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-contourplot/examples/two-metaballs.tex
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}