| shape - live physics shape handle |
|
Returns the native sphere or capsule radius in metres. This is half the authored diameter and excludes the capsule segment length. Other shape kinds raise a runtime error. This is read-only. Wrong-kind/stale handles and unsupported typed inspections raise runtime errors. Frame/dimension authoring metadata is wrapper state; native geometry effects are recorded, but physics replay does not reconstruct editable source entities. See also: PhysicsShapeSphere, PhysicsShapeCapsule, PhysicsShapeBox, RefreshPhysicsHull, RefreshPhysicsMesh, PhysicsShapeLocalMinX. |
; PhysicsShapeRadius Example
; --------------------------
Graphics3D 640,480,0,2
SetBuffer BackBuffer()
Const PHYSICS_STATIC=0
Const PHYSICS_DYNAMIC=2
camera=CreateCamera()
PositionEntity camera,0,3,-7
RotateEntity camera,20,0,0
light=CreateLight()
RotateEntity light,45,-30,0
AmbientLight 60,60,60
; An independent Box3D world with standard gravity
world=CreatePhysicsWorld()
; Blue static floor
ground=CreateCube()
ScaleEntity ground,6,0.5,6
PositionEntity ground,0,-0.5,0
EntityColor ground,80,160,255
ground_body=CreatePhysicsBody(world,ground,PHYSICS_STATIC)
ground_shape=PhysicsBodyBox(ground_body,12,1,12)
; An empty pivot carries the body; a child mesh shows its collider
root=CreatePivot()
body=CreatePhysicsBody(world,root,PHYSICS_DYNAMIC)
; Start with a 1 m sphere collider and a ball to show it
diameter#=1
model=CreateSphere(16,root)
ScaleEntity model,0.5,0.5,0.5
EntityColor model,255,120,70
shape=PhysicsBodySphere(body,1)
ResetPhysicsBody body,0,2,0,0,0,0
While Not KeyDown(1)
; Space tosses the body, R drops it again
If KeyHit(57)
PhysicsBodyImpulse body,0,5,0
PhysicsBodyAngularImpulse body,0.5,0,0.5
EndIf
If KeyHit(19) Then ResetPhysicsBody body,0,2,0,0,0,0
; [ and ] resize the sphere; the collider and the ball change together
change=KeyHit(27)-KeyHit(26)
If change<>0
diameter=diameter+change*0.25
If diameter<0.25 Then diameter=0.25
PhysicsShapeSphere shape,diameter
ScaleEntity model,diameter/2,diameter/2,diameter/2
EndIf
StepPhysics world,1.0/60.0,4
; Arrow keys move the camera
If KeyDown(200) Then MoveEntity camera,0,0,0.1
If KeyDown(208) Then MoveEntity camera,0,0,-0.1
If KeyDown(203) Then TurnEntity camera,0,1,0
If KeyDown(205) Then TurnEntity camera,0,-1,0
RenderWorld
Text 0,0,"Arrow keys: move camera Space: toss R: reset [ / ]: size Esc: exit"
Text 0,20,"PhysicsShapeRadius(shape) = "+PhysicsShapeRadius(shape)+" m"
Text 0,40,"(half the "+diameter+" m diameter)"
Flip
Wend
FreePhysicsWorld world
End