DataBeam :

- in travi con scarico a caduta aggiunta possibilità di taglio parziale obliquo in coda (prima versione).

LuaLibs/BeamExec.lua

@@ -310,6 +310,11 @@ end
 local function IsTailFeature( Proc, b3Raw, dCurrOvmH)
    -- feature sempre di testa o coda per il gruppo (se non troppo lunga)
    if Proc.Grp == 1 or Proc.Grp == 2 then
+      -- se pezzo corto (quindi a caduta) e in coda, provo a cambiare tipo
+      if BD.ADVANCE_TAIL_CUT and Proc.Prc == 10 and b3Raw:getDimX() < BD.LEN_SHORT_PART and Proc.Box:getCenter():getX() < b3Raw:getCenter():getX() - 0.5 * dCurrOvmH then
+         return false, true
+      end
+      -- standard
       return ( Proc.Box:getCenter():getX() < b3Raw:getCenter():getX() - 0.5 * dCurrOvmH and Proc.Box:getDimX() < BD.MAX_LEN_HTFEA)
    end
    -- feature sempre di testa o coda nonostante il gruppo
@@ -347,7 +352,8 @@ local function PrintFeatures( vProc, b3Raw)
       local Proc = vProc[i]
       local sOut = string.format( ' Id=%3d Grp=%1d Prc=%3d TC=%2d/%d Flg=%2d Down=%s Side=%s Head=%s Tail=%s Fcse=%1d,%1d Diam=%.2f Fct=%2d Box=%s',
                                   Proc.Id, Proc.Grp, Proc.Prc, Proc.TaskId, Proc.CutId,
-                                  Proc.Flg, EgtIf( Proc.Down, 'T', 'F'), EgtIf( Proc.Side, 'T', 'F'), EgtIf( Proc.Head, 'T', 'F'), EgtIf( Proc.Tail, 'T', 'F'),
+                                  Proc.Flg, EgtIf( Proc.Down, 'T', 'F'), EgtIf( Proc.Side, 'T', 'F'),
+                                  EgtIf( Proc.Head, 'T', 'F'), EgtIf( Proc.Tail, 'T', EgtIf( Proc.AdvTail, 'A', 'F')),
                                   Proc.Fcs, Proc.Fce, Proc.Diam, Proc.Fct, tostring( Proc.Box))
       -- info speciali per Block Haus Half Lap
       if Proc.Prc == 37 then
@@ -391,7 +397,7 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH)
                Proc.Box = EgtGetBBoxGlob( ProcId, GDB_BB.STANDARD)
                if Proc.Box and not Proc.Box:isEmpty() then 
                   Proc.Head = IsHeadFeature( Proc, b3Raw, dCurrOvmH)
-                  Proc.Tail = IsTailFeature( Proc, b3Raw, dCurrOvmH)
+                  Proc.Tail, Proc.AdvTail = IsTailFeature( Proc, b3Raw, dCurrOvmH)
                   table.insert( vProc, Proc)
                   -- se foro
                   if Drill.Identify( Proc) then
@@ -401,8 +407,8 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH)
                      if Drill.Split( Proc, b3Raw) then
                         -- aggiorno flags prima parte foro (dati tabelle sempre per riferimento)
                         Proc.Flg = 2
-                        Proc.Head = IsHeadFeature( Proc, b3Raw, dCurrOvmH)
-                        Proc.Tail = IsTailFeature( Proc, b3Raw, dCurrOvmH)
+                        Proc.Head = Drill.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
+                        Proc.Tail = Drill.IsTailFeature( Proc, b3Raw, dCurrOvmH)
                         -- definisco dati seconda parte
                         local Proc2 = {}
                         Proc2.Id = ProcId