DataBeam :

- aggiunta lavorazione TyroleanDovetail
- migliorie e correzioni varie.
This commit is contained in:
Dario Sassi
2020-04-15 11:10:23 +00:00
parent f1b0324106
commit d81e309e66
4 changed files with 880 additions and 15 deletions
+13 -4
View File
@@ -1,4 +1,4 @@
-- BeamLib.lua by Egaltech s.r.l. 2020/04/04
-- BeamLib.lua by Egaltech s.r.l. 2020/04/14
-- Libreria globale per Travi
-- Tabella per definizione modulo
@@ -359,9 +359,18 @@ function BeamLib.GetFaceElevation( nSurfId, nFac, nPartId)
end
---------------------------------------------------------------------
function BeamLib.GetFaceWithMostAdj( nSurfId, nPartId, bCompare3Fc)
function BeamLib.GetFaceWithMostAdj( nSurfId, nPartId, bCompare3Fc, dSinAngleUSquare)
-- recupero il numero di facce
local nFacCnt = EgtSurfTmFacetCount( nSurfId)
local dSinAngUsq
local bNotCheckUsq
if not dSinAngleUSquare then
dSinAngUsq = -0.05
elseif dSinAngleUSquare == -2 then
bNotCheckUsq = true
else
dSinAngUsq = dSinAngleUSquare
end
-- recupero le normali delle facce
local vvtN = {}
for i = 1, nFacCnt do
@@ -383,7 +392,7 @@ function BeamLib.GetFaceWithMostAdj( nSurfId, nPartId, bCompare3Fc)
end
end
vAdj[i] = nCount
-- ne determino eventuale sottosquadra (- 3deg) e ortogonalità
-- ne determino eventuale sottosquadra ( dal valore passato o - 3deg) e ortogonalità
local bUcut = false
local bOrto = false
for j = 1, #vFacAdj do
@@ -391,7 +400,7 @@ function BeamLib.GetFaceWithMostAdj( nSurfId, nPartId, bCompare3Fc)
local vtN = vvtN[i]
local vtN2 = vvtN[vFacAdj[j]+1]
local dResV = vtN * vtN2
if dResV < -0.05 then
if not bNotCheckUsq and dResV < dSinAngUsq - GEO.EPS_SMALL then
bUcut = true
elseif abs(dResV) < GEO.EPS_SMALL then
bOrtho = true