15.03.2007, 23:04
|
#23
|
|
Гигант индустрии
Регистрация: 14.12.2005
Сообщений: 2,785
Написано 1,183 полезных сообщений
(для 4,437 пользователей)
|
Re: Деформация сферы
в 2002 году делал астероидный пояс:
For sr=1 To CountSurfaces(sp\en)
surf=GetSurface(sp\en,sr)
For a=0 To CountVertices(surf)-1
VertexCoords surf,a,VertexX#(surf,a)+Rnd(-.5,.5),VertexY#(surf,a)+Rnd(-.5,.5),VertexZ#(surf,a)+Rnd(-.5,.5)
col=Rnd(0,1)
VertexColor surf,a,col*100,col*200,col*200
Next
Next
|
__________________
|
|
(Offline)
|
|