Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   www.boolean.name > Программирование игр для компьютеров > Blitz3D > Полезные функции

Полезные функции Выкладываем полезные функции, чтоб не изобретать велосипед заново...

Ответ
 
Опции темы
Старый 23.06.2011, 18:47   #1
dsd
Мастер
 
Аватар для dsd
 
Регистрация: 12.06.2011
Сообщений: 1,103
Написано 481 полезных сообщений
(для 1,835 пользователей)
Функция делающая тор

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

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

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

Последний раз редактировалось dsd, 09.08.2011 в 23:06.
(Offline)
 
Ответить с цитированием
Эти 4 пользователя(ей) сказали Спасибо dsd за это полезное сообщение:
ABTOMAT (23.06.2011), Colossus (08.08.2011), Mr_F_ (23.06.2011), St_AnGer (23.06.2011)
Старый 23.06.2011, 21:13   #2
dsd
Мастер
 
Аватар для dsd
 
Регистрация: 12.06.2011
Сообщений: 1,103
Написано 481 полезных сообщений
(для 1,835 пользователей)
Ответ: Функция делающая тор

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



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

Последний раз редактировалось dsd, 09.08.2011 в 23:06.
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
LLI.T.A.L.K.E.R. (11.07.2011)
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +1, время: 07:57.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com