Курсовая работа: Побудова динамічної графіки

Procedure DrawPoly(N: Word; var Points)

Тут N - кількість точок зламу, включаючи обидві крайні крапки; Points - змінна типа PointType, що містить координати точок зламу.

Координати точок зламу задаються парою значень типа Word: перше визначає горизонтальну, друге - вертикальну координати. Для них можна використовувати наступний певний в модулі тип:

type

PointType = record

х, у : Word

end;

· Дуги, кола, еліпси

Процедура Circle.

Викреслює коло.

Заголовок:

Procedure Circle(X,Y: Integer; R: Word);

Тут X, Y- координати центру; R - радіус в пікселях.

Коло виводиться поточним кольором. Товщина лінії встановлюється поточним стилем, вид лінії завжди SolidLn (суцільна). Процедура викреслює правильне коло з урахуванням зміни лінійного розміру радіусу залежно від його напряму щодо сторін графічного екрану, тобто з урахуванням коефіцієнта GetAspectRatio. У зв'язку з цим параметр R визначає кількість пікселів в горизонтальному напрямі.

Процедура Arc.

Креслить дугу кола.

Заголовок:

Procedure Arc(X,Y: Integer; BegA,EndA,R: Word);

Тут X, У - координати центру; BegA, EndA - відповідно початковий і кінцевий кути дуги; R - радіус.

Кути відлічуються проти годинникової стрілки і вказуються в градусах. Нульовий кут відповідає горизонтальному напряму вектора зліва направо. Якщо задати значення початкового кута 0 і кінцевого - 359, то буде виведено повне коло. При викреслюванні дуги кола використовуються ті ж угоди щодо ліній і радіусу, що і в процедурі Circle.

От як виглядають дві дуги: одна з кутами 0 і 90, друга 270 і 540 градусів (мал. 1):

Мал.1 Ілюстрація процедури Arc

Процедура GetArcCoords.

Повертає координати трьох крапок: центру, початку і кінця дуги.

Заголовок:

Procedure GetArcCoords(var Coords: ArcCoordsType);

Тут Coords - змінна типа ArcCoordsType, в якій процедура повертає координати центру, початку і кінця дуги.

Тип ArcCoordsType визначений в модулі Graph таким чином: