Движение объекта по точкам(OpenGl).Подскажите.

[spamer]

Всем привет. У меня возникла проблема, может кто то подскажет:
рисую, например, квадрат при помощи OpenGL и мене необходимо по заданным точка(вводятся пользователем, допустим 5 точек) прорисовать движение квадрата по этим точка. Вопрос, как это сделать?

Вот сделал я движение квадрата, но здесь я просто увеличиваю координаты X и Y одной точки. Подскажите пожалуйста как реализовать движение,например, по 5 точкам или если не тяжело скажите что мене надо исправить в своем коде.


P.S. OpenGL начал учить недавно. Так что не ругайтесь если че не так.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OpenGL, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    DC: HDC;
    hrc: HGLRC;
    procedure PixelFormat;
    procedure Paint(x,y:real);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ox,oy:real;
implementation

{$R *.dfm}

procedure TForm1.Paint(x,y:real);
var
 ps:TPaintStruct;
begin
glMatrixMode(GL_PROJECTION);
glLoadIdentity( ); 
if width <= height then
  glOrtho (-2, 2, -2*height/width, 2*height/width, -10.0, 10.0)
 else
  glOrtho (-2*width/height, 2*width/height, -2, 2, -10.0, 10.0);
glViewport(0, 0, width, height);

  BeginPaint(Handle,ps);

  glEnable(GL_DEPTH_TEST);

 glClearColor(1,0.5,0.5,1);
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 glColor3f (0.0, 1.0, 0.0);

 glTranslatef(x,y,0.0);//Вот это выполняет движение квадрата.

 glBegin(GL_QUAD_STRIP);
  glVertex3f(0.3,0.3,0.3);
  glVertex3f(0.3,-0.3,0.3);
  glVertex3f(-0.3,0.3,0);
  glVertex3f(-0.3,-0.3,0);
 glEnd;
 glDisable(GL_DEPTH_TEST);

 glFlush();
 swapBuffers(dc);
 EndPaint(Handle,ps);
end;


procedure TForm1.PixelFormat;
var
 nPixelFormat:Integer;
 pfd:TPixelFormatDescriptor;
begin
 FillChar(pfd,Sizeof(pfd),0);
pfd.nSize:=sizeof(pfd); 
pfd.nVersion:=1;
 pfd.dwFlags:=PFD_DOUBLEBUFFER+PFD_SUPPORT_OPENGL+
      PFD_DRAW_TO_WINDOW; 
 pfd.iPixelType:=PFD_TYPE_RGBA;
 pfd.cColorBits:=24; 
 pfd.cAlphaBits:=64;
 pfd.cAccumBits:=64;
 pfd.cDepthBits:=32;
 pfd.cStencilBits:=64;
 pfd.iLayerType:=PFD_MAIN_PLANE; 
 nPixelFormat:=ChoosePixelFormat(DC,@pfd);
 if nPixelFormat<>0 then
  SetPixelFormat(DC,nPixelFormat,@pfd);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   DC:= GetDC(Handle);
   PixelFormat;
   hrc:= wglCreateContext(DC);
   wglMakeCurrent(DC,hrc);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
   Paint(ox,oy);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   wglMakeCurrent(0,0);
   wglDeleteContext(hrc);
   ReleaseDC(handle,DC);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   ox:= ox+0.2;
   oy:= oy+0.2;
   Paint(ox,oy);
end;

end.

[spamer]

Народ, ну может подскажите.

[Selestis]

Вам даны точки, следовательно, вы можете передвигать квадрат по отрезку, их соединяющему. Делаете вектор и по чему-то вроде таймера берёте подходящее по длине значение. Потом glTranslatef(X,Y,Z) вашего нового положения перемещает объект. Что конкретно не выходит?

[spamer]

Конкретно не получается следующее :

ввожу я координаты X и Y для каждой точки (Z=0), как мене по очереди передать эти координаты в glTranslatef(X,Y,Z).
Если пишу подряд

glTranslatef(X1,Y1,0);
glTranslatef(X2,Y2,0);
glTranslatef(X3,Y3,0);
glTranslatef(X4,Y4,0);
glTranslatef(X5,Y5,0);

то квадрат не двигается по пяти точкам, только сдвигается на одну(первую) и останавливается.

[Selestis]

Каждый вызов glTranslatef домножает текущую матрицу на новую, => рисуете вы там, куда попали после всех преобразований. Последний пост(код) по очереди передвигает объект на все вектора Xn,Yn, не рисуя после каждого раза.
Задайте точки, потом при каждом OnTimer проверяйте текущее положение куба на близость к следующей и при малой дистанции подставляйте след. точку.

if Distance(CubePos, NextPoint) < EPSILON then begin
Inc(i);
 NextPoint:=Points[i];
end;
Pos:=VectorAdd(Pos,VectorScale(VectorSubtract(NextPoint,Pos),Koeff));

Если я вас правильно понял.

[spamer]

Может я вас не правильно понял, но я просто хочу ввести координаты 5 точек и передвинуть по ним квадрат. Только я не знаю как правильно и сколько раз вызвать glTranslatef(X,Y,0); чтобы квадрат передвинулся по этим 5 точкам. Вот в чем проблема. Он у меня только на одну точку передвигается.

P.S.А нету какого то попроще способа переместить этот квадрат по 5 точкам???

[Selestis]

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

[spamer]

Вот смотрите. Ввожу я координаты пяти точек: Point1(X1,Y1) ; Point2(X2,Y2) ; Point3(X3,Y3) ; Point4(X4,Y4) ; Point5(X5,Y5), то есть я ввожу X1,Y1 и так аж до X5,Y5. И мене необходимо прорисовать движение квадрата по этим пяти точкам. Вот, как это все сделать?

Но, когда я для движения пишу код

glTranslatef(X1,Y1,0);
glTranslatef(X2,Y2,0);
glTranslatef(X3,Y3,0);
glTranslatef(X4,Y4,0);
glTranslatef(X5,Y5,0);

то квадрат передвигается только на первую точку, то есть на Point1(X1,Y1), и то я этого движения не вижу.

Если вам не тяжело, напишите код самого этого движения квадрата по этим пяти точка.

[Selestis]

type TVector = array[0..3] of single;
var Pos,NextPoint: TVector;array[0..3] of single;
Points: array[0..4] of TVector;

procedure TForm1.Timer1Timer(Sender: TObject);//период таймера где-то 100мс
begin

if Distance(CubePos, NextPoint) < EPSILON then begin
Inc(i);
 NextPoint:=Points[i];
end;
Pos:=VectorAdd(Pos,VectorScale(VectorSubtract(Norm(NextPoint,Pos)),Koeff));//Koeff ~ 0.1 - коеффициент для нужной длины вектора
Paint();
end;

procedure TForm1.Paint();
var
 ps:TPaintStruct;
begin
glMatrixMode(GL_PROJECTION);
glLoadIdentity( ); 
if width <= height then
  glOrtho (-2, 2, -2*height/width, 2*height/width, -10.0, 10.0)
 else
  glOrtho (-2*width/height, 2*width/height, -2, 2, -10.0, 10.0);
glViewport(0, 0, width, height);

  BeginPaint(Handle,ps);

  glEnable(GL_DEPTH_TEST);

 glClearColor(1,0.5,0.5,1);
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 glColor3f (0.0, 1.0, 0.0);

 glTranslatef(Pos[0],Pos[1],0);

 glBegin(GL_QUAD_STRIP);
  glVertex3f(0.3,0.3,0.3);
  glVertex3f(0.3,-0.3,0.3);
  glVertex3f(-0.3,0.3,0);
  glVertex3f(-0.3,-0.3,0);
 glEnd;
 glDisable(GL_DEPTH_TEST);

 glFlush();
 swapBuffers(dc);
 EndPaint(Handle,ps);
end;

Вроде бы так должно работать.

[spamer]

Чето Делфи ругается на обработчик события таймера, мол не знает он что такое Distance, EPSILON, VectorAdd, VectorSubtract.

В чем может быть проблема?

З.Ы. Модуль OpenGL в Uses подключен.