Контрольная работа: Перетворення координат, операції масштабування в бібліотеці Opengl

(рис. 1)

unit frmMain;

interface

uses

Windows, Messages, Classes, Graphics, Forms, ExtCtrls, Menus,

Controls, Dialogs, SysUtils,

OpenGL;

type

TfrmGL = class(TForm)

procedure FormCreate(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

private

DC : HDC;

hrc : HGLRC;

Angle : GLfloat;

uTimerId : uint;

MaterialColor: Array[0..3] of GLfloat;

procedure Init;

procedure SetDCPixelFormat;

end;

const

GLF_START_LIST = 1000;

var

frmGL: TfrmGL;

implementation