doc/luamesh-doc.listing

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