carlo.baronchelli
49 lines
1.3 KiB
Lua
49 lines
1.3 KiB
Lua
-- 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
|
|
|
|
--G.CMP_Draw = CMP_Draw
|
|
EgtZoom(SCE_ZM.ALL)
|