From 4685b6bde653178bf311ce72b413de5cb9818b91 Mon Sep 17 00:00:00 2001
From: "luca.mazzoleni" <luca.mazzoleni@egalware.com>
Date: Thu, 29 Aug 2024 10:47:51 +0200
Subject: [PATCH] - se lapjoint attraversata da L055, la lapjoint viene fatta
 prima

---
 LuaLibs/BeamExec.lua | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/LuaLibs/BeamExec.lua b/LuaLibs/BeamExec.lua
index eed5a0a..4be9e8b 100644
--- a/LuaLibs/BeamExec.lua
+++ b/LuaLibs/BeamExec.lua
@@ -844,6 +844,16 @@ local function OrderFeatures( vProc, b3Raw)
          B2.Box:getCenter():getX() > B1.Box:getMin():getX() and B2.Box:getCenter():getX() < B1.Box:getMax():getX() then
          return false
       end
+      -- se primo è ribasso e secondo è una mortasa a coda di rondine, il ribasso va sempre prima a meno che la mortasa a coda di rondine non sia di testa
+      if LapJoint.Identify(B1) and B1.PassedByDtMortise and DtMortise.SideIdentify(B2) and
+         B2.Box:getCenter():getX() > B1.Box:getMin():getX() and B2.Box:getCenter():getX() < B1.Box:getMax():getX() then
+         return true
+      end
+      -- se primo è mortasa a coda di rondine e secondo è ribasso, la mortasa a coda di rondine va sempre dopo a meno che la mortasa a coda di rondine non sia di testa
+      if DtMortise.SideIdentify(B1) and LapJoint.Identify(B2) and B2.PassedByDtMortise and
+         B1.Box:getCenter():getX() > B2.Box:getMin():getX() and B1.Box:getCenter():getX() < B2.Box:getMax():getX() then
+         return false
+      end
       -- se primo è feature di coda e l'altro è separazione o non è feature di coda
       if B1.Tail and ( Split.Identify( B2) or not B2.Tail) then
          return false
@@ -2003,6 +2013,10 @@ function GetFeatureInfoAndDependency( vProc, b3Raw)
          if ( Proc.Topology == 'Pocket' or Proc.Topology == 'Tunnel' or Proc.Topology == 'Groove' or Mortise.Identify( Proc)) and Drill.Identify( ProcB) and Overlaps( Proc.Box, ProcB.Box) then
             Proc.PassedByHole = true
          end
+         -- verifico se feature tipo LapJoint è attraversata da almeno una mortasa a coda di rondine
+         if ( Proc.Topology == 'Pocket' or Proc.Topology == 'Tunnel' or Proc.Topology == 'Groove') and DtMortise.SideIdentify( ProcB) and Overlaps( Proc.Box, ProcB.Box) then
+            Proc.PassedByDtMortise = true
+         end
          -- verifiche per specchiature
          if BD.DOWN_HEAD or BD.TWO_EQUAL_HEADS then
             -- forature