NewsForumsCodeLogsGallerySpecsSearch

Code archives/Algorithms/GetEntityBox()

This code has been declared by its author to be Public Domain code.

Download source code

GetEntityBox() by bytecode772006
EntityBoxX# is the maximal x width of the entity. and so are the other values.
you can also easily get the entity's bounding sphere by doing such:
GetEntityBox(ent, True)
rad# = EntityBoxX#
If rad# < EntityBoxY# Then rad# = EntityBoxY#
If rad# < EntityBoxZ# Then rad# = EntityBoxZ#
Global EntityBoxX#, EntityBoxY#, EntityBoxZ#
Function GetEntityBox(ent, recursive = True, root = 0)
If root = 0 Then
	EntityBoxX# = 0
	EntityBoxY# = 0
	EntityBoxZ# = 0
Else
	ox# = EntityX(ent, True) - EntityX(root, True)
	oy# = EntityY(ent, True) - EntityY(root, True)
	oz# = EntityZ(ent, True) - EntityZ(root, True)
EndIf
cnt_surf = CountSurfaces(ent)
For s = 1 To cnt_surf
	surf = GetSurface(ent, s)
	cnt_verts = CountVertices(surf) - 1
	For v = 0 To cnt_verts
		vx# = Abs(VertexX(surf, v) + ox#)
		vy# = Abs(VertexY(surf, v) + oy#)
		vz# = Abs(VertexZ(surf, v) + oz#)
		If (vx# > EntityBoxX#) Then EntityBoxX# = vx#
		If (vy# > EntityBoxY#) Then EntityBoxY# = vy#
		If (vz# > EntityBoxZ#) Then EntityBoxZ# = vz#
	Next
Next
If recursive Then
	If root = 0 Then root = ent
	cnt_children = CountChildren(ent)
	For i = 1 To cnt_children
		GetEntityBox(GetChild(ent, i), True, root)
	Next
EndIf
End Function

Comments

None.

Code Archives Forum