У роботі розглядаються
- Комп'ютерна графіка
- Графічний режим
- Палітра кольорів
- Turbo Pascal
- Алгоритмічна мова
- Графічні примітиви
Управління кольорами та палітрою графічних зображень. Лабораторна робота №3
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних наук та інформаційних технологій
Факультет:
Комп’ютерні науки
Кафедра:
Кафедра інформаційних систем та мереж
Інформація про роботу
Рік:
2012
Тип роботи:
Лабораторна робота
Предмет:
Комп'ютерна графіка
Група:
КН-31
Коротко про документ
Про що ця робота
У лабораторній роботі досліджується ініціалізація графічного режиму та керування палітрою кольорів у середовищі Turbo Pascal. Наведено код програми для побудови кольорового графічного зображення за варіантом 17.
Зміст і розділи
- Повний текст завдання
- Таблиця варіантів завдань
- Список ідентифікаторів
- Пояснення ідентифікаторів змінних
- Пояснення процедур та функцій
- Остаточна версія програми
- Результати роботи програми
Для кого:Студенти технічних спеціальностей закладів вищої освіти
Викладачі:Викладач кафедри
Ключові поняття
графічний режимпалітра кольорівTurbo Pascalinitgraphsetfillstylefloodfillпроцедура pix
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
УПРАВЛІННЯ КОЛЬОРАМИ ТА ПАЛІТРОЮ ГРАФІЧНИХ ЗОБРАЖЕНЬ
ДО ЛАБОРАТОРНОЇ РОБОТИ № 3
З КУРСУ “КОМП’ЮТЕРНА ГРАФІКА”
ПОВНИЙ ТЕКСТ ЗАВДАННЯ
1.Навчитися ініціалізувати графічний режим роботи відеоадаптера з різною кількістю кольорів та певними типами палітри на алгоритмічній мові Турбо-Паскаль.
2.Вивчити основні графічні процедури і функції алгоритмічної мови Турбо-Паскаль для побудови кольорових графічних зображень.
3.Написати програму на алгоритмічній мові Турбо-Паскаль, яка виводить на екран розмальоване графічне зображення. Варіанти завдань брати за вказівкою викладача з таблиці 1.
Таблиця 1.
N% п/п
Варіанти завдань
17.
ОСТАТОЧНА ВЕРСІЯ БЛОК-СХЕМИ АЛГОРИТМУ
Процедура PIX
1
2
3
4
5
Головна програма
1
2
3
4
5
6
7
ні так
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
ні
36
так
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
СПИСОК ІДЕНТИФІКАТОРІВ КОНСТАНТ, ЗМІННИХ, ПРОЦЕДУР ТА ФУНКЦІЙ, ВИКОРИСТАНИХ У БЛОК-СХЕМІ АЛГОРИТМУ І ПРОГРАМИ, ТА ЇХ ПОЯСНЕННЯ
СПИСОК :
GD
GM
X
Y
I
Color
ПОЯСНЕННЯ ІДЕНТИФІКАТОРІВ ЗМІННИХ :
GD – характеризує тип графічного драйвера
GM – визначає режим роботи графічного адаптера
X – координата лівого верхнього кута екрану
Y – координата лівого верхнього кута екрану
I – лічильник
COLOR – змінна що задає колір
ПОЯСНЕННЯ ПРОЦЕДУР ТА ФУНКЦІЙ :
INITGRAPH – ініціалізує графічний режим
GRAPHRESULT – тестує роботу графічного режиму
SETVIEWPORT – задає нове графічне вікно
SETFILLSTYLE – задає тип та колір штрихування
FLOODFILL – штрихує замкнену фігуру за точкою що знаходиться в ній та заданим кольором границі
PIX – штрихує прямокутну область екрану суцільно кольором color, де координати лівого верхнього кута екрану задаємо як p=40,q=280 та правого нижнього кута екрану як прирости dx,dy відносно лівого верхнього кута.
ОСТАТОЧНА ВЕРСІЯ ПРОГРАМИ
Program Lab_3_17;
uses crt,graph;
var x,y,i,gd,gm:integer;
color,c:word;
procedure pix(p,q,dx,dy:integer);
var x,y,x1,y1:integer;
begin
x:=p; y:=q; x1:=p+dx; y1:=q+dy;
setfillstyle (1,color);
bar (x,y,x1,y1);
end;
begin
clrscr;
gd:=15; gm:=3; initgraph(gd,gm,'');
setviewport(300,100,620,420,true);
setfillstyle (1,white);
floodfill (0,0,white);
color:=black;
pix (40,280,250,10);
pix (280,130,10,150);
pix (40,130,10,150);
pix (40,130,250,10);
pix (70,160,10,90);
pix (110,160,10,90);
pix (210,160,10,90);
pix (250,160,10,90);
pix (70,160,50,10);
pix (210,160,50,10);
pix (70,240,50,10);
pix (210,240,50,10);
pix (90,170,10,70);
pix (230,170,10,70);
pix (80,180,30,10);
pix (220,180,30,10);
pix (80,210,30,10);
pix (220,210,30,10);
pix (140,180,10,100);
pix (180,180,10,100);
pix (140,180,50,10);
pix (10,160,10,10);
y:=170;
for i:=1 to 7 do begin
x:=i*10; y:=y-10;
pix (x,y,10,10);
end;
pix (160,30,10,10);
pix (140,40,20,10);
pix (170,40,20,10);
pix (190,50,10,20);
pix (200,70,20,10);
pix (220,80,10,10);
pix (230,90,10,10);
pix (240,100,20,10);
pix (260,110,10,10);
pix (260,120,20,10);
pix (290,140,10,10);
pix (300,140,10,20);
pix (310,160,10,10);
pix (70,110,10,10);
pix (80,100,10,10);
pix (90,90,10,10);
pix (100,70,10,20);
pix (110,70,20,10);
pix (120,60,10,10);
pix (130,50,10,10);
color:=brown;
x:=160; y:=190;
for i:=1 to 5 do begin
pix (x,y,10,10);
y:=y+20;
end;
x:=170; y:=200;
for i:=1 to 4 do begin
pix (x,y,10,10);
pix (x-20,y,10,10);
y:=y+20;
end;
color:=black; pix (150,240,20,10);
color:=brown;
pix (60,120,20,10);
pix (90,120,20,10);
pix (120,120,10,10);
pix (140,120,10,10);
pix (160,120,20,10);
pix (190,120,30,10);
pix (230,120,20,10);
pix (80,110,10,10);
pix (90,100,10,10);
pix (100,90,10,10);
pix (110,80,20,10);
pix (130,70,10,10);
pix (140,50,10,20);
pix (150,50,20,10);
pix (160,40,10,10);
pix (180,50,10,10);
pix (190,70,10,10);
pix (210,80,10,10);
pix (220,90,10,10);
pix (230,100,10,10);
pix (250,110,10,10);
color:=red;
pix (100,110,60,10);
pix (170,110,30,10);
pix (210,110,30,10);
pix (110,100,10,10);
pix (130,100,10,10);
pix (150,100,30,10);
pix (190,100,30,10);
pix (120,90,30,10);
pix (160,90,10,10);
pix (180,90,10,10);
pix (200,90,10,10);
pix (140,80,20,10);
pix (170,80,10,10);
pix (190,80,10,10);
pix (150,70,40,10);
pix (160,60,20,10);
pix (160,50,10,10);
color:=yellow;
pix (51,140,228,20);
pix (260,160,18,118);
pix (192,252,80,26);
bar (122,160,138,278);
bar (52,252,130,278);
bar (140,160,208,178);
pix (52,160,16,100);
readln;
end.
РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ
Допоможи студентському архіву
Ми допомогли тобі — допоможи наступному студенту
Оголошення від адміністратора
Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!