-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( true)

EgtAddToPackagePath(EgtGetSourceDir() .. 'LuaLibs\\?.lua')
require( 'EgtCompo')

--[[Vett = Vector3d(100,100,0)
EgtVector( 2,Vett)
Point = Point3d( 200,200,0)
EgtPoint(2, Point3d( 200,200,0))
EgtPoint( 2, -Point)
EgtLinePDL(2, Point, 0, 500)
EgtLinePDL(2, -Point+Vett, 0, 500)
]]
--_G.CMP_Draw = CMP_Draw
--[[
local v1x, v1y, v1z
local v2x, v2y, v2z
v1x = 500    v1y = 0    v1z = 0
v2x = 500    v2y = 500    v2z = 0

local v1 = Vector3d( v1x,v1y,v1z)
--EgtSetColor(v1,BLACK())
local v2 = Vector3d( v2x,v2y,v2z)
--EgtSetColor(v2,BLACK())
local vv1= EgtVector( 2, v1, {0,-100,0})
   EgtSelectObj(vv1)
   EgtSetColor({GDB_ID.SEL},GREEN(),false)
   EgtDeselectObj (vv1)
local vv2 = EgtVector( 2, v2,{v1x,v1y-100,v1z})
   EgtSelectObj(vv2)
   EgtSetColor({GDB_ID.SEL},RED(),false)
--************************************************************************
local Ang = atan2((v1^v2)*Z_AX(),v1*v2) 
-- ***************************************************************************
EgtText(GDB_ID.CL,{0,0,0}, Ang ,50,GDB_RT.GRID)
]]
--[[
l1 = EgtLinePDL( 2, {0,100,0}, 0, 1000)
l2 = EgtLinePDL( 2, {0.,500,0}, -45, 1000)
Pt = EgtIP( l1, l2, {0,500,0})
if Pt then
   EgtLine( 2, Pt, {0,0,0})
end   ]]

Point = Point3d( 100, 100, 0)
--EgtLine(  GDB_ID.ROOT, Point3d( 100, 100, 0), Point3d( 300, 300, 0) )
--EgtFrame(  GDB_ID.ROOT, Frame3d( Point3d(100,100,0), Vector3d(1,-1,0), Vector3d(1,1,0),Vector3d(0,0,1)),GDB_RT.GLOB)
EgtFrame(  GDB_ID.ROOT, Frame3d( Point, Vector3d(1,-1,0), Vector3d(1,1,0),Vector3d(0,0,1)),GDB_RT.GLOB)

--G.CMP_Draw = CMP_Draw
EgtZoom(SCE_ZM.ALL)