Реферат: Отчет по OpenGL

procedure SetDCPixelFormat;

protected

// Обработка сообщения WM_PAINT - аналог события OnPaint

procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;

end;

var

Form1: TForm;

ch, c, i: integer;

s: string;

ShowHelp: boolean=true;

implementation

{$R *.DFM}

const

// массив свойств материала

MaterialColor: Array [0..3] of GLfloat = (0.5, 0.0, 1.0, 1.0);

// Процедура инициализации источника цвета

procedure TForm1.InitializeRC;

begin

glEnable(GL_DEPTH_TEST); // разрешаем тест глубины

glEnable(GL_LIGHTING); // разрешаем работу с освещенностью

glEnable(GL_LIGHT0); // включаем источник света 0

end;

// Отрисовка картинки

procedure TForm1.DrawScene;

begin

// очистка буфера цвета и буфера глубины

glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

// трехмерность

glMatrixMode(GL_MODELVIEW);