Основы трехмерной графики в среде Blitz3D


Программа, создающая нагромождение шаров (20 мин)


Создадим заголовок:

GRAPHICS3D 640,480

cam = CREATECAMERA()

l = CREATELIGHT()

ROTATEENTITY l, 45, 45, 0

 

Создадим и оттектурируем плоскость:

grass = LOADTEXTURE("C:\MEDIA\GRASS.JPG")

SCALETEXTURE grass, 16, 16

p =

CREATEPLANE()

POSITIONENTITY p, 0, -5, 0

ENTITYTEXTURE p, grass

 

Зададим тип плоскости, равным 1, тип шаров будет равным 2:

ENTITYTYPE p, 1

 

Шары (2) могут сталкиваться с плоскостью (1), которая определяется, как многогранник(2), при этом они будут останавливаться (1):

COLLISIONS 2, 1, 2, 2

 

Шары (2) могут сталкиваться с другими шарами (2), которые определяются, как сферы(1), при этом они будут скользить(2):

COLLISIONS 2, 2, 1, 2

 

Когда переменная s равна 0, это означает, что нужно создать новый шар:

s = 0

 

Бесконечный цикл:

REPEAT

 

 IF s = 0 THEN

 

Создаем шар, если s = 0, задаем его тип (2) и радиус сферы столкновения (1):

  s =

CREATESPHERE() 

  ENTITYTYPE s, 2

  ENTITYRADIUS s, 1

 

Задаем случайное местоположение шара на высоте 12:

  POSITIONENTITY s, RND(-5,5), 12, RND(10,20)

 END IF

 

Заносим текущие координаты шара в три переменные:

 sx# = ENTITYX(s)

 sy#

= ENTITYY(s)

 sz#

= ENTITYZ(s)

 

Шар перемещается вниз под воздействием гравитации:

 MOVEENTITY s, 0, -0.3, 0

 

Проверяем столкновения:

 UPDATEWORLD

 

Если координаты шара не изменились, то он прочно застрял и нужно бросать новый шар:

 IF sx# = ENTITYX(s) AND sy#=ENTITYY(s) AND SZ# = ENTITYZ(s) THEN s = 0

 

Завершаем цикл, визуализируем сцену:

 IF KEYDOWN(1) THEN EXIT

 RENDERWORLD


 

FLIP

FOREVER




Начало  Назад  Вперед