Показать сообщение отдельно
Старый 17.01.2012, 15:51   #9
Nex
Гигант индустрии
 
Аватар для Nex
 
Регистрация: 13.09.2008
Сообщений: 2,893
Написано 1,185 полезных сообщений
(для 3,298 пользователей)
Ответ: Вопрос про пошаговость...

width - количество клеток в ширину
height - количество клеток в высоту (глубину).
Function CreatePlane2 (width=1,height=1)
	mesh = CreateMesh ()
		surface=CreateSurface (mesh)
			For z=-width/2 To width/2
				u#=z/Float (width)*20
				For x=-height/2 To height/2
					v#=x/Float (height)*20
					vx=AddVertex (surface,x*2.0,0,z*2.0,u,v) 
				Next 
			Next 

			For z=0 To height-1
			For x=0 To width-1
				start = x+z*(width+1)
					v0=start
					v1=start+1
					v2=start+(width+1)
					v3=start+(width+1)+1
						   AddTriangle surface,v2,v1,v0 
						   AddTriangle surface,v2,v3,v1
			Next
			Next 
	Return mesh
End Function
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Krep_Kospit (17.01.2012)