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

[qpokyc]

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

У него в самом начале прорисовки стоит вызов glLoadidentity, что возвращает центр координат на свое первоначальное место, так что это не то. Чичаз подумаю и мб чтонить напишу...

[qpokyc]

Вот
Внутри программа вроде твоей (с иходниками).
Там правдо в мелочах отличается, но там справишся (все основное подробно закоментированно)

Набор мыслей:
1) Если нужна плоская фигура - не включай модель освещения glEnable(GL_LIGHTING);.
2) Там в основном функции из GLU, но их использование вынесено в отдельный модуль и они легко переписываются на аналогичные. Кроме gluLookAt в прорисовке формы, но ее вообще можно убрать.
3) Можешь переписать/так оставить/copy-paste
4) В OpenGL очень важно именно то, в какой последовательности происходит вызов функций. Если что-то рисуется не так как должно, то нужно в первую очередь посмотреть - в каком порядке что включается, рисуется, происходит.
5) Перемещение происходит в 3 координатах =)
6) Метод Paint формы перезаписывается и принудительно вызывать его не надо - он сам вызывается.

И исчо я вляпал где-то лишнюю перерисовку (если заметно - найди!)

[Selestis]

Прошу прощения, я был уверен, что у вас уже готовы их прототипы... Вроде как фундаментальные функции работы с веторами) Напишите свой модуль геометрии со всем этим, пригодиться, а мои ф-ии вот:

type TVector4f = array[0..3] of single;
type TVector = TVector4f;
const NullVector: TVector = ((0),(0),(0),(0));

function VectorAdd(V1,V2: TVector): TVector;
var V: TVector;
begin
V[0]:=V1[0]+V2[0];
V[1]:=V1[1]+V2[1];
V[2]:=V1[2]+V2[2];
Result:=V;
end;

function Distance(V1,V2: TVector): single;
begin
Result:=Sqrt(Sqr(V1[0]-V2[0])+Sqr(V1[1]-V2[1])+Sqr(V1[2]-V2[2]));
end;

function VectorScale(Vector: TVector; f: single): TVector;
var V: TVector;
begin
V[0]:=Vector[0]*f;
V[1]:=Vector[1]*f;
V[2]:=Vector[2]*f;
Result:=V;
end;

function VectorLength(V: TVector): single;
var a: single;
begin
a:=Sqr(V[0])+Sqr(V[1])+Sqr(V[2]);
Result:=Sqrt(A);
end;

function VectorNormalize(V: TVector): TVector;
var L: single;
begin
L:=VectorLength(V);
if L = 0 then begin
   Result:=NullVector;
   Exit;
end;
Result[0]:=V[0]/L;
Result[1]:=V[1]/L;
Result[2]:=V[2]/L;  
end;

function VectorCross(V1,V2: TVector): TVector;
var V: TVector;
begin
V[0]:=V1[1]*V2[2]-V1[2]*V2[1];
V[1]:=V1[2]*V2[0]-V1[0]*V2[2];
V[2]:=V1[0]*V2[1]-V1[1]*V2[0];
Result:=V;
end;

function VectorNegate(Vector: TVector): TVector;
var V: TVector;
begin
V[0]:= -Vector[0];
V[1]:= -Vector[1];
V[2]:= -Vector[2];
Result:=V;
end;

function VectorSubtract(V1,V2: TVector): TVector;
begin
Result:=VectorAdd(V1,VectorNegate(V2));
end;