Беда с наклоном обьекта на ландшафте

[PilatP]

Привет всем. Столкнулся с проблемой. Пишу игру типа Танки, столкнулся с проблемой, наклонов танка относительно ландшафта. Голову уже сломал. Уже высчитал вручную, (yy = n * (0.3 / 0.82468) )(0.3 наклон на единицу/0.82468 длина танка, n разница координат по Y) но все равно не работает. Если не сложно помогите. Я знаю что это должно решатся намного проще, беда в том не знаю как.
вот код. С определением точек проблем нет,проблема с формулой для вычисления угла.

Код: Выделить всё

Public Sub Rotate_Tank()
Dim xx As Single, yy As Single, zz As Single, n As Single, m As Single
Dim x1 As Single, z1 As Single, x2 As Single, z2 As Single
          CosA = Cos(-(User_Tank(User_Tank_Tek).rTank_Y + g_360d))
          SinA = Sin(-(User_Tank(User_Tank_Tek).rTank_Y + g_360d))
        'перед зад
        x1 = User_Tank(User_Tank_Tek).Pos_X + SinA * 1.25
        z1 = User_Tank(User_Tank_Tek).Pos_Z - CosA * 1.25
        x2 = User_Tank(User_Tank_Tek).Pos_X - SinA * 1.25
        z2 = User_Tank(User_Tank_Tek).Pos_Z + CosA * 1.25
        xx = LS.GetHeight(x1, z1)
        zz = LS.GetHeight(x2, z2)
        n = (xx - zz)
               
                yy = n * (0.3 / 0.82468)
        User_Tank(User_Tank_Tek).rTank_X = yy
         
        ' лево     право
          CosA = Cos(-(User_Tank(User_Tank_Tek).rTank_Y - g_90d))
          SinA = Sin(-(User_Tank(User_Tank_Tek).rTank_Y - g_90d))
        x1 = User_Tank(User_Tank_Tek).Pos_X + SinA * 0.75
        z1 = User_Tank(User_Tank_Tek).Pos_Z - CosA * 0.75
        x2 = User_Tank(User_Tank_Tek).Pos_X - SinA * 0.75
        z2 = User_Tank(User_Tank_Tek).Pos_Z + CosA * 0.75
       
        xx = LS.GetHeight(x1, z1)
        zz = LS.GetHeight(x2, z2)
        'Draw_Metka x1, LS.GetHeight(x1, z1), z1
        'Draw_Metka x2, LS.GetHeight(x2, z2), z2
        If xx > zz Then
            n = (zz - xx)
        Else:
            n = (xx - zz)
        End If
       
               yy = n / 0.5
        User_Tank(User_Tank_Tek).rTank_Z = yy

End Sub


Когда танк стоит строго по x или z проблем практически нет, но при попытке развернутся вокруг оси, стоя на уклоне, танк то подымается то в верх, то зарывается в низ. Я думаю что при повороте танка под 45* или 90*, смещаются между собой и углы "User_Tank(User_Tank_Tek).rTank_Z"

[PilatP]

По ходу все на море?!

[DODge]

По ходу все на море?!

Ну так конечно, все телепаты в отпуске!

У тебя полно переменных, назначение которых знаешь только ты, и даже не потрудился объяснить их нам.

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

[PilatP]

Код: Выделить всё

Public Sub Rotate_Tank()
Dim xx As Single, yy As Single, zz As Single, n As Single, m As Single
Dim x1 As Single, z1 As Single, x2 As Single, z2 As Single
          CosA = Cos(-(User_Tank(User_Tank_Tek).rTank_Y + g_360d))
          SinA = Sin(-(User_Tank(User_Tank_Tek).rTank_Y + g_360d))
        'перед зад
        x1 = User_Tank(User_Tank_Tek).Pos_X + SinA * 1.25   'х1 и z1 координата спереди танка
        z1 = User_Tank(User_Tank_Tek).Pos_Z - CosA * 1.25
        x2 = User_Tank(User_Tank_Tek).Pos_X - SinA * 1.25    'х2 и z2 координата сзади танка
        z2 = User_Tank(User_Tank_Tek).Pos_Z + CosA * 1.25
        xx = LS.GetHeight(x1, z1)  'xx высота спереди танка
        zz = LS.GetHeight(x2, z2)   'zz высота сзади танка
        n = (xx - zz)
               
                yy = n * (0.3 / 0.82468)  ' вот тут проблема yy это угол наклона вперед назад
        User_Tank(User_Tank_Tek).rTank_X = yy
         
        ' лево     право
          CosA = Cos(-(User_Tank(User_Tank_Tek).rTank_Y - g_90d))
          SinA = Sin(-(User_Tank(User_Tank_Tek).rTank_Y - g_90d))
        x1 = User_Tank(User_Tank_Tek).Pos_X + SinA * 0.75      'х1 и z1 координата слева танка
        z1 = User_Tank(User_Tank_Tek).Pos_Z - CosA * 0.75
        x2 = User_Tank(User_Tank_Tek).Pos_X - SinA * 0.75      'х2 и z2 координата справа танка
        z2 = User_Tank(User_Tank_Tek).Pos_Z + CosA * 0.75
       
        xx = LS.GetHeight(x1, z1)  'xx высота слева по средине танка
        zz = LS.GetHeight(x2, z2)   'zz высота справа по средине танка
        'Draw_Metka x1, LS.GetHeight(x1, z1), z1
        'Draw_Metka x2, LS.GetHeight(x2, z2), z2
        If xx > zz Then
            n = (zz - xx)
        Else:
            n = (xx - zz)
        End If
       
               yy = n / 0.5    ' вот тут проблема yy это угол наклона влево вправо
        User_Tank(User_Tank_Tek).rTank_Z = yy

End Sub


Может есть алгоритм вычисления наклонов,по проще. Но с математикой и геометрией у меня плохо. Если есть код, желательно с коментами, буду очень благодарен. В принципе код рабочий за исключением вычисления угла. Когда танк стоит по осям XZ, все нормально, но повернув его на 45* относительно осей тут и вылазит бок.

[Mikle]

Я давал демку ss3d, где машинка-коробка едет по ландшафту. Там есть эти вычисления.

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

+1, разбираться крайне влом.

[DODge]

Я давал демку ss3d, где машинка-коробка едет по ландшафту. Там есть эти вычисления.

[PilatP]

Я давал демку ss3d, где машинка-коробка едет по ландшафту. Там есть эти вычисления.

Спасибо всем что откликнулись, у меня Mikle не было этого исходника, по этому и не мог разобратся, у меня есть исходник другой с твоей игрой, но я там не разобрался, много кода. Спасибо сейчас буду разбиратся