OpenGL - разгон

Здравствуйте, Eugene.

Вы писали 15 февраля 2005 г., 1:04:45:

Возможно ты каждую фигуру отрисовываешь отдельной процедурой?

Возможно, что видяшка не имеет аппаратной поддержки OpenGL, в результате
чего все рисуется софтом. Другие, более быстрые, игрушки наверняка
пользуются Direct3D.

У меня, например, именно такая видяшка. - поддерживает Direct3D, но не
поддерживает OpenGL. :-(

Иногда видяшка не поддерживает ускорение, если сцена рисуется внутри окна.
Тогда можно попробовать во весь экран.

Номер выпуска : 4035
Возраст листа : 513 (дней)
Количество подписчиков : 522
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/316710
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

Glad to greet, Eugene!

You seem to have written (Monday, February 14, 2005):

Кстати, а чем не устроили спрайты?

Сколько полигонов в моделях, с какими опциями рендерятся, какая
видяшка?

Только если у тебя допотопная видяшка.

Просто использовать OpenGL мало, надо это делать с умом (хотя уж
казалось бы, крестики-нолики...). Первое, что могу предложить - читай
про Vertex Buffer-ы (glDrawElements/glDrawArray) + Display List-ы
(glCallList), но это опять же если видяшка про них знает. Вообще ещё
куча всяких тонкостей по общению с драйвером, специфике конвейера и
конкретной видяшке, но для твоей задачи в такие дебри лезть ни к чему.

Alles Gute!

...In Code We Trust...

Привет Denis,

Wednesday, February 16, 2005, 9:00:37 PM, вы писали:

1. Крестик - 14 полигонов
2. Нолик - 4 полигона
3. Видяшка FX5200-128Mb

Афоризм напоследок: Рожденный ползать не гадит сверху.
Winamp глаголит: Nightwish - Wishmaster
19 февраля 2005 г. 14:05:20

Просто студент
Eugene mailto:rav***@o*****.ru

Номер выпуска : 4045
Возраст листа : 517 (дней)
Количество подписчиков : 526
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/319324
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

Hello, Eugene

Если есть возможность и если это не коммерческая тайна :)
то вышлите исходник в лист (в письме), если он не очень больщой
(хотя по видимому он и не должен быть).

Best regards,
Alexey

Номер выпуска : 4046
Возраст листа : 517 (дней)
Количество подписчиков : 526
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/319540
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

Hello, Eugene

Если есть возможность и если это не коммерческая тайна :)
то вышлите исходник в лист (в письме), если он не очень больщой
(хотя по видимому он и не должен быть).

Номер выпуска : 4047
Возраст листа : 517 (дней)
Количество подписчиков : 526
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/319541
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

Мда... fps и правда маловато... Выложи сюда код отрисовки(если немного) или вышли
мне на мыло rdd***@m*****.ru, исправлю

Номер выпуска : 4049
Возраст листа : 518 (дней)
Количество подписчиков : 524
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/319858
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

Glad to greet, Eugene!

You seem to have written (Saturday, February 19, 2005):

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

Ужасъ!!! 5200, конечно, резанная коммерческая пилюля, но такие
результаты ни в какие ворота. Без вскрытия кода диагноз не поставить.
А драйверы поновее с Nvidia скачивать не пробовал?

Alles Gute!

...In Code We Trust...

Привет Denis,

Monday, February 21, 2005, 12:20:50 PM, вы писали:

Я пока в графике слабоват: спрайты - это набор картинок, типа
GIF-анимации?
Цель - изучить OpenGL - курсовик!

Я думаю не в видюшке дело - т.к. у меня сейчас ATI 9600 Pro от
Gigabyte, ситуация немного улучшилась, но ...

Афоризм напоследок: Чтобы выбирать из двух зол, надо испробовать оба. (Даниил
Рудый)
Winamp глаголит: Пикник - Немного огня
22 февраля 2005 г. 20:28:18

Просто студент
Eugene mailto:rav***@o*****.ru

Номер выпуска : 4055
Возраст листа : 520 (дней)
Количество подписчиков : 526
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/321322
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

Hello, Eugene

Спрайт - это знаете, есть такой газированный напиток... Шутка.
На самом деле спрайты - это такие маленькие объектики, которые находятся на игровом
поле и могут двигаться.
Этот термин прижился с легкой руки программистов фирмы Atari и Apple в середине,
70-х годов.

М-да... Курсовик "по OpenGL" или все-таки "по компьютерной графике"?
Сразу OpenGL, а курса компьютерной графики не было? Как же можно без этого?

...но вообще-то по хорошему вещь подобная этой должна отлично работать даже на
S3 Virge DX :)
Покажите код - разберемся! :)

Best regards,
Alexey

Номер выпуска : 4056
Возраст листа : 522 (дней)
Количество подписчиков : 527
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/322101
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

Glad to greet, Eugene!

You seem to have written (Tuesday, February 22, 2005):

Вроде того.

Так никто не мешает натянуть детализированную текстуру на 2
полигона/quad (к тому же есть такая вещь как point sprite (аппаратная
поддержка спрайтов в 3д)). Вообще, имхо, было бы лучше демку сделать,
а не игру.

Ехх, а у меня вот курсовики по моделированию
ЧМ-приёмников/передатчиков - завидую тебе ;).

Что-то с кодом ты намудрил. Показывай, а то мы тут гадаем на кофейной
гуще.

ЗЫ К слову у меня gf2mx200 при самом лобовом подходе отрисовывает
полмиллиона текстурированных треугольников в секунду.

Alles Gute!

...In Code We Trust...

Извиняюсь, что вмешиваюсь, не будучи свидетелем начала дискуссии. Однако,
чем чёрт не шутит.
В help-е к 3DMark05 говорится, что очень многие поставщики графических
ускорителей оптимизируют свои движки и драйвера на большие пакеты. При этом

маленькие пакеты тормозят безбожно. У вас там не подобный случай?
Соответствующий тест у того же 3DMark05-а на Radeon 9600XT (у меня)
показывает снижение производительности на 8-и пакетных очередях -
~10-кратное, 32-х пакетных очередях - ~3-кратное, на 128-пакетных очередях -

15%-е по сравнению с 512-, 2048- и 32768-пакетных очередях, которые
показывают примерно одинаковую производительность. Не думаю, что от
используемого API (Direct3D или OpenGL) будет заметно зависеть
производительность двайверов и железа.

Шматко А.А. пишет:

Не смешно. Ты читал, КАКИЕ у него fps?

Номер выпуска : 4064
Возраст листа : 523 (дней)
Количество подписчиков : 529
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/322905
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

Привет Denis,

Wednesday, February 23, 2005, 2:02:42 PM, вы писали:

На ATI 9600Pro на пустом поле 10х10 в окне 640х480 - 60FPS
При полном заполнении - 50 крестиков и 50 ноликов - FPS падает до 10-20
Прорисовка происходит по таймеру (если есть предложения получше -
подскажите): Timer2.Interval = 1.

Ещё один вопрос:
При вращении фигур - свет вращается вмести с ними - как это исправить?
(Код в этом же модуле)

В том же 3DMark03 на первом тесте FPS скачет от 50 до 200 :), да и
полигонов там побольше будет!!!

//unit GameUnit;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, Forms,
OpenGL, ExtCtrls, StdCtrls, Graphics, ShellAPI;

const
WM_NOTIFYTRAYICON=WM_USER+1;

type
TTicTacToe = record
Left, Right, Bottom, Top: integer;//eii?aeiaou eeaoee
Value: string//cia?aiea: e?anoee, iieee eee ionoay
end;

(*Iicaeinoaiaaii ec JEDI==============================*)
{ Auxiliary structure to support TColor manipulation }
TColorRec = packed record
case Integer of
0: (Value: Longint);
1: (Red, Green, Blue: Byte);
2: (R, G, B, Flag: Byte);
{$IFDEF MSWINDOWS}
3: (Index: Word); // GetSysColor, PaletteIndex
{$ENDIF MSWINDOWS}
end;
(*====================================================*)

TF_Game = class(TForm)
Timer1: TTimer;
Timer2: TTimer;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Timer2Timer(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
ghRC:HGLRC;
ghDC:HDC;
procedure WMSysCommand(var Msg: TWMSysCommand);
message WM_SYSCOMMAND;
procedure WMTRAYICONNOTIFY(var Msg: TMessage);
message WM_NOTIFYTRAYICON;
public
newCount, frameCount, lastCount : LongInt;
fpsRate : GLFloat;
name1,name2: string;
dmn,fld,gt: cardinal;
WRel,HRel: real;
snd,mus,chat,anim,speedup: boolean;
CallMenu: boolean;
angX,ang0: integer;
NextVal: char;
TTT: array of array of TTicTacToe;
function bSetupPixelFormat(DC:HDC):boolean;
procedure ResolRegen;
procedure Wine;
procedure OnWine(Winer: string);
procedure SetPoint(X, Y: Double);
procedure NewGame;
procedure WinColorToOpenGLColor(Color: TColor; var Red, Green, Blue: Extended);
end;

const
Field=1;
Cross=2;
Zero=3;
Cross2D=4;
Zero2D=5;
CrossWine=6;
ZeroWine=7;

var
F_Game: TF_Game;
tray: TNotifyIconData;
TrayIcon: TIcon;

implementation
uses MainUnit, Records, UDPServerUnit, UDPClientUnit, IniFiles;

{$R *.dfm}
{$R Cursors.res}

procedure TF_Game.WMSysCommand;
begin
if Msg.CmdType=SC_MINIMIZE then SendMessage(F_Game.Handle,WM_CHAR,VK_SPACE,0)
else inherited;
end;

procedure TF_Game.ResolRegen;
begin
if F_Main.CheckBox1.Checked=false then ChangeDisplaySettings(CurMode,CDS_FULLSCREEN);
end;

(*Oi?a ec JEDI========================================================================*)
procedure TF_Game.WinColorToOpenGLColor(Color: TColor; var Red, Green, Blue:
Extended);
var
Temp: TColorRec;
begin
Temp.Value := ColorToRGB(Color);
Red := (Temp.R / High(Temp.R));
Green := (Temp.G / High(Temp.G));
Blue := (Temp.B / High(Temp.B));
end;
(*====================================================================================*)

procedure TF_Game.WMTRAYICONNOTIFY(var Msg: TMessage);
begin
{ia?aaaouaaai niauoey ia eeiiea a o?aa}
case Msg.LParam of
WM_LBUTTONDOWN:
if Visible=false then
begin
if F_Main.CheckBox1.Checked=false then ChangeDisplaySettings(tmpDevMode,CDS_FULLSCREEN);
Show;
Timer1.Enabled:=True;
Timer2.Enabled:=True;
try
with tray do
begin
cbSize:=SizeOf(TNotifyIconData);
Wnd:=F_Game.Handle;
uID:=1;
end;
Shell_NotifyIcon(NIM_DELETE,Addr(tray));
finally
//Application.Terminate;
end;
end;
//WM_LBUTTONDBLCLK: {aao eia ia?aaioee niauoey aaieiiai ia?aoey ia eaao?
eiiieo iuoe}
//WM_LBUTTONUP: {aao eia ia?aaioee niauoey ioioneaiey eaaie eiiiee iuoe}

//WM_RBUTTONDOWN: {aao eia}
//WM_RBUTTONDBLCLK: {aao eia}
//WM_RBUTTONUP: {aao eia}

//WM_MOUSEMOVE: {aao eia}
end;
end;

function TF_Game.bSetupPixelFormat(DC:HDC):boolean;//onoaiiaea oi?iaoa ieenaeae
var
pfd: PIXELFORMATDESCRIPTOR;
ppfd: PPIXELFORMATDESCRIPTOR;
pixelformat: integer;
begin
(*
PIXELFORMATDESCRIPTOR pfd =
{
sizeof(PIXELFORMATDESCRIPTOR),
1,
PFD_DRAW_TO_WINDOW |
PFD_SUPPORT_OPENGL |
PFD_DOUBLEBUFFER,
PFD_TYPE_RGBA,
32,
0, 0, 0, 0, 0, 0,
0,
0,
0,
0, 0, 0, 0,
24,
0,
0,
PFD_MAIN_PLANE,
0,
0, 0, 0
};
*)
ppfd:=@pfd;
ppfd.nSize:=sizeof(PIXELFORMATDESCRIPTOR);
ppfd.nVersion:=1;
// ppfd.dwFlags:=PFD_DRAW_TO_WINDOW xor PFD_SUPPORT_OPENGL xor PFD_DOUBLEBUFFER;
ppfd.dwFlags:=PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
ppfd.iPixelType:=PFD_TYPE_RGBA;
ppfd.cColorBits:=32;
ppfd.cRedBits:=0; ppfd.cRedShift:=0;
ppfd.cGreenBits:=0; ppfd.cGreenShift:=0;
ppfd.cBlueBits:=0; ppfd.cBlueShift:=0;
ppfd.cAlphaBits:=0;
ppfd.cAlphaShift:=0;
ppfd.cAccumBits:=0;
ppfd.cAccumRedBits:=0; ppfd.cAccumGreenBits:=0;
ppfd.cAccumBlueBits:=0; ppfd.cAccumAlphaBits:=0;
ppfd.cDepthBits:=24;
ppfd.cStencilBits:=0;
ppfd.cAuxBuffers:=0;
ppfd.iLayerType:=PFD_MAIN_PLANE;
ppfd.bReserved:=0;
ppfd.dwLayerMask:=0; ppfd.dwVisibleMask:=0; ppfd.dwDamageMask:=0;
pixelformat:=ChoosePixelFormat(dc, ppfd);
if pixelformat=0 then
begin
MessageBox(0, 'ChoosePixelFormat failed', 'Ioeaea', MB_OK);
bSetupPixelFormat:=false;
exit;
end;
if SetPixelFormat(dc, pixelformat, ppfd)=false then
begin
MessageBox(0, 'SetPixelFormat failed', 'Ioeaea', MB_OK);
bSetupPixelFormat:=false;
exit;
end;
bSetupPixelFormat:=true;
end;

procedure TF_Game.FormCreate(Sender: TObject);
var
p: TGLArrayf4;
d: TGLArrayf3;
i,j,bc,fc,xc,zc: cardinal;
quadObj :GLUquadricObj;
bcr,bcg,bcb,fcr,fcg,fcb,xcr,xcg,xcb,zcr,zcg,zcb: extended;
begin
lastCount := GetTickCount;
frameCount := 0;
CallMenu:=false;
angX:=0;
ang0:=0;
NextVal:='X';
if F_Main.CheckBox1.Checked=false then
begin
BorderStyle:=bsNone;
WindowState:=wsMaximized;
end else
begin
Height:=DevModes[F_Main.ComboBox2.ItemIndex].dmPelsHeight;
Width:=DevModes[F_Main.ComboBox2.ItemIndex].dmPelsWidth;
end;
Screen.Cursors[1]:=LoadCursor(HInstance,'X03DCUR');
Cursor:=1;
name1:=IniFile.ReadString('Game','Name1','Player1');//eiaia ea?ieia
name2:=IniFile.ReadString('Game','Name2','Player2');
dmn:=IniFile.ReadInteger('Rule','Dimension',3);//?acia?iinou ea?iaiai iiey
fld:=IniFile.ReadInteger('Rule','Fields',3);//eiee?anoai eeaoie aey auea?uoa
gt:=IniFile.ReadInteger('Game','Type',1);//oei ea?u
bc:=IniFile.ReadInteger('View','BackColor',8404992);//oaao oiia
fc:=IniFile.ReadInteger('View','FieldColor',15707892);//oaao iiey
xc:=IniFile.ReadInteger('View','XColor',clSkyBlue);//oaao e?anoeea
zc:=IniFile.ReadInteger('View','ZeroColor',clMoneyGreen);//oaao iieeea
snd:=IniFile.ReadBool('Effects','Sounds',true);//caoee
mus:=IniFile.ReadBool('Effects','Music',true);//iocuea
chat:=IniFile.ReadBool('Effects','Chat',true);//?ao
anim:=IniFile.ReadBool('Effects','Animation',true);//aieiaoey
WRel:=(dmn+2)/ClientWidth;
HRel:=(dmn+2)/ClientHeight;
SetLength(TTT,dmn,dmn);//eieoeaeecaoey ianneaa
for i:=0 to dmn-1 do
for j:=0 to dmn-1 do
begin
TTT[i,j].Left:=j+1;
TTT[i,j].Right:=j+2;
TTT[i,j].Bottom:=i+1;
TTT[i,j].Top:=i+2;
TTT[i,j].Value:='';
end;
(*iioae OpenGL*)
ghDC:=GetDC(Handle);
if bSetupPixelFormat(ghDC)=false then Close;
ghRC := wglCreateContext(ghDC);
wglMakeCurrent(ghDC, ghRC);
WinColorToOpenGLColor(bc,bcr,bcg,bcb);
glClearColor(bcr,bcg,bcb,0.0);
FormResize(Sender);
glEnable(GL_COLOR_MATERIAL);
glEnable(GL_DEPTH_TEST);
glEnable(GL_LIGHTING);
glEnable(GL_LIGHT0);
p[0]:=(dmn+2)/2;
p[1]:=(dmn+2)/2;
p[2]:=4;
p[3]:=1;
d[0]:=0;
d[1]:=0;
d[2]:=0;
glLightfv(GL_LIGHT0,GL_POSITION,@p);
glLightfv(GL_LIGHT0,GL_SPOT_DIRECTION,@d);
glEnable(GL_POINT_SMOOTH);
glEnable(GL_LINE_SMOOTH);
glEnable(GL_POLYGON_SMOOTH);
(*?enoai*)
glNewList(Field,GL_COMPILE);//ea?iaia iiea
WinColorToOpenGLColor(fc,fcr,fcg,fcb);
glColor3f(fcr,fcg,fcb);
glLineWidth(2);
glBegin(GL_LINES);
for i:=1 to dmn+1 do
begin
glVertex2f(1,i);
glVertex2f(dmn+1,i);
end;
for i:=1 to dmn+1 do
begin
glVertex2f(i,1);
glVertex2f(i,dmn+1);
end;
glEnd;
glEndList;
glNewList(Cross2D,GL_COMPILE);//aaooia?iue e?anoee
WinColorToOpenGLColor(xc,xcr,xcg,xcb);
glColor3f(xcr,xcg,xcb);
glShadeModel(GL_FLAT);
glPolygonMode(GL_FRONT_AND_BACK,GL_FILL);
glBegin(GL_POLYGON);//o?iioaeuiay noi?iia
glVertex3f(0,-0.15,0.05);
glVertex3f(-0.1,-0.3,0.05);
glVertex3f(-0.3,-0.3,0.05);
glVertex3f(-0.1,0,0.05);
glVertex3f(-0.3,0.3,0.05);
glVertex3f(-0.1,0.3,0.05);
glVertex3f(0,0.15,0.05);//eaaay iieiaeia o?iioaeuiie noi?iiu caeii?aia
glVertex3f(0.1,0.3,0.05);
glVertex3f(0.3,0.3,0.05);
glVertex3f(0.1,0,0.05);
glVertex3f(0.3,-0.3,0.05);
glVertex3f(0.1,-0.3,0.05);//i?aaay iieiaeia o?iioaeuiie noi?iiu caeii?aia
glEnd;
glEndList;
glNewList(Zero2D,GL_COMPILE);//aaooia?iue iieee
quadObj:=gluNewQuadric;
gluQuadricDrawStyle(quadObj, GLU_FILL);
WinColorToOpenGLColor(zc,zcr,zcg,zcb);
glColor3f(zcr,zcg,zcb);
gluDisk(quadObj,0.15,0.3,50,50);
gluDeleteQuadric(quadObj);
glEndList;
glNewList(Cross,GL_COMPILE);//e?anoee
WinColorToOpenGLColor(xc,xcr,xcg,xcb);
glColor3f(xcr,xcg,xcb);
glShadeModel(GL_FLAT);
glPolygonMode(GL_FRONT_AND_BACK,GL_FILL);
glBegin(GL_POLYGON);//o?iioaeuiay noi?iia
glVertex3f(0,-0.15,0.05);
glVertex3f(-0.1,-0.3,0.05);
glVertex3f(-0.3,-0.3,0.05);
glVertex3f(-0.1,0,0.05);
glVertex3f(-0.3,0.3,0.05);
glVertex3f(-0.1,0.3,0.05);
glVertex3f(0,0.15,0.05);//eaaay iieiaeia o?iioaeuiie noi?iiu caeii?aia
glVertex3f(0.1,0.3,0.05);
glVertex3f(0.3,0.3,0.05);
glVertex3f(0.1,0,0.05);
glVertex3f(0.3,-0.3,0.05);
glVertex3f(0.1,-0.3,0.05);//i?aaay iieiaeia o?iioaeuiie noi?iiu caeii?aia
glEnd;
glBegin(GL_POLYGON);//caaieoa
glVertex3f(0,-0.15,-0.05);
glVertex3f(-0.1,-0.3,-0.05);
glVertex3f(-0.3,-0.3,-0.05);
glVertex3f(-0.1,0,-0.05);
glVertex3f(-0.3,0.3,-0.05);
glVertex3f(-0.1,0.3,-0.05);
glVertex3f(0,0.15,-0.05);//eaaay iieiaeia o?iioaeuiie noi?iiu caeii?aia
glVertex3f(0.1,0.3,-0.05);
glVertex3f(0.3,0.3,-0.05);
glVertex3f(0.1,0,-0.05);
glVertex3f(0.3,-0.3,-0.05);
glVertex3f(0.1,-0.3,-0.05);//i?aaay iieiaeia o?iioaeuiie noi?iiu caeii?aia
glEnd;
glBegin(GL_QUADS);//ie?iyy eaaay iiaioaa
glVertex3f(-0.1,-0.3,0.05);
glVertex3f(-0.3,-0.3,0.05);
glVertex3f(-0.3,-0.3,-0.05);
glVertex3f(-0.1,-0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//aa?oiyy eaaay iiaioaa
glVertex3f(-0.1,0.3,0.05);
glVertex3f(-0.3,0.3,0.05);
glVertex3f(-0.3,0.3,-0.05);
glVertex3f(-0.1,0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//ie?iyy i?aaay iiaioaa
glVertex3f(0.3,-0.3,0.05);
glVertex3f(0.1,-0.3,0.05);
glVertex3f(0.1,-0.3,-0.05);
glVertex3f(0.3,-0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//aa?oiyy i?aaay iiaioaa
glVertex3f(0.3,0.3,0.05);
glVertex3f(0.1,0.3,0.05);
glVertex3f(0.1,0.3,-0.05);
glVertex3f(0.3,0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//aioo?aiiyy ie?iyy eaaay a?aiu
glVertex3f(0,-0.15,0.05);
glVertex3f(-0.1,-0.3,0.05);
glVertex3f(-0.1,-0.3,-0.05);
glVertex3f(0,-0.15,-0.05);
glEnd;
glBegin(GL_QUADS);//aioo?aiiyy ie?iyy i?aaay a?aiu
glVertex3f(0.1,-0.3,0.05);
glVertex3f(0,-0.15,0.05);
glVertex3f(0,-0.15,-0.05);
glVertex3f(0.1,-0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//aioo?aiiyy aa?oiyy eaaay a?aiu
glVertex3f(0,0.15,0.05);
glVertex3f(-0.1,0.3,0.05);
glVertex3f(-0.1,0.3,-0.05);
glVertex3f(0,0.15,-0.05);
glEnd;
glBegin(GL_QUADS);//aioo?aiiyy aa?oiyy i?aaay a?aiu
glVertex3f(0.1,0.3,0.05);
glVertex3f(0,0.15,0.05);
glVertex3f(0,0.15,-0.05);
glVertex3f(0.1,0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//aiaoiyy ie?iyy eaaay a?aiu
glVertex3f(-0.1,0,0.05);
glVertex3f(-0.3,-0.3,0.05);
glVertex3f(-0.3,-0.3,-0.05);
glVertex3f(-0.1,0,-0.05);
glEnd;
glBegin(GL_QUADS);//aiaoiyy aa?oiyy eaaay a?aiu
glVertex3f(-0.3,0.3,0.05);
glVertex3f(-0.1,0,0.05);
glVertex3f(-0.1,0,-0.05);
glVertex3f(-0.3,0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//aiaoiyy ie?iyy i?aaay a?aiu
glVertex3f(0.3,-0.3,0.05);
glVertex3f(0.1,0,0.05);
glVertex3f(0.1,0,-0.05);
glVertex3f(0.3,-0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//aiaoiyy aa?oiyy i?aaay a?aiu
glVertex3f(0.1,0,0.05);
glVertex3f(0.3,0.3,0.05);
glVertex3f(0.3,0.3,-0.05);
glVertex3f(0.1,0,-0.05);
glEnd;
glDisable(GL_FOG);
glEndList;
glNewList(Zero,GL_COMPILE);//iieee
quadObj:=gluNewQuadric;
gluQuadricDrawStyle(quadObj, GLU_FILL);
WinColorToOpenGLColor(zc,zcr,zcg,zcb);
glColor3f(zcr,zcg,zcb);
gluDisk(quadObj,0.15,0.3,50,50);
gluCylinder(quadObj,0.15,0.15,0.1,50,50);
gluCylinder(quadObj,0.3,0.3,0.1,100,100);
glPushMatrix;
glTranslatef(0,0,0.1);
gluDisk(quadObj,0.15,0.3,50,50);
glPopMatrix;
gluDeleteQuadric(quadObj);
glEndList;
glNewList(CrossWine,GL_COMPILE);//auea?ae e?anoee
glColor3f(1,0,0);
glShadeModel(GL_FLAT);
glPolygonMode(GL_FRONT_AND_BACK,GL_FILL);
glBegin(GL_POLYGON);//o?iioaeuiay noi?iia
glVertex3f(0,-0.15,0.05);
glVertex3f(-0.1,-0.3,0.05);
glVertex3f(-0.3,-0.3,0.05);
glVertex3f(-0.1,0,0.05);
glVertex3f(-0.3,0.3,0.05);
glVertex3f(-0.1,0.3,0.05);
glVertex3f(0,0.15,0.05);//eaaay iieiaeia o?iioaeuiie noi?iiu caeii?aia
glVertex3f(0.1,0.3,0.05);
glVertex3f(0.3,0.3,0.05);
glVertex3f(0.1,0,0.05);
glVertex3f(0.3,-0.3,0.05);
glVertex3f(0.1,-0.3,0.05);//i?aaay iieiaeia o?iioaeuiie noi?iiu caeii?aia
glEnd;
glBegin(GL_POLYGON);//caaieoa
glVertex3f(0,-0.15,-0.05);
glVertex3f(-0.1,-0.3,-0.05);
glVertex3f(-0.3,-0.3,-0.05);
glVertex3f(-0.1,0,-0.05);
glVertex3f(-0.3,0.3,-0.05);
glVertex3f(-0.1,0.3,-0.05);
glVertex3f(0,0.15,-0.05);//eaaay iieiaeia o?iioaeuiie noi?iiu caeii?aia
glVertex3f(0.1,0.3,-0.05);
glVertex3f(0.3,0.3,-0.05);
glVertex3f(0.1,0,-0.05);
glVertex3f(0.3,-0.3,-0.05);
glVertex3f(0.1,-0.3,-0.05);//i?aaay iieiaeia o?iioaeuiie noi?iiu caeii?aia
glEnd;
glBegin(GL_QUADS);//ie?iyy eaaay iiaioaa
glVertex3f(-0.1,-0.3,0.05);
glVertex3f(-0.3,-0.3,0.05);
glVertex3f(-0.3,-0.3,-0.05);
glVertex3f(-0.1,-0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//aa?oiyy eaaay iiaioaa
glVertex3f(-0.1,0.3,0.05);
glVertex3f(-0.3,0.3,0.05);
glVertex3f(-0.3,0.3,-0.05);
glVertex3f(-0.1,0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//ie?iyy i?aaay iiaioaa
glVertex3f(0.3,-0.3,0.05);
glVertex3f(0.1,-0.3,0.05);
glVertex3f(0.1,-0.3,-0.05);
glVertex3f(0.3,-0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//aa?oiyy i?aaay iiaioaa
glVertex3f(0.3,0.3,0.05);
glVertex3f(0.1,0.3,0.05);
glVertex3f(0.1,0.3,-0.05);
glVertex3f(0.3,0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//aioo?aiiyy ie?iyy eaaay a?aiu
glVertex3f(0,-0.15,0.05);
glVertex3f(-0.1,-0.3,0.05);
glVertex3f(-0.1,-0.3,-0.05);
glVertex3f(0,-0.15,-0.05);
glEnd;
glBegin(GL_QUADS);//aioo?aiiyy ie?iyy i?aaay a?aiu
glVertex3f(0.1,-0.3,0.05);
glVertex3f(0,-0.15,0.05);
glVertex3f(0,-0.15,-0.05);
glVertex3f(0.1,-0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//aioo?aiiyy aa?oiyy eaaay a?aiu
glVertex3f(0,0.15,0.05);
glVertex3f(-0.1,0.3,0.05);
glVertex3f(-0.1,0.3,-0.05);
glVertex3f(0,0.15,-0.05);
glEnd;
glBegin(GL_QUADS);//aioo?aiiyy aa?oiyy i?aaay a?aiu
glVertex3f(0.1,0.3,0.05);
glVertex3f(0,0.15,0.05);
glVertex3f(0,0.15,-0.05);
glVertex3f(0.1,0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//aiaoiyy ie?iyy eaaay a?aiu
glVertex3f(-0.1,0,0.05);
glVertex3f(-0.3,-0.3,0.05);
glVertex3f(-0.3,-0.3,-0.05);
glVertex3f(-0.1,0,-0.05);
glEnd;
glBegin(GL_QUADS);//aiaoiyy aa?oiyy eaaay a?aiu
glVertex3f(-0.3,0.3,0.05);
glVertex3f(-0.1,0,0.05);
glVertex3f(-0.1,0,-0.05);
glVertex3f(-0.3,0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//aiaoiyy ie?iyy i?aaay a?aiu
glVertex3f(0.3,-0.3,0.05);
glVertex3f(0.1,0,0.05);
glVertex3f(0.1,0,-0.05);
glVertex3f(0.3,-0.3,-0.05);
glEnd;
glBegin(GL_QUADS);//aiaoiyy aa?oiyy i?aaay a?aiu
glVertex3f(0.1,0,0.05);
glVertex3f(0.3,0.3,0.05);
glVertex3f(0.3,0.3,-0.05);
glVertex3f(0.1,0,-0.05);
glEnd;
glEndList;
glNewList(ZeroWine,GL_COMPILE);//auea?ae iieee
quadObj:=gluNewQuadric;
gluQuadricDrawStyle(quadObj, GLU_FILL);
glColor3f(1,0,0);
gluDisk(quadObj,0.15,0.3,50,50);
gluCylinder(quadObj,0.15,0.15,0.1,50,50);
gluCylinder(quadObj,0.3,0.3,0.1,100,100);
glPushMatrix;
glTranslatef(0,0,0.1);
gluDisk(quadObj,0.15,0.3,50,50);
glPopMatrix;
gluDeleteQuadric(quadObj);
glEndList;
end;

procedure TF_Game.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//iai?
if Key=VK_F1 then
begin
CallMenu:=true;
Close;
ResolRegen;
F_Main.Show;
F_Main.WindowState:=wsNormal;
end;
//iiaay ea?a
if Key=VK_F2 then
begin
if gt=3 then
if ThisServer then Server.Cl_Tools:=UDP_NewGame else Client.Cl_Tools:=UDP_NewGame;
NewGame;
end;
//ni?yoaou
if (Key=VK_SPACE) and (Visible=true) then
begin
TrayIcon:=Application.Icon;
with tray do
begin
cbSize := SizeOf(TNotifyIconData);
Wnd:=F_Game.Handle;
uID:=1;
uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage:=WM_NOTIFYTRAYICON;
hIcon:=TrayIcon.Handle;
szTip:=('X03D');
end;
Shell_NotifyIcon(NIM_ADD, Addr(tray));
ResolRegen;
Hide;
Timer1.Enabled:=False;
Timer2.Enabled:=False;
end;
//auoia
if Key=VK_ESCAPE then
begin
Close;
ResolRegen;
end;
end;

procedure TF_Game.FormResize(Sender: TObject);
begin
WRel:=(dmn+2)/ClientWidth;
HRel:=(dmn+2)/ClientHeight;
glViewport( 0, 0, ClientWidth, ClientHeight );
glMatrixMode( GL_PROJECTION );
glLoadIdentity;
glOrtho(0,dmn+2, 0,dmn+2, 2,12);
gluLookAt(0,0,5, 0,0,0, 0,1,0);
glMatrixMode( GL_MODELVIEW );
end;

procedure TF_Game.Timer2Timer(Sender: TObject);
var
i,j: cardinal;
begin
Timer2.Enabled:=false;
glClear(GL_DEPTH_BUFFER_BIT xor GL_COLOR_BUFFER_BIT);
glCallList(Field);
for i:=0 to dmn-1 do
for j:=0 to dmn-1 do
begin
if TTT[i,j].Value='X' then
begin
glPushMatrix;
glTranslatef(TTT[i,j].Left+(TTT[i,j].Right-TTT[i,j].Left)/2, TTT[i,j].Bottom+(TTT[i,j].Top-TTT[i,j].Bottom)/2,
0);
if (anim) and (speedup) then
if angX<360 then inc(angX,1) else angX:=0;
if anim then
begin
glRotatef(angX,1.0,0.5,1);
glCallList(Cross);
end else glCallList(Cross2D);
glPopMatrix;
end;
if TTT[i,j].Value='0' then
begin
glPushMatrix;
glTranslatef(TTT[i,j].Left+(TTT[i,j].Right-TTT[i,j].Left)/2, TTT[i,j].Bottom+(TTT[i,j].Top-TTT[i,j].Bottom)/2,
-0.05);
if anim then
begin
glRotatef(ang0,1,-0.5,0.3);
glCallList(Zero);
end else glCallList(Zero2D);
glPopMatrix;
end;
end;
SwapBuffers(ghDC);
if BorderStyle<>bsNone then
begin// ii?aaaeyai e auaiaei eiee?anoai eaa?ia a naeoiao
newCount := GetTickCount;
Inc(frameCount);
if (newCount - lastCount) > 1000 then
begin // i?ioea naeoiaa
fpsRate := frameCount * 1000 / (newCount - lastCount);
Caption := 'E?anoeee - Iieeee 3D (FPS = ' + FloatToStr (fpsRate)+')';
lastCount := newCount;
frameCount := 0;
end;
end;
Timer2.Enabled:=true;
end;

procedure TF_Game.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if ghRC<>0 then
begin
wglMakeCurrent(ghDC,0);
wglDeleteContext(ghRC);
end;
if ghDC<>0 then ReleaseDC(Handle, ghDC);
if CallMenu=false then F_Main.Close;
end;

procedure TF_Game.SetPoint(X, Y: Double);
var
i,j: cardinal;
begin
for i:=0 to dmn-1 do
for j:=0 to dmn-1 do
begin
if (TTT[i,j].Left<=X) and (TTT[i,j].Right>=X) and (TTT[i,j].Bottom<=(ClientHeight*HRel-Y))
and (TTT[i,j].Top>=(ClientHeight*HRel-Y)) and (TTT[i,j].Value='') then
begin
TTT[i,j].Value:=NextVal;
if NextVal='X' then NextVal:='0' else NextVal:='X';
end;
end;
Wine;
end;

procedure TF_Game.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Xi, Yi: Double;
begin
Xi:=X*WRel;
Yi:=Y*HRel;
if gt=3
then //Naoaaay ea?a
if (ThisServer and (NextVal='X')) or (not ThisServer and (NextVal='0')) then
begin
SetPoint(Xi, Yi);
if ThisServer
then begin
Server.Cl_Data.Item.X:=Xi;
Server.Cl_Data.Item.Y:=Yi;
Server.Cl_Tools:=UDP_SetPoint;
end
else begin
Client.Cl_Data.Item.X:=Xi;
Client.Cl_Data.Item.Y:=Yi;
Client.Cl_Tools:=UDP_SetPoint;
end
end else
else SetPoint(Xi, Yi);
end;

procedure TF_Game.Timer1Timer(Sender: TObject);
begin
if anim then
begin
if angX<360 then inc(angX) else angX:=0;
if ang0<360 then inc(ang0) else ang0:=0;
end;
end;

procedure TF_Game.Wine;
var
i,j: byte;
nwinex,nwine0: byte;
k: shortint;
begin
for i:=0 to dmn-1 do//i?iaa?ea no?ie
begin
nwinex:=0;
nwine0:=0;
for j:=0 to dmn-1 do
begin
if TTT[i,j].Value='X' then
begin
nwine0:=0;
inc(nwinex);
if nwinex=fld then
begin
OnWine(name1+' (X)');
Exit;
end;
end;
if TTT[i,j].Value='0' then
begin
nwinex:=0;
inc(nwine0);
if nwine0=fld then
begin
OnWine(name2+' (0)');
Exit;
end;
end;
if TTT[i,j].Value='' then
begin
nwinex:=0;
nwine0:=0;
end;
end;
end;
for j:=0 to dmn-1 do//i?iaa?ea noieaoia
begin
nwinex:=0;
nwine0:=0;
for i:=0 to dmn-1 do
begin
if TTT[i,j].Value='X' then
begin
nwine0:=0;
inc(nwinex);
if nwinex=fld then
begin
OnWine(name1+' (X)');
Exit;
end;
end;
if TTT[i,j].Value='0' then
begin
nwinex:=0;
inc(nwine0);
if nwine0=fld then
begin
OnWine(name2+' (0)');
Exit;
end;
end;
if TTT[i,j].Value='' then
begin
nwinex:=0;
nwine0:=0;
end;
end;
end;
for i:=0 to dmn-fld do//i?iaa?ea aeaaiie aeaaiiaee e auoa
begin
k:=-1;
nwinex:=0;
nwine0:=0;
for j:=i to dmn-1 do
begin
inc(k);
if TTT[k,j].Value='X' then
begin
nwine0:=0;
inc(nwinex);
if nwinex=fld then
begin
OnWine(name1+' (X)');
Exit;
end;
end;
if TTT[k,j].Value='0' then
begin
nwinex:=0;
inc(nwine0);
if nwine0=fld then
begin
OnWine(name2+' (0)');
Exit;
end;
end;
if TTT[i,j].Value='' then
begin
nwinex:=0;
nwine0:=0;
end;
end;
end;
end;

procedure TF_Game.OnWine(Winer: string);
begin
MessageBox(0,PAnsiChar('Auea?ae '+Winer),PAnsiChar('Iica?aaeyai e ni?onoaoai!!!'),MB_OK+MB_ICONINFORMATION);
NewGame;
end;

procedure TF_Game.NewGame;
var
i,j: byte;
begin
lastCount:=GetTickCount;
frameCount:=0;
CallMenu:=false;
angX:=0;
ang0:=0;
NextVal:='X';
for i:=0 to dmn-1 do
for j:=0 to dmn-1 do
begin
TTT[i,j].Left:=j+1;
TTT[i,j].Right:=j+2;
TTT[i,j].Bottom:=i+1;
TTT[i,j].Top:=i+2;
TTT[i,j].Value:='';
end;
end;

end.
//Афоризм напоследок: Если из положения нет выхода, надо поменять положение.
Winamp глаголит: Scorpions - Always Somewhere
27 февраля 2005 г. 12:05:23

Просто студент
Eugene mailto:rav***@o*****.ru

Номер выпуска : 4067
Возраст листа : 525 (дней)
Количество подписчиков : 529
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/323609
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

i686-suse-linux)

Hello, Eugene the Monster <rav***@o*****.ru>!

On Sun, 27 Feb 2005 12:20:28 +0300 you wrote:

Вот тут собака и зарыта!
Timer очень плохо работает с интервалами меньше 200 мс.
Делай отдельный поток, и в нем постоянно перерисовывай сцену. FPS будет
120 - в обоих случаях.

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

В конструкциях типа:

...

...

убери промежуточные glEnd - glBegin(GL_QUADS).
Когда много Quad'ов должен быть один glBegin - вначале
и один glEnd - в конце.

glBegin/glEnd забирает довольно много времени.

Номер выпуска : 4081
Возраст листа : 528 (дней)
Количество подписчиков : 529
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/325371
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

Glad to greet, Eugene!

You seem to have written (Sunday, February 27, 2005):

Ты задал позицию источника света в самом начале, а потом меняешь
матрицу трансформации, которая применяется в том числе и к источнику,
как к материальной точке. Выход - вызывать glLight* перед самым
выводом, когда все трансформации уже заданы (т.е. после
glScale/glRotate/glTranslate).
Вообще, если собираешься работать с графикой и после курсовика,
советую полазать по opengl.org и developers.nvidia.com - кладезь
знаний.

В принципе Дельфа под рукой есть, но нет ни Jedi-порта и ещё вроде
чего-то не хватает. Тем не менее, вот что бросилось в глаза:

1. В TF_Game.Timer2Timer(Sender: TObject) есть вот такая вещь:
..
glClear(GL_DEPTH_BUFFER_BIT xor GL_COLOR_BUFFER_BIT);
..

Тут явно OR, а не XOR.

2. Не используй glBegin(GL_POLYGON), разбей вручную.

3. Оставь только первый glBegin(GL_QUADS) - не надо повторять для
каждого нового quad-а.

4. Не надо в каждом листе повторять:

glShadeModel(GL_FLAT);
glPolygonMode(GL_FRONT_AND_BACK,GL_FILL);

Сделай это лишь при инициализации.

5. Попробуй вынести quadObj:=gluNewQuadric, за пределы
glNewList(Zero2D,GL_COMPILE), а то есть подозрения...

6. Попробуй убрать glEnable(GL_POLYGON_SMOOTH)

Alles Gute!

...In Code We Trust...

Hello, Eugene!

Похоже, тема становится хитом сезона!
Вот и я не удержался и нацарапал:

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

Идея проста и широко известна.

Сооружаешь объект типа этого (в Pascal'е я не силён :-(,
поэтому код накидал на C++ (VC++7), но смысл, думаю, понятен):

#include <fstream>
std::ofstream logFile("Лог злополучной проги.log");

class timeMeter {
public:
timeMeter(LPTSTR blockName)
: _prev(::GetTickCount()) {
::lstrcpy(_name, blockName);
}
void LogOut() {
DWORD prev = _prev;
Out((_prev = ::GetTickCount()) - prev);
}
private:
void Out(DWORD num) {
logFile << _name << "\t" << num << std::endl;
}
DWORD _prev;
TCHAR _name[256];
};

В нужных местах (в процедурах, функциях, блоках и т.д)
создаёшь объекты типа timeMeter с различными строковыми
параметрами, чтобы потом не заблудиться в логах, затем
вставляешь вызовы Log() в контрольных точках.

Особое внимание обращай на вычисления в циклах.
Можешь, конечно, просто понавставлять вызовы
GetTickCount()в код, но тогда в лог-файле всё будет
свалено в одну кучу - немного пользы.

Короче, если в логах увидишь интервалы намного
длиннее 10 мс - там и собака зарыта.

А видяха твоя, скорее всего, замерзает от недогрузки :-)