Множественный просмотр в OpenGL

[Miha85193]

Как можно реализовать множесивенный просмотр обекта в OpenGL. Чтобы плучилось примерно вот так.


Я пробовал изменить просмотр с прмощью следующей процедуры

procedure TForm1.SetView(X, Y, W, H: Glint);
begin
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45, W / H, 1, 1000);
  glViewport(X, Y, W, H);
  glMatrixMode(GL_MODELVIEW);
end;

вызывая ее перед каждым рендерингом с новыми параметрами

procedure TForm1.FormPaint(Sender: TObject);
begin
  // Просмотр - 1
  SetView(0, Height div 2,Width div 2,Height div 2);
  RendScene(Camera1);
  // Просмотр - 2
  SetView(Width div 2,Height div 2,Width div 2,Height div 2);
  RendScene(Camera2);
  // Просмотр - 3
  SetView(0, 0, Width div 2,Height div 2);
  RendScene(Camera3);
  // Просмотр - 4
  SetView(Width div 2, 0,Width div 2,Height div 2);
  RendScene(Camera4);
end;

Но каждий последующий рендеринг закрашивает педыдущий цветом очистки. В итоге
видна только последняя четвертая картинка.

[Selestis]

RendScene должно быть содержит код очистки буфера кадра...

[Miha85193]

Вот, примерно так.

procedure TForm1.RendScene(Camera: TGLCamera);
var
  Error_: GLuint;
begin
  glLoadIdentity();
  glClear(GL_DEPTH_BUFFER_BIT or GL_COLOR_BUFFER_BIT);
  // Управление обзором
  Camera.Look;

  {Здесь идет рендеринг}
  
  SwapBuffers(wglGetCurrentDC);

  Error_ := glGetError;
  if (Error_ <> GL_NO_ERROR) then
    ShowMessage(String(gluErrorString(Error_)));
end;

Возможно здесь что-то лишнее?