summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-contourplot/examples/two-metaballs.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/generic/pst-contourplot/examples/two-metaballs.tex')
-rw-r--r--Master/texmf-dist/doc/generic/pst-contourplot/examples/two-metaballs.tex17
1 files changed, 17 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-contourplot/examples/two-metaballs.tex b/Master/texmf-dist/doc/generic/pst-contourplot/examples/two-metaballs.tex
new file mode 100644
index 00000000000..732b177d517
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-contourplot/examples/two-metaballs.tex
@@ -0,0 +1,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} \ No newline at end of file