From 8967758382c640cd603d71cd5c0f57259b1864d3 Mon Sep 17 00:00:00 2001
From: DarioS <dario.sassi@egaltech.com>
Date: Wed, 3 Nov 2021 13:31:21 +0100
Subject: [PATCH] DataBeam : - in LapJoint migliorie a svuotature con lati
 aperti.

---
 LuaLibs/ProcessLapJoint.lua | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index 159b7e7..5165b52 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -1,4 +1,4 @@
--- ProcessLapJoint.lua by Egaltech s.r.l. 2021/10/27
+-- ProcessLapJoint.lua by Egaltech s.r.l. 2021/11/02
 -- Gestione calcolo mezzo-legno per Travi
 -- 2019/10/08 Agg. gestione OpenPocket.
 -- 2021/01/24 Con sega a catena ora sempre impostato asse A.
@@ -29,6 +29,7 @@
 -- 2021/10/19 Corretta gestione inversione per Tunnel. OpenPocket anche se spezzato ma 1 o 2 facce. Introdotta lunghezza minima per lamello.
 -- 2021/10/21 Migliorato controllo affondamento utensile in U lavorato da 3 parti (anche da sotto).
 -- 2021/10/27 Migliorato calcolo asse tunnel o similare.
+-- 2021/11/02 In svuotatura con lati aperti diametro fresa non superiore al doppio del lato piccolo. 
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -4756,19 +4757,18 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             sMchFind = 'Pocket'
             local dDiam = min( dH, dV)
             local bTailOnSide = ( Proc.Box:getMin():getX() - b3Solid:getMin():getX() < 0.1 and not Proc.Tail)
-            if ( Proc.Fct == 1) or ( Proc.Fct == 2 and bIsL) or ((( Proc.Fct == 3 and bIsU) or ( Proc.Fct == 4 and not bTailOnSide)) and bSinglePart) then
+            if ( Proc.Fct == 1) or (( Proc.Fct == 2 or Proc.Fct == 3) and bIsL) or ((( Proc.Fct == 3 and bIsU) or ( Proc.Fct == 4 and not bTailOnSide)) and bSinglePart) then
                sMchFind = 'OpenPocket'
                if bIsU then
                   dDiam = GetUShapeWidth( Proc, nFacInd) or dDiam
-               elseif Proc.Fct == 4 then
+               elseif Proc.Fct == 4then
                   -- per rifinire gli angoli premio utensile diam 25 o da BD
-                  if not BD.MAXDIAM_POCK_1_OPEN then
-                     dDiam = min( dDiam, 30)
-                  else
-                     dDiam = min( dDiam, BD.MAXDIAM_POCK_1_OPEN)
-                  end
+                  dDiam = min( dDiam, BD.MAXDIAM_POCK_CORNER or 30)
+               elseif Proc.Fct == 3 and bIsL then
+                  -- per rifinire gli angoli premio utensile diam 25 o da BD
+                  dDiam = min( 2 * dDiam, BD.MAXDIAM_POCK_CORNER or 30)
                else
-                  dDiam = 300
+                  dDiam = 2 * dDiam
                end
             end
             sMchFindBackUp = sMchFind