Основы современных компьютерных технологий



              


Построение геометрических фигур - часть 2


Процедура вычерчивания окружности текущим цветом имеет следующий вид:

Circle(X,Y,Radius: word),

где Х, У - координаты центра окружности, a Radius - радиус. Для создания псевдообъемных фигур используются дуги. Их можно вычертить с помощью процедуры

Arc(X,Y:integer;StAngle,EndAngle,Radius:word),

где StAngle и EndAngle - начальный и конечный угол вырисовки. Цвет для вычерчивания устанавливается процедурой SetColor. Работа с различными типами кривых

389

требует информации о координатах последнего обращения к Arc. Ее можно получить, выполнив процедуру

GetArcCoords(VARArcCoords:ArcCoordsType),

где переменная ArcCoords принадлежит к стандартному типу

  • Туре
  • ArcCoordsType=Record
  • х, у: integer;
  • xStart.yStart: integer;
  • zEnd.yEnd: integer
  • End;
  • Процедура возвращает переменную, содержащую координаты центра X и У, начальную xStart, yStart и конечную xEnd, yEnd позиции указателя при выполнении последней команды Arc.

    Для построения эллиптических дуг предназначена процедура

    Ellipse(X, Y: integer; StAngle, EndAngle: word; xR, yR: word),

    где X, Y - центр эллипса, xR и yR - горизонтальная и вертикальная оси. Дуга эллипса вычерчивается от начального угла StAngle до конечного угла EndAngle текущим цветом. Чтобы создать закрашенный эллипс, используется процедура

    FillEllipse(X,Y:integer;xR,yR:word),

    где X, Y - центр эллипса, xR и yR - горизонтальная и вертикальная оси. Заполнитель устанавливается процедурами SetFillStyle или SetFillStyle.

    В программах часто требуется разделить окружность на сектора. Это можно сделать, используя процедуру

    PieSlince(X,Y:integer; StAngle, EndAngle, Radius:word),

    которая рисует и заполняет маской сектор круга. Контур сектора вычерчивается текущим цветом, а при закрашивании используется тип и цвет закраски, заданные процедурами SetFillStyle и SetFillPattern. Можно создать и заполнить сектор в эллипсе. Для этого используется процедура

    Sector(X,Y:integer; StAngle, EndAngle,xR,yR:word),

    где X,Y- центр; xR, yR - горизонтальный и вертикальный радиусы.


    Содержание  Назад  Вперед