align="justify"> Залежно від напрямку руху:
Натиснуто стрілка В«влівоВ» (переміщення по осі X):
ty: = ty - sin (f * pi/180)/2;: = tx + cos (f * pi/180)/2;
Натиснуто стрілка В«вправоВ» :: = ty + sin (f * pi/180)/2;
tx: = tx - cos (f * pi/180)/2;
Натиснуто стрілка В«вгоруВ» (переміщення по осі Y):
ty: = ty + sin ((f +90) * pi/180)/2;: = tx - cos ((f +90) * pi/180)/2;
Натиснуто стрілка "вниз" :: = ty - sin ((f +90) * pi/180)/2;
tx: = tx + cos ((f +90) * pi/180)/2;
Фотогалерея складається з двох основних кімнат, кожна з яких має розмір 12 Г— 12.
В
Рис 2. Структура фотогалереї
2. Опис модуля Gallery.pas
.1 Загальні відомості
Програмна одиниця являє собою статичну бібліотеку, що підключається до програмі на етапі компіляції.
Найменування модуля Gallery.pas.
Модуль створений на мові Delphi в середовищі розробки Delphi 7.0
.2 Функціональне призначення
Створення та переміщення по віртуальній фотогалереї відповідно до команд користувача.
.3 Опис структури модуля Gallery.pas.
Модуль містить 13 процедур, що реалізують створення галереї і переміщення по ній.
procedure TfrmGL.FormPaint (Sender: TObject)
Процедура забезпечує установку параметрів графічних об'єктів та виведення на екран кімнат фотогалереї, а також здійснення перегляду галереї в автоматичному режимі.
В
В
procedure TfrmGL.FormMouseMove (Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Процедура описує реакцію програми при зміні положення миші.
В
procedure TfrmGL.FormKeyDown (Sender: TObject; var Key: Word;
Shift: TShiftState);
Процедура описує реакцію програми на натиснення користувачем клавіш управління для пересування по фотогалереї та установки обмежень виходу користувача за межі кімнат фотогалереї, а також встановлення демонстраційного режим і перегляду фотографій.
procedure TfrmGL.FormCreate (Sender: TObject);
Процедура ініціалізує змінні і створює посилання на вікно для OpenGL
procedure TfrmGL.FormDestroy (Sender: TObject);
Процедура видаляє всі об'єкти OpenGl, вивільняючи пам'ять
procedure TfrmGL.FormResize (Sender: TObject);
Процедура перемальовує вікно і створює перспективу
SetDCPixelFormat (hdc: HDC);
Процедура задає формат пікселів...
