Мерцание OpenGL

[saggy]

О, великие мозги форумчанинов! Помогите начинающему опенджиэлцу, но не новичку в делфи. Проблема вот в чём: захотел я научиться строить и двигать объекты в OpenGL. Построил я два куба путём два раза по шесть glbegin(GL_QUAD). Да вот только когда кубы друг друга перекрывают (не пересекают), начинается мерцание на них. Бегают полоски. Я сделал обычный дельфинский таймер на 41 мсек, по которому вызываю onpaint. Doublebuffered вообще оставляет любоваться только на чёрный фон. Код нужен? Или так подскажете? Что делать то...

[Develop]

SwapBuffers(dc) в конце функции отрисовки вызываешь ?

[saggy]

Вот весь код обработки onpaint:

wglMakeCurrent(Canvas.Handle, hrc);
glViewport(0, 0, ClientWidth, ClientHeight);
glLoadIdentity;
glFrustum (-1, 1, -1, 1, 3, 10); // задаем перспективу
glTranslatef (0.0, 0.0, -8.0); // перенос объекта - ось Z
glRotatef (r1, 1.0, 0.0, 0.0); // поворот объекта - ось X
glRotatef (70.0, 0.0, 1.0, 0.0); // поворот объекта - ось Y
InvalidateRect(Handle, nil, False);
glcolor3f(0.6,0.0,0.0);

glEnable (GL_LIGHTING); // разрешаем работу с освещенностью
glEnable(GL_LIGHT0); // включаем источник света 0
glEnable(GL_LIGHT1); // включаем источник света 1

drawcube(1,0,0); // моя функция создания куба из 6 квадратов
                  glcolor3f(0.0,0.4,0.0);
drawcube(-1.5,0,0);

glPopMatrix;
SwapBuffers (Canvas.Handle);
wglMakeCurrent (0, 0) ;

[Somebody]

Не очень понятно, что за полоски. Если такие

то это Z-fighting.

[Develop]

InvalidateRect(Handle, nil, False);

что эта фунция делает в OnPaint ?
она как раз вызывает запуск OnPaint.

и это

glPopMatrix;

где glPushMatrix ?
Перед тем как извлекать что-то из стека матриц (glPopMatrix),
нужно сначала туда что-то положить (glPushMatrix).

[saggy]

ну я функции opengl почти не знаю, я ток первый день учу его
InvalidateRect(Handle, nil, False); и glPopMatrix; убрал. мерцание на перекрытиях исчезло. зы: Somebody, это не Z-fighting, который появляется на пересечении объектов в одной плоскости. я же говорил, кубы не пересекаются. но остались где то в секунду интервалом проблёскивающиеся горизонтальные полосы на всей области прорисовки. ну оч хотелось бы узнать как от них избавиться. скорее всего что то не дописал. заскринить полосы не могу, слишком уж редко появляются. теперь код таков:

wglMakeCurrent(Canvas.Handle, hrc);
glViewport(0, 0, ClientWidth, ClientHeight);
glLoadIdentity;
glFrustum (-1, 1, -1, 1, 3, 10); // задаем перспективу
// этот фрагмент нужен для придания трехмерности
glTranslatef (0.0, 0.0, -8.0); // перенос объекта - ось Z
glRotatef (0, 1, 0, 0.0); // поворот объекта - ось X
glRotatef (r1, 0.0, 1.0, 0.0); // поворот объекта - ось Y

glcolor3f(0.6,0.0,0.0);

glEnable (GL_LIGHTING); // разрешаем работу с освещенностью
glEnable(GL_LIGHT0); // включаем источник света
glEnable(GL_LIGHT1); // включаем источник света

drawq(0,0,0);
                  glcolor3f(0.0,0.4,0.0);
drawq(1,1.5,1.5);

SwapBuffers (Canvas.Handle);
wglMakeCurrent (0, 0) ;

и запуск обработчика:

procedure TfrmGL.Timer1Timer(Sender: TObject);
begin
refresh;
formpaint(nil);
end;

[Пепел Феникса]

можете показать как инициировали GL может там что?

[Develop]

сделай так

procedure TfrmGL.Timer1Timer(Sender: TObject);
begin
  InvalidateRect(Handle, nil, False); //или Canvas.Handle (вобщем Handle формы на которой рисуешь)
end;

и добавь

glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

после

glViewport(0, 0, ClientWidth, ClientHeight);

[saggy]

Develop, скорее всего в это и дело. Проверю позже, пока 3d не очень требуется. Убрав refresh из таймера и используя 2d никакого мерцания не возникает. Спасибо. Теперь новая проблема http://programmersforum.ru/showthrea...582#post566582

эээ...ошибся...возникает. Develop, сделал всё как ты сказал. мерцание на прямоугольнике. теперь только реже.
вот вам то, чем я оперирую. зы: это изменённый исходник от учебника.

[Develop]

Код не смотрел, но там может быть другая проблема.
У тебя картинка перерисовывается каждые 41 мсек, это 24,4 кадра в сек.
Может не совпадать с частотой обновления экрана.
Включи вертикальную синхронизацию или поменяй интервал на таймере.