Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 32 стр.

                                                                          32




                2.2.5 Рисование окружностей эллипсов и дуг

     Рисование окружности заданного радиуса R с центром, координаты
которого задаются переменными X и Y:
     Circle(X,Y,R); X, Y - переменные типа Integer, а R - типа Word.
     Координаты должны выбираться из диапазона:
     0 ≤ X ≤ GetMaxX;
     0 ≤ Y ≤ GetMaxY.
     Рисование эллипса:
     Ellipse(X, Y, A1, A2 RX, RY);
     X , Y - координаты центра, переменные типа Integer;
     A1, A2 - начальный и конечный углы эллипса в градусах (от 0 до 360);
     RX, RY - размеры горизонтальной и вертикальной полуосей эллипса;
     A1, A2, RX, RY - переменные типа Word.
     Для изображения полного эллипса А1 = 0, А2=360.
     Кроме того, для изображения дуг используется процедура:
     ARC(X, Y, A1, A2, R); Первые четыре параметра как при рисовании
эллипса, а R - радиус дуги, переменная типа Word.
     Процедура       GetArcCoords (Coords) позволяет определить координаты
центра, начала и конца дуги. Здесь Coords - переменная типа ArcCoordsType, в
которой после обращения к данной процедуре содержатся эти координаты.
     Тип ArcCoordsType определен в модуле Graph:
     Type
      ArcCoordType = record
                  X, Y : integer; { Координаты центра}
                  Xstart, Ystart : integer; { Координаты начала дуги}
                  Xend, Yend : integer; { Координаты конца дуги}
                         End;
       Совместное использование последних процедур позволяют вычерчивать
сопряжение прямых с помощью дуг.

               2.2.6 Рисование прямоугольников, многоугольников
                                и ломаных линий

     Для рисования прямоугольников используется процедура
     Rectangle(X1, Y1, X2, Y2);
X1, Y1, X2, Y2 - координаты верхнего левого и нижнего правого углов
прямоугольника, переменные типа Integer.
     Для рисования многоугольников с числом вершин не равным четырем,
используется процедура
     DrawPoly(K, KoorXY);
     Если необходимо нарисовать многоугольник на N вершин или замкнутую
ломаную линию, то необходимо задать параметр К = N+1 и задать координаты


                                                                          32