-- RunMachiningParamCalc.lua by Egaltech s.r.l. 2022/04/05
-- Gestione visualizzazione per Stampa 3d

-- Tabella per definizione modulo
local RunMachiningParamCalc = {}

-- Intestazioni
require( 'EgtBase')

EgtOutLog( ' RunMachiningParamCalc started', 1)

-- Costanti generali
local AMD = require( 'AddManData')
local CSV = require( 'CSVManager')

function RunMachiningParamCalc.Exec()

   nParamsGrp = EgtGetFirstNameInGroup( GDB_ID.ROOT, PARAMS_GRP) or GDB_ID.NULL 
   if nParamsGrp == GDB_ID.NULL then
      EgtOutBox( 'Impossible calculating before applying a machining.', 'Error', 'ERROR')
      return
   end

   local dMachiningFeed = EgtGetInfo( nParamsGrp, KEY_FEED, 'd')
   local dSliceStep = EgtGetInfo( nParamsGrp, KEY_SLICE_STEP, 'd')
   local dStrand = EgtGetInfo( nParamsGrp, KEY_STRAND, 'd')
   local sMaterial = EgtGetInfo( nParamsGrp, KEY_MATERIAL)

   local sMachiningPath = EgtGetStringFromIni( '3dPrinting', 'ParamFile', "", EgtGetIniFile())
   local dCoeffX = tonumber( EgtGetStringFromIni( DEFAULT_SECTION, KEY_COEFF_X, 0, sMachiningPath))
   local dCoeffY = tonumber( EgtGetStringFromIni( DEFAULT_SECTION, KEY_COEFF_Y, 0, sMachiningPath))
   local sCalcBaseDir = EgtGetStringFromIni( '3dPrinting', 'BaseDir', 'C:\\ProgramData\\Egaltech\\EgtCam5\\3dPrinting', EgtGetIniFile())
   local sCurrProjectPath = EgtGetCurrFilePath()
   local _, sCurrProjectName = EgtSplitPath( sCurrProjectPath)
   local sResultFile = sCalcBaseDir .. '\\Results\\' .. sCurrProjectName .. '.csv'
   local bResultFile = EgtExistsFile( sResultFile)

   -- calcolo intervallo tempi consentito
   local sMaterialPath = sCalcBaseDir .. '\\Materials\\' .. sMaterial .. '.csv'
   local MaterialCSV = read_file( sMaterialPath)
   local dMinTime = 0
   local dMaxTime = 0
   if not MaterialCSV then
      EgtOutBox( 'Material csv file not found.', 'Error', 'ERROR')
      return
   end
   local bSectionFound = false
   for nSectionIndex = 1, #MaterialCSV do
      local Section = MaterialCSV[nSectionIndex]
      if tonumber( Section[1]) == dStrand and tonumber( Section[2]) == dSliceStep then
         dMinTime = tonumber(Section[3])
         dMaxTime = tonumber(Section[4])
         bSectionFound = true
         break
      end
   end
   if not bSectionFound then
      EgtOutBox( 'Section not found in Material csv file.', 'Error', 'ERROR')
      return
   end

   -- carico eventuale file dei risultati
   local CSVOldResult
   if bResultFile then
      CSVOldResult = read_file( sResultFile)
   end

   -- tabella del csv del risultato
   local CSVNewResult = {}

   -- ciclo sui pezzi
   local nPartIndex = 1
   local nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex)
   while nPartId do
      -- ciclo sui layer
      local nLayerIndex = 1
      local nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex)
      while nLayerId do
         local sLayerName = EgtGetName( nLayerId)
         local nLayerIndex = tonumber( sLayerName:sub( #SLICE_LAYER + 1))
         -- calcolo lunghezza totale del layer
         local dTotLayerLength = 0
         local nCrvId = EgtGetFirstGroupInGroup( nLayerId)
         while nCrvId do
            local nToolPathId = EgtGetFirstNameInGroup( nCrvId, TOOLPATH_GRP)
            -- sommo lunghezze percorsi
            local dTotCrvLength = 0
            nShellId = EgtGetFirstInGroup( nToolPathId)
            while nShellId do
               --local nType = EgtGetInfo( nShellId, KEY_TYPE, 'i')
               dTotCrvLength = dTotCrvLength + EgtCurveLength( nShellId)
               nShellId = EgtGetNext( nShellId)
            end
            dTotLayerLength = dTotLayerLength + dTotCrvLength
            nCrvId = EgtGetNext( nCrvId)
         end
         -- recupero feed del layer
         local dLayerFeed = 0
         if bResultFile then
            -- leggo il valore dal file
            local bResultFound = false
            for nResultIndex = 1, #CSVOldResult do
               local OldResult = CSVOldResult[nResultIndex]
               if tonumber( OldResult[1]) == nLayerIndex then
                  dLayerFeed = tonumber( OldResult[5])
                  bResultFound = true
                  break
               end
            end
            if not bResultFound then
               -- uso valore di default
               dLayerFeed = dMachiningFeed
            end
         else
            -- uso valore di default
            dLayerFeed = dMachiningFeed
         end
         -- calcolo tempo stimato del layer
         local dEsteemedTime = dTotLayerLength / dLayerFeed * 60
         -- calcolo speed
         local dSpeed = ((( dLayerFeed * dSliceStep * dStrand ) / 60) - dCoeffX) / dCoeffY
         -- scrivo info feed e speed in group toolpath
         nCrvId = EgtGetFirstGroupInGroup( nLayerId)
         while nCrvId do
            local nToolPathId = EgtGetFirstNameInGroup( nCrvId, TOOLPATH_GRP)
            EgtSetInfo( nToolPathId, KEY_FEED, dLayerFeed)
            EgtSetInfo( nToolPathId, KEY_SPEED, dSpeed)
            nCrvId = EgtGetNext( nCrvId)
         end
         -- riporto valori calcolati in tabella per csv
         local sStatus = ''
         if dEsteemedTime < dMinTime then
            sStatus = 'KO(-)'
         elseif dEsteemedTime > dMinTime and dEsteemedTime < dMaxTime then
            sStatus = 'OK'
         elseif dEsteemedTime > dMaxTime then
            sStatus = 'KO(+)'
         end
         --table.insert( CSVOutTable, { Index = nLayerIndex, EsteemedTime = dEsteemedTime, Feed = dLayerFeed, Speed = dSpeed})
         table.insert( CSVNewResult, { nLayerIndex, dTotLayerLength, dEsteemedTime, sStatus, dLayerFeed, dSpeed})
         nLayerIndex = nLayerIndex + 1
         nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex)
      end
      nPartIndex = nPartIndex + 1
      nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex)
   end

   -- scrivo nuovo file csv di risultato
   local file = io.open( sResultFile, "w")
   if file then
      file:write('LayerIndex; Len; Time; Status; Feed; Speed')
      file:write('\n')
      for NewResultIndex = 1, #CSVNewResult do
         local CSVOutLine = CSVNewResult[NewResultIndex]
         local sParams = ''
         for ParamIndex = 1, #CSVOutLine do
            if ParamIndex > 1 then
               sParams = sParams .. ";"
            end
            if ParamIndex == 4 then
               sParams = sParams .. CSVOutLine[ParamIndex]
            else
               sParams = sParams .. EgtNumToString( CSVOutLine[ParamIndex], 1)
            end
         end
         file:write(sParams)
         file:write('\n')
      end
      file:close()
      local sReadProgPath = EgtGetStringFromIni( '3dPrinting', RESULT_READ_PROG, "", EgtGetIniFile())
      if not sReadProgPath or not EgtWinExec( sReadProgPath .. ' ' .. sResultFile) then
         EgtOutBox( 'Impossible opening software to show results. You can find them in ' .. sResultFile, 'Error', 'ERROR')
      end
   else
      EgtOutBox( 'Impossible writing results file in ' .. sResultFile, 'Error', 'ERROR')
   end

end

---------------------------------------------------------------------
return RunMachiningParamCalc