Merge remote-tracking branch 'origin/HEAD' into develop

LuaLibs/WProcessLapJoint.lua

@@ -1,4 +1,4 @@
--- WProcessLapJoint.lua by Egaltech s.r.l. 2022/02/04
+-- WProcessLapJoint.lua by Egaltech s.r.l. 2022/11/15
 -- Gestione calcolo mezzo-legno per Pareti
 -- 2021/08/27 DS Se tre o più facce con flag PCKT=1 forzo svuotatura con fresa (per Variant).
 -- 2021/08/29 DS Se svuotatura di fianco setto flag per farla dopo i tagli.
@@ -10,6 +10,7 @@
 -- 2022/02/03 DS Gorge larga come gambo più sicurezza.
 -- 2022/02/04 DS In svuotatura aggiunta gestione WD.MAXDIAM_POCK_CORNER in presenza di almeno un angolo interno.
 -- 2022/09/30 In MakeSideGrooveByMill sistemato il calcolo del massimo sottosquadro dell'utensile per determinare la fattibilità della tasca.
+-- 2022/11/15 DS Con lama massima inclinazione 60deg.
 
 -- Tabella per definizione modulo
 local WPL = {}
@@ -2027,6 +2028,10 @@ local function MakeByPocketing( Proc, nFacet, nRawId, b3Raw, bCheckQPar)
    -- gruppo ausiliario
    local nAddGrpId = WL.GetAddGroup( Proc.PartId)
    local nNewProc, nNumFacet = RemoveBottomFaceAndReorder( Proc, nAddGrpId, nFacet)
+   -- se una sola faccia
+   if Proc.Fct == 1 then
+      dDiam = 2 * dDiam
+   end
    -- se forma ad L
    local bIsL = ( Proc.Fct == 2 or TestElleShape3( Proc.Id, Proc.Fct) or TestElleShape4( Proc.Id, Proc.Fct) == 2)
    if bIsL then
@@ -2378,7 +2383,7 @@ local function MakeTwoFaces( Proc, nRawId, b3Raw)
          if bOk then return true end
       end
       -- se non inclinate o capacità di taglio non sufficiente o non molto grandi (80mm), provo con contornatura o svuotatura
-      if not sCutting or dSawMaxDepth < dDimY[1] + WD.CUT_SIC or dSawMaxDepth < dDimY[2] + WD.CUT_SIC or dDimY[1] < 80 or dDimY[2] < 80 then
+      if vtN:getZ() > 0.866 or vtNV:getZ() > 0.866 or not sCutting or dSawMaxDepth < dDimY[1] + WD.CUT_SIC or dSawMaxDepth < dDimY[2] + WD.CUT_SIC or dDimY[1] < 80 or dDimY[2] < 80 then
          -- eseguo la svuotatura
          return MakeByPocketing( Proc, nFacet, nRawId, b3Raw)
       end