Дорисовка в OpenGL

[Crookers]

Такой вопрос, как можно дорисовать, к допустим уже нарисованной линии, еще одну фигуру?

Я делаю так:

glClear(GL_COLOR_buffer_bit);

glBegin(GL_POLYGON);
//координаты;
glEnd;

SwapBuffers(dc);

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

она пропадает потому что

glClear(GL_COLOR_buffer_bit);

а без него не рисуеться вообще ничего(

Подскажите пожалуйста, как можно так сделать?

[Alex2009]

http://vintprog.3dn.ru/load/1-1-0-42 учебник OpenGl на Delphi

[raxp]

используйте такую конструкцию...

procedure Tpgl.WMPaint(var Msg: TWMPaint);
var ps: TPaintStruct;
begin
 BeginPaint(Handle, ps);
 if DC=0 then CreateDC;
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

   setview1(FView1); // 1 объект
   setview2(FView2); // n- объект

 SwapBuffers(DC);
 EndPaint(Handle, ps)
end;


procedure tpgl.paint1;
begin
 glNewList(TXT, GL_Compile);
  
 glBegin(GL_POLYGON);
 //координаты;
 glEnd;

 glendlist
end;

procedure Tpgl.SetView1(const Value: Boolean); 
begin
 FView1:= Value;
 if value then glCallList(TXT)
end;

procedure tpgl.paint2;
begin
 glNewList(TXT2, GL_Compile);
  
 glBegin(GL_POLYGON); // 1- объект
 //координаты;
 glEnd;
 // или просто продублируйте 1 объект

 glendlist
end;

procedure Tpgl.SetView2(const Value: Boolean); 
begin
 FView2:= Value;
 if value then glCallList(TXT2)
end;

[Crookers]

Спасибо за конструкцию! я сделал именно так, но у меня новая проблема.. к тому, что нужно чтобы появлялись 2 обьекта, мне нужно чтобы каждый обьект по разному вращался..

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

вращаю функцией glRotatef(5,1,0,0);


Подскажи плиз, как можно сделать норм?

[raxp]

применяйте glrotate и translatef для каждого объекта отдельно

кроме того, если у вас идет построение объекта в виде матрицы:

 glBegin(GL_QUADS); 
  glVertex3d(0,0,0); 
  glVertex3d(0,0,-1); 
  glVertex3d(1,0,-1); 
  glVertex3d(1,0,0);
...

то вы можете менять систему координат прямо в ней

[Crookers]

впринципе я так и сделал, но все равно чтото не то, не могу понять..(

вот исходник, посмотрите пожалуйста, что не так тут?

[raxp]

а где ж у вас управление? нет никакого обработчика клавиш... и потом, glRotatef(5,1,0,0); - где тут изменение? все статично