diff --git a/LuaLibs/BeamLib.lua b/LuaLibs/BeamLib.lua
index b1f32de..0a7af24 100644
--- a/LuaLibs/BeamLib.lua
+++ b/LuaLibs/BeamLib.lua
@@ -1,4 +1,4 @@
--- BeamLib.lua by Egaltech s.r.l. 2021/02/03
+-- BeamLib.lua by Egaltech s.r.l. 2021/02/09
 -- Libreria globale per Travi
 -- 2020/07/28 Corretto calcolo attacchi e uscite di lame per non uscire dalla faccia sotto.
 -- 2020/08/18 Aggiunto a GetNearestParalOpposite e GetNearestOrthoOpposite parametro opzionale vtNorm.
@@ -6,6 +6,7 @@
 -- 2020/11/18 Correzioni a GetParallelOpposite e a GetFaceElevation.
 -- 2021/01/06 Cambiato limite per attacco Tg con lama e CalcLeadInOutGeom rinominata in CalcLeadInOutPerpGeom.
 -- 2021/02/03 In taglio lama si accettano anche due lati con deviazione minore di 20deg.
+-- 2021/02/09 In taglio lama con PF si preferisce testa in Y- quindi SCC di conseguenza.
 
 -- Tabella per definizione modulo
 local BeamLib = {}
@@ -896,6 +897,12 @@ function BeamLib.MakeOneFaceBySaw( nSurfId, nFacet, sCutting, dSawDiam, Par5, dV
          nSCC = EgtIf( ( vtAux:getY() > -GEO.EPS_SMALL), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
       end
    end
+   -- per macchine PF se possibile preferisco tenere la testa più davanti
+   if BD.C_SIMM and abs( vtTg:getZ()) < 0.01 then
+      if nSCC == MCH_SCC.ADIR_YP then
+         nSCC = MCH_SCC.ADIR_YM
+      end
+   end
    -- inserisco la lavorazione di taglio
    local sName = 'Cut_' .. ( EgtGetName( nSurfId) or tostring( nSurfId)) .. '_' .. tostring( nFacet + 1)
    local nMchFId = EgtAddMachining( sName, sCutting)