елементів зображення, що задають третій вимір тривимірного контуру. Якщо змінна, зазначена як параметр «вершина», приймає істинне значення (True), то для паралелепіпеда малюється тривимірна вершина, інакше — вершина не малюється.

Circle(X, Ydnteger;радіус: word) - процедура малює окружність поточним кольором. Точка (X, Y) - центр окружності, а «радіус» — її радіус.

ClearDevise - процедура очищує поточний графічний екран і підго-товлює його для виведення даних.

ClearViewport - процедура очищує поточне вікно.

CloseGraph - процедура припиняє роботу графічної системи (закриття графіки) і повертає монітор до текстового режиму.

DetectGraph(Var драйвер, режим: integer) - процедура перевіряє наявність відповідних апаратних засобів і визначає, який графічний режим і драйвер варто використовувати.

Ellipse(X,Y:integer; поч_кут, кін_кym:word; paдX,paдY:word) - процедура малює еліптичну дугу, використовуючи (X, Y), як точку центра і «радХ», «padY» - як радіуси на горизонтальній і вертикальній осях. Дуга еліпса малюється від початкового кута (параметр «почкут») до кінцевого кута (параметр «кін_кут») поточним кольором.

FillEllipse(X, Y:integer;Xpaдiyc, Ypaдiyc:word) - процедура вичерчує зафарбований еліпс, використовуючи точку з координатами (X, Y), як центр, а «Храдіус» і «Ypaдiyc» - у якості радіусів на горизонтальній та вертикальній осях. Контур еліпса креслиться кольором і типом лінії, що встановлені процедурами SetColor і SetLineStyle , тип і колір зафарбування встановлюється за допомогою процедури SetFillStyle.

FloodFill(X,Y,границя:word) - процедура заповнює замкнену область, використовуючи поточний заповнювач, заданий процедурою SetFillStyle. Точка (X,Y) є внутрішньою точкою області, що зафарбовується. Заповнюється область, обмежена лінією, що має колір, визначений параметром «границя». Якщо точка (X,Y) знаходиться усередині замкненої області, то заповнюється внутрішня область. Якщо ця точка знаходиться поза замкненої області, то заповнюється зовнішня частина.

GetBkColor: word - функція повертає поточне значення кольору тла (у діапазоні 0 - 15), встановлене процедурою SetBkColor.

GetCohr: word - функція повертає поточне значення основного кольору малювання (у діапазоні 0-15), встановлене раніше процедурою SetColor.

GetPixel(X,Y:mteger): word - функція повертає значення (колір) елемента зображення в точці (X, Y).

GetX: integer - функція повертає Х-координату поточного СР.

GetY: integer - функція повертає Y-координату поточного СР.

InitGraph - процедура ініціалізує графічну систему і переводить апаратну частину в графічний режим.

L4ne(Xl, Yl, X2, Y2 : integer) - процедура вичерчує пряму лінію (товщина і тип якої встановлений процедурою SetLineStyle, колір - процедурою SetColor) із крапки (X1, Y1)y крапку (Х2, Y2).

LineRel(Dx,Dy) - процедура вичерчує пряму лінію з точки поточного СР в точку, задану відносною відстанню (Dx, Dy) від поточного покажчика.

UneTo(X,Y: integer) - процедура малює пряму лінію з точки, у якій знаходиться поточний покажчик СР, у точку з координатами (X, Y).

MoveRel(Dx, Dy : integer) - процедура переміщує покажчик СР з поточної точки у точку, задану відносною відстанню (Dx, Dy).

MoveTo(X, Y: integer) - процедура переміщує поточний покажчик СР у точку з координатами (X, Y).

OutText (рядок: string) - процедура виводить текст «рядка» на монітор, починаючи з точки розташування покажчика СР.

OutTextXY(X, Y: integer; текст_рядок: string) - процедура виводить текст, що міститься у «текст_рядок», починаючи з точки, заданої координатами (X, Y). Якщо рядок занадто довгий і виходить за межі екрана чи поточної області перегляду, то він усікається.

PieSlice (X, Y: integer; нач_кут, кін_кут R: word) - процедура викреслює і заповнює поточним кольором сектор кола радіусом R. Точка (X, Y) -центр кола, а сектор малюється від початкового до кінцевого кута. Тип і колір зафарбування попередньо задається процедурою

Добавить отзыв
ВСЕ ОТЗЫВЫ О КНИГЕ В ИЗБРАННОЕ

0

Вы можете отметить интересные вам фрагменты текста, которые будут доступны по уникальной ссылке в адресной строке браузера.

Отметить Добавить цитату