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)

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

Прикольный глюк :)

...
While(Not (xKeyHit(KEY_ESCAPE) Or xWinMessage("WM_CLOSE")))
timeruno=xMillisecs()
...
xRenderWorld()
xText 100,120,xMillisecs()-timeruno
...
Печатает иногда... отрицательные значения. Кроме делэя и вэйттаймера это чем-нить лечится?

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

Есть вектора 1 (x1,y1,z1) с длиной l1 и 2 (x2,y2,z2) с длиной l2. Длина проекции вектора 2 на 1 будет: (x1*x2+y1*y2+z1*z2)/l1. То есть если будет три вектора некомпланарных, то координаты любого вектора можно записать в длинах проекций на эти три вектора? И это типа новый базис вектора 2 будет? А там уже и до матриц перевода из одних координат в другие не далеко?

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

Господа кавалеристы, як в хорсе сделать чтобы данные коллизий были глобальными? Ато писать код в майнцукле не кошерно, както.

Вызывать в теле функции xcollisions и делать xUpdateworld?

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

Прямо триллер по мотивам простейшей физики бильярдных шаров :)

Цитата:

Function ImpulseTranslater()
xCollisions type_ball,type_ball,2,2
xUpdateWorld
;Now my prechios data created
For biliard.ball_data =Each ball_data
;Does my current ball is collided with any other?
ph=xCountCollisions (biliard\id)
If ph>0 Then
;если таки да, значит надо подкорректировать его скорость.

;Пусть оно вернет мне c каким же именно шариком столкнулся текущий шарик, а также пусть скажет его скорость.
id=xCollisionEntity (biliard\id,0)
ReturnBallData(id)
idvx#=VecX()
idvy#=VecY()
idvz#=VecZ()
vx#=biliard\vx
vy#=biliard\vy
vz#=biliard\vz
;теперь пусть оно мне напишет нормаль столкновения.
x1#=xCollisionNX(biliard\id,0)
y1#=xCollisionNY(biliard\id,0)
z1#=xCollisionNZ(biliard\id,0)
;А теперь пусть оно мне вернет длину проекций скоростей на нормаль
proj1#=ProjectionOnVec#(x1,y1,z1,vx,vy,vz)
proj2#=ProjectionOnVec#(x1,y1,z1,idvx,idvy,idvz)
;поблагодарим за исполнительность.
ThankYou()
;теперь компьютер правильно посчитает остатки проекции после передачи импульсов и вернет их сюда.
Brain_Fucker_0000001(proj1,proj2)
newproj1#=VecX()
newproj2#=VecY()
;далее нужно модифицировать вектора скорости.
;вычитаю из векторов скорости изначальную проекцию и плюсую после обработки столкновения.
EndIf
Next
End Function

Function Brain_Fucker_0000001(proj1#,proj2#)
;нормаль направлена по радиусу ентити, от центра
;если проекция 1 меньше нуля. скорость внутрь ентити. Ентитя пытается убежать от той с которой произошел контакт.
If proj1<0 Then
If proj2<0 Then
;ентитя2 догоняет убегающую ентитю 1
;а первая ентити посмотрела на свою скорость и сказала раз у меня скорость меньше, чем у ентити2, то значит хер ты меня догонишь по тому как по модулю она больше
If proj1<proj2 Then

EndIf
;и были скорости ентитей равны и ржала первая над второй.
If proj1=proj2 Then

EndIf

;и оказалась по модулю скорость ентити 2 больше чем у первой, и огребла первая импульс равный дельте скоростей. И стало у первой импульс как у второй, а у первой как у второй.
If proj1>proj2 Then

EndIf

EndIf

If proj2=0 Then
;ентитя 2 стояла ниче не делала, а тут вдруг откуда нивозьмись, раз и въехала в неё первая, причем двигаясь от неё. Мистика
;и нихрена не произошло никакой передачи импульса. Ведь первая ентити убежала от второй

End If

If proj2>0 Then
;ентитя2 тоже пытается убежать от точки контакта.
;получилось у ентитей убежать друг от друга и осталсись проекции скоростей без изменений
End If
EndIf

;ентитя стоит себе или катится, но к шару два сама не приближается.
If proj1=0 Then
If proj2<0 Then
; а вот хер тебе сказала ентитя два и догнала ентитю 1
; и выхватила ентитя 1 от ентити 2 полный импульс, и осталось у ентити 2 ноль импульса
EndIf

If proj2=0 Then
; и было енити второй глубоко похер на первую, ибо они не сближались, но какимто образом пересеклись.
; посмотрели они друг на друга да и прокатились мимо, либо замерли рядышком. а передачи импульса не произошло.
End If

If proj2>0 Then
; и решила ентитя убежать от затаившейся ентити 1, страшно же, вдруг она подкарауливает
; и получилось у ентити2 убежать от первой. Ведь на самом деле первой ентити было плевать на вторую, хоть та и каталась впритирку.
End If
EndIf

;ентити один нагло катится на ентитю 2
If proj1>0 Then
If proj2<0 Then
; а ентити2 тоже не лыком шита и катится к ентити 1
;и как ухерачились они в лоб лоб
If proj1>-proj2 Then
;и победила первая вторую, нахлобучив её импульсом равным дельте модулей, сама же ентитя остановилась обезимпульсев
EndIf

If proj1=-proj2 Then
;ентити бодались-бодались да невыбодались и остановились потратив свои импульсы спроецированные на нормаль столкновения
EndIf

If proj1>-proj2 Then
;и победила вторая первую, нахлобучив её импульсом равным дельте модулей, сама же ентитя остановилась обезимпульсев
EndIf

EndIf

If proj2=0 Then
; ентити2 стоит себе или катиться, но к ентити 1 сама не приближается, за чо и агребет
;и огребла импульс ентити2 от первойБ а первая потратила весь импульс
End If

If proj2>0 Then
;ентитя 2 хорошо подумав решила свалить от ентити один.
If proj1>proj2 Then
;но догнала ентитити 1 ентити два и поменялась с нею размером импульса.
EndIf

If proj1=proj2 Then
;а не смогла она догнать ентитю2. И ничего не произошло, они просто коснулись.
EndIf

If proj1<proj2 Then
;гналась ентити один за второй, да не догнала. И ничего не произошло они тоже просто коснулись.
EndIf
End If
EndIf
vecar(0,0)=newproj1
vecar(1,0)=newproj2

End Function

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

Не думаю что тут найдётся много кто это будет компилить или читать. Народ ленивый, им картинки подавай, зрелищь, а не нудного кода..

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

Будет модель стола. Где кликом можно будет катать шарики. без счетчиков без нефига, но и от не фига не зависящая :) а код точно не скомпилится. его там нету это только зарисовка :)

По задумке одной функцей это иницилизируется, а второй упдатится если камера в зоне досягаемости. Интерактивная модель стола для бильярда.

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

Ящик грязи такая прелесть ^__^

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

Правда она супер?

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

Цитата:

Сообщение от dsd (Сообщение 198599)

Правда она супер?

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

И это не рожа с интернета :D это дружит с соседями :D

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

dsd, возможно ты не понимаешь, но это не твой бложек. Тема уже давно скатилась в оффтоп, но теперь подавно.

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

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

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

Первая версия столкновений шариков с респонсем типа бильярд :)
Пробел - дать одному шарику случайный пендаль в плоскости стола.

Кому не тяжко, посмотрите и откаментируйте сиё.

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

Внезапно у меня запустился хорс в кодеблокс и удивительная знакомость кода укрепила меня в мысли, что блитц мне не нужен:

Код:

#include "xors3d.h"



int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)

{

    xAppTitle( "Xors3D - Simple Texture" );

   xGraphics3D( 800,600,32,false,true );





    Handle pivot=xCreatePivot();

    Handle camera = xCreateCamera(pivot);

    Handle light=xCreateLight();

    xPositionEntity (light,200.0,200.0,200.0);

    Handle cube=xCreateCube();

    xPositionEntity (cube,0,0,20);





   while (xWinMessage("WM_CLOSE")==0 && xKeyHit(KEY_ESCAPE)==false)

   {

       xTurnEntity (cube,0.1,0.1,0.1);

       xRenderWorld();





      xFlip();

   }

   return 0;

}

Вот это у меня есть, какая из них лучше? Не сочтите за офтоп.

И да где подсветку функций хорса врубить? Т.к. в settings => editor => syntax highlighting я не догоню как.
не то что бы мне это так уж сильно требуется, но... хочется.

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

Шильдт - неплох.
Подсвечивается именно синтаксис язык и его ключевые слова. Вряд ли можно подсвечивать функции отдельной библиотеки.