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

-- Tabella per definizione modulo
local RunViewManager = {}

-- Intestazioni
require( 'EgtBase')

EgtOutLog( ' RunViewManager started', 1)

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

function RunViewManager.Exec()
   ViewValues = EgtDialogBox( 'Slicing visibility manager', { 'Visibility Mode', 'CB:*All,Till Selected,Only Selected'},
                                                            { 'Shell type', 'CB:*All,Outer,Inner,Infill'},
                                                            { 'Inner Number', '1'})
   if not ViewValues or #ViewValues < 2 then return end


   local nVisibilityMode = 1     -- 1 = All, 2 = Till Selected, 3 = Only Selected
   if ViewValues[1] == 'All' then
      nVisibilityMode = 1
   elseif ViewValues[1] == 'Till Selected' then
      nVisibilityMode = 2
   elseif ViewValues[1] == 'Only Selected' then
      nVisibilityMode = 3
   end
   local nShellType = 0       -- 1 = All, 2 = Outer, 3 = Inner, 4 = infill
   if ViewValues[2] == 'All' then
      nShellType = 1
   elseif ViewValues[2] == 'Outer' then
      nShellType = 2
   elseif ViewValues[2] == 'Inner' then
      nShellType = 3
   elseif ViewValues[2] == 'Infill' then
      nShellType = 4
   end
   local nInnerNumber = tonumber(ViewValues[3])

   -- Recupero ultimo layer selezionato
   -- verifico sia un pezzo valido
   local sSelLayerName = ''
   local bFound = false
   local nSelLayerId = EgtGetLastSelectedObj() 
   while nSelLayerId do
      local sSelLayerName = EgtGetName( nSelLayerId)
      if sSelLayerName and sSelLayerName:sub(1, 5) == SLICE_LAYER then
         bFound = true
         break
      end
      nSelLayerId = EgtGetParent( nSelLayerId)
   end
   if not bFound then
      if nVisibilityMode ~= 1 then
         EgtOutBox( 'No selected element!', 'Warning', 'WARNING')
         return
      else
         nSelLayerId = GDB_ID.NULL
         sSelLayerName = ''
      end
   end

   -- ciclo sui pezzi
   local nPartIndex = 1
   local nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex)
   while nPartId do
      -- ciclo sui layer per dis/attivare il resto
      local nLayerIndex = 1
      local nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex)
      while nLayerId do
         if nVisibilityMode == 1 then     -- All
            EgtSetStatus( nLayerId, GDB_ST.ON)
         elseif nVisibilityMode == 2 then     -- Till Selected
            EgtSetStatus( nLayerId, EgtIf( nLayerId <= nSelLayerId, GDB_ST.ON, GDB_ST.OFF))
         elseif nVisibilityMode == 3 then     -- Only Selected
            EgtSetStatus( nLayerId, EgtIf( nLayerId == nSelLayerId, GDB_ST.ON, GDB_ST.OFF))
         end
         local nCrvId = EgtGetFirstGroupInGroup( nLayerId)
         while nCrvId do
            local nPathId = EgtGetFirstNameInGroup( nCrvId, PATH_GRP)
            local nShellId = EgtGetFirstInGroup( nPathId)
            while nShellId do
               local nType = EgtGetInfo( nShellId, KEY_TYPE, 'i')
               EgtSetStatus( nShellId, EgtIf( nShellType == 1 or ( nShellType == 2 and nType == 0) or (nShellType == 3 and nType == nInnerNumber), GDB_ST.ON, GDB_ST.OFF))
               nShellId = EgtGetNext( nShellId)
            end
            local nSolidId = EgtGetFirstNameInGroup( nCrvId, SOLID_GRP)
            local nSurfId = EgtGetFirstInGroup( nSolidId)
            while nSurfId do
               local nType = EgtGetInfo( nSurfId, KEY_TYPE, 'i')
               EgtSetStatus( nSurfId, EgtIf( nShellType == 1 or ( nShellType == 2 and nType == 0) or (nShellType == 3 and nType == nInnerNumber), GDB_ST.ON, GDB_ST.OFF))
               nSurfId = EgtGetNext( nSurfId)
            end
            local nToolPathId = EgtGetFirstNameInGroup( nCrvId, TOOLPATH_GRP)
            nShellId = EgtGetFirstInGroup( nToolPathId)
            while nShellId do
               local nType = EgtGetInfo( nShellId, KEY_TYPE, 'i')
               EgtSetStatus( nShellId, EgtIf( nType and ( nShellType == 1 or ( nShellType == 2 and nType == 0) or (nShellType == 3 and nType == nInnerNumber)), GDB_ST.ON, GDB_ST.OFF))
               nShellId = EgtGetNext( nShellId)
            end
            nCrvId = EgtGetNext( nCrvId)
         end
         nLayerIndex = nLayerIndex + 1
         nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex)
      end
      nPartIndex = nPartIndex + 1
      nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex)
   end

   EgtDraw()

end

---------------------------------------------------------------------
return RunViewManager