From de5e8bf8d183ec326bb1d44eb857c15faf109cd3 Mon Sep 17 00:00:00 2001 From: Carlo Baronchelli Date: Wed, 11 Aug 2021 19:16:09 +0200 Subject: [PATCH] Un po' d'ordine .... --- Frontalini_ecc/CompoAF/Alz&Front.lua | 31 ++------------------- Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua | 29 ++++--------------- 2 files changed, 8 insertions(+), 52 deletions(-) diff --git a/Frontalini_ecc/CompoAF/Alz&Front.lua b/Frontalini_ecc/CompoAF/Alz&Front.lua index 966ca80..09d1c39 100644 --- a/Frontalini_ecc/CompoAF/Alz&Front.lua +++ b/Frontalini_ecc/CompoAF/Alz&Front.lua @@ -245,13 +245,7 @@ local function CMP_Draw(bPreview) --local Pt = EgtSP( Side) + VRotated( SVect*dDim, -90) local Pt = EgtEP( Side) + VRotated( EVect*dDim, -90) local Frame = Frame3d( Pt, -EVect, VRotated(EVect,-90), Vector3d(0,0,1)) - - -- >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> QUI >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - -- come far assumere a Pz il sitena di riferimento 'Frame'? local Pz = EgtGroup(GDB_ID.ROOT, Frame, GDB_RT.GLOB) -- nuova parte per alzatina o frontalino - -- <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - - SideTab[SideNum].IdPz = Pz local Lay = EgtGroup(Pz, Frame, GDB_RT.GLOB) -- layer della figura EgtSetName(Lay,'OutLoop') @@ -270,22 +264,6 @@ local function CMP_Draw(bPreview) sName = "L"..SideNum.."-A-" HeightL = AH --(=CMP.A_Heigth) - - ----------------------------------------------------------------------- - -- --DA VERIFICARE - -- local Pt = EgtEP( Side) + VRotated( EVect*dDim, -90) - -- -- ++++++++++++++++++++++++++++++++++ - -- SideTab[SideNum].IdPz = Pz - -- -- spostare e orientare il suo sistema di riferimento come il lato del compo - invertito - - -- -- ( ?????? o del primo lato del rettangolo - ex l4 ????????) - -- --[[ da Egt Wiki: - -- bool move( Frame3d frRef, Vector3d Vm) - -- Traslazione ( frRef:move( Vm)) - -- bool rotate( Frame3d frRef, Point3d PAx, Vector3d vVx, num dAngDeg) - -- Rotazione attorno ad un asse ( frRef:rotate(PAx, vAx, dAngDeg), ...) - -- ]] - ----------------------------------------------------------------------- - -- caso di frontalino elseif SideTab[SideNum].InfoSd == 2 then --Pz = EgtGroup(GDB_ID.ROOT,GDB_RT.GLOB) -- nuova parte per alzatina o frontalino @@ -299,16 +277,13 @@ local function CMP_Draw(bPreview) HeightL = FH --(=CMP.F_Heigth) end - -- chiamo la funzione per il disegno del rettangolo (Lay, Pt, Base, Altezza, Vettore direz. iniziale, prefisso per nome lati) - -- chiamo la funzione per il disegno (senso antiorario) dei lati del rettangolo allineato + -- chiamo la funzione per il disegno (senso antiorario) dei lati del rettangolo 'allineato' -- (Layer, Base, Altezza, prefisso per nome lati, ) - -- local Pt0 = EgtPoint( Lay, Pt, Frame) - --local Vect = Vector3d( 1,0,0) - local l1, l2, l3, l4 = DrawRectAll (Lay, BaseL, HeightL, sName) + local l1, l2, l3, l4 = DrawRectangle (Lay, BaseL, HeightL, sName) -- inserisco gli Id dei lati del rettangolo nel Side_Record in SideTab SideTab[SideNum].l1 = l1; SideTab[SideNum].l2 = l2; SideTab[SideNum].l3 = l3; SideTab[SideNum].l4 = l4 - -- >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> anche QUI + -- >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> QUI --[==[ -- **INFO PER TAGLI INCLINATI** diff --git a/Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua b/Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua index 0694609..aaea0e2 100644 --- a/Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua +++ b/Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua @@ -7,8 +7,8 @@ print( 'EgtCompo Carlo started') --[[ -- 2021/07 --- Disegna i lati di un rattangolo dati layer, Punto, base, altezza e versore (direzione) della base -function DrawRect (Lay, Pt, BaseL, HeightL, Vect, sName) +-- Disegna i lati di un rattangolo 'allineato' dati layer, Punto, base, altezza e versore (direzione) della base +function DrawRectAll (Lay, Pt, BaseL, HeightL, Vect, sName) local l1 = EgtLinePVL( Lay,Pt,VRotated( Vect,-90),HeightL) EgtSetName( l1,sName.."l1") local l2 = EgtLinePVL( Lay,EgtEP( l1),Vect,BaseL) @@ -19,33 +19,15 @@ function DrawRect (Lay, Pt, BaseL, HeightL, Vect, sName) EgtSetName( l4,sName.."l4") 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 +-- 'allineato al sistema di riferimento' =: base parallela al sistema di riferimento dato +-- >>>>>>> A questo punto si potrebbe probabilmente usare direttamente la funzione Retangolo ... <<<<<<<< -- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ QUI ---[[ -function DrawRectAll (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 ]] - - --- 2021/08 --- Disegna i lati di un rattangolo dati layer, Punto, base, altezza; --- base parallela al sistema di riferimento dato --- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ QUI -function DrawRectAll (Lay, BaseL, HeightL, sName) +function DrawRectangle (Lay, BaseL, HeightL, sName) local Pt = Point3d(0,0,0) local l1 = EgtLinePDL( Lay, Pt, 0, BaseL) EgtSetName( l1,sName.."l1") @@ -59,7 +41,6 @@ function DrawRectAll (Lay, BaseL, HeightL, sName) end - -- Restituisce l'angolo interno di due lati consecutivi di un poligono function GetAngIntPol (l1,l2) local v1 =EgtSV(l1)