-- ProcessSplit.lua by Egaltech s.r.l. 2020/01/24
-- Gestione calcolo tagli di separazione per Travi

-- Tabella per definizione modulo
local ProcessSplit = {}

-- Include
require( 'EgtBase')
local BL = require( 'BeamLib')

EgtOutLog( ' ProcessSplit started', 1)

-- Dati
local BD = require( 'BeamData')
local ML = require( 'MachiningLib')

---------------------------------------------------------------------
-- Riconoscimento della feature
function ProcessSplit.Identify( Proc)
   return ( Proc.Grp == 2  and  Proc.Prc == 350)
end

---------------------------------------------------------------------
-- Applicazione della lavorazione
function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId)
   -- ingombro del grezzo
   local b3Raw = EgtGetRawPartBBox( nRawId)
   -- recupero la lavorazione
   local sCutting = ML.FindCutting( EgtIf( bSplit, 'SplitSide', 'TailSide'))
   if not sCutting then
      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' cutting not found in library'
      EgtOutLog( sErr)
      return false, true, sErr
   end
   -- recupero i dati dell'utensile
   local dSawDiam = 400
   local dMaxDepth = 50
   if EgtMdbSetCurrMachining( sCutting) then
      local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
      if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
         dSawDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dSawDiam
         dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
      end
   end
   -- caratteristiche taglio
   local bHorizCut = ( b3Raw:getDimY() > b3Raw:getDimZ() + 10 * GEO.EPS_SMALL and b3Raw:getDimZ() < dMaxDepth - BD.CUT_EXTRA)
   local dDimYRef = EgtIf( b3Raw:getDimZ() < BD.MIN_DIM_HBEAM + 10 * GEO.EPS_SMALL, dMaxDepth - BD.CUT_EXTRA, BD.MAX_DIM_HTCUT_HBEAM)
   local bDoubleCut = ( not bHorizCut and b3Raw:getDimY() > dDimYRef + 10 * GEO.EPS_SMALL)
   -- dati geometrici del taglio
   local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
   -- flag di lavorazione faccia
   local nOrthoOpposite = EgtIf( bHorizCut, MCH_MILL_FU.ORTHO_DOWN, MCH_MILL_FU.ORTHO_FRONT)
   -- separazione solo se esiste grezzo successivo con pezzi o scaricabile
   local nNextRawId = EgtGetNextRawPart( nRawId)
   local bSplit = ( nNextRawId  and  ( EgtGetPartInRawPartCount( nNextRawId) > 0  or  EgtGetRawPartBBox( nNextRawId):getDimX() > BD.MinRaw))
   -- determino se più tagli con offset
   local nCuts = 1
   local dOffsL = 0
   if not bSplit then
      -- cerco grezzo successivo che sia nella fase
      local nNextRawId = EgtGetNextRawPart( nRawId)
      if nNextRawId  and  EgtVerifyRawPartPhase( nNextRawId, nPhase) then
         local b3NextRaw = EgtGetRawPartBBox( nNextRawId)
         local dLenEndRaw = ptC:getX() - b3NextRaw:getMin():getX()
         nCuts = ceil( dLenEndRaw / BD.MAX_LEN_SCRAP)
         dOffsL = dLenEndRaw / nCuts
      end
   end
   -- calcolo extra taglio ed accorciamento
   local dCutExtra = 0
   local dAccStart = 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)
      local dSawRad = dSawDiam / 2
      local dKL = dSawRad - dMaxDepth + b3Raw:getDimY() / 2 + BD.CUT_EXTRA_MIN
      dAccStart = sqrt( dSawRad * dSawRad - dKL * dKL)
   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_BACK, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, sNotes, b3Raw)
         if not bOk then return false, true, sErr end
      end
   end
   -- eseguo i tagli necessari
   for i = nCuts, 1, -1 do
      local dCutOffset = ( i - 1) * dOffsL
      local sNotes
      if bSplit then
         sNotes = EgtIf( i == 1, 'Split;', 'Presplit;')
      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, sNotes, b3Raw)
      if not bOk then return false, true, sErr end
   end
   -- ritorno anche flag di passaggio a fase successiva
   return true, true
end   

---------------------------------------------------------------------
return ProcessSplit