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
  12 \begin{document}
  13
  14 \drawPointsMeshinc[
  15 mode=ext,
  16 bbox = show,
  17 colorBbox = blue!20,
  18 print=points
  19 ]
  20 {mesh.txt}%
  21 {%
  22   beginfig(0);
  23   \drawPath
  24 }%
  25 {%
  26   \clipPath
  27   endfig;
  28 }
  29
  30 \newpage
  31
  32 \buildMeshBWinc[
  33 mode=ext,
  34 bbox = show,
  35 colorBbox = blue!20,
  36 print=points
  37 ]
  38 {meshInit.txt}%
  39 {%
  40   beginfig(0);
  41   \drawPath
  42 }%
  43 {%
  44   \clipPath
  45   endfig;
  46 }
  47
  48 \multido{\ii=5+1}{4}{%
  49   \newpage
  50   \meshAddPointBWinc[
  51   mode=ext,step=badtriangles,
  52   colorNew =green!20!red,
  53   colorBack=red!10,
  54   colorCircle = blue,
  55   bbox = show,
  56   colorBbox = blue!20
  57   ]
  58   {mesh.txt}{\ii}%
  59   {%
  60     beginfig(0);
  61     \drawPath
  62   }%
  63   {%
  64     \clipPath
  65     endfig;
  66   }   \newpage
  67   \meshAddPointBWinc[
  68   mode=ext,step=cavity,
  69   colorNew =green!20!red,
  70   colorBack=red!10,
  71   colorCircle = blue,
  72   bbox = show,
  73   colorBbox = blue!20
  74   ]
  75   {mesh.txt}{\ii}%
  76   {%
  77     beginfig(0);
  78     \drawPath
  79   }%
  80   {%
  81     \clipPath
  82     endfig;
  83   }  \newpage
  84   \meshAddPointBWinc[
  85   mode=ext,step=newtriangles,
  86   colorNew =green!20!red,
  87   colorBack=red!10,
  88   colorCircle = blue,
  89   bbox = show,
  90   colorBbox = blue!20]
  91   {mesh.txt}{\ii}%
  92   {%
  93     beginfig(0);
  94     \drawPath
  95   }%
  96   {%
  97     \clipPath
  98     endfig;
  99   }
 100 }
 101 \newpage
 102 \buildMeshBWinc[
 103 mode=ext,
 104 bbox = show,
 105 colorBbox = blue!20,
 106 print=points
 107 ]
 108 {mesh.txt}%
 109 {%
 110   beginfig(0);
 111   \drawPath
 112 }%
 113 {%
 114   \clipPath
 115   endfig;
 116 }
 117 \newpage
 118 \buildMeshBWinc[
 119 mode=ext,
 120 print=points
 121 ]
 122 {mesh.txt}%
 123 {%
 124   beginfig(0);
 125   \drawPath
 126 }%
 127 {%
 128   \clipPath
 129   endfig;
 130 }
 131
 132 \end{document}