forum.boolean.name - Функция делающая тор

forum.boolean.name (http://forum.boolean.name/index.php)

- Полезные функции (http://forum.boolean.name/forumdisplay.php?f=17)

- - Функция делающая тор (http://forum.boolean.name/showthread.php?t=14971)

Функция делающая тор

От нефиг делать создал это :)

Оно делает тор и возвращает его хэндл. :) Для делания баранок удобно и полезно :-D

Код:

Function CreateTor(torrad#,inrad#,elements,segments)



mesh=CreateMesh()

meshsurf=CreateSurface(mesh)



For i=0 To elements

For h=0 To segments





x1#=torrad*Sin(i*360/elements)+inrad*Cos(h*360/segments)*Sin(i*360/elements)

y1#=torrad*Cos(i*360/elements)+inrad*Cos(h*360/segments)*Cos(i*360/elements)

z1#=inrad*Sin(h*360/segments)



AddVertex meshsurf,x1,z1,y1,inrad*h/segments,inrad*i/elements



Next

Next



For x=0 To elements

For i=0 To segments-1

v0=i+segments*X

v1=i+segments*X+1

v2=i+segments*X+segments

v3=i+segments*X+segments+1

If v3<=CountVertices(meshsurf)-1 Then

AddTriangle meshsurf,v0,v2,v3

AddTriangle meshsurf,v1,v0,v3

EndIf

Next

Next

UpdateNormals mesh





testtex=CreateTexture(256,256,256)

SetBuffer TextureBuffer(testtex)

Color 127,127,127

Rect 0,0,128,128

Rect 128,128,128,128

Color 235,240,235

Rect 0,128,128,128

Rect 128,0,128,128

SetBuffer BackBuffer()

ScaleTexture testtex,0.2,0.2

EntityTexture mesh,testtex,0,0





Return mesh



End Function

Ответ: Функция делающая тор

Динамично выворачивающийся тор с которого слетают сначала текстуры. Потом оно с удовольствием хавает память, потом оно падает. Кажется я написал свой первый вирус :)))

FreeEntity tor
tor=createtor(18*Sin(MilliSecs()/100),4*Cos(MilliSecs()/100),32,32)
Не работает однако.