diff --git a/LuaLibs/ProcessHeadCut.lua b/LuaLibs/ProcessHeadCut.lua
index dd57ce1..20c85f3 100644
--- a/LuaLibs/ProcessHeadCut.lua
+++ b/LuaLibs/ProcessHeadCut.lua
@@ -1,4 +1,4 @@
--- ProcessSplit.lua by Egaltech s.r.l. 2021/04/08
+-- ProcessSplit.lua by Egaltech s.r.l. 2021/10/26
 -- Gestione calcolo tagli di testa per Travi
 
 -- Tabella per definizione modulo
@@ -189,27 +189,31 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
       -- calcolo extra taglio ed accorciamento
       local dCutExtra = 0
       local dAccStart = 0
+      local dAccEnd = 0
       if b3Raw:getDimZ() < BD.MIN_DIM_HBEAM + 10 * GEO.EPS_SMALL or b3Raw:getDimY() < 2 * BD.MAX_DIM_HTCUT_HBEAM + 10 * GEO.EPS_SMALL then
          dCutExtra = EgtIf( bDoubleCut, - 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN,  BD.CUT_EXTRA)
-         dAccStart = 0
       else
-         dCutExtra = - ( b3Raw:getDimY() - dMaxDepth - BD.CUT_EXTRA)
+         dCutExtra = - ( b3Raw:getDimY() - dMaxDepth)
          local dSawRad = dSawDiam / 2
          local dKL = dSawRad - dMaxDepth + b3Raw:getDimY() / 2 + BD.CUT_EXTRA_MIN
-         dAccStart = sqrt( dSawRad * dSawRad - dKL * dKL)
+         if BD.C_SIMM then
+            dAccEnd = sqrt( dSawRad * dSawRad - dKL * dKL)
+         else
+            dAccStart = sqrt( dSawRad * dSawRad - dKL * dKL)
+         end
       end
       -- se necessari tagli in doppio, eseguo gli opposti
       if bDoubleCut then
          for i = nCuts, 1, -1 do
             local dCutOffset = ( i - 1) * dOffsL
-            local bOk, sErr = BL.MakeOneFaceBySaw( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_BACK, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, 0, '', b3Raw)
+            local bOk, sErr = BL.MakeOneFaceBySaw( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_BACK, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, '', b3Raw)
             if not bOk then return false, sErr end
          end
       end
       -- eseguo i tagli necessari
       for i = nCuts, 1, -1 do
          local dCutOffset = ( i - 1) * dOffsL
-         local bOk, sErr = BL.MakeOneFaceBySaw( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, 0, '', b3Raw)
+         local bOk, sErr = BL.MakeOneFaceBySaw( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, '', b3Raw)
          if not bOk then return false, sErr end
       end
    -- altrimenti necessari tagli da sopra e sotto con testa opportuna
diff --git a/LuaLibs/ProcessSplit.lua b/LuaLibs/ProcessSplit.lua
index 0225592..bf00a8c 100644
--- a/LuaLibs/ProcessSplit.lua
+++ b/LuaLibs/ProcessSplit.lua
@@ -1,4 +1,4 @@
--- ProcessSplit.lua by Egaltech s.r.l. 2021/04/08
+-- ProcessSplit.lua by Egaltech s.r.l. 2021/10/26
 -- Gestione calcolo tagli di separazione per Travi
 
 -- Tabella per definizione modulo
@@ -199,21 +199,25 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId)
       -- calcolo extra taglio ed accorciamento
       local dCutExtra = 0
       local dAccStart = 0
+      local dAccEnd = 0
       if b3Raw:getDimZ() < BD.MIN_DIM_HBEAM + 10 * GEO.EPS_SMALL or b3Raw:getDimY() < 2 * BD.MAX_DIM_HTCUT_HBEAM + 10 * GEO.EPS_SMALL then
-         dCutExtra = EgtIf( bDoubleCut, - 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN, BD.CUT_EXTRA) 
-         dAccStart = 0
+         dCutExtra = EgtIf( bDoubleCut, - 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN, BD.CUT_EXTRA)
       else
-         dCutExtra = - ( b3Raw:getDimY() - dMaxDepth - BD.CUT_EXTRA)
+         dCutExtra = - ( b3Raw:getDimY() - dMaxDepth)
          local dSawRad = dSawDiam / 2
          local dKL = dSawRad - dMaxDepth + b3Raw:getDimY() / 2 + BD.CUT_EXTRA_MIN
-         dAccStart = sqrt( dSawRad * dSawRad - dKL * dKL)
+         if BD.C_SIMM then
+            dAccEnd = sqrt( dSawRad * dSawRad - dKL * dKL)
+         else
+            dAccStart = sqrt( dSawRad * dSawRad - dKL * dKL)
+         end
       end
       -- se necessari tagli in doppio, eseguo gli opposti
       if bDoubleCut then
          for i = nCuts, 1, -1 do
             local dCutOffset = ( i - 1) * dOffsL
             local sNotes = EgtIf( bSplit, 'Presplit;', 'Precut;')
-            local bOk, sErr = BL.MakeOneFaceBySaw( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_FRONT, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, 0, sNotes, b3Raw)
+            local bOk, sErr = BL.MakeOneFaceBySaw( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_FRONT, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw)
             if not bOk then return false, sErr end
          end
       end
@@ -226,7 +230,7 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId)
          else
             sNotes = EgtIf( i == 1, 'Cut;', 'Precut;')
          end
-         local bOk, sErr = BL.MakeOneFaceBySaw( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, 0, sNotes, b3Raw)
+         local bOk, sErr = BL.MakeOneFaceBySaw( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw)
          if not bOk then return false, sErr end
       end
    -- altrimenti necessari tagli da sopra e sotto con testa opportuna