From 08a8b3f829873e8f908c0913d0e91ab5857a291a Mon Sep 17 00:00:00 2001
From: DarioS <dario.sassi@egaltech.com>
Date: Thu, 7 Oct 2021 09:41:12 +0200
Subject: [PATCH] DataBeam : - modifiche a lavorazione FreeContour per gestire
 caso con fresa inclinata rispetto all'avanzamento.

---
 LuaLibs/ProcessFreeContour.lua | 32 +++++++++++++++++---------------
 1 file changed, 17 insertions(+), 15 deletions(-)

diff --git a/LuaLibs/ProcessFreeContour.lua b/LuaLibs/ProcessFreeContour.lua
index 19ee90d..16e5e91 100644
--- a/LuaLibs/ProcessFreeContour.lua
+++ b/LuaLibs/ProcessFreeContour.lua
@@ -1,4 +1,4 @@
--- ProcessFreeContour.lua by Egaltech s.r.l. 2021/01/29
+-- ProcessFreeContour.lua by Egaltech s.r.l. 2021/10/07
 -- Gestione calcolo profilo libero per Travi
 
 -- Tabella per definizione modulo
@@ -255,25 +255,27 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
    local nSide = 0
    -- verifiche per affondamento ( possibili lavorazioni in doppio)
    local bCross = false
-   if abs( vtExtr:getY()) > 0.707 then
-      if b3Aux:getDimY() > b3Raw:getDimY() - 1.0 then
-         bCross = true
-         dDepth = min( dDepth, b3Raw:getDimY())
-      end
-      if bDown then
-         nSide = -1 
+   if abs( vtExtr:getX()) < 0.707 then
+      if abs( vtExtr:getY()) > abs( vtExtr:getZ()) then
+         if b3Aux:getDimY() > b3Raw:getDimY() - 1.0 then
+            bCross = true
+            dDepth = min( dDepth, b3Raw:getDimY() / abs( vtExtr:getY()))
+         end
+         if bDown then
+            nSide = -1 
+         else
+            nSide = 1 
+         end
       else
-         nSide = 1 
-      end
-   elseif abs( vtExtr:getZ()) > 0.707 then
-      if b3Aux:getDimZ() > b3Raw:getDimZ() - 1.0 then
-         bCross = true
-         dDepth = min( dDepth, b3Raw:getDimZ())
+         if b3Aux:getDimZ() > b3Raw:getDimZ() - 1.0 then
+            bCross = true
+            dDepth = min( dDepth, b3Raw:getDimZ() / abs( vtExtr:getZ()))
+         end
       end
    end
    local dOriDepth = dDepth
    local nDouble = 1
-   local bCanDouble = ( abs( vtExtr:getY()) > 0.707 and bCross)
+   local bCanDouble = ( abs( vtExtr:getY()) > abs( vtExtr:getZ()) and bCross)
    local dDimStrip = BD.DIM_STRIP
    if dDimStrip < 0 then
       dDimStrip = EgtGetInfo( Proc.Id, Q_DIM_STRIP, 'd') or 0