forum.boolean.name - Smooth turn entity

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

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

- - Smooth turn entity (http://forum.boolean.name/showthread.php?t=8057)

Smooth turn entity

Надо поворачивать ентити плавно.Это вообще не трудно конечно:) Я сделал простым применением функции CurveValue(). Но тут видимо что-то посложнее надо:( Дело в том что когда ентити поврачивается на заданный объект(пивот) за несколько проходов, то мы сможем наблюдать то, как ентити вовсе не всегда "выбирает" кротчайшее направление поворота! В жизни никто так не поступает, если не специально:) Поэтому такое поведение к примеру монстра будет выглядеть крайне неестественно:(
К примеру, бот развернут на 10 градусов > поступает команда развернутся к 355 градусам. И бот вместо выитания 15 градусов, начинает разворачиваться на 345 градусов в положительном направлении.

ЗЫ:::Кстати в блитце градусная система представлет из себе полуинтервал [-180; 180) - зачееем??? Неужели удобно так? Почему не сделать так как на уроках геометрии [0; 360) ???

Так короче, вы могли бы всё это не читать кроме "ЗЫ", вот код - там всё есть :)

Код:

Graphics3D 1280, 1024, 32, 1



cam=CreateCamera()

CameraClsColor cam, 0, 100,255

MoveEntity cam,0,0,-50

lit=CreateLight()





cube=CreateCube() : ScaleMesh cube, 10, 10 ,10



pivot=CreatePivot()

PositionEntity pivot, Rand(-500, 500), 0, Rand(-500, 500)







Repeat

        

        

        If EntityDistance(cube, pivot)< 20 Then PositionEntity pivot, Rand(-500, 500), 0, Rand(-500, 500)

        

        

        oldangx#=EntityPitch(cube)

        oldangy#=EntityYaw(cube)

        oldangz#=EntityRoll(cube)

        

        PointEntity cube, pivot

        MoveEntity cube, 0, 0, 0.6

        

        

        angx#=EntityPitch(cube)

        angy#=EntityYaw(cube)

        angz#=EntityRoll(cube)

        

        

        angx#=CurveValue(angx, oldangx, 0.02)

        angy#=CurveValue(angy, oldangy, 0.02)

        angz#=CurveValue(angz, oldangz, 0.02)

        

        RotateEntity cube, angx, angy, angz

        

        

        

        

        If KeyDown(200)=1 Then MoveEntity cam, 0,0,0.5

        If KeyDown(208)=1 Then MoveEntity cam, 0,0,-0.5

        

        RotateEntity cam, EntityPitch(cam)+MouseYSpeed()*0.2, EntityYaw(cam)-MouseXSpeed()*0.2 ,0

        

        MoveMouse GraphicsWidth()/2,GraphicsHeight()/2

        

        

        

        

        UpdateWorld

    RenderWorld

        

    Flip 60

        

Until KeyHit(1)

End







Function CurveValue#(v#,old#,f#)

        Return old#+((v#-old#)*f#)

End Function

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

Ну я думаю, что проблема такая распространённая, что наверняка кто-нибудь её решал. Пожалуйста поредактируйте код.

Всем спасибо:)

Ответ: Smooth turn entity

см. DeltaYaw, DeltaPitch

Ответ: Smooth turn entity

DeltaYaw'ом определяй разность углов и если она больше 180° то поворачивай в противоположную сторону.

Цитата:

ЗЫ:::Кстати в блитце градусная система представлет из себе полуинтервал [-180; 180) - зачееем??? Неужели удобно так? Почему не сделать так как на уроках геометрии [0; 360) ???

Меня это тоже бесило... Особенно когда делал перемещение персонажа на PhysX'е - та ещё жесть... Зачем? Марку Сибли виднее

Ответ: Smooth turn entity

мне кажется [-180; 180) удобнее чем [0; 360)

Ответ: Smooth turn entity

Всё рано не понятно... Разность углов между чем и чем...не получается у меня ничего:(((
Можно всё таки кодом...пожаалуйста!!..

Ответ: Smooth turn entity

Код:

function smoothturn(ent1,ent2,speed# = 1)

s# = DeltaYaw(ent1,ent2)

turnentity ent1,0,speed * sign(s),0

endfunction

как то так

Ответ: Smooth turn entity

Цитата:

Сообщение от HolyDel (Сообщение 101771)

мне кажется [-180; 180) удобнее чем [0; 360)

Нуу... Но когда где-то оно не совпадает с другим, то это кащмар!

Ответ: Smooth turn entity

Цитата:

function smoothturn(ent1,ent2,speed# = 1)
s# = DeltaYaw(ent1,ent2)
turnentity ent1,0,speed * sign(s),0
endfunctionкак то так

че такое sign ?????

Ответ: Smooth turn entity

ELIAS
прочитай справку

Ответ: Smooth turn entity

sign от 0 == 0
sign от >0 == 1
sign от <0 == -1

Ответ: Smooth turn entity

Sgn, может?
Не мешайте сяху с бейсиком!

Ответ: Smooth turn entity

ну... тогда я неправ - тогда sgn. он бы ее еще sn назвал. или вообще - s.

Ответ: Smooth turn entity

В классическом бейсике именно sgn, так что Марк тут оказался совершено прав :)

Ответ: Smooth turn entity

Спасибо, HolyDel, АВТОМАТ !

Ответ: Smooth turn entity

еще можно так

Цитата:

Function EntityPoint(Entity,Point)
;========================================
;b - коректирующий угол .
AngleEntityUp_Target#=pointAtxy(Entity,Point)+b
AngleEntityUp#=EntityYaw(Entity)
;============================================
;перевод углов в нормальные ~0-359
If AngleEntityUp_Target<0 Then AngleEntityUp_Target=(180-Abs(AngleEntityUp_Target))+180
If AngleEntityUp<0 Then AngleEntityUp=(180-Abs(AngleEntityUp))+180
;================================================= ======
;условия для поворота в кратчайшую сторону
If (((Abs(AngleEntityUp-AngleEntityUp_Target))<=180) And (AngleEntityUp<AngleEntityUp_Target)) Or (((Abs(AngleEntityUp-AngleEntityUp_Target))>180) And (AngleEntityUp>AngleEntityUp_Target)) Then

AngleRotate=1
Else
AngleRotate=-1
End If

RotateEntity Entity,EntityPitch(Entity,1),EntityYaw(Entity)+Ang leRotate,EntityRoll(Entity,1),1
end function

Function pointAtxy#(p1,p2)
;==============================
;!!!!!!!!!
dx#=EntityX(p1,1)-EntityX(p2,1)
dy#=EntityZ(p1,1)-EntityZ(p2,1)
;!!!!!!!!
Return ATan2#(dy,dx)

End Function