Bug dans cleanPoly() réparé

[delaunay.git] / test / animation.tex

diff --git a/test/animation.tex b/test/animation.tex
index b3d33a7..d47832a 100644 (file)
--- a/test/animation.tex
+++ b/test/animation.tex
@@ -6,39 +6,60 @@
 \usepackage{multido}
 \pagestyle{empty}
 
-
+\def\drawPath{draw (-2,-2)*u--(8,-2)*u--(8,6)*u--(-2,6)*u--cycle  withcolor 0.99white;}
+\def\clipPath{clip currentpicture to (-2,-2)*u--(8,-2)*u--(8,6)*u--(-2,6)*u--cycle;}
 \begin{document}
 
-\multido{\ii=5+1}{3}{%
+\buildMeshBWinc[
+mode=ext,
+bbox = show,
+colorBbox = blue!20,
+print=points
+]
+{meshInit.txt}%
+{%
+  beginfig(0);
+  \drawPath
+}%
+{%
+  \clipPath
+  endfig;
+}
+
+\multido{\ii=5+1}{4}{%
   \newpage
   \meshAddPointBWinc[
   mode=ext,step=badtriangles,
   colorNew =green!20!red,
   colorBack=red!10,
   colorCircle = blue,
+  bbox = show,
+  colorBbox = blue!20
   ]
   {mesh.txt}{\ii}%
   {%
     beginfig(0);
+    \drawPath
   }%
   {%
-    draw (-1,-1)*u--(7.5,-1)*u--(7.5,5)*u--(-1,5)*u--cycle withcolor 0.99white;
-    clip currentpicture to (-1,-1)*u--(7.5,-1)*u--(7.5,5)*u--(-1,5)*u--cycle;
+    \clipPath
     endfig;
-  }  \newpage
+  }   \newpage
   \meshAddPointBWinc[
   mode=ext,step=cavity,
   colorNew =green!20!red,
   colorBack=red!10,
   colorCircle = blue,
+  bbox = show,
+  colorBbox = blue!20
   ]
   {mesh.txt}{\ii}%
   {%
     beginfig(0);
+    \drawPath
   }%
   {%
-    draw (-1,-1)*u--(7.5,-1)*u--(7.5,5)*u--(-1,5)*u--cycle withcolor 0.99white;
-    clip currentpicture to (-1,-1)*u--(7.5,-1)*u--(7.5,5)*u--(-1,5)*u--cycle;
+    \clipPath
     endfig;
   }  \newpage
   \meshAddPointBWinc[
@@ -46,18 +67,47 @@
   colorNew =green!20!red,
   colorBack=red!10,
   colorCircle = blue,
-  ]
+  bbox = show,
+  colorBbox = blue!20]
   {mesh.txt}{\ii}%
   {%
     beginfig(0);
+    \drawPath
   }%
   {%
-    draw (-1,-1)*u--(7.5,-1)*u--(7.5,5)*u--(-1,5)*u--cycle withcolor 0.99white;
-    clip currentpicture to (-1,-1)*u--(7.5,-1)*u--(7.5,5)*u--(-1,5)*u--cycle;
+    \clipPath
     endfig;
   }
 }
-
-
+\newpage
+\buildMeshBWinc[
+mode=ext,
+bbox = show,
+colorBbox = blue!20,
+print=points
+]
+{mesh.txt}%
+{%
+  beginfig(0);
+  \drawPath
+}%
+{%
+  \clipPath
+  endfig;
+}
+\newpage
+\buildMeshBWinc[
+mode=ext,
+print=points
+]
+{mesh.txt}%
+{%
+  beginfig(0);
+  \drawPath
+}%
+{%
+  \clipPath
+  endfig;
+}
 
 \end{document}