# Command: EntityRadius

EntityRadius entity,radius#

Parameters:

entity - entity handle radius# - radius of entity's collision sphere

Description:

Sets the radius of an entity's collision sphere. An entity radius should be set for all entities involved in spherical collisions, which is all source entities (as collisions are always sphere-to-something), and whatever destination entities are involved in sphere-to-sphere collisions (collision method No.1).

Example:

; EntityRadius Example
; --------------------
Graphics3D 640,480
SetBuffer BackBuffer()
camera=CreateCamera()
light=CreateLight()
sphere=CreateSphere( 32 )
PositionEntity sphere,-2,0,5
cone=CreateCone( 32 )
EntityType cone,type_cone
PositionEntity cone,2,0,5
; Set collision type values
type_sphere=1
type_cone=2
; Set sphere radius value
sphere_radius#=1
; Set sphere and cone entity types
EntityType sphere,type_sphere
EntityType cone,type_cone
; Enable collisions between type_sphere and type_cone, with sphere->polygon method and slide response
Collisions type_sphere,type_cone,2,2
While Not KeyDown( 1 )
x#=0
y#=0
z#=0
If KeyDown( 203 )=True Then x#=-0.1
If KeyDown( 205 )=True Then x#=0.1
If KeyDown( 208 )=True Then y#=-0.1
If KeyDown( 200 )=True Then y#=0.1
If KeyDown( 44 )=True Then z#=-0.1
If KeyDown( 30 )=True Then z#=0.1
MoveEntity sphere,x#,y#,z#
; If square brackets keys pressed then change sphere radius value
If KeyDown( 26 )=True Then sphere_radius#=sphere_radius#-0.1
If KeyDown( 27 )=True Then sphere_radius#=sphere_radius#+0.1
; Set entity radius of sphere
EntityRadius sphere,sphere_radius#
; Perform collision checking
UpdateWorld
RenderWorld
Text 0,0,"Use cursor/A/Z keys to move sphere"
Text 0,20,"Press [ or ] to change EntityRadius value"
Text 0,40,"EntityRadius sphere,"+sphere_radius
Flip
Wend
End

Index