Egalware/databeamnew
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- rimosso il calcolo dei MainEdges dalle BottomFace secondarie

Browse Source
This commit is contained in:
luca.mazzoleni
2024-06-07 15:45:16 +02:00
parent 5dec2dc821
commit 67899a5835
1 changed files with 43 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files
LuaLibs/FaceData.lua
+43 -45
View File
@@ -225,55 +225,53 @@ local function GetBottomFaces( Proc)
return nil
end
for i = 1, #BottomFaces do
BottomFaces[i].Type = 'Bottom'
BottomFaces[i].MainEdges = {}
BottomFaces[i].MainEdges.LongEdges = {}
BottomFaces[i].MainEdges.SideEdges = {}
local ClosedEdgesSortedByGreatestLength = {}
for j = 1, #BottomFaces[i].Edges do
if not BottomFaces[i].Edges[j].Open then
table.insert( ClosedEdgesSortedByGreatestLength, {})
ClosedEdgesSortedByGreatestLength[#ClosedEdgesSortedByGreatestLength].nIndex = j
ClosedEdgesSortedByGreatestLength[#ClosedEdgesSortedByGreatestLength].dLength = BottomFaces[i].Edges[j].Len
end
BottomFaces[1].Type = 'Bottom'
BottomFaces[1].MainEdges = {}
BottomFaces[1].MainEdges.LongEdges = {}
BottomFaces[1].MainEdges.SideEdges = {}
local ClosedEdgesSortedByGreatestLength = {}
for i = 1, #BottomFaces[1].Edges do
if not BottomFaces[1].Edges[i].Open then
table.insert( ClosedEdgesSortedByGreatestLength, {})
ClosedEdgesSortedByGreatestLength[#ClosedEdgesSortedByGreatestLength].nIndex = i
ClosedEdgesSortedByGreatestLength[#ClosedEdgesSortedByGreatestLength].dLength = BottomFaces[1].Edges[i].Len
end
table.sort( ClosedEdgesSortedByGreatestLength, function (a, b) return a.dLength > b.dLength end)
local nFirstLongEdgeIndex = ClosedEdgesSortedByGreatestLength[1].nIndex
end
table.sort( ClosedEdgesSortedByGreatestLength, function (a, b) return a.dLength > b.dLength end)
local nFirstLongEdgeIndex = ClosedEdgesSortedByGreatestLength[1].nIndex
for j = 1, #BottomFaces[i].Edges do
local nPreviousEdgeIndex = j - 1
if j == 1 then
nPreviousEdgeIndex = #BottomFaces[i].Edges
end
local nNextEdgeIndex = j + 1
if j == #BottomFaces[i].Edges then
nNextEdgeIndex = 1
end
for i = 1, #BottomFaces[1].Edges do
local nPreviousEdgeIndex = i - 1
if i == 1 then
nPreviousEdgeIndex = #BottomFaces[1].Edges
end
local nNextEdgeIndex = i + 1
if i == #BottomFaces[1].Edges then
nNextEdgeIndex = 1
end
local CurrentEdge = {}
CurrentEdge.idAdjacentFace = BottomFaces[i].Edges[j].Adj
CurrentEdge.vtToolDirection = Vector3d( BottomFaces[i].Edges[j].Norm)
CurrentEdge.dLength = BottomFaces[i].Edges[j].Len
CurrentEdge.dElevation = BottomFaces[i].Edges[j].Elev
CurrentEdge.bIsOpen = BottomFaces[i].Edges[j].Open
CurrentEdge.bIsStartOpen = BottomFaces[i].Edges[nPreviousEdgeIndex].Open
CurrentEdge.bIsEndOpen = BottomFaces[i].Edges[nNextEdgeIndex].Open
local CurrentEdge = {}
CurrentEdge.idAdjacentFace = BottomFaces[1].Edges[i].Adj
CurrentEdge.vtToolDirection = Vector3d( BottomFaces[1].Edges[i].Norm)
CurrentEdge.dLength = BottomFaces[1].Edges[i].Len
CurrentEdge.dElevation = BottomFaces[1].Edges[i].Elev
CurrentEdge.bIsOpen = BottomFaces[1].Edges[i].Open
CurrentEdge.bIsStartOpen = BottomFaces[1].Edges[nPreviousEdgeIndex].Open
CurrentEdge.bIsEndOpen = BottomFaces[1].Edges[nNextEdgeIndex].Open
if j == nFirstLongEdgeIndex then
BottomFaces[i].MainEdges.LongEdges[1] = CurrentEdge
BottomFaces[i].MainEdges.LongEdges[1].Type = 'Long'
elseif nNextEdgeIndex == nFirstLongEdgeIndex then
BottomFaces[i].MainEdges.SideEdges[1] = CurrentEdge
BottomFaces[i].MainEdges.SideEdges[1].Type = 'Side'
elseif nPreviousEdgeIndex == nFirstLongEdgeIndex then
BottomFaces[i].MainEdges.SideEdges[2] = CurrentEdge
BottomFaces[i].MainEdges.SideEdges[2].Type = 'Side'
else
BottomFaces[i].MainEdges.LongEdges[2] = CurrentEdge
BottomFaces[i].MainEdges.LongEdges[2].Type = 'Long'
end
if i == nFirstLongEdgeIndex then
BottomFaces[1].MainEdges.LongEdges[1] = CurrentEdge
BottomFaces[1].MainEdges.LongEdges[1].Type = 'Long'
elseif nNextEdgeIndex == nFirstLongEdgeIndex then
BottomFaces[1].MainEdges.SideEdges[1] = CurrentEdge
BottomFaces[1].MainEdges.SideEdges[1].Type = 'Side'
elseif nPreviousEdgeIndex == nFirstLongEdgeIndex then
BottomFaces[1].MainEdges.SideEdges[2] = CurrentEdge
BottomFaces[1].MainEdges.SideEdges[2].Type = 'Side'
else
BottomFaces[1].MainEdges.LongEdges[2] = CurrentEdge
BottomFaces[1].MainEdges.LongEdges[2].Type = 'Long'
end
end