движёк для 2D

[Demi]

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

[Kostia]

И еще на счет кодировки лучше прочитать в MSDN, там все хорошо описано.

[Demi]

Попытался брать кадры из видео через DirectShow - производительность упала в сотни раз..
Короче оставляю старый метод работы с видео, будем искать причины почему не у всех работает..

Если кому интересно всё дело в кодеках оказалось.
они есть 2-х типов:DirectShow и VFW(Video For Windows)
DirectShow - используются только для воспроизведения, соответственно скорость им не особо нужна..
что собственно и показал мой опыт.. а VFW - кодаки для редактирования видео и показывают очень хорошие скоростные результаты.

В пакетах типа K-lite Mega Codek Pack и т.д. по-умолчанию ставятся DirectShow кодаки, со всеми вытекающими последствиями..

[Demi]

Небольшой мануал.

Примеры использования:
1 Инициализация

Код:
 Uses 
  GlEngine
...
 Var
   GLE:TGLEngine;
   im:Cardinal;
   Video:TGLVideo;
....
 GLE:=TGLEngine.Create;
  // Указываем на чём рисуем и каким размером
 GLE.VisualInit(GetDC(Panel1.Handle),Panel1.ClientWidth,Panel1.ClientHeight);
 // Загружаем картинку
 GLE.LoadImage(ExtractFilePath(application.ExeName)+'0.tga',im,false);
// Открываем видео - работает не у всех..
 GLE.OpenVideo(PChar(ExtractFilePath(application.ExeName)+'300divx.avi'),Video);

2 Рисование
Код:

GLE.BeginRender;
 GLE.SetColor(1,1,1,1); //текущий цвет RGBA
 GLE.SetBKColor(1,1,1); //цвет фона
 gle.PointSize(1); // размер точки
 gle.PointSmooth(true); // сглаживать точки  
 GLE.Point(20,20); // рисуем точку в координатах 20, 20
  GLE.LineWidth(1); //Толщина линии
  GlE.Line(40,20,80,20); // рисуем линию
  GlE.LineGrad(40,200+20,80,200+20,gle.ColorGL(Random,0,0,1),gle.ColorGL(0,0,random,1)); // градиентная линия

Остальное думаю будет понятно и без комментариев
Код:

 Procedure Bolt(x1,y1,x2,y2:single); // ломаная
  Procedure Arrow(x1,y1,x2,y2, size,angle:single;Solid:Boolean); // стрелка

  Procedure PointSize(Size:single);
  Procedure Point(x1,y1:single);
  Procedure PointSmooth(Enable:Boolean);

  Procedure Triangle(x1,y1,x2,y2,x3,y3:single);
  Procedure TriangleGrad(x1,y1,x2,y2,x3,y3:single;c1,c2,c3:TGLColor);

  Procedure Bar(x1, y1, x2, y2, x3, y3, x4, y4:single);  Overload ;
  Procedure Bar(x1, y1, x2, y2:single);  Overload;
  Procedure BarGrad(x1,y1,x2,y2,x3,y3,x4,y4:single;c1,c2,c3,c4:TGLColor);

  Procedure Ellipse(x,y,r1,r2,AngleRotate:single;n:integer);

  Procedure SetTextStyle(NameFont:string; size:integer);
  Procedure TextOut(x,y:single; text:string);
  Procedure KillFont;

  Procedure SetColor(r,g,b,a:single);Overload;
  Procedure SetColor(color:TGLColor);Overload;
  Procedure SetBKColor(r,g,b:single);
  Procedure SetFill(Mode:TGLFill);

  Procedure DrawImage(x,y,w,h,Angle:single;Center:boolean;Image:GlInt);
  Procedure DrawFrame(x1,y1,x2,y2:single;Center:boolean;var glVideo:TGLVideo);
  Procedure CloseVideo(var glVideo:TGLVideo);

  Procedure FinishRender;
  Procedure VisualDone;

[Ulex]

Если кому интересно всё дело в кодеках оказалось.
они есть 2-х типов:DirectShow и VFW(Video For Windows)
DirectShow - используются только для воспроизведения, соответственно скорость им не особо нужна..
что собственно и показал мой опыт.. а VFW - кодаки для редактирования видео и показывают очень хорошие скоростные результаты.

В пакетах типа K-lite Mega Codek Pack и т.д. по-умолчанию ставятся DirectShow кодаки, со всеми вытекающими последствиями..

Я таки не понял, вы отказались от поддержки видео? Или эта проблема решаться как то в дальнейшем будет?

[Demi]

На данный момент реализовано два метода работы с видео:
1 - через VFW - быстро и красиво
2 - Через DirectShow - медленно но надёжно

[Kostia]

Я бы еще расширил кол-во вариаций вывода квадов с текстурой на экран

void Draw(TTexture *Texture, float x1, float y1, float x2, float y2);
void DrawRotate(TTexture *Texture, float x1, float y1, float x2, float y2, float a);
void DrawRect(TTexture *Texture, float u1, float v1, float u2, float v2, float x1, float y1, float x2, float y2);
void DrawRotateRect(TTexture *Texture, float u1, float v1, float u2, float v2, float x1, float y1, float x2, float y2, float a);
void DrawExt(TTexture *Texture, float u1, float v1, float u2, float v2, 
			float x1, float y1, float x2, float y2, float ox, float oy, float a);

И, еще, как и через что ты текстуры грузишь. Просто резмеры текстуры должны бать кратны степени двойки, иначе будет бяка(плохое качество или вообще прога не заработает на стареньких компах). Я в таком случае просто создаю тестуру кратную степени двойки и задаю текстурные координаты в соответсвии с текстурой.

	int x=1, y=1;
	while(x<w)x<<=1;
	while(y<h)y<<=1;

x и y - это новый размер тестуры
w и h - это размер картинки

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

	Texture.u = (float)w/(float)x;
	Texture.v = (float)h/(float)y;

	Texture.du = Texture.u-(float)(w-1)/(float)x;
	Texture.dv = Texture.v-(float)(h-1)/(float)y;

А вот так я реализовал вывод текстурированого квада на экран:

void DrawExt(TTexture *Texture, float u1, float v1, float u2, float v2, 
									 float x1, float y1, float x2, float y2, float ox, float oy, float a)
{
	float dx = (x2 - x1) / 2.0, dy = (y2 - y1) / 2.0;
	float du,dv;
	if(Texture)
	{
		u1 = Texture->u*u1;
		v1 = Texture->v*v1;

		u2 = Texture->u*u2;
		v2 = Texture->v*v2;

		du = Texture->du;
		dv = Texture->dv;
	}
	glPushMatrix();
	glTranslatef(ox+x1,oy+y1,0);
	glRotatef(a,0,0,1);
	glTranslatef(dx-ox,dy-oy,0);

	glBegin(GL_TRIANGLE_STRIP);
		glTexCoord2f(u1+du, v2-dv); glVertex2f(-dx,-dy);
		glTexCoord2f(u1+du, v1+dv); glVertex2f(-dx, dy);
		glTexCoord2f(u2-du, v2-du); glVertex2f( dx,-dy);
		glTexCoord2f(u2-du, v1+du); glVertex2f( dx, dy);
	glEnd();

	glPopMatrix();
}

Еще, прочитай про batching можно будет оптимизировать отрисовку кадра

Уф, пока фсё=)

[Demi]

Спасибо. Натолкнуло на мысли..

[notHaker]

А сглаживание? Антиальяс? Фильтрация, хотя бы самая простая?

[Demi]

Сглаживание реализовано через GL_MULTISAMPLE_ARB
соответственно 2х, 4х, 8х, 16х и т.д. всё что поддерживает ваше железо