-- 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)

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