From 2981dcb50d1c862c31712e792902bc19cd754c90 Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Wed, 2 Oct 2019 09:36:29 +0000
Subject: [PATCH] DataBeam : - migliorie.

---
 LuaLibs/MachiningLib.lua   |  4 ++--
 LuaLibs/ProcessLongCut.lua | 12 ++++--------
 2 files changed, 6 insertions(+), 10 deletions(-)

diff --git a/LuaLibs/MachiningLib.lua b/LuaLibs/MachiningLib.lua
index b9f50a4..52dd49a 100644
--- a/LuaLibs/MachiningLib.lua
+++ b/LuaLibs/MachiningLib.lua
@@ -47,8 +47,8 @@ function MachiningLib.FindPocketing( sType, dMaxDiam, dDepth)
          if sTool and EgtTdbSetCurrTool( sTool) then
             local dTDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
             local dTMaxDepth = EgtTdbGetCurrToolMaxDepth()
-            if ( not dMaxDiam or dTDiam < dMaxDiam) and
-               ( not dDepth or dTMaxDepth > dDepth) then
+            if ( not dMaxDiam or dTDiam < dMaxDiam + GEO.EPS_SMALL) and
+               ( not dDepth or dTMaxDepth > dDepth - GEO.EPS_SMALL) then
                return Pocketing.Name
             end
          end
diff --git a/LuaLibs/ProcessLongCut.lua b/LuaLibs/ProcessLongCut.lua
index 633613e..86119c9 100644
--- a/LuaLibs/ProcessLongCut.lua
+++ b/LuaLibs/ProcessLongCut.lua
@@ -147,10 +147,10 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId)
          -- ciclo sulle passate
          local nO = 1
          local dStep = 0
-         if dWidth + 2 * BD.CUT_EXTRA > dToolDiam then 
-            nO = ceil(( dWidth + 2 * BD.CUT_EXTRA) / dToolDiam)
+         if dWidth + 2 * BD.CUT_EXTRA > 0.8 * dToolDiam then 
+            nO = ceil(( dWidth + 2 * BD.CUT_EXTRA) / ( 0.6 * dToolDiam))
             if nO > 1 then
-               dStep = ( dWidth + 2 * BD.CUT_EXTRA - dToolDiam) / ( nO - 1)
+               dStep = ( dWidth + 2 * BD.CUT_EXTRA) / nO
             end
          end
          for k = nO, 1, -1 do
@@ -171,11 +171,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId)
             local dEal = EgtIf( i == nC, -dEndDist, - dEndAccDist - ( nC - i - 1) * dC)
             EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
             -- imposto offset radiale (nullo se concavo)
-            if k > 1 then
-               EgtSetMachiningParam( MCH_MP.OFFSR, ( k - 1) * dStep)
-            else
-               EgtSetMachiningParam( MCH_MP.OFFSR, - BD.CUT_EXTRA)
-            end
+            EgtSetMachiningParam( MCH_MP.OFFSR, ( k - 1) * dStep - BD.CUT_EXTRA)
             -- imposto uso della faccia
             EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
             -- eseguo