Одесский колледж компьютерных технологий “СЕРВЕР”

{связь координат первой и последней вершин} Points[6,1]: =Points[1,1];

Points[6,2]: =Points[1,2];

DrawPoly (6,Points); {построение многоугольника}

…

End.

Построение звёзд.

Координаты точки на окружности:

x = R cosαy = R sinα

Пятиугольная звезда: угол =180o/5=36 о

Вертикально – горизонтальное отношение.

GetAspectRatio(A,B) Возвращает два числа, позволяющие оценить отношение сторон графического экрана (А/В)

то есть Ky – это коэффициент для уравнивания Ry до Rx, так как

Rx=KyRy.

Поворот фигур.

Пусть точка с координатами (x,y) находится на некоторой фигуре. Определим её координаты после поворота фигуры на угол α.

•Центр поворота находится в центре координат.

Вэтом случае новые координаты точки (x,y) вычисляются по формуле:

x1 = x cosα − y sin αy1 = x sinα + y cosα

13

Одесский колледж компьютерных технологий “СЕРВЕР”

• Центр поворота имеет координаты (a,b)

В этом случае новые координаты точки (x,y) вычисляются по формуле:

x1 = a + (x − a)cosα − (y − b)sinαy1 = b + (x − a)sin α + (y − b)cosα

Вывод текста.

OutText (TextString) Выводит указанную строку.

OutTextXY(x,y,TextString) Выводит строку TextString,

начиная с точки с координатами x,y.

SetTextJustify (Horiz, Vert) Устанавливает стиль вырав-

нивания текста относительно точки, указанной в OutTextXY.

SetTextStyle(Font,Direction,CharSize) Устанавливает те-

кущий шрифт (Font), направление вывода (Direction) и размер текста (CharSize).

14