diff --git a/LuaLibs/ProcessRoundArch.lua b/LuaLibs/ProcessRoundArch.lua
index 5b4efe0..eceab1a 100644
--- a/LuaLibs/ProcessRoundArch.lua
+++ b/LuaLibs/ProcessRoundArch.lua
@@ -118,10 +118,13 @@ function ProcessRoundArch.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    end
    -- recupero i dati dell'utensile
    local dMaxDepth = 0
+   local bCW = true
    if EgtMdbSetCurrMachining( sMilling) then
       local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
       if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
          dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
+         local dSpeed = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) or 0
+         bCW = ( dSpeed >= 0)
       end
    end
    -- ne verifico la lunghezza per eventuale spezzatura e lavorazione in doppio
@@ -180,6 +183,10 @@ function ProcessRoundArch.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          end
       end
    end
+   -- se lavorazione in doppio senza codolo, aggiungo sovrapposizione
+   if nDouble == 2 and dDimStrip < 10 * GEO.EPS_SMALL then
+      dDepth = dDepth + BD.MILL_OVERLAP / 2
+   end
    -- se utensile orizzontale verso Y+, non in doppio e codolo da lasciare, devo invertire per lavorare sempre da Y-
    if vtExtr:getY() > 0.707 and  nDouble == 1 and bStripOnSide then
       bToolInv = true
@@ -188,7 +195,7 @@ function ProcessRoundArch.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    for i = 1, nStep do
       for j = 1, nDouble do
          -- inserisco la lavorazione
-         local sName = 'Free_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+         local sName = 'Arch_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
          local nMchId = EgtAddMachining( sName, sMilling)
          if not nMchId then
             local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
@@ -212,20 +219,23 @@ function ProcessRoundArch.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
             EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
          end
          -- se seconda passata, inverto direzione di lavoro
-         if j == 2 then
-            EgtSetMachiningParam( MCH_MP.INVERT, true)
+         if j == 1 then
+            EgtSetMachiningParam( MCH_MP.INVERT, EgtIf( bCW, true, false))
+         else
+            EgtSetMachiningParam( MCH_MP.INVERT, EgtIf( bCW, false, true))
          end
          -- assegno affondamento
          EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
          -- assegno lato di lavoro
          if bToolInv then
-            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+            EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( bCW, MCH_MILL_WS.RIGHT, MCH_MILL_WS.LEFT))
          else
-            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
+            EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( bCW, MCH_MILL_WS.LEFT, MCH_MILL_WS.RIGHT))
          end
          -- posizione braccio porta testa
          local nSCC = MCH_SCC.NONE
          if not BD.C_SIMM and not BD.TURN then
+            nSCC = MCH_SCC.ADIR_XP
             if Proc.Head then
                nSCC = MCH_SCC.ADIR_XP
             elseif Proc.Tail then