Показать сообщение отдельно
Старый 07.06.2010, 01:12   #3
Fatal
Оператор ЭВМ
 
Аватар для Fatal
 
Регистрация: 25.05.2010
Адрес: Россия, Питер
Сообщений: 34
Написано одно полезное сообщение
Ответ: Скайбокс на 6 граней

m=CreateMesh() 

b=LoadBrush( file$+"1.bmp",49 ) 
s=CreateSurface( m,b ) 
AddVertex s,-1,+1,-1,0,0:AddVertex s,+1,+1,-1,1,0 
AddVertex s,+1,-1,-1,1,1:AddVertex s,-1,-1,-1,0,1 
AddTriangle s,0,1,2:AddTriangle s,0,2,3 
FreeBrush b 

b=LoadBrush( file$+"2.bmp",49 ) 
s=CreateSurface( m,b ) 
AddVertex s,+1,+1,+1,0,0:AddVertex s,-1,+1,+1,1,0 
AddVertex s,-1,-1,+1,1,1:AddVertex s,+1,-1,+1,0,1 
AddTriangle s,0,1,2:AddTriangle s,0,2,3 
FreeBrush b 
 
b=LoadBrush( file$+"3.bmp",49 ) 
s=CreateSurface( m,b ) 
AddVertex s,+1,+1,-1,0,0:AddVertex s,+1,+1,+1,1,0 
AddVertex s,+1,-1,+1,1,1:AddVertex s,+1,-1,-1,0,1 
AddTriangle s,0,1,2:AddTriangle s,0,2,3 
FreeBrush b 

b=LoadBrush( file$+"4.bmp",49 ) 
s=CreateSurface( m,b ) 
AddVertex s,-1,+1,+1,0,0:AddVertex s,-1,+1,-1,1,0 
AddVertex s,-1,-1,-1,1,1:AddVertex s,-1,-1,+1,0,1 
AddTriangle s,0,1,2:AddTriangle s,0,2,3 
FreeBrush b 

b=LoadBrush( file$+"5.bmp",49 ) 
s=CreateSurface( m,b ) 
AddVertex s,-1,+1,+1,0,1:AddVertex s,+1,+1,+1,0,0 
AddVertex s,+1,+1,-1,1,0:AddVertex s,-1,+1,-1,1,1 
AddTriangle s,0,1,2:AddTriangle s,0,2,3 
FreeBrush b 


ScaleMesh m,550,550,550
FlipMesh m
EntityFX m,9
EntityOrder m,10
Return m
__________________
Нет ничего хуже, чем ничего. (с) Василий Орехов
(Offline)
 
Ответить с цитированием