From 265cda35d4ef2f66aa5a2e53f32896e0880d60f2 Mon Sep 17 00:00:00 2001
From: "carlo.baronchelli" <carlo.baronchelli@egalware.com>
Date: Wed, 25 Aug 2021 10:54:31 +0200
Subject: [PATCH] Aggiunto primi spostamenti

---
 Frontalini_ecc/CompoAF/Alz&Front.lua        | 37 ++++++++++++++++-----
 Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua |  6 ++--
 2 files changed, 32 insertions(+), 11 deletions(-)

diff --git a/Frontalini_ecc/CompoAF/Alz&Front.lua b/Frontalini_ecc/CompoAF/Alz&Front.lua
index 7573138..5a004e9 100644
--- a/Frontalini_ecc/CompoAF/Alz&Front.lua
+++ b/Frontalini_ecc/CompoAF/Alz&Front.lua
@@ -47,6 +47,25 @@ CMP.HeightText = 100
 --
 _G.CMP = CMP
 
+-- 2021/08
+-- Disegna i lati di un rattangolo dati layer, Punto, base, altezza;
+-- 'allineato al sistema di riferimento' =: base parallela al sistema di riferimento dato
+-- sarebbe superata dall'uso diretto della funzione di disegno Rettangolo
+-- se non servissse distinguare i singoli lati
+local function DrawRectangle (Lay, BaseL, HeightL, sName)
+   local Pt = Point3d(0,0,0)
+   local l1 = EgtLinePDL( Lay, Pt, 0, BaseL)
+              --EgtSetName( l1, sName.." l1")
+   local l2 = EgtLinePDL( Lay, EgtEP( l1), 90, HeightL)
+              --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
+
+
 -- Scrittura info e etichetta con inclinazione dei lati dei rettangoli
 local function SideAngSetInfo(SideId, Lay, Gamma, dOffset, dHLbl)
    EgtSetInfo( SideId, "SideAng", Gamma)  -- -F_Delta?
@@ -514,19 +533,19 @@ local function CMP_Draw(bPreview)
                dSp2x1 = -dOffs1*tan(90+Alpha1)
             end
             -- calcolo spostamenti 'totali'
-            local dSp1x = dSp1x1 + dSP1x2
-            -- opzione 1                     <<<<<<<<<<<<<< OPZIONE 1 <<<<<<<<<<<
-            local dSP2x = -(dSp2x1 + dSP2x2)
-            -- opzione 2                     <<<<<<<<<<<<<< OPZIONE 2 <<<<<<<<<<<
+            local dSp1x = dSp1x1 + dSP1x2 + dOffs2
+            -- opzione 1 per spostamento R2                   <<<<<<<<<<<<<< OPZIONE 1 <<<<<<<<<<<
+            local dSp2x = -(dSp2x1 + dSP2x2) - dOffs2
+            -- opzione 2 per spostamento R2                    <<<<<<<<<<<<<< OPZIONE 2 <<<<<<<<<<<
             -- if Alpha1 <= 90 then
-               -- dSP2x = - dSp2x1
+               -- dSp2x = - dSp2x1 - dOffset2
             -- else
                -- dSp2x = 0
             -- end
-            -- spostamenti
-      -- <<<<<<<<<<<<<<<<<<<<<<  QUI   <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
-            
-            
+            -- esecuzione degli spostamenti spostamenti
+      -- >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>   QUI   >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+            EgtMove( Tab[N].IdPz, {dSp1x, 0, 0})
+            EgtMove( Tab[Tab[N].RecNxt].IdPz, {dSp2x, 0, 0}, GDB_RT.LOC)
             
          --bool EgtMove( int nId/s, Vector3d vtMove [, int nRefType = GDB_RT.LOC])
          end
diff --git a/Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua b/Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua
index 2fa6b26..8663913 100644
--- a/Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua
+++ b/Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua
@@ -22,11 +22,13 @@ end
 ]]
 
 
--- 2021/08
+--[[ 2021/08
 -- Disegna i lati di un rattangolo dati layer, Punto, base, altezza;
 -- 'allineato al sistema di riferimento' =: base parallela al sistema di riferimento dato
 -- sarebbe superata dall'uso diretto della funzione di disegno Rettangolo
 -- se non servissse distinguare i singoli lati
+
+-- |funzione per ora trasferita all'interno di Alz&Front.lua|
 function DrawRectangle (Lay, BaseL, HeightL, sName)
    local Pt = Point3d(0,0,0)
    local l1 = EgtLinePDL( Lay, Pt, 0, BaseL)
@@ -39,7 +41,7 @@ function DrawRectangle (Lay, BaseL, HeightL, sName)
               --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)