forum.boolean.name - Имитация водной поверхности.

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

- 3D-программирование (http://forum.boolean.name/forumdisplay.php?f=12)

- - Имитация водной поверхности. (http://forum.boolean.name/showthread.php?t=15000)

Ответ: Имитация водной поверхности.

PHP код:


		
			
// вершинный шейдер

VSOutput VSMain(VSInput input)

{

// объект для выходных данных

VSOutput output;

// трансформируем позицию вершины

float xoops = input.position.x-8*cos(radians(time/10+3*input.position.x));

float yoops = input.position.z-6*sin(radians(time/35+1.5*input.position.z));

float zoops = 8*cos(radians(time/10+3*input.position.x))+6*sin(radians(time/35+1.5*input.position.z));

output.position = mul(float4(input.position.xyz+float3(xoops,zoops,yoops),input.position.w), matrixWorldViewProj);

// трансформируем и нормализуем нормаль



float x0 = input.position.x+0.5f-8*cos(radians(time/10+3*(input.position.x+0.5f)));

float y0 = input.position.z+0.5f-6*sin(radians(time/35+1.5*(input.position.z+0.5f)));

float z0 = 8*cos(radians(time/10+3*(input.position.x+0.5f)))+6*sin(radians(time/35+1.5*(input.position.z+0.5f)));



float x1 = input.position.x-0.7f-8*cos(radians(time/10+3*(input.position.x-0.7f)));

float y1 = input.position.z+0.5f-6*sin(radians(time/35+1.5*(input.position.z+0.5f)));

float z1 = 8*cos(radians(time/10+3*(input.position.x-0.7f)))+6*sin(radians(time/35+1.5*(input.position.z+0.5f)));



float x2 = input.position.x+0.6f-8*cos(radians(time/10+3*(input.position.x+0.6f)));

float y2 = input.position.z-0.9f-6*sin(radians(time/35+1.5*(input.position.z-0.9f)));

float z2 = 8*cos(radians(time/10+3*(input.position.x+0.6f)))+6*sin(radians(time/35+1.5*(input.position.z-0.9f)));





/*

строю матрицу

!x        y        z        !

!x1-x0    y1-y0            z1-z0            !

!x2-x0    y2-y0            z2-z0            !

*/

float a = (y1-y0)*(z2-z0)-(y2-y0)*(z1-z0);

float b =-((x1-x0)*(z2-z0)-(x2-x0)*(z1-z0));

float c = (x1-x0)*(y2-y0)-(x2-x0)*(y1-y0);





output.normal = normalize(mul(float3(a,b,c), matrixWorld));

// переписываем текстурные координаты

output.texCoords = input.texCoords+float2(sin(radians(time/15))/5,cos(radians(time/15))/5);

// возвращаем результат

return output;

}

Кажется я сделал первый шаг в шейдеры :)

В шейдерах при размышлениях о тени, отражении и преломлении ключевое слово это кубомапа?

Ответ: Имитация водной поверхности.

Цитата:

В шейдерах при размышлениях о тени, отражении и преломлении ключевое слово это кубомапа?

ну необязательно.

для воды часто годится отражение в виде одной картинки - т.е. отрендеренное с камеры, с отражённой об плоскость воды трансформацией.

для неплоских объектов кубмапа, да.

ещё есть всякая хитрота вроде скрин-спейс отражений для дефереда. много не подскажу по этой теме, но нагуглить можно.
в новом патче на crysis2 как раз они.

Ответ: Имитация водной поверхности.

В crysis2 юзается смесь. Используется статичная кубмапа заранее отрендеренная на объектах для полного отражения, затем используется screen-space отражения, которые могут отразить естественно только то что в экране. Для воды думаю полюбому нужно использовать дополнительно вертикально зеркально отражённой камеры снимок, как это обычно и делают.

Ответ: Имитация водной поверхности.

Нечто отдаленно напоминающее л-сустем
Алгоритмическая ботаника рвет мне мозг :-D

Код:

SeedRnd MilliSecs()

Global ph

Global gh



gh=xCreateCylinder(8)

xPositionMesh gh,0,1,0

xScaleMesh gh,0.1,1,0.1



ph=xCreateCube()

xPositionMesh ph,0,1,0

CreateChilds(ph)







For d=0 To xCountChildren(ph)-1

        child=xGetChild(ph,d)

        CreateChilds(child)

Next



For d=0 To xCountChildren(ph)-1

        child=xGetChild(ph,d)

                For z=0 To xCountChildren(child)-1

                        childl2=xGetChild(child,z)

                        CreateChilds(childl2)

                Next

Next



For d=0 To xCountChildren(ph)-1

        child=xGetChild(ph,d)

                For z=0 To xCountChildren(child)-1

                        childl2=xGetChild(child,z)

                                For x=0 To xCountChildren(childl2)-1

                                        childl3=xGetChild(childl2,x)

                                                CreateChilds(childl3)

                                Next

                Next

Next





Function CreateChilds(child)

qbranches=Rand(1,3)

For i=0 To qbranches



pc=xCopyEntity(gh,child)

xPositionEntity pc,0,2,0

xRotateEntity pc,40+Rnd(-15,15),i*(360/(qbranches+1))+Rnd(-25,25),0 

Next

End Function

Ответ: Имитация водной поверхности.

Я в смущении, оно похоже на дерево. Ппц.

Ответ: Имитация водной поверхности.

Оно коряво и с дырками. У него странные квадратные листья цвета грязи следящие за камерой словно за солнцем. Оно не анимировано. Код громоздок и ужасен. Хэндлы и контролы не выведены. Но черт побери это дерево :-D

Ответ: Имитация водной поверхности.

Как в хорсе можно манипулировать значением xMouseZ()?

Цитата:

BBDECL void BBCALL xMoveMouse ( int x,
int y
)

Moves the mouse to a designated location.

Although the mouse isn't visible on the screen, the mouse location is still being tracked and you can attach a graphic to it. However, there are times when you want to put the pointer to a specific location on the screen.

Parameters:
x The x coordinate on the screen to move the mouse
y The y coordinate on the screen to move the mouse

Где Z?

Алгоритм ствола дерева с ветками.

1.Создаем цилиндрический меш. Он должен начинаться в (0,0,0)
2.Делаем цилиндр коническим, сжимая верхние точки на 50%
3.Создаем для цилиндра в п.2 детей копий цилиндра с масштабом вдвое меньшим, чем у родителя. Ориентируем их в пространстве и масштабируем их длину по вкусу.
4.Для каждого ребенка повторяем п.3.
5.Повторяем п.4 пока результат не станет похож на дерево.
6.На последний уровень ветвей клеим листья.
7.Профит

Создаем функцию:

Цитата:

Function CreateChilds(child,zscale#,level#)// чилд это будущий пэрент. Длина текущего уровня ветвей, масштаб ветви, должен быть кратным 0.5 (1, 0.5, 0.25, 0.125 ....)

;определяем кол-во ветвей от родительского конца ветки
qbranches=Rand(1,2)
; для хаотичности облика задаем начальное вращение ветвей относительно родительской ветки
sdegree=Rand(0,359)

;создаем ветки детьми
For i=0 To qbranches
;копируем конический цилиндр из п.2
pc=xCopyEntity(gh,child)
; позиционируем цилиндр относительно родителя, -0.01 для того чтобы щели были менее заметны
xPositionEntity pc,0,xMeshHeight(child)-0.01,0
; применяем нужный масшьаб к ветви
xScaleEntity pc,level,zscale+Rnd(-0.1,0.1),level
;задаем положение в пространстве
xRotateEntity pc,40+Rnd(-15,15),sdegree+i*(360/(qbranches+1))+Rnd(-25,25),0
Next
End Function

Теперь можно строить само дерево.

Цитата:

Function BuildTree()
;грузим цилиндрический меш
gh=xLoadMesh("mesh/tree.b3d")
;красим его
xEntityTexture gh,treetex
; ставим основу дерева
base=xCopyEntity (gh)
;скэйлим под куб пивот всего дерева
xScaleEntity base,2,1,2
;делаем загруженный цилиндр коническим
MakeItCone(gh)

; пивот дерева.
ph=xCreateСube()
xPositionMesh ph,0,1,0
xEntityAlpha ph,0.1
CreateChilds(ph,1,1)

;первый уровень ветвей.
For d=0 To xCountChildren(ph)-1
child=xGetChild(ph,d)
CreateChilds(child,0.6,0.5)
Next
;пэрентим к пивоту ствол.
xentityparent base,ph

;второй левел веток
For d=0 To xCountChildren(ph)-1
child=xGetChild(ph,d)
For z=0 To xCountChildren(child)-1
childl2=xGetChild(child,z)
CreateChilds(childl2,0.8,0.25)
Next
Next

;третий левел веток
For d=0 To xCountChildren(ph)-1
child=xGetChild(ph,d)
For z=0 To xCountChildren(child)-1
childl2=xGetChild(child,z)
For x=0 To xCountChildren(childl2)-1
childl3=xGetChild(childl2,x)
CreateChilds(childl3,1.2,0.125)
СоздатьЛистья()
Next
Next
Next

End Function

Ответ: Имитация водной поверхности.

MouseZ это колесико мыши. Манипулировать им напрямую кроме как колесиком мыши никак нельзя, но тебя выручит переменная.

Ответ: Имитация водной поверхности.

Цитата:

Сообщение от NitE (Сообщение 197040)

В смысле, палить знак изменения мышиного зед и соответствующим образом менять переменную?

Еще пак тупых вопросов по хорсу:

1. Как рисовать во фронтбуфер? Я хочу видеть процесс.

2. Почему тупой код работает, а код работающий в блице не работает.
Кстати я правильно цвет в ARGB перевожу или нет?

Код:

Function SimpleRaytracer()

For y=0 To 300;xGraphicsHeight()-1

For x=0 To 300;xGraphicsWidth()-1

xCameraPick camera,x,y

If xPickedEntity()>0 Then 

mesh=xPickedEntity()

xColor xEntityRed(mesh),xEntityGreen(mesh),xEntityBlue(mesh)

xLine x,y,x,y

Else 

xColor 0,0,0

xLine x,y,x,y

;mesh=xPickedEntity()

;Ecolor#=xEntityRed(mesh)*255^2+xEntityGreen(mesh)*255+xEntityBlue(mesh)

;ARGB$="FF"+Right$(Hex$(ecolor),6)

;xWritePixel x,y,ARGB$

;Else

;xWritePixel x,y,"FF000000"

EndIf

Next 

Next

xFlip



While(Not (xKeyHit(KEY_ESCAPE) Or xWinMessage("WM_CLOSE")))

Wend



End Function

Ответ: Имитация водной поверхности.

Ну чем больше крутишь колесо мыши, тем больше MouseZ, так-что да, в начале цикла проверяешь, прибавляешь к переменной, затем обнуляешь.

xSetBuffer

PHP код:


		
			
Function ARGB(a=255,r=0,g=0,b=0)

Return (((a) Shl 24) + ((r) Shl 16) + ((g) Shl 8) + (b))

End Function

Ответ: Имитация водной поверхности.

Это рисует вдоль траектории... трубу.

Ответ: Имитация водной поверхности.

p.s. Цена тридэмакса как минимум справедлива :-)

Ответ: Имитация водной поверхности.

Вот допустим есть у меня вектор 1(х1,у1,z1) и его длина равна единице. Два перпендикулярных к нему вектора это 2(sqr(1-x1*x1),y1,z1) & 3 (x1,sqr(1-y1*y1),z1)? И эти три вектора взаимно перпендикулярны или нет?

Из условия x1*x2+y1*y2+z1*z2=0 можно построить вектор 2(y1,-x1,0) и условие выполнится. Потом привести вектор 2 к длине равной 1 и перемножив вектор 1х2 полчить третий вектор перпендикулярный и 1-му и 2-му вектору. Но это у меня правильно работало только если 1(0,1,0). Где косяк(в том что я даю 2 вектору z=0?)?

Ответ: Имитация водной поверхности.

Ну так что? Или все пользуются только тригонометрией? Шейдерные джедаи, ну вы то точно векторами должны баловаться ) причем все должно быть уже на рефлексах у вас. Или вектора для всех такая терра инкогнито што пестец?

Ответ: Имитация водной поверхности.

какой-то запутанный вопрос.
могу лишь сказать что если есть уже хотя бы два перпендикулярных вектора, то третий можно найти через cross.