-- CalcSolids.lua by Egaltech s.r.l. 2022/04/13
-- Calcolo percorsi di lavoro per Stampa 3d

-- Tabella per definizione modulo
local CalcSolids = {}

-- Intestazioni
require( 'EgtBase')

EgtOutLog( ' CalcSolids started', 1)

-- Dati
local AMD = require( 'AddManData')

---------------------------------------------------------------------
local function GetLayerParamsForSolidCalc()
   local nParamsGrp = EgtGetFirstNameInGroup( GDB_ID.ROOT, PARAMS_GRP)
   local LayerParams = {}     
   LayerParams.bInvert = EgtGetInfo( nParamsGrp, KEY_PRINT_DIRECTION, 'b')
   LayerParams.dLayHeight = EgtGetInfo( nParamsGrp, KEY_SLICE_STEP, 'd')
   LayerParams.dStrand = EgtGetInfo( nParamsGrp, KEY_STRAND, 'd')
   LayerParams.nOrder = EgtGetInfo( nParamsGrp, KEY_PRINT_ORDER, 'i')
   return LayerParams 
end


---------------------------------------------------------------------
local function CalcSectionParams( dStrand, dH)
   local dL = dStrand
   local dLm = dStrand / 10
   local dHm = dH / 6
   -- recupero offset
   local nParamsGrp = EgtGetFirstNameInGroup( GDB_ID.ROOT, PARAMS_GRP)
   --local dOffs = EgtGetInfo( nParamsGrp, KEY_OFFSET_SLICE, 'd')
   dOffs = 0
   if dOffs and dOffs > 0 then
      -- calcolo area originale
      local dArea = ( dL * dH) - ( dLm * dHm)
      local dLM = ( dArea / dH) - ( dLm / 6)
      if dOffs / 2 <= ( dL - dLM) then
         dL = dL - dOffs / 2
         dLm = dL / 10
         dHm = (( dL * dH) - dArea) / dLm
      else
         EgtOutLog( 'Strand section not calculated on area. Too much overlap?')
      end
   end

   local dD1 = 0.5 * dL - dLm
   local dD2 = 0.5 * dL - dD1 
   local dD3 = dHm
   local dD4 = dH - 2 * dD3
   return dD1, dD2, dD3, dD4
end

---------------------------------------------------------------------
local function CreateSection( ptS, vtDir, dStrand, dH, nSolidGrp)

   local dD1, dD2, dD3, dD4 = CalcSectionParams( dStrand, dH)
   local ptA = ptS - dH * Z_AX() + dD1 * vtDir
   local ptB = ptA + dD2 * vtDir + dD3 * Z_AX()
   local ptC = ptB + dD4 * Z_AX()
   local ptD = ptA + dH * Z_AX()
   local ptE = ptD - 2 * dD1 * vtDir 
   local ptF = ptC - 2 * ( dD1 + dD2) * vtDir
   local ptG = ptB - 2 * ( dD1 + dD2) * vtDir
   local ptH = ptA - 2 * dD1 * vtDir 

   local nId = EgtCurveCompoFromPoints( nSolidGrp, {ptA, ptB, ptC, ptD, ptE, ptF, ptG, ptH, ptA})

   return nId   
end

---------------------------------------------------------------------
local function CreateHalfSection( ptS, vtDir, dStrand, dH, nSolidGrp)

   local dD1, dD2, dD3, dD4 = CalcSectionParams( dStrand, dH)
   local ptA = ptS - dH * Z_AX() + dD1 * vtDir
   local ptB = ptA + dD2 * vtDir + dD3 * Z_AX()
   local ptC = ptB + dD4 * Z_AX()
   local ptD = ptA + dH * Z_AX()

   local nId = EgtCurveCompoFromPoints( nSolidGrp, { ptS - dH * Z_AX(), ptA, ptB, ptC, ptD, ptS})

   return nId
end

--------------------------------------------------------------------
local function CloseSolid( nCrvId, nSrfId, nSolidGrp, LayerParams)   
   
   local ptS = EgtSP( nCrvId) 
   local vtS = EgtSV( nCrvId)
   vtS:rotate( Z_AX(), 90)
   local nSectS = CreateHalfSection( ptS, vtS, LayerParams.dStrand, LayerParams.dLayHeight, nSolidGrp) 
   local nSrfS = EgtSurfTmByScrewing( nSolidGrp, nSectS, ptS, Z_AX(), 180, 0, false, 0.1)
   EgtErase( nSectS)
   
   local ptE = EgtEP( nCrvId) 
   local vtE = EgtEV( nCrvId)
   vtE:rotate( Z_AX(), -90)
   local nSectE = CreateHalfSection( ptE, vtE, LayerParams.dStrand, LayerParams.dLayHeight, nSolidGrp) 
   local nSrfE = EgtSurfTmByScrewing( nSolidGrp, nSectE, ptE, Z_AX(), 180, 0, false, 0.1)
   EgtErase( nSectE)

   return EgtSurfTmBySewing( nSolidGrp, { nSrfId, nSrfS, nSrfE}) 

end

---------------------------------------------------------------------
local function CreateSolidFromCurve( nCrvId, nSolidGrp, LayerParams)

   -- scelta del colore
   local nType = EgtGetInfo( nCrvId, KEY_TYPE, 'i')  
   local Color = EgtStdColor( 'GRAY') 
   if nType == TYPE.OUTER_SHELL then 
      Color = EgtStdColor( 'TEAL')
   elseif nType == TYPE.INNER_SHELL then
      Color = EgtStdColor( 'ORANGE')
   elseif nType == TYPE.LINK then
      Color = EgtStdColor( 'GRAY')
   elseif nType == TYPE.INFILL then
      Color = EgtStdColor( 'YELLOW')
   end

   local nParts = EgtIf( nType == TYPE.LINK, 1, 10) 

   local nCopyId = EgtCopyGlob( nCrvId, nSolidGrp)
   local nId = EgtSplitCurve( nCopyId, nParts) 

   for nInd = 0, nParts - 1 do

      local ptS = EgtSP( nId + nInd) 
      local vtS = EgtSV( nId + nInd)
      vtS:rotate( Z_AX(), 90)
      local nSectId = CreateSection( ptS, vtS, LayerParams.dStrand, LayerParams.dLayHeight, nSolidGrp) 
      EgtInvertCurve( nSectId)      
      local nSrfId = EgtSurfTmSwept( nSolidGrp, nSectId, nId + nInd, false, 0.1)      
      EgtErase( nSectId)
      if nSrfId then
         nSrfId = CloseSolid( nId + nInd, nSrfId, nSolidGrp, LayerParams)
      else 
         EgtErase( nSectId)
         for nInd3 = 0, nParts - 1 do
            EgtErase( nId + nInd3)
         end 
         for nInd3 = 0, nInd - 1 do 
            local nId2 = EgtGetLastInGroup( nSolidGrp)
            EgtErase( nId2)
         end
         EgtOutBox( 'CalcSolid error', '')
         return 
      end
      EgtSetColor( nSrfId, Color)
      EgtSetInfo( nSrfId, KEY_TYPE, nType)
      EgtErase( nId + nInd)
   end 

end

---------------------------------------------------------------------
function CalcSolids.Exec( nPartId)

   local vLayIds = EgtGetNameInGroup( nPartId, SLICE_LAYER.."*") 
   if not vLayIds then
      EgtOutBox( 'Error no slice', 'SolidCalc')
      return 
   end

   for nIdx = 1, #vLayIds do
      -- recupero i parametri relativi al layer
      local LayerParams = GetLayerParamsForSolidCalc()

      -- scorro tutti i gruppi di contorni
      local nCrvGrpId = EgtGetFirstNameInGroup( vLayIds[ nIdx], CONTOUR_GRP.."*") or GDB_ID.NULL
      while nCrvGrpId ~= GDB_ID.NULL do

         -- recupero il gruppo dei percorsi utensile 
         local nTPathGrpId = EgtGetFirstNameInGroup( nCrvGrpId, TOOLPATH_GRP) or GDB_ID.NULL
         if nTPathGrpId == GDB_ID.NULL then
            EgtOutBox( 'Error no tool paths', 'SolidCalc')
            return 
         end

         -- recupero il gruppo dei solidi 
         local nSolidGrpId = EgtGetFirstNameInGroup( nCrvGrpId, SOLID_GRP) or GDB_ID.NULL
         if nSolidGrpId == GDB_ID.NULL then
            nSolidGrpId = EgtGroup( nCrvGrpId)
            EgtSetName( nSolidGrpId, SOLID_GRP)
         else
            EgtEmptyGroup( nSolidGrpId)
         end

         -- scorro le curve del percorso utensile
         local nId = EgtGetFirstInGroup( nTPathGrpId) 
         while nId do
            CreateSolidFromCurve( nId, nSolidGrpId, LayerParams)
            nId = EgtGetNext( nId)
         end
         
         -- nascondo ExternCurve del gruppo
         local vExtCrvs = EgtGetNameInGroup( nCrvGrpId, OUTER_CRV)
         for nInd = 1, #vExtCrvs do 
            EgtSetStatus( vExtCrvs[nInd], GDB_ST.OFF)
         end

         -- processo gli eventi
         if ( nIdx % 20) == 0 then
            EgtDraw()
            if EgtProcessEvents( nIdx / #vLayIds * 100, 0) == 1 then
               return
            end
         end

         --passo al gruppo di contorni successivo
         nCrvGrpId = EgtGetNextName( nCrvGrpId, CONTOUR_GRP.."*") or GDB_ID.NULL
      end
      EgtDraw()
      if EgtProcessEvents( nIdx / #vLayIds * 100, 0) == 1 then
         return 
      end
   end
end

---------------------------------------------------------------------
return CalcSolids