Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 80 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

79
EMPTYFILL=0;{фон, узоры отсутствуют}
SOLIDFILL=1;{сплошное заполнение}
LTSLASHFILL=3;{штриховка /////}
LTBKSLASHFILL=6;{штриховка \\\\\};
COLOR – код цвета заполнения (см. подраздел 11.1).
15. Процедура FLOODFILL – заполняет произвольную замкнутую фигуру,
используя текущий стиль заполнения (узор и цвет).
Заголовок процедуры:
PROCEDURE FLOODFILL(X,Y:INTEGER;BORDER:WORD); ,
где X, Y – координаты любой точки внутри замкнутой фигуры; BORDER – цвет
граничной линий (см. подраздел 11.1).
16. Процедура FILLELLYPS – обводит линией и заполняет эллипс.
Заголовок процедуры
:
PROCEDURE FILLELLYPS(X,Y,RX,RY:INTEGER); ,
где X, Y – координаты центра; RX, RY – горизонтальный и вертикальный ра-
диусы эллипса.
17. Процедура BAR – заполняет прямоугольную область экрана.
Заголовок процедуры:
PROCEDURE BAR(X1,Y1,X2,Y2:INTEGER); ,
где X1, Y1; X2, Y2 – соответственно координаты левого верхнего и правого
нижнего углов закрашиваемой области.
18. Процедура OUTTEXT – выводит текстовую строку, начиная с текущего
положения указателя.
Заголовок процедуры:
PROCEDURE OUTTEXT(TXT:STRING); ,
где TXT – выводимая строка.
19. Процедура OUTTEXTXY – выводит строку, начиная с заданного
места.
Заголовок процедуры:
PROCEDURE OUTTEXTXY(X,Y:INTEGER;TXT:STRING); ,
где X,Y – координаты точки начала вывода строки; TXT – выводимая строка.
20. Процедура SETTEXTSTYLE(FONT,DIRECT,SIZE:WORD); ,
где FONT – код шрифта. Задается с помощью одной из следующих констант,
например:
CONST
DEFAULTFONT=0;{точечный шрифт}
SMALLFONT=2;{уменьшенный шрифт}
SANSSERIFFONT=3;{прямой шрифт}
GOTHICFONT=4;{готический шрифт};

Страницы