для роботи c бібліотекою OpenGl.
zal1;
Процедура виробляє малювання обстановки першої кімнати фотогалереї
В
В
zal2;
Процедура виробляє малювання обстановки другої кімнати фотогалереї.
Procedure zal0;
Процедура виробляє малювання обстановки третьої і четвертої кімнати фотогалереї. Порядок побудови другої, третьої та четвертої кімнат фотогалереї подібний з першої. br/>
procedure BmpTexture (name: string; k: boolean);
Процедура виробляє читання графічного файлу name, який використовується в якості текстури в приміщенні фотогалереі.kartina;
Процедура виробляє малювання рами для картини і завантаження зображення картини.
2.4 Виклик і використання модуля
Для використання процедур модуля необхідно на етапі компіляції підключити модуль до проекту, ввівши назву модуля Gallery в список модулів, перерахованих у реченні uses. Після цього можна звернутися до необхідної процедури. br/>
3. Опис застосування програмної одиниці
Процедури бібліотеки Gallery.pas можуть застосовуватися при проектуванні будь-яких проектів в середовищі розробки Delphi, шляхом підключення модуля на етапі компіляції.
4. Список використаної літератури
1. ЕСПД ГОСТи 19.101, 19.105, 19,401.
2. M. B. Краснов OpenGL. Графіка в проектах Delphi. М. 2000.
Текст програмного модуля Gallery.pas
Gallery.pas; ​​
, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, ExtDlgs; = class (TForm): TOpenPictureDialog; FormCreate (Sender: TObject); FormPaint (Sender: TObject); FormDestroy ( Sender: TObject); FormKeyDown (Sender: TObject; var Key: Word;: TShiftState); FormResize (Sender: TObject); FormMouseMove (Sender: TObject; Shift: TShiftState; X,: Integer);
: HDC;: HGLRC;, ty, tz, f, t: GLfloat;: GLUquadricObj;, zal, kadr: boolean;, wrky: Glint;, demonstr: boolean;, time1, FrameTime: GLInt;: GLint;
;
: TfrmGL;: (POINT, LINE, FILL, SILHOUETTE) = FILL;: (SPHERE, CONE, CYLINDER, DISK) = SPHERE;: array [0 .. 3] of GlFloat;: array [0 .. 2] of GlFloat = (0.5,0.5,0.5);, lookupdown: GlFloat;: TPoint;: GlFloat;: TBitmap;: boolean;, pict: byte;: 0 .. 18;
Unit3, Unit2;
{$ R *. DFM}
{========================================= ===========================
Процедура читання графічного файлу, який використовується в якості текстури}
procedure BmpTexture (name: string; k: boolean);
// масив образу, 64x64, j: Integer;: array [0 .. 63,0 .. 63,0 .. 2] of Glbyte;: array [0 .. 31,0. ...
