Контрольная работа: Концепції програмування. Графічна система OpenGL

рис. №3

Листинг програми матиме такий вигляд:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

OpenGL, Menus;

type

TfrmGL = class (TForm)

procedure FormCreate (Sender: TObject);

procedure FormPaint (Sender: TObject);

procedure FormDestroy (Sender: TObject);

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

Shift: TShiftState);

procedure FormResize (Sender: TObject);

procedure FormKeyPress (Sender: TObject; var Key: Char);

private

DC: HDC; // контекст пристрою

hrc: HGLRC; // контекст відображення

ry: GLfloat; // зміна координати по У

tx: GLfloat; // зміна координати по Х

end;

var

frmGL: TfrmGL;

mode: (POINT, LINE, FILL) = FILL; // режими відображення обєкта

mx,my: byte; // коефіцієнти збільшення/зменшення

implementation

uses DGLUT;

{$R *. DFM}