Основы алгоритмизации и программирования. Часть четвертая. Файловая система Turbo Pascal. Асламова В.С - 46 стр.

        5. Рисование отрезков прямых                                              Процедура FillPoly (NumPoints:word; Var PolyPoints) рисует контур мно-
    Процедура LineTo (X,Y:Integer) проводит линию из текущей позиции в         гоугольника и заполняет его орнаментом.
точку с координатами Х и Y, эта точка становится текущей.                         Процедура FloodFill (X,Y:Integer; Border:Word) заполняет заданным цве-
    Процедура LineRel(dX,dY:Integer) проводит линию из текущей позиции в       том и орнаментом область, ограниченную замкнутым контуром.
точку с заданными приращениями координат относительно текущих, эта точ-           Процедура FillEllipse (X,Y:Integer; XR, YR:Word) выводит на экран эл-
ка становится текущей.                                                         липс, заполненный заданным цветом и орнаментом.
    Процедура Line(X1,Y1,X2,Y2:Integer) проводит линию из точки с коор-           Процедура PieSlice (X,Y:Integer; StAngle, EndAngle, R:Word) выводит на
динатами X1,Y1 в точку X2,Y2.                                                  экран сектор круга, заполненный заданным орнаментом.
    Процедура SetLineStyle(LineStyle, Pattern, Thickness:word) задает тол-        Процедура Sector (X,Y:Integer; StAngle, EndAngle, XR, YR:Word) выводит
щину и тип линий.                                                              на экран сектор эллипса, заполненный заданным орнаментом.
    Процедура GetLineSettings (Var LineSettings:LineSettingsType ) возвра-        Процедура GetFillSettings (Var Filllnfo:FillSettingsType) возвращает те-
щает установленные параметры линии.                                            кущий орнамент и цвет заполнения.
    Процедура SetWriteMode(WriteMode: Integer) определяет способ нало-            Процедура GetFillPattern (Var FillPattern:FiilPatternType) возвращает те-
жения линий на ранее созданные изображения.                                    кущий орнамент заполнения.

        6. Рисование контуров фигур                                                    8. Вывод текста
    Процедура Rectangle (X1, Y1, X2, Y2:Integer) рисует контур прямоуголь-        Процедура OutText (TextString:String) выводит на экран текст.
ника.                                                                             Процедура OutTextXY (X,Y:Integer; TextString:String) выводит на экран
   Процедура DrawPoly (NumPoints:word; Var PolyPoints) рисует контур           текст, начиная с заданной позиции.
многоугольника.                                                                   Процедура SetTextStyle (Font, Direction, CharSize:Word) устанавливает
   Процедура Circle (X,Y:Integer; R:Word) выводит на экран окружность.         текущий шрифт, направление текста и размер шрифта.
   Процедура Агс (X,Y:lnteger; StAngle, endAngle, Radius:Word) выводит на         Процедура SetUserCharSize (MultX, DivX, MultY, DivY:Word) устанавли-
экран дугу окружности.                                                         вает коэффициенты, в соответствии с которыми будет изменяться размер
   Процедура Ellipse (X,Y:Integer; StAngle, EndAngle, XR, YR:Word) выво-       символа по каждой из осей.
дит на экран дугу эллипса.                                                        Функция TextWidth (str:String):Word возвращает длину строки в пиксе-
   Процедура GetArcCoords (Var ArcCoords:ArcCoordType) возвращает па-          лях.
раметры дуги окружности или эллипса.                                              Функция TextHeight (str:String):Word возвращает высоту строки в пиксе-
                                                                               лях.
       7. Формирование заполненных фигур
                                                                                  Процедура SetTextJustify (Horiz, Vert:Word) устанавливает способы вы-
   Процедура Bar (X1,Y1,X2,Y2:Integer) рисует прямоугольник, заполнен-
                                                                               равнивания выводимого текста.
ный заданным цветом и орнаментом.
                                                                                  Процедура GetTextSettings (Var TextInfo:TextSettingsType) возвращает ус-
   Процедура Bar3D (X1,Y1,X2,Y2:Integer;Depth:Word;Top:Boolean) рисует
                                                                               тановленные параметры шрифта.
параллелепипед, заполненный заданным цветом и орнаментом.
   Процедура SetFillStyle (Pattern, Color:Word ) задает стандартный орна-
мент и цвет заполнения фигур.
   Процедура SetFillPattern (Pattern:FillPatternType; Color:Word) задает не-
стандартный орнамент заполнения фигур.

                                    91                                                                             92