From 4e1b4d31fb10263b354d6c33e09df66735c084a4 Mon Sep 17 00:00:00 2001 From: Carlo Baronchelli Date: Tue, 10 Aug 2021 19:43:21 +0200 Subject: [PATCH] Modifiche a seguito ridenominazione dei campi di TabSide - Prove con sistemi di riferimento locali --- Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua | 23 +++++++++++++++++++-- 1 file changed, 21 insertions(+), 2 deletions(-) diff --git a/Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua b/Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua index 42aa47b..59b3e02 100644 --- a/Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua +++ b/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)