эллипса. пример построения эллипса, выведенного яркоголубым цветом:

SetColor(LightCyan);

Ellipse(100,100,0,360,30,50);

Обратите внимание, что фон внутри эллипса совпадает с фоном экрана. Чтобы создать закрашенный эллипс (в частности, закрашенный круг), используется специальная процедура

FillEllipse(x,y: integer; xR,yR: word);

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

SetFillStyle(wideDotFill, Green);

{установка стиля заполнения} SetColor(LightRed); {цвет для вычер-

чивания эллипса}

FillEllipse(300,150,50,50);

В этом фрагменте эллипс вычерчивается яркокрасной кривой и заполняется редкими точками зеленого цвета.

6.5 Стили

Возможные значения Color приведены в таблице.

Например, оператор

for i:=0 to 59 do PutPixel(i,0,Red);

выведет в первую строку экрана 60 красных точек.

133

Чтобы узнать цвет точки в конкретной позиции

экрана, используется функция

GetPixel(x,y:integer):word;

Из точек строятся линии (отрезки прямых). Это делает процедура Line(x1,y1,x2,y2), где x1 и y1 - координаты начала, x2 и y2 - координаты конца линии. В процедуре Line нет параметра для установки цвета. В этом и других аналогичных случаях цвет задается процедурой SetColor(Color), где Color - цвет, значение которого берется из табл. 7. Например,

SetColor(Cyan);

Line(1,1,600,1);

Для черчения линий применяются еще две проце-

дуры: LineTo и LineRel. Процедура LineTo(x,y)

строит линию из точки текущего указателя в точку с координатами x,y. Процедура LineRel(dx,dy) проводит линию от точки текущего расположения указателя в точку

(CPx+dx, Cpy+dy), где CPx и Cpy - текущие координаты

CP.

134

Можно вычерчивать линии самого различного стиля: тонкие, широкие, шриховые, пунктирные и т. д. Установка стиля производится процедурой

SetLineStyle (LineStyle : word; Pattern: word; Thickness: word);

Параметр LineStyle устанавливает стиль линии, возможные значения которого приведены в таблце; Pattern - образец, Thickness - толщина линии, определяемая константами, указанными в таблице. Если применяется один из стандартных стилей, значение Pattern

равно 0. Например:

SetLineStyle(DottedLn,0,NormWidth);

Line(1,1,600,1);

Если пользователь хочет активизировать свой собственный стиль, то значение LineStyle равно 4. В этом случае Pattern - двухбайтовое число.

Тип линий

135

Цвет закраски устанавливается с помощью

SetFillStyle.

Функция

SetFillStyle(pattern:word;color:word) опре-

деляет стиль заполнения. Пример использования:

SetFillStyle(1,3);

Значение pattern приведены в таблице и могут быть представлены константой или цифрой, color берется из шкалы цветов

136