From 792cb4feb4e298a13c299ad9affd6bf2b282f96a Mon Sep 17 00:00:00 2001
From: "luca.mazzoleni" <luca.mazzoleni@egalware.com>
Date: Fri, 4 Jul 2025 18:14:37 +0200
Subject: [PATCH] - correzioni in tagli ridotti e a ghigliottina

---
 StrategyLibs/FACEBYBLADE.lua | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/StrategyLibs/FACEBYBLADE.lua b/StrategyLibs/FACEBYBLADE.lua
index 562d85d..b9bfec9 100644
--- a/StrategyLibs/FACEBYBLADE.lua
+++ b/StrategyLibs/FACEBYBLADE.lua
@@ -218,6 +218,9 @@ function FACEBYBLADE.GetRadialOffsetForGuillotine( nToolIndex, dEdgeLength, Opti
 
    -- calcolo
    local dRadialOffset = dToolRadius - sqrt( ( dToolRadius - dExtra)^2 - ( dEdgeLength / 2)^2)
+   if dRadialOffset < dExtra + 10 * GEO.EPS_SMALL then
+      dRadialOffset = GEO.INFINITO
+   end
 
    return dRadialOffset
 end
@@ -382,14 +385,16 @@ function FACEBYBLADE.Make( Proc, Part, FaceToMachine, EdgeToMachine, OptionalPar
          local bIsTopBlade = TOOLS[nToolIndex].SetupInfo.HeadType.bTop
          Cutting.dMaxRadialOffset = TOOLS[nToolIndex].dMaxMaterial - EdgeToMachine.dElevation - BeamData.CUT_SIC
          Cutting.dRadialOffsetGuillotine = FACEBYBLADE.GetRadialOffsetForGuillotine( nToolIndex, EdgeToMachine.dLength)
-         -- taglio a ghigliottina
-         if bIsTopBlade and ( Cutting.dRadialOffsetGuillotine > 10 * GEO.EPS_SMALL) then
-            dDepthToMachine = EdgeToMachine.dElevation + Cutting.dRadialOffsetGuillotine
-            Cutting.sCutType = 'Guillotine'
-         -- taglio ridotto
-         elseif Cutting.dMaxRadialOffset > 10 * GEO.EPS_SMALL then
-            dDepthToMachine = EdgeToMachine.dElevation + Cutting.dMaxRadialOffset
-            Cutting.sCutType = 'Reduced'
+         if Cutting.dMaxRadialOffset > 10 * GEO.EPS_SMALL then
+            -- taglio a ghigliottina
+            if bIsTopBlade and ( Cutting.dRadialOffsetGuillotine < Cutting.dMaxRadialOffset - 10 * GEO.EPS_SMALL) then
+               dDepthToMachine = EdgeToMachine.dElevation + Cutting.dRadialOffsetGuillotine
+               Cutting.sCutType = 'Guillotine'
+            -- taglio ridotto
+            else
+               dDepthToMachine = EdgeToMachine.dElevation + Cutting.dMaxRadialOffset
+               Cutting.sCutType = 'Reduced'
+            end
          end
       end
       if bOppositeToolDirection then