Doc: documentation des nouvelles macros (Voronoi, gmsh), tentative de mise en place...
[delaunay.git] / doc / luamesh-doc.listing
index 805f630..12eb637 100644 (file)
-\drawPointsMeshinc[
-color = blue!50,
-print = points,
-meshpoint = x,
-scale=0.8cm,
-]{(0.3,0.3);(1.5,1);(4,0);(4.5,2.5);(1.81,2.14);(2.5,0.5);(2.8,1.5)}%
-{% code before
-  beginfig(0);
-}%
-{% code after
-  label(btex Mesh $\mathbb{T}$ etex, (0,2u)) withcolor \luameshmpcolor;
-  endfig;
-}
-\buildMeshBWinc[%
-bbox = show,
-color = red,
-colorBbox = blue!30,
-print = points,
-meshpoint = x,
-scale=0.8cm
-]{(0.3,0.3);(1.5,1);(4,0);(4.5,2.5);(1.81,2.14);(2.5,0.5);(2.8,1.5)}%
-{% code before
-  beginfig(0);
-}
-{% code after
-  drawdblarrow MeshPoints[3] -- MeshPoints[9] withpen pencircle scaled 1pt
-  withcolor (0.3,0.7,0.2);
-  endfig;
-}
-\meshAddPointBWinc[
-meshpoint = \alpha,
-newpoint = y,
-colorBack=red!10,
-colorNew = green!50!red,
-colorCircle = blue,
-colorBbox = black!20,
-bbox = show,
-scale=0.8cm,
-step=badtriangles]
-{(0.3,0.3);(1.5,1);(4,0);(4.5,2.5);(1.81,2.14);(2.5,0.5)}{(2.8,1.5)}%
-{%code before
-  picture drawing;
-  drawing := image(
-}{%code after
-  );
-  beginfig(0);
-  fill MeshPoints[7]--MeshPoints[8]--MeshPoints[9]--MeshPoints[10]--cycle
-  withcolor \mpcolor{blue!10};
-  draw drawing;
-  endfig;
-}
+  \documentclass{article}
+  %% lualatex compilation
+  \usepackage[margin=2.5cm]{geometry}
+  \usepackage{luamesh}
+  \usepackage{fontspec}
+  \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}
+
+  \drawPointsMeshinc[
+  mode=ext,
+  bbox = show,
+  colorBbox = blue!20,
+  print=points
+  ]
+  {mesh.txt}%
+  {%
+    beginfig(0);
+    \drawPath
+  }%
+  {%
+    \clipPath
+    endfig;
+  }
+  \newpage
+  \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
+    }%
+    {%
+      \clipPath
+      endfig;
+    }   \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
+    }%
+    {%
+      \clipPath
+      endfig;
+    }  \newpage
+    \meshAddPointBWinc[
+    mode=ext,step=newtriangles,
+    colorNew =green!20!red,
+    colorBack=red!10,
+    colorCircle = blue,
+    bbox = show,
+    colorBbox = blue!20]
+    {mesh.txt}{\ii}%
+    {%
+      beginfig(0);
+      \drawPath
+    }%
+    {%
+      \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}

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la
Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.