Здавалка
Главная | Обратная связь

Робота з координатами



 

Питання для вивчення:

1. Координати, вікна, сторінки

 

Координати, вікна, сторінки. Будь-яке зображення формується з досить простих геометричних фігур. Це точки, відрізки прямих, кола і т.д. З геометрії відомо, що положення геометричного об'єкта і його форма задаються координатами його точок. Отже, для того щоб запрограмувати графічне вивведення, треба
навчитись задавати координати графічних об'єктів.

Багато графічних процедур та функції використовують покажчик поточної
позиції на екрані, який на відміну від текстового курсора невидимий.
Положення цього покажчика, як і взагалі будь-яка координата на графічному
екрані, задається щодо лівого верхнього кута, який, в свою
чергу, має координати 0,0. Таким чином, горизонтальна координата
екрану збільшується зліва направо, а вертикальна - зверху вниз.

Функції GetMaxX і GetMaxY. Повертають значення типу Word, що містять максимальні координати екрану в
поточному режимі роботи відповідно по горизонталі і вертикалі.

Процедура SetViewPort. Встановлює прямокутне вікно на графічному
екрані.

Procedure SetVievPort (X1, Y1, X2, Y2: Integer; ClipOn: Boolean);

Тут X1 .. Y2 - координати лівого верхнього (Х1, Y1) і правого
нижнього (X2, Y2) кутів вікна; ClipOn - вираз типу Boolean, що визначає
«Відсічення» не вміщується у вікні елементів зображення.

Процедура ClearDevice. Очищає графічний екран. Після звернення до
процедурі покажчик встановлюється в лівий верхній кут, а сам екран
заповнюється кольором фону, заданим процедурою SetBkColor.

Питання для контролю вивченого матеріалу:

1. Які існують засоби для роботи з координатами?

2. Яким модулем підключається графічний режим?

Література:

Меженний О.А.Turbo Pascal: М: Издательский дом «Вильямс», 2006. – 336 с., стор. 213-216

 

Урок № 44

(згідно робочої навчальної програми)

Принцип виведення точки та лінії на екран

Питання для вивчення:

1. Процедури для зображення точки та лінії.

Процедура PutPixel. Виводить заданим кольором точку за вказаними
координатам.

Procedure PutPixel (X, Y: Inteder; Color: word);

Тут X, Y - координати точки; Color - колір точки.

Процедура Line. Викреслює лінію з вказаними координатами початку і
кінця.

Procedure Line (X1, Y1, X2, Y2: Integer);

Тут X1 .. Y1 - координати початку (X1, Y1) і кінця (X2, Y2) лінії. лінія
викреслюється поточному стилем і поточним кольором.

Процедура SetLineStyle. Встановлює новий стиль викреслюють ліній.

Procedure SetLineStyle (Type, Pattern, Thick: Word);

Тут Type, Pattern, Thick - відповідно тип, зразок і товщина
лінії. Тип лінії може бути створений за допомогою однієї з наступних констант:

Const

SolidLn = 0; (Суцільна лінія)

DottedLn = 1; (Точкова лінія)

CenterLn = 2; (Штрих-пунктирна лінія)

DashedLn = 3; (Пунктирна лінія)

UserBitLn = 4; (Візерунок лінії визначається користувачем)

Питання для контролю вивченого матеріалу:

1. Яким чином будуються точки?

2. Яким чином будуються лінії?

Література:

Меженний О.А.Turbo Pascal: М: Издательский дом «Вильямс», 2006. – 336 с., стор. 217-222

 

Урок № 45

(згідно робочої навчальної програми)







©2015 arhivinfo.ru Все права принадлежат авторам размещенных материалов.