test/animation.tex

   1 \documentclass{article}
   2 %% compiler avec lualatex
   3 \usepackage[margin=2.5cm]{geometry}
   4 \usepackage{luamesh}
   5 \usepackage{fontspec}
   6 \usepackage{multido}
   7 \pagestyle{empty}
   8
   9 \def\drawPath{draw (-2,-2)*u--(8,-2)*u--(8,6)*u--(-2,6)*u--cycle  withcolor 0.99white;}
  10 \def\clipPath{clip currentpicture to (-2,-2)*u--(8,-2)*u--(8,6)*u--(-2,6)*u--cycle;}
  11 \begin{document}
  12
  13 \buildMeshBWinc[
  14 mode=ext,
  15 bbox = show,
  16 colorBbox = blue!20,
  17 print=points
  18 ]
  19 {meshInit.txt}%
  20 {%
  21   beginfig(0);
  22   \drawPath
  23 }%
  24 {%
  25   \clipPath
  26   endfig;
  27 }
  28
  29 \multido{\ii=5+1}{4}{%
  30   \newpage
  31   \meshAddPointBWinc[
  32   mode=ext,step=badtriangles,
  33   colorNew =green!20!red,
  34   colorBack=red!10,
  35   colorCircle = blue,
  36   bbox = show,
  37   colorBbox = blue!20
  38   ]
  39   {mesh.txt}{\ii}%
  40   {%
  41     beginfig(0);
  42     \drawPath
  43   }%
  44   {%
  45     \clipPath
  46     endfig;
  47   }   \newpage
  48   \meshAddPointBWinc[
  49   mode=ext,step=cavity,
  50   colorNew =green!20!red,
  51   colorBack=red!10,
  52   colorCircle = blue,
  53   bbox = show,
  54   colorBbox = blue!20
  55   ]
  56   {mesh.txt}{\ii}%
  57   {%
  58     beginfig(0);
  59     \drawPath
  60   }%
  61   {%
  62     \clipPath
  63     endfig;
  64   }  \newpage
  65   \meshAddPointBWinc[
  66   mode=ext,step=newtriangles,
  67   colorNew =green!20!red,
  68   colorBack=red!10,
  69   colorCircle = blue,
  70   bbox = show,
  71   colorBbox = blue!20]
  72   {mesh.txt}{\ii}%
  73   {%
  74     beginfig(0);
  75     \drawPath
  76   }%
  77   {%
  78     \clipPath
  79     endfig;
  80   }
  81 }
  82 \newpage
  83 \buildMeshBWinc[
  84 mode=ext,
  85 bbox = show,
  86 colorBbox = blue!20,
  87 print=points
  88 ]
  89 {mesh.txt}%
  90 {%
  91   beginfig(0);
  92   \drawPath
  93 }%
  94 {%
  95   \clipPath
  96   endfig;
  97 }
  98 \newpage
  99 \buildMeshBWinc[
 100 mode=ext,
 101 print=points
 102 ]
 103 {mesh.txt}%
 104 {%
 105   beginfig(0);
 106   \drawPath
 107 }%
 108 {%
 109   \clipPath
 110   endfig;
 111 }
 112
 113 \end{document}