X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=blobdiff_plain;f=luamesh.lua;h=26a3cbf4a66708df29157c1631285dab444e442c;hb=e3ebed16be8d70d7ba4b4c7211ff8a5b1d434547;hp=e23d7a09c88e925a60e078023c1203908cdacf32;hpb=0fc3412f5527ee6e9e3e1291ae9d028e64b1db1c;p=delaunay.git

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