Modifiche a seguito ridenominazione dei campi di TabSide - Prove con sistemi di riferimento locali

Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua

@@ -5,9 +5,9 @@ local EgtCompo = {}
 
 print( 'EgtCompo Carlo started')
 
+--[[
 -- 2021/07
--- Disegna un rattangolo dati layer, Punto, base, altezza e versore (direzione) della base
---    e con opzione per esploderlo o meno
+-- Disegna i lati di un rattangolo dati layer, Punto, base, altezza e versore (direzione) della base
 function DrawRect (Lay, Pt, BaseL, HeightL, Vect, sName)
    local l1 = EgtLinePVL( Lay,Pt,VRotated( Vect,-90),HeightL)
               EgtSetName( l1,sName.."l1")
@@ -20,6 +20,25 @@ function DrawRect (Lay, Pt, BaseL, HeightL, Vect, sName)
    return l1, l2, l3, l4
 end
 
+]]
+
+
+2021/08
+-- Disegna i lati di un rattangolo dati layer, Punto, base, altezza;
+--  base parallela al sistema di riferimento dato
+-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ QUI
+function DrawRect (Lay, Pt, BaseL, HeightL, sName, Frame)
+   local l1 = EgtLinePDL( Lay, Pt, 0, BaseL, Frame)
+              EgtSetName( l1,sName.."l1")
+   local l2 = EgtLinePDL( Lay, EgtEP( l1), 90, HeightL, Frame)
+              EgtSetName( l2, sName.."l2")
+   local l3 = EgtLinePDL( Lay, EgtEP( l2), 180, BaseL)
+              EgtSetName( l3, sName.."l3")
+   local l4 = EgtLine( Lay, EgtEP( l3), EgtSP( l1))
+              EgtSetName( l4,sName.."l4")
+   return l1, l2, l3, l4
+end
+
 -- Restituisce l'angolo interno di due lati consecutivi di un poligono
 function GetAngIntPol (l1,l2)
   local v1 =EgtSV(l1)