From d7a517160d824345d5682c0b199a3e4c7c9bd22d Mon Sep 17 00:00:00 2001
From: "luca.mazzoleni" <luca.mazzoleni@egalware.com>
Date: Thu, 11 Apr 2024 10:51:05 +0200
Subject: [PATCH] - in SawPlusChain piccole correzioni - in SawPlusChain
 aggiunta attivazione con parametro Q11

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

diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index 10b348b..31a18d1 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -174,7 +174,7 @@ local function AssignQIdent( Proc)
    Q_ANTISPLINT_TYPE    = ''
    Q_MAX_ELEVATION      = 'Q10'
    Q_STAIRCASE          = ''
-   Q_SAW_PLUS_CHAIN     = ''
+   Q_SAW_PLUS_CHAIN     = 'Q11'
 
    if ( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 16 then
       Q_FORCE_BLADE         = 'Q01' -- i
@@ -5024,6 +5024,10 @@ function SawPlusChain.Saw.CalculateMachiningParameters( Proc)
    else
       Cutting.Depth = Cutting.Tool.MaxDepth
       Cutting.RadialOffset = Proc.Pocket.Depth - Cutting.Depth
+      if Proc.Pocket.ApplyOnlySawblade then
+         Cutting.Message = 'Feature '.. Proc.TaskId .. ' : sawblade elevation (' .. EgtNumToString( Proc.Pocket.Depth, 1) .. ') bigger than max tool depth (' .. EgtNumToString( Cutting.Depth, 1) .. ')'
+         EgtOutLog( Cutting.Message)
+      end
    end
    -- step verticale e offset longitudinale
    Cutting.Steps = SawPlusChain.GetVerticalSteps( Proc, Cutting)
@@ -5135,7 +5139,7 @@ function SawPlusChain.Chainsaw.CalculateMachiningParameters( Proc)
    else
       Chainsawing.Depth = Chainsawing.Tool.MaxMat
       Chainsawing.LongitudinalOffset = Proc.Pocket.Depth - Chainsawing.Depth
-      Chainsawing.Message = 'Feature '.. Proc.TaskId .. ' : chainsawing elevation (' .. EgtNumToString( Proc.Pocket.Depth, 1) .. ') bigger than max tool depth (' .. EgtNumToString( Chainsawing.Depth, 1) .. ')'
+      Chainsawing.Message = 'Feature '.. Proc.TaskId .. ' : chainsaw elevation (' .. EgtNumToString( Proc.Pocket.Depth, 1) .. ') bigger than max tool depth (' .. EgtNumToString( Chainsawing.Depth, 1) .. ')'
       EgtOutLog( Chainsawing.Message)
    end
    -- offset radiale
@@ -5178,6 +5182,7 @@ end
 
 function SawPlusChain.Make( Proc, nRawId, nPhase, bOnlySaw)
    Proc.Pocket = {}
+   Proc.Pocket.ApplyOnlySawblade = bOnlySaw
    Proc.Pocket.Strategy = 'SawPlusChain'
    local b3Raw = EgtGetRawPartBBox( nRawId)
 
@@ -5299,12 +5304,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
       return false, sErr
    end
 
-
-
-
-
--- rimuovere true or!!!!!!
-   if true or EgtGetInfo( Proc.Id, Q_SAW_PLUS_CHAIN, 'i') > 0 then                       --TEST
+   -- strategia lama + eventuale sega a catena
+   if ( EgtGetInfo( Proc.Id, Q_SAW_PLUS_CHAIN, 'i') or 0) > 0 then                       --TEST
       local bOk
       local sErr
       local bOnlySaw = EgtGetInfo( Proc.Id, Q_SAW_PLUS_CHAIN, 'i') == 1
@@ -5312,11 +5313,6 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
       return bOk, sErr
    end
 
-
-
-
-
-
    local bClosedOrthoFaces
    local nFacInd, dFacElev, nFacInd2, dFacElev2
    local nBottomFace