Egalware/frontalini
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Un po' d'ordine ....

Browse Source
This commit is contained in:
Carlo Baronchelli
2021-08-11 19:16:09 +02:00
parent 659a0e050c
commit de5e8bf8d1
2 changed files with 8 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Frontalini_ecc/CompoAF/Alz&Front.lua
+3 -28
View File
@@ -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**
Frontalini_ecc/CompoAF/LuaLibs/EgtCompo.lua
+5 -24
View File
@@ -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)