48039 (572127), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

glVertex2f (-0. 1 -0. 1);

glEnd; lRotatef (-45, 0. 0, 0. 0, 1. 0);

Цей приклад дуже цікавий і ось чому. Видалимо відновлення кута повороту і запустимо додаток. Побачимо не ромб, а квадрат. При уважному розгляді виявимо, що квадрат був повернений двічі Відбулося це тому, що відразу після появи вікна на екрані (функція API showWindow) відбувається його перемальовування (функція API updateWindow). Якщо ви були уважні, то могли відмітити, що такий же ефект спостерігався і в попередньому прикладі. При виконанні операції повороту можна запитати: повертається зображення або точка зору? Ми будемо для ясності вважати, що повертається саме зображення. Наступний приклад пояснить це.

Точна відповідь такої всі об'єкти в OpenGL малюються в точці відліку системи координат, а команда glRotate здійснює поворот системи координат.

Намалюємо дві фігури: квадрат і ромб, причому ромб отримаємо шляхом повороту квадрата. Текст програми буде таким (проект з|із| підкаталогу Ex54):

glRotatef (45, 0. 0, 0. 0, 1. 0); glBegin (GL_POLYGON);

glVertex2f (-0. 6 -0. 1);

glVertex2f (-0. 6, 0. 4);

glVertex2f (-0. 1, 0. 4);

glVertex2f (-0. 1 -0. 1);

glEnd;

glRotatef (-45, 0. 0, 0. 0, 1. 0);

glBegin (GL_POLYGON);

glVertex2f (0. 1 -0. 1);

glVertex2f (0. 1, 0. 4);

glVertex2f (0. 6, 0. 4);

glVertex2f (0. 6 -0. 1);

glEnd;

Так само нам доведеться поступати завжди, коли на екрані присутні декілька об'єктів, повернених щодо один одного: перед малюванням чергового об'єкту здійснювати поворот, а після малювання - повертати точку зору або здійснювати наступний поворот з урахуванням поточного положення точки зору. Будь ласка, будьте уважні! Користувачі OpenGL, що починають, постійно ставлять питання, як повернути примітив, не повертаючи решту примітивів. Ще один раз перечитайте попередній абзац На закінчення розмови про поворот розглянете проект (підкаталог Ex55) заснований на прикладі диском. При натиснутій кнопці або русі курей, сміття відбувається перемальовування вікна і поворот диска на 60 градусів. Щоб ви могли оцінити переваги використання "низькорівневих" прийомів, вікно перемальовувалося в цих випадках по-різному:

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

begin

Refresh

end;

procedure TfrmGL. FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

InvalidateRect(Handle, nil, False);

end;

При натисненні кнопки добре видно мерехтіння на поверхні вікна, якого не з'являється при русі покажчика миші по його поверхні. Перенесення точки зору (системи координат) здійснюється командою glTranslatef з трьома аргументами - величинами переносу для кожної з осей. Все сказане з приводу відновлення точки зору справедливо і відносно переносу. Розгляньте приклад з підкаталогу Ex56, що ілюструє використання перенесення системи координат, використання повороту і перенесення - це найчастіше і використовується при побудовах.

Варто розібрати цей приклад докладніше. У циклі шість разів відбувається перенесення і поворот системи координат:

glTranslatef (-0. 3, 0. 3, 0. 0);

glRotatef (60, 0, 0, 1);

Кружечки малюються в поточній точці відліку системи координат, щодо якої відбуваються кожного разу перетворення. Після закінчення циклу точка зору повертається точно в початкове положення, тому додаткових маніпуляцій із системою координат не вимагається. Перед циклом робимо перенесення для вирівнювання картинки на екрані:

glTranslatef (0. 4, 0. 1, 0. 0);

Після циклу, звичайно, потрібно відновити первинне положення системи координат:

glTranslatef (-0. 4 -0. 1, 0. 0);.

1. Засобами бібліотеки 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

uses mmSystem;

{$R *.DFM}

const

stripeImageWidth = 32;

var

stripeImage : Array [0..3*stripeImageWidth-1] of GLubyte;

procedure makeStripeImage;

var

j : GLint;

begin

For j := 0 to stripeImageWidth - 1 do begin

If j <= 4

then stripeImage[3*j] := 255

else stripeImage[3*j] := 0;

If j > 4

then stripeImage[3*j + 1] := 255

else stripeImage[3*j + 1] := 0;

stripeImage[3*j+2] := 0;

end;

end;

procedure OutText (Litera : PChar);

begin

glListBase(GLF_START_LIST);

glCallLists(Length (Litera), GL_UNSIGNED_BYTE, Litera);

end;

procedure TfrmGL.Init;

const

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

begin

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

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

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

makeStripeImage();

glPixelStorei(GL_UNPACK_ALIGNMENT, 1);

glTexParameterf(GL_TEXTURE_1D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);

glTexParameterf(GL_TEXTURE_1D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

glTexImage1D(GL_TEXTURE_1D, 0, 3, stripeImageWidth, 0,

GL_RGB, GL_UNSIGNED_BYTE, @stripeImage);

glTexGeni(GL_S, GL_TEXTURE_GEN_MODE, GL_OBJECT_LINEAR);

glTexGenfv(GL_S, GL_OBJECT_PLANE, @sgenparams);

glEnable(GL_TEXTURE_GEN_S);

glEnable(GL_TEXTURE_1D);

end;

procedure TfrmGL.FormPaint(Sender: TObject);

begin

glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

glPushMatrix;

glRotatef(Angle, 0.0, 1.0, 0.0); // поворот на угол

glMaterialfv(GL_FRONT, GL_AMBIENT_AND_DIFFUSE, @MaterialColor);

OutText ('Включення світла');

glPopMatrix;

SwapBuffers(DC);

end;

procedure FNTimeCallBack(uTimerID, uMessage: UINT;dwUser, dw1, dw2: DWORD) stdcall;

begin

With frmGL do begin

Angle := Angle + 0.2;

If (Angle >= 720.0) then Angle := 0.0;

MaterialColor [0] := (720.0 - Angle) / 720.0;

MaterialColor [1] := Angle / 720.0;

MaterialColor [2] := Angle / 720.0;

InvalidateRect(Handle, nil, False);

end;

end;

procedure TfrmGL.FormCreate(Sender: TObject);

begin

Angle := 0;

DC := GetDC(Handle);

SetDCPixelFormat;

hrc := wglCreateContext(DC);

wglMakeCurrent(DC, hrc);

wglUseFontOutlines(Canvas.Handle, 0, 255, GLF_START_LIST, 0.0, 0.15,

WGL_FONT_POLYGONS, nil);

Init;

uTimerID := timeSetEvent (1, 0, @FNTimeCallBack, 0, TIME_PERIODIC);

end;

procedure TfrmGL.FormResize(Sender: TObject);

begin

glViewport(0, 0, ClientWidth, ClientHeight);

glMatrixMode(GL_PROJECTION);

glLoadIdentity;

gluPerspective(40.0, ClientWidth / ClientHeight, 1.0, 20.0);

glMatrixMode(GL_MODELVIEW);

glLoadIdentity;

glTranslatef(0.0, 0.0, -8.0);

glRotatef(30.0, 1.0, 0.0, 0.0);

InvalidateRect(Handle, nil, False);

end;

procedure TfrmGL.FormDestroy(Sender: TObject);

begin

timeKillEvent(uTimerID);

glDeleteLists (GLF_START_LIST, 256);

wglMakeCurrent(0, 0);

wglDeleteContext(hrc);

ReleaseDC(Handle, DC);

DeleteDC (DC);

end;

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

Shift: TShiftState);

begin

If Key = VK_ESCAPE then Close

end;

procedure TfrmGL.SetDCPixelFormat;

var

nPixelFormat: Integer;

pfd: TPixelFormatDescriptor;

begin

FillChar(pfd, SizeOf(pfd), 0);

with pfd do begin

nSize := sizeof(pfd);

nVersion := 1;

dwFlags := PFD_DRAW_TO_WINDOW or

PFD_SUPPORT_OPENGL or

PFD_DOUBLEBUFFER;

iPixelType:= PFD_TYPE_RGBA;

cColorBits:= 24;

cDepthBits:= 32;

iLayerType:= PFD_MAIN_PLANE;

end;

nPixelFormat := ChoosePixelFormat(DC, @pfd);

SetPixelFormat(DC, nPixelFormat, @pfd);

end;

end.

Завдання №4 (11)

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

begin

if key = '-' then mx:=mx+1;

if key = '+' then mx:=mx-1;

InvalidateRect(Handle, nil, False);

end;

end.

Список використаної літератури

1. Блінова Т.О., Порєв В.М. Комп’ютерна графіка / За ред. В.М. Горєва. – К.: Видавництво “Юніор”, 2004. – 456с., іл.

2. С.В. Глушаков, Г.А. Крабе Компютерная графика, Харьков 2002

3. OpenGl, технология ставшая символов, Учебник в примерах.

4. Конспект лекцій.

23

Характеристики

Список файлов ответов (шпаргалок)