Основы компьютерной графики для программистов. Казанцев А.В. - 81 стр.

Основы компьютерной графики для программистов                                                                  81
____________________________________________________________________________________________________________________




procedure TfrmGL.SetUpCommons;
const
LC = 53.0;
begin
glMatrixMode(GL_PROJECTION);
glLoadIdentity;

Case RGProj.ItemIndex of
 0: glOrtho    (-LC,LC,-Panel1.height/Panel1.width*LC,
                                         Panel1.height/Panel1.width*LC, 3, 1000);


1: glFrustum (-1,1,-Panel1.height/Panel1.width,
     Panel1.height/Panel1.width, 3, 1000);                                          // задаем перспективу
     end;//case
//Альфа тест
if CBAlphaTest.Checked then
     glEnable(GL_ALPHA_TEST)
else
     glDisable(GL_ALPHA_TEST);
//Блендинг
if CBBlending.Checked then
       begin
  glEnable(GL_BLEND);
  glBlendFunc(GL_SRC_ALPHA,GL_ONE_MINUS_SRC_ALPHA);
     end
else
       glDisable(GL_BLEND);
//закраска
Case RGFlatSm.ItemIndex of
0: glShadeModel(GL_FLAT);
1: glShadeModel(GL_SMOOTH);
         end;//case
Case RGVisEdges.ItemIndex of
0:begin
  glEnable(GL_CULL_FACE);
  glCullFace(GL_BACK);
      end;
1:begin
  glEnable(GL_CULL_FACE);
  glCullFace(GL_FRONT);
     end;
2:begin glDisable(GL_CULL_FACE)end;
     end;//case
//Освещение


http://www.ksu.ru/persons/9134.ru.html