- in FeatureTopology modifiche alla definizione di parallelo per tunnel e groove

- in SawPlusChain piccole correzioni

LuaLibs/ProcessLapJoint.lua

@@ -4595,6 +4595,8 @@ end
 
 -- TODO gestione messaggi in funzione apposita (almeno per append)
 
+-- TODO gestire topologia tunnel (anche da due lati)
+
 local SawPlusChain =  {}
 SawPlusChain.Saw = {}
 SawPlusChain.Chainsaw = {}
@@ -4985,7 +4987,7 @@ function SawPlusChain.Saw.CalculateMachiningParameters( Proc)
       EgtOutLog( Cutting.Message)
       return Cutting
    end
-   if Proc.Pocket.SideOpeningsCount == 0 then
+   if #( Proc.Pocket.SideFaces) > 0 then
       -- se tasca più stretta della lama la strategia non è applicabile
       if Cutting.Tool.Diameter > Proc.Pocket.Width - 10 * GEO.EPS_SMALL then
          Cutting.Message = 'Feature '.. Proc.FeatureId .. ' : strategy ' .. Proc.Pocket.Strategy .. ' not applicable - pocket too narrow for saw blade diameter'
@@ -5102,7 +5104,7 @@ function SawPlusChain.Chainsaw.CalculateMachiningParameters( Proc)
       EgtOutLog( Chainsawing.Message)
       return Chainsawing
    end
-   if Proc.Pocket.SideOpeningsCount == 0 then
+   if #( Proc.Pocket.SideFaces) == 0 then
       -- se tasca più stretta della sega a catena la strategia non è applicabile
       if Chainsawing.Tool.Width > Proc.Pocket.Width - 10 * GEO.EPS_SMALL then
          Chainsawing.Message = 'Feature '.. Proc.FeatureId .. ' : strategy ' .. Proc.Pocket.Strategy .. ' not applicable - pocket too narrow for chainsaw width'
@@ -5177,15 +5179,15 @@ function SawPlusChain.Make( Proc, nRawId, nPhase, bOnlySaw)
    Proc.Pocket.Strategy = 'SawPlusChain'
    local b3Raw = EgtGetRawPartBBox( nRawId)
 
-   if not SawPlusChain.IsTopologyOk( Proc) then
-      local sErr = 'Feature '.. Proc.FeatureId .. ' : strategy ' .. Proc.Pocket.Strategy .. ' not implemented for topology ' .. Proc.TopologyLongName
+   -- TODO per implementare la strategia con lapjoint lunghe bisogna prima riconoscere le topologie che arrivano
+   if Proc.IsSplittedLapJoint then
+      local sErr = 'Feature '.. Proc.FeatureId .. ' : strategy ' .. Proc.Pocket.Strategy .. ' not implemented for long lapjoint '
       EgtOutLog( sErr)
       return false, sErr
    end
 
-   -- TODO per implementare la strategia con lapjoint lunghe bisogna prima riconoscere le topologie che arrivano
-   if Proc.IsSplittedLapJoint then
-      local sErr = 'Feature '.. Proc.FeatureId .. ' : strategy ' .. Proc.Pocket.Strategy .. ' not implemented for long lapjoint '
+   if not SawPlusChain.IsTopologyOk( Proc) then
+      local sErr = 'Feature '.. Proc.FeatureId .. ' : strategy ' .. Proc.Pocket.Strategy .. ' not implemented for topology ' .. Proc.TopologyLongName
       EgtOutLog( sErr)
       return false, sErr
    end