Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

wglMakeCurrent(DC,RC);

glClearColor(0.6,0.6,0.6,1.0);

glMatrixMode(GL_PROJECTION);

glLoadIdentity;

glFrustum(-1,1,-1,1,2,20);

glMatrixMode(GL_MODELVIEW);

glLoadIdentity;

glTranslatef(0.0,-1.0,-6.0);

BeginPaint;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

wglMakeCurrent(0,0);

wglDeleteContext(RC);

ReleaseDC(H,DC);

DeleteDC(DC);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

glRotatef(4.0,0.0,1.0,0.0);

SwapBuffers(DC);

InvalidateRect(H,nil,False);

end;

procedure DrawElement(a,b,r0,r1:Single);

var x1b,y1b:Single;

Рекомендуем скачать другие рефераты по теме: реферат сила, культурология как наука.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата