Використовують процедури:
1) Move To (x, y: integer) - переміщує поточний показчик СР в точку з координатами x, y;
2) Move Rel (dx, dy: integer) - переміщує СР на dx точок по горізонталі и на dy точок по вертікалі відносно последнего положення потокового показчик. Если dx, dy больше 0, то координати СР збільшуються; ЯКЩО менше 0 - зменшуються. p> Для визначення потокового розташування графічного курсору СР Використовують Функції:
GET X: integer;
GET Y: integer;
Які повертаються Значення потокової координат показчик.
Приклад 1: позіціонування графічного курсору та визначення его координат:
Uses GRAPH;
Var Driver, Mode: integer;
Begin
Driver: = Detect;
InitGraph (Drive, Mode,'');
If GraphResult <> 0 then
Begin
WriteLn ('помилка');
Halt (1);
End;
Move To (GetMax X div 2, GetMax Y div);
OutTextXY (GET X, GET Y, 'курсор по центру');
MoveRel (-GET X div 2,-GET Y div 2);
OutTextXY ('курсор переміщеній');
ReadLn;
CloseGraph;
End.
Встановлення кольору та стилю
1) процедура Set Color ( Color word), встановлює вимоги поточний колір для ліній та сімволів. Параметр Color позначає номер кольору від 0 до 15:
Таблиця 1
Black = 0
Light Gray = 7
Blue = 1
Darc Gray = 8
Green 2
Light Blue = 9
Cyan = 3
Light Green = 10
Red = 4
Light Cyan = 11
Magente = 5
Light Red = 12
Brown = 6
Light Magente = 13
Yellow = 14
White = 15
Blink = 128
2) процедура SetBKColor (Color: word); встановлює колір фону, Який візначається параметром Color .
3) процедура SetFillStyle ( Fill, Color: word); встановлює стиль (Тип и колір) Заповнення фрагментів зображення. p> геометричні побудова.
1) Відображення крапки:
У Модулі Graph для відображення точки Використовують процедуру:
PutPixel ( x , y : integer );
x , y - координата точки;
Color - ее колір (значення беруться Зі встановленої палітрі).
2) Відображення ліній:
а) Процедура:
Line (x1, y1, x2, y2: integer),
x1, y1, x2, y2 - координат та початкової и кінцевої точок Лінії. Лінія крісла потокової стилем и потокової Кольорах.
б) процедура: LineTo ( x, y: integer); будує лінію від точки поточного размещения показчик до точки зкоордінатамі (x, y).
в) процедура: LineRel ( dx , dy integer ), проводитиме відрізок від точки поточного размещения на величину заданого приросту.
г) процедура: SetLineStyle ( Type, Pattern, Thich: word); встановлює стиль відображення ліній, де параметри - це відповідно тип, шаблон и товщина Лінії. Тип Лінії задається константою з табліці 3:
Таблиця 3
Const
Значення
Характеристика
SolidLn
0
Безперервна
PottedLn
1
пунктирно
CenterLn
2
Штрих-пунктирні
DashedLn
3
штрихового
UserBitLn
4
Задана
Параметр Pattern Тільки для ліній типу UserBitLn и может прійматі Значення від 1 .. 65536, тоб 2 байти КОЖЕН біт (Із 16 біт слова) может прійматі значення 0 або 1 (Піксель НЕ світіться або світіться).
Таким чином параметр Pattern задає відрізок ліній, довжина 16 пікселів.
цею шаблон періодічно повторюється по всій довжіні...
