diff --git a/LuaLibs/WProcessLapJoint.lua b/LuaLibs/WProcessLapJoint.lua
index 5d8208c..3a26fa3 100644
--- a/LuaLibs/WProcessLapJoint.lua
+++ b/LuaLibs/WProcessLapJoint.lua
@@ -11,6 +11,7 @@
 -- 2022/02/04 DS In svuotatura aggiunta gestione WD.MAXDIAM_POCK_CORNER in presenza di almeno un angolo interno.
 -- 2022/09/30 In MakeSideGrooveByMill sistemato il calcolo del massimo sottosquadro dell'utensile per determinare la fattibilità della tasca.
 -- 2022/11/15 DS Con lama massima inclinazione 60deg.
+-- 2022/12/01 Per 2 facce con angolo > 90° implementata lavorazione principale verticale. Se da sopra, aggiunta ripresa del lato inclinato.
 
 -- Tabella per definizione modulo
 local WPL = {}
@@ -114,7 +115,7 @@ function WPL.Classify( Proc, b3Raw)
       vtN[1] = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
       vtN[2] = EgtSurfTmFacetNormVersor( Proc.Id, 1, GDB_ID.ROOT)
       -- verifico se è lavorabile da sopra o di fianco
-      return ( vtN[1]:getZ() >= - 0.01 or vtN[2]:getZ() >= - 0.01) 
+      return ( vtN[1]:getZ() >= - 0.015 or vtN[2]:getZ() >= - 0.015) 
    -- se più di 2 facce
    else
       local nFacInd, dElev, nFacInd2, dElev2 = WL.GetFaceWithMostAdj( Proc.Id, Proc.PartId)
@@ -1375,10 +1376,17 @@ local function MakeByMill( Proc, nFacet, nOthFac, nRawId, b3Raw, dSideDist)
 end
 
 ---------------------------------------------------------------------
-local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, dMaxDepthOnSide, bEnablePreMill, bMachFromDn, dAng, bAsEnablePreMill, nSinglePass)
-   -- dati della faccia
+local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, dMaxDepthOnSide, bEnablePreMill, bMachFromDn, dAng, bAsEnablePreMill, nSinglePass, bExcludeFinishing)
+   -- dati della faccia principale (la più verticale)
    local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFacet, GDB_ID.ROOT)
    local dElev = WL.GetFaceElevation( Proc.Id, nFacet, nRawId)
+   -- dati della faccia più orizzontale
+   local nOtherFacet = abs( nFacet - 1)
+   local vtN2 = EgtSurfTmFacetNormVersor( Proc.Id, nOtherFacet, GDB_ID.ROOT)
+   local dElevOtherFacet = WL.GetFaceElevation( Proc.Id, nOtherFacet, nRawId)
+   -- se lap joint 2 facce dal basso e angolo più di 90°
+   local bExcludeSideMill = Proc.Fct == 2 and dAng and dAng > -90 + 10 * GEO.EPS_SMALL and vtN2:getZ() < -0.99 and vtN2:getZ() > -1.01
+   -- dimensioni della faccia principale
    local _, dH, dV = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFacet, GDB_ID.ROOT)
    local dThick = min( dH, dV)
    local frFace = Frame3d( ptC, vtN)
@@ -1793,121 +1801,126 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
          end
       end
    end
-   -- inserisco la lavorazione di ribasso o gola
-   local sName = EgtIf( bEnablePreMill ~= nil, 'SideMill_', 'Mill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = EgtAddMachining( sName, sMilling)
-   if not nMchFId then
-      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
-      EgtOutLog( sErr)
-      return false, sErr
-   end
-   EgtSetInfo( nMchFId, 'Part', Proc.PartId)
-   -- se ho abilitato la lavorazione di lama per garantire passaggio utensile, setto la nota per spostare la fresatura dopo i tagli di lama
-   if bEnablePreMill or bAsEnablePreMill then
-      EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
-   end
-   -- aggiungo geometria
-   EgtSetMachiningGeometry( {{ Proc.Id, nFacet}})
-   -- imposto posizione braccio porta testa
-   --local nSCC = MCH_SCC.ADIR_ZP
-   --if abs( vtN:getZ()) < GEO.EPS_SMALL then
-   --   nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XP)
-   --end
-   local nSCC = MCH_SCC.ADIR_NEAR
-   EgtSetMachiningParam( MCH_MP.SCC, nSCC)
-   -- imposto modo di lavorare la faccia
-   local nFaceUse = WL.GetNearestParalOpposite( Z_AX(), vtN)
-   EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
-   -- imposto elevazione e step
-   local dStep = EgtGetMachiningParam( MCH_MP.STEP)
-   if dStep < GEO.EPS_SMALL then dStep = 0.75 * dMaxMat end
-   local nStep = ceil( ( dThick - dMaxMat) / dStep)
-   dStep = max( ( dThick - dMaxMat) / max( nStep, 1), 0)
-   local dMaxElev = max( ( nStep + 1) * dStep - GEO.EPS_SMALL, 0)
-   if nSinglePass and nSinglePass > 0 then
-      dStep = 0
-      if nSinglePass == 1 then
-         EgtSetMachiningParam( MCH_MP.DEPTH, dMaxMat)
+   
+   local dStepOri
+   if not bExcludeSideMill then
+      -- inserisco la lavorazione di ribasso o gola
+      local sName = EgtIf( bEnablePreMill ~= nil, 'SideMill_', 'Mill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+      local nMchFId = EgtAddMachining( sName, sMilling)
+      if not nMchFId then
+         local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
+         EgtOutLog( sErr)
+         return false, sErr
       end
-   end
-   EgtSetMachiningParam( MCH_MP.STEP, dStep)
-   EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 3) .. ';')
-   -- setto il lato di lavoro standard
-   EgtSetMachiningParam( MCH_MP.INVERT, true)
-   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
-   -- modifico ingressi e uscita
-   -- se ho inserito il pretaglio modifico
-   if bEnablePreMill or bAsEnablePreMill then
-      if nModifyLeadInOut > 0 then
-         -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
-         if dElev > ( 0.5 * dMillDiam) then
-               if nModifyLeadInOut == 1 then
-               -- setto il tipo di passo a una via
-               EgtSetMachiningParam( MCH_MP.STEPTYPE, MCH_MILL_ST.ONEWAY)
-               -- modifico il tipo di uscita
-               EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.PERP_TG)
+      EgtSetInfo( nMchFId, 'Part', Proc.PartId)
+      -- se ho abilitato la lavorazione di lama per garantire passaggio utensile, setto la nota per spostare la fresatura dopo i tagli di lama
+      if bEnablePreMill or bAsEnablePreMill then
+         EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
+      end
+      -- aggiungo geometria
+      EgtSetMachiningGeometry( {{ Proc.Id, nFacet}})
+      -- imposto posizione braccio porta testa
+      --local nSCC = MCH_SCC.ADIR_ZP
+      --if abs( vtN:getZ()) < GEO.EPS_SMALL then
+      --   nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XP)
+      --end
+      local nSCC = MCH_SCC.ADIR_NEAR
+      EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+      -- imposto modo di lavorare la faccia
+      local nFaceUse = WL.GetNearestParalOpposite( Z_AX(), vtN)
+      EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
+      -- imposto elevazione e step
+      local dStep = EgtGetMachiningParam( MCH_MP.STEP)
+      dStepOri = dStep
+      if dStep < GEO.EPS_SMALL then dStep = 0.75 * dMaxMat end
+      local nStep = ceil( ( dThick - dMaxMat) / dStep)
+      dStep = max( ( dThick - dMaxMat) / max( nStep, 1), 0)
+      local dMaxElev = max( ( nStep + 1) * dStep - GEO.EPS_SMALL, 0)
+      if nSinglePass and nSinglePass > 0 then
+         dStep = 0
+         if nSinglePass == 1 then
+            EgtSetMachiningParam( MCH_MP.DEPTH, dMaxMat)
+         end
+      end
+      EgtSetMachiningParam( MCH_MP.STEP, dStep)
+      EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 3) .. ';')
+      -- setto il lato di lavoro standard
+      EgtSetMachiningParam( MCH_MP.INVERT, true)
+      EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+      -- modifico ingressi e uscita
+      -- se ho inserito il pretaglio modifico
+      if bEnablePreMill or bAsEnablePreMill then
+         if nModifyLeadInOut > 0 then
+            -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
+            if dElev > ( 0.5 * dMillDiam) then
+                  if nModifyLeadInOut == 1 then
+                  -- setto il tipo di passo a una via
+                  EgtSetMachiningParam( MCH_MP.STEPTYPE, MCH_MILL_ST.ONEWAY)
+                  -- modifico il tipo di uscita
+                  EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.PERP_TG)
+                  EgtSetMachiningParam( MCH_MP.LIPERP, 0)
+                  -- modifico dati supplementari uscita
+                  EgtSetMachiningParam( MCH_MP.LOPERP, 0.5)
+                  EgtSetMachiningParam( MCH_MP.LOTANG, -( dLongGorge + dExtraLongIni + dExtraLongEnd))
+               else
+                  EgtSetMachiningParam( MCH_MP.LIPERP, dElev)
+                  EgtSetMachiningParam( MCH_MP.LOPERP, dElev)
+               end
+            end
+            -- setto allungamenti iniziali e finali
+            EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
+            EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
+            if bInvertMach then
+               -- setto il lato di lavoro invertito
+               EgtSetMachiningParam( MCH_MP.INVERT, false)
+               EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
+            end
+         else
+            -- setto allungamenti iniziali e finali
+            EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
+            EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
+            -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
+            if dElev > ( 0.5 * dMillDiam) then
+               -- setto allungamenti perpendicolari
                EgtSetMachiningParam( MCH_MP.LIPERP, 0)
-               -- modifico dati supplementari uscita
-               EgtSetMachiningParam( MCH_MP.LOPERP, 0.5)
-               EgtSetMachiningParam( MCH_MP.LOTANG, -( dLongGorge + dExtraLongIni + dExtraLongEnd))
-            else
-               EgtSetMachiningParam( MCH_MP.LIPERP, dElev)
-               EgtSetMachiningParam( MCH_MP.LOPERP, dElev)
+               EgtSetMachiningParam( MCH_MP.LOPERP, 0)
+            end
+         end
+         -- se richiesto, setto la nota per spostare la lavorazione alla fine
+         if not WD.SIDEMILL_BEFORE then
+            EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
+         end
+      else
+         if nModifyLeadInOut > 0 then
+            -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
+            if dElev > ( 0.5 * dMillDiam) then
+               -- setto il tipo di passo a una via
+               EgtSetMachiningParam( MCH_MP.STEPTYPE, 1)
+            end
+            if bInvertMach then
+               -- setto il lato di lavoro invertito
+               EgtSetMachiningParam( MCH_MP.INVERT, false)
+               EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
             end
          end
          -- setto allungamenti iniziali e finali
          EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
          EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
-         if bInvertMach then
-            -- setto il lato di lavoro invertito
-            EgtSetMachiningParam( MCH_MP.INVERT, false)
-            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
-         end
-      else
-         -- setto allungamenti iniziali e finali
-         EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
-         EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
-         -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
-         if dElev > ( 0.5 * dMillDiam) then
-            -- setto allungamenti perpendicolari
-            EgtSetMachiningParam( MCH_MP.LIPERP, 0)
-            EgtSetMachiningParam( MCH_MP.LOPERP, 0)
+         -- se richiesto, setto la nota per spostare la lavorazione alla fine
+         if not WD.SIDEMILL_BEFORE then
+            EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
          end
       end
-      -- se richiesto, setto la nota per spostare la lavorazione alla fine
-      if not WD.SIDEMILL_BEFORE then
-         EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
-      end
-   else
-      if nModifyLeadInOut > 0 then
-         -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
-         if dElev > ( 0.5 * dMillDiam) then
-            -- setto il tipo di passo a una via
-            EgtSetMachiningParam( MCH_MP.STEPTYPE, 1)
-         end
-         if bInvertMach then
-            -- setto il lato di lavoro invertito
-            EgtSetMachiningParam( MCH_MP.INVERT, false)
-            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
-         end
-      end
-      -- setto allungamenti iniziali e finali
-      EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
-      EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
-      -- se richiesto, setto la nota per spostare la lavorazione alla fine
-      if not WD.SIDEMILL_BEFORE then
-         EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
+      -- eseguo
+      if not EgtApplyMachining( true, false) then
+         local _, sErr = EgtGetLastMachMgrError()
+         EgtSetOperationMode( nMchFId, false)
+         return false, sErr
       end
    end
-   -- eseguo
-   if not EgtApplyMachining( true, false) then
-      local _, sErr = EgtGetLastMachMgrError()
-      EgtSetOperationMode( nMchFId, false)
-      return false, sErr
-   end
+   
    -- verifico se devo lavorare anche la seconda faccia basandomi sul valore dell'angolo interno
-   if dAng and dAng > -90 + 10 * GEO.EPS_SMALL then
-      local nOtherFacet = abs( nFacet - 1)
+   if dAng and dAng > -90 + 10 * GEO.EPS_SMALL and not bExcludeFinishing then
       -- inserisco la lavorazione di contornatura
       local sName = 'Mill_Oth_Fac_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
       local nMchFId = EgtAddMachining( sName, sMilling)
@@ -1920,7 +1933,6 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
       -- aggiungo geometria
       EgtSetMachiningGeometry( {{ Proc.Id, nOtherFacet}})
       -- imposto posizione braccio porta testa
-      local vtN2 = EgtSurfTmFacetNormVersor( Proc.Id, nOtherFacet, GDB_ID.ROOT)
       local nSCC = MCH_SCC.ADIR_ZP
       if AreSameOrOppositeVectorApprox( vtN2, Z_AX()) then
          nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XP)
@@ -1928,8 +1940,15 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
       EgtSetMachiningParam( MCH_MP.SCC, nSCC)
       -- imposto modo di lavorare la faccia
       EgtSetMachiningParam( MCH_MP.FACEUSE, nFace2ndFace)
-      EgtSetMachiningParam( MCH_MP.STEP, 0)
       local dMaxElev = dMaxMat
+      local dStepOtherFace = dStepOri or EgtGetMachiningParam( MCH_MP.STEP)
+      if dStepOtherFace < GEO.EPS_SMALL then dStepOtherFace = 0.75 * dMaxMat end
+      if Proc.Fct == 2 and vtN2:getZ() < -0.99 and vtN2:getZ() > -1.01 then
+         local nStepOtherFace = ceil( ( dElevOtherFacet - dMaxMat) / dStepOtherFace)
+         dStepOtherFace = max( ( dElevOtherFacet - dMaxMat) / max( nStepOtherFace, 1), 0)
+         dMaxElev = max( ( nStepOtherFace + 1) * dStepOtherFace - GEO.EPS_SMALL, 0)
+      end
+      EgtSetMachiningParam( MCH_MP.STEP, dStepOtherFace)
       EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 3) .. ';')
       if bMachFromDn then
          EgtSetMachiningParam( MCH_MP.INVERT, true)
@@ -2374,8 +2393,12 @@ local function MakeTwoFaces( Proc, nRawId, b3Raw)
          if bEnableMillOnSide and dMaxDepthOnSide > 0 then
             bLikeAsMakeFirstGroove = false
             return MakeSideGrooveByMill( Proc, nFacetVert, nRawId, b3Raw, EgtIf( bEnableMillOnSide and dMaxDepthOnSide, sMillOnSide, nil), dMaxDepthOnSide, bMakeFirstGroove, bMachFromDn, dAng, bLikeAsMakeFirstGroove)
-         elseif MakeByMill( Proc, nFacet, 1 - nFacet, nRawId, b3Raw, dSideDist) then
-            return true
+         else
+            local bOk, sErr = MakeByMill( Proc, nFacet, 1 - nFacet, nRawId, b3Raw, dSideDist)
+            if dAng and dAng > -90 + 10 * GEO.EPS_SMALL then
+               local bOk2, sErr2 = MakeSideGrooveByMill( Proc, nFacetVert, nRawId, b3Raw, EgtIf( bEnableMillOnSide and dMaxDepthOnSide, sMillOnSide, nil), dMaxDepthOnSide, bMakeFirstGroove, bMachFromDn, dAng, false, nil, true)
+            end
+            return bOk
          end
       elseif bEnableMillOnSide and dMaxDepthOnSide > 0 then
          bLikeAsMakeFirstGroove = true