Показать сообщение отдельно
Старый 18.02.2008, 16:48   #56
Bagration
Знающий
 
Регистрация: 06.10.2007
Сообщений: 225
Написано 15 полезных сообщений
(для 21 пользователей)
Вопрос Ответ: Полный ксорс и ещё кое что

Здрасте! Затесте пожалста код ниже, почему то он у меня не работает.
Import xors3d.xors3d
Import xors3d.rubuxwrapper
Global glob_mesh:Int = xloadmesh("you_mesh.b3d") 
Global list:TList = New TList
Type TMESH
	Field mesh_t:Int
	Field pos_x:Float, pos_z:Float
	Function create_mesh:TMESH(pos_x:Float, pos_z:Float) 
		Local mesh:TMESH = New TMESH
		mesh.pos_x = pos_x
		mesh.pos_z = pos_z
		mesh.mesh_t = xCopyMesh(glob_mesh) 
		list.AddLast(mesh) 
	End Function
End Type

xGraphics3D 800, 600, 32, False, True
camera = xCreateCamera() 
xPositionEntity(camera, 0, 10, - 30) 
TMESH.create_mesh(10, 10) 
While Not xKeyDown(1) 
	
xUpdateWorld
xRenderWorld
xFlip

Wend
(Offline)
 
Ответить с цитированием