| Нет. |
|
Очищает список, содержащий информацию о столкновениях.
Всякий раз при использовании команды Collisions, чтобы включить обработку столкновений между двумя различными типами объектов, информация добавляется в список столкновений. Эта команда очищает список, поэтому столкновения не будут обрабатываться до следующего использования команды Collisions. Эта комманда не очистит такую информацию о сталкивающихся объектах, как радиус объеута (EntityRadius), тип объекта (EntityType). |
|
; Пример ClearCollisions
; ----------------------- 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 ; Установка типа столкновений type_sphere=1 type_cone=2 ; Присваиваем тип столкновений шару EntityRadius sphere,1 EntityType sphere,type_sphere ; Присваиваем тип столкновений конусу EntityType cone,type_cone ; Разрешить столкновения между типами type_sphere и type_cone, по методу сфера->полигон 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 KeyHit( 57 )=True Then ClearCollisions ; Проверить и обработать столкновения UpdateWorld RenderWorld Text 0,0,"Use cursor/A/Z keys to move sphere" Text 0,20,"Press spacebar to use ClearCollisions command" Flip Wend End |
Главная страница
Нажмите сюда, чтобы увидеть последнюю версию этой страницы в интернете