МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА” кафедра АТ Звіт до лабораторної роботи №4 з курсу “Комп’ютерна графіка” на тему: “Побудова рухомих зображень” Варіант №10 1.Мета роботи: Набути практичних навиків в складанні прграм для побудови рухомих зображень на екрані комп’ютера за допомогою матричних перетворень. 2. Завдання: 2.1 Вивчити основні матричні перетворення на площині для побудови рухомих зображень. 2.2 Вивести результуючу матрицю руху для свого варіанту завдання, визначеного нижче. 2.3 Написати програму мовою Турбо-Паскаль, що дозволяє сформувати на екрані комп’ютера рухоме зображення. 2.4 Текст завдання: Незатухаючі коливання маятника. 3. Розрахунок матричних перетворень: У даному випадку розглядаємо операцію перенесення , точки (центру кола).Щоб отримати координати точки після даного переміщення необхідно перемножити такі матриці:
=
*
=
; 4. Загальна Блок-схеми алгоритмів програми 1 2 3 4.1 Деталізована блок-схема блоку № 1 (ініціалізація графічного режиму) загальної блок-схеми: 1 2 3 ні ні так 4 5 4.2 Деталізована блок-схема блоку № 2 (рух кола) загальної блок-схеми: 1 2 3 4 5 6 7 так ні 8 так ні 9 так 10 ні 4.3 Деталізована блок-схема блоку № 3 (завершення графічного режиму) загальної блок-схеми: 1 5. Список ідентифікаторів, змінних процедур і функцій. R-радіус кульки. х –масив точок хс n – приймає занчення 1 або 0, використовується для зміни сторінок. Процедура IntGraphMode ініціалізує графічний режим. Процедура Maiatnik виконує обрахунок точок, по яким виконується рух маятника. Процедура CloseGraphMode - завершує роботу графічного режиму. 6. Остаточно відлагоджений текст програми: uses graph,crt; const r=42; label X; Procedure IntGraphMode(Mode:integer); var Driver, Error: integer; begin Driver:=Detect; InitGraph(Driver, Mode, ''); Error:=GraphResult; if Error <> grOk then begin writeln(GraphErrorMsg(Error)); halt(1); end; end; Procedure Maiatnik; var xc,yc,xline,n,yline,xkolo,ykolo:integer; alfa,i:real; begin xc:=getMaxX div 2; yc:=GetMaxY div 2; repeat i:=0; repeat if keypressed then halt(1); cleardevice; alfa:=pi/4+i; SetColor(3); xline:=xc + round(R * cos(alfa)); yline:=yc + round(R * sin(alfa)); xkolo:=xc + round((R+9)*cos(alfa)); ykolo:=yc+round((R+9)*sin(alfa)); n:=1; SetActivePage(n); Line(xc,yc,xline,yline); SetColor(5); SetFillStyle(1,5); Circle(xkolo,ykolo,9); FloodFill(xkolo,ykolo,5); SetVisualPage(n); i:=i+0.01; delay(800); until alfa > (3*pi/4); i:=0; repeat if keypressed then halt(1); cleardevice; alfa:=3*pi/4-i; xline:=xc + round(R * cos(alfa)); yline:=yc+ round(R * sin(alfa)); xkolo:=xc + round((R+9)*cos(alfa)); ykolo:=yc+round((R+9)*sin(alfa)); n:=1; SetActivePage(n); SetColor(3); Line(xc,yc,xline,yline); SetColor(5); SetFillStyle(1,5); Circle(xkolo,ykolo,9); FloodFill(xkolo,ykolo,5); SetVisualPage(n); i:=i+0.01; delay(800); until alfa<(pi/4); until keypressed; end; Begin IntGraphMode(VGAMed); Maiatnik; end.