From: Maxime Chupin (Ceremade) <chupin@ceremade.dauphine.fr>
Date: Mon, 28 Nov 2016 13:14:20 +0000 (+0100)
Subject: luamesh.lua: Ajout de la def des coordinate(s) des MeshPoints dans les dessins TikZ
X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=delaunay.git;a=commitdiff_plain;h=c08f7d2524bc559738fc7b21285c8c751705ef6f

luamesh.lua: Ajout de la def des coordinate(s) des MeshPoints dans les dessins TikZ
---

diff --git a/doc/luamesh-doc.pdf b/doc/luamesh-doc.pdf
index 4278d15..a2c839b 100644
Binary files a/doc/luamesh-doc.pdf and b/doc/luamesh-doc.pdf differ
diff --git a/luamesh.lua b/luamesh.lua
index e23d7a0..26a3cbf 100644
--- a/luamesh.lua
+++ b/luamesh.lua
@@ -255,6 +255,9 @@ end
 -- trace a triangulation with TikZ
 function traceMeshTikZ(listPoints, triangulation,points,color,colorBbox)
    output = ""
+   for i=1,#listPoints do
+      output = output .. "\\coordinate (MeshPoints".. i .. ") at  (" .. listPoints[i].x .. "," .. listPoints[i].y .. ");"
+   end
    for i=1,#triangulation do
       PointI = listPoints[triangulation[i][1]]
       PointJ = listPoints[triangulation[i][2]]
@@ -382,6 +385,9 @@ end
 -- print points of the mesh
 function tracePointsTikZ(listPoints,points,color,colorBbox)
    output = "";
+   for i=1,#listPoints do
+      output = output .. "\\coordinate (MeshPoints".. i .. ") at  (" .. listPoints[i].x .. "," .. listPoints[i].y .. ");"
+   end
    if(points=="points") then
       j=1
       for i=1,#listPoints do
@@ -507,6 +513,9 @@ function TeXaddOnePointTikZ(listPoints,P,step,bbox,color,colorBack, colorNew, co
    -- build the triangulation
    triangulation = BowyerWatson(listPoints,bbox)
    badTriangles = buildBadTriangles(P,triangulation)
+   for i=1,#listPoints do
+      output = output .. "\\coordinate (MeshPoints".. i .. ") at  (" .. listPoints[i].x .. "," .. listPoints[i].y .. ");"
+   end
    if(step == "badT") then
       -- draw all triangle
       for i=1,#triangulation do