Основні прийоми програмування графіки на Паскалі. (Тема 2) презентация

Содержание

План: 2.1. Графічний режим Паскаля 2.2.  Робота з покажчиком в графічному режимі 2.3. Малювання основних графічних примітивів і фігур 2.4. Зафарбовування фігур

Слайд 1Тема 2:
Основні прийоми програмування графіки на Паскалі

Слайд 2План:
2.1. Графічний режим Паскаля
2.2.  Робота з покажчиком в графічному режимі
2.3. Малювання

основних графічних примітивів і фігур
2.4. Зафарбовування фігур

Слайд 3Графічний модуль
Turbo Pascal – файл graph.tpu;
Pascal ABC – файл graph.abc.
Підключення:
Uses

Graph;

Слайд 4Ініціалізація графічного режиму:
InitGraph(var Driver, Mode: integer; Path: string);
де Driver – змінна,

яка визначає тип графічного драйвера;
Mode – змінна, яка задає режим роботи графічного адаптера;
Path – ім’я файлу драйвера і шлях до нього.

Слайд 5Типи графічних драйверів:

Слайд 6Графічні режими:

Слайд 7Перевірка результату ініціалізації:
GraphResult

GrOk =0; {нет ошибок}

GrInitGraph =-14..-1

Слайд 8Завершення роботи графічного режиму
CloseGraph

Слайд 9Структура програми:
Підключення графічного модуля;
Визначення графічного драйвера;
Встановлення графічного режиму;
Ініціалізація графічного режиму;
Побудови;
Закриття графічного

режиму.

Слайд 10Приклад заготовки програми:
Program primer;  Uses Graph;  Var d , m : integer :

{переменные для установки драйвера, режима}  Begin     d:= detect;     InitGraph(d, m, ‘’);     If GraphResult =0 then {если инициализация прошла успешно}     begin        <описание всех ваших построений>        closeGraph ;     end     else writeln (‘произошла ошибка при инициализации графики’);  end .

Слайд 11На практиці використовується
rx?ry
розрізняльна здатність:
320?200;
640?480;
800?600;
1024?768;
1280?1024.

Слайд 12rx?ry
Графічні координати


(0,0)


rx
ry

Слайд 13Переведення координат (x,y) в графічні (xg,yg)
xg=sx? ⎣x⎦+dx,
yg=ry-sy? ⎣y⎦-dy
де ⎣x⎦ і ⎣y⎦

– цілі частини x та y,
sx та sy – масштабні множники
sx=(rx-1)\xmax; sy=(ry-1)\ymax (xmax і ymax – максимальні значення геометричних координат)
dx, dy – розмір зсуву.

Слайд 14Визначення розміру екрану
Функції:
GetMaxX: Integer;
GetMaxY: Integer

Слайд 15Визначення поточних координат точки
Функції:
GetX: Integer;
GetY: Integer

Слайд 16Переміщення поточного покажчика
Процедури:
MoveTo(X, Y: Integer);
MoveRel(DX, DY: Integer)

Слайд 17Очищення зображення
Процедури:
ClearDevice;
ClearViewPort

Слайд 18Константи кольору – змінна С

Слайд 19Встановлення поточного кольору
Процедури:
SetBkColor(С: Word)
SetColor(С: Word)

Слайд 20Повернення поточного кольору
Функції:
GetBkColor
GetColor
GetPixel(X, Y: Integer)

Слайд 21Відображення точки на екрані
Процедура:
PutPixel(X,Y: Integer,C:Word)
MoveTo(X, Y: Integer)

Слайд 22Приклад
begin
setbkcolor(15); {Обрання кольору фону}
randomize;
{Побудова точок}

for i:=1 to 500 do
begin
PutPixel(random(GetMaxX),random(GetMaxY),random(14));
end;
end;

Слайд 23Виведення текстового рядка в графічному режимі
Процедури:
OutText(Str: String)
OutTextXY(X,Y: Integer, Str: String)

Слайд 24Настроювання параметрів форматування тексту
Процедури
SetTextJustify(h, v: word)
SetTextStyle(f: word; d: word; S: Char)


Слайд 25Приклад
SetColor(3);
for i:=0 to 10 do

begin
SetTextStyle(i,0,4);
OutText('pascal ');
delay(1000);
end;

Слайд 26Параметри лінії задає
процедура:
SetLineStyle (Type, Pattern, Thick: word)
де Type – тип лінії

значення: 0, 1, 2, 3, 4
Pattern=0
Thick – товщина лінії в пікселях

Слайд 27Побудова прямої
Процедури:
Line(X1, Y1, X2, Y2 : Integer);
LineTo(X,Y: Integer);
LineRel(Dx,Dy)

Слайд 28Приклад
MoveTo(200, 200);
LineTo(GetMaxX, GetMaxY);

Слайд 29Приклад:
s:=100;
for i:=0 to 3 do
begin
SetLineStyle (i,0,1);
Line (s,20,s,300);
s:=s+50;
end;

Слайд 30Побудова прямокутника
Процедура:
Rectangle (X1, Y1, X2, Y2: Integer)

(X1,Y1)
(X2,Y2)

Слайд 31Побудова багатокутника
Процедура:
DrawPoly(NumPoints : Word; Var PolyPoints)

Слайд 32Приклад:
Const Triangle:Array[1..4] Of PointType=((X: 50; Y: 100),

(X: 100; Y:100),
(X: 150; Y: 150),
(X: 50; Y: 100));
…
SetColor(14);
SetLineStyle(0,0,10);
DrawPoly(SizeOf(Triangle) Div SizeOf(PointType), Triangle);



Слайд 33Побудова кривих
Процедури:

Circle(X,Y:integer; R: word)

Arc(X,Y, Ugol_begin, Ugol_end, R: integer)

Слайд 34Побудова кривих
Процедури:

Ellipse(X,Y:integer; Ugol_begin, Ugol_end, Rx, Ry: word)

Sector (X,Y: integer; Ugol_begin,

Ugol_end, Rx, Ry: word)

Слайд 35Визначення стилю та кольору зафарбовування
Процедура:
SetFillStyle(Style, Color: Word)

Слайд 36Стилі зафарбовування

Слайд 37Стилі зафарбовування

Слайд 38Зафарбовування довільної замкненої фігури
Процедура:
FloodFill(X,Y, Border:word)

Слайд 39Процедури для побудови зафарбованих фігур:
Bar
Bar3D
PieSlice
Sector
FillEllipse

Похожие презентации

Визначення ООП. Лекція 1. Об’єктно-орієнтоване програмування 539
Изучение социально-политического значения проекта НЭБ для развития в России информационного общества и информационной экономики 206
Введение в параллельные вычисления 392
АРМ как праксеотехнический стандарт 253
Операционные системы. Файловые системы. (Часть 2) 322
Двумерный анализ данных 324

Обратная связь

Если не удалось найти и скачать презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое ThePresentation.ru?

Это сайт презентаций, докладов, проектов, шаблонов в формате PowerPoint. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами с другими пользователями.

Для правообладателей

Яндекс.Метрика