Classes/CBox.editor
CBox.s_Editor = {
--
["Size.Depth"] = { "SpinEdit", {"%.1f", 0.1, 999, 0.1} },
["Angle"] = { "SpinEdit", {"%.1f", 0.1, 999, 0.1} },
["ToLaunch.[new]"] = { "ComboBox", "CBox.FillToLunchBox" },
--
}
--===========================
function CBox:EditRender(delta)
--
p[6] = Vector:New(-w,h,d)
p[7] = Vector:New(w,h,d)
p[8] = Vector:New(w,h,-d)

if self.Oriented then
for i,v in p do
v:Rotate(0,-self.Angle,0)
end
end

for i,v in p do
if self.Rot then v.X, v.Y, v.Z = self.Rot:TransformVector(v.X, v.Y, v.Z) end

v.X = v.X + self.Pos.X
v.Y = v.Y + self.Pos.Y
v.Z = v.Z + self.Pos.Z
end
--
col = R3D.RGB(200,50,50)
R3D.RenderBox(self.Pos.X-0.15,self.Pos.Y-0.15,self.Pos.Z-0.15,self.Pos.X+0.15,self.Pos.Y+0.15,self.Pos.Z+0.15,col)

if Editor.SelObj == self then
local rot = Quaternion:New()
if self.Oriented then
rot:RotateByAngleAxis(self.Angle,0,1,0)
end
end
end
========================================================
========================================================
Classes/CBox.lua
CBox =
{
--
TouchAction = {}, -- for compatibility
ToLaunch = {},

-- add for handling oriented Boxes
Oriented = false,
Angle = 0,

Pos = Vector:New(0,0,0),
--Ang = Vector:New(0,0,0),
--HasRegion = false,
_Class = "CBox",
}
Inherit(CBox,CObject)
--===========================
function CBox:OnPlay(first)
self:SetupOriented()
end
--===========================
function CBox:OnInitTemplate()
self:SetupOriented()
end
--===========================
function CBox:OnClone(old)
if old == CBox then
self.Pos = OppositeToCamera()
else
self.Pos.X = old.Pos.X - 0.5
self.Pos.Z = old.Pos.Z - 0.5
end
self._Entity = nil
end
--============================
function CBox:Apply(old)
if self.TouchAction and table.getn(self.TouchAction) > 0 then
if not self.Actions then
self.Actions = {}
end
self.Actions.OnTouch = self.TouchAction
end
self.TouchAction = nil
if self.HasRegion then
--ENTITY.Release(self._Entity)
--self._Entity = ENTITY.Create(ETypes.Region)
--REGION.BuildFromPoint(self._Entity,self.Points)
--WORLD.AddEntity(self._Entity,true)
end

self:SetupOriented()

if self.OnApply then self:OnApply() end
end
--=============================
function CBox:SetupOriented()
if not self.Oriented then return end
local w = self.Size.Width / 2
local h = self.Size.Height / 2
local d = self.Size.Depth / 2

local points = {}

points[1] = Vector:New(-w,-h,-d)
points[2] = Vector:New(-w,-h,d)
points[3] = Vector:New(w,-h,d)
points[4] = Vector:New(w,-h,-d)
points[5] = Vector:New(-w,h,-d)
points[6] = Vector:New(-w,h,d)
points[7] = Vector:New(w,h,d)
points[8] = Vector:New(w,h,-d)

for i,v in points do
v:Rotate(0,self.Angle,0)
v:Add(self.Pos)
end

self._maxX = -9999
self._minX = 9999

self._maxY = -9999
self._minY = 9999

self._maxZ = -9999
self._minZ = 9999

for i,v in points do
self._maxX = math.max(v.X, self._maxX)
self._maxY = math.max(v.Y, self._maxY)
self._maxZ = math.max(v.Z, self._maxZ)

self._minX = math.min(v.X, self._minX)
self._minY = math.min(v.Y, self._minY)
self._minZ = math.min(v.Z, self._minZ)
end
end
--===============================
function CBox:IsInside(x,y,z)

if self.Oriented then return self:IsInsideOriented(x,y,z) end

local w = self.Size.Width / 2
local h = self.Size.Height / 2
local d = self.Size.Depth / 2

if x >= self.Pos.X - w and x <= self.Pos.X + w and
y >= self.Pos.Y - h and y <= self.Pos.Y + h and
z >= self.Pos.Z - d and z <= self.Pos.Z + d then
return true
end
return false
end
--===============================
function CBox:IsInsideExtruded(x,y,z,ex,ey,ez)
local w = self.Size.Width / 2 + ex
local h = self.Size.Height / 2 + ey
local d = self.Size.Depth / 2 + ez

if x >= self.Pos.X - w and x <= self.Pos.X + w and
y >= self.Pos.Y - h and y <= self.Pos.Y + h and
z >= self.Pos.Z - d and z <= self.Pos.Z + d then
return true
end
return false
end
--==================================
function CBox:IsInsideOriented(x,y,z)
if x > self._minX and x < self._maxX and
y > self._minY and y < self._maxY and
z > self._minZ and z < self._maxZ then

-- transform point
local v = Vector:New(x,y,z)
v:Sub(self.Pos)
v:Rotate(0,self.Angle,0)

local w = self.Size.Width / 2
local h = self.Size.Height / 2
local d = self.Size.Depth / 2

if v.X >= - w and v.X <= w and
v.Y >= - h and v.Y <= h and
v.Z >= - d and v.Z <= d then
return true
end

end
return false
end
--=========================
function CreateRegion(width,height,depth)
--
end