Основы применения вычислительной техники и программирование. Беспалов В.В. - 80 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

10.4.2. Цветовая шкала
Таблица 10.1
Цвет Код Цвет Код
Black – черный 0 DarkGray – темно-серый 8
Blue – синий 1 LightBlue – голубой 9
Green – зеле LightGreen – ярк ый ный 2 о-зелен 10
Gyan – бирюзовый ый 3 LightGyan – ярко-бирюзов 11
Red – красный ый 4 LightRed – ярко-красн 12
Magenta – малиновый вый 5 LightMagenta – ярко-малино 13
Brown – коричневый 6 Yellow – желтый 14
LightGray – светло-серый 7 White – белый 15
10.4.3. Вывод линии
з точек строятся линии (отрезки прямых). Это можно сделать
с пом
Line(x1,y1,x2,y2:integer);
Здесь
цедурой
SetColor(цвет:word); где цвет
0,1);
ий применяются еще две процедуры: LineTo
e
толщина линии, определяемая кон-
сли применяется один из стандарт-
И
ощью процедуры
x1,y1 – координаты начала, x2,y2 – координаты конца линии,
например
Line(1,1,600,1);
В процедуре
Line нет параметра для установки цвета. В этом
случае цвет задается про
из табл. 10.1.
Пример:
SetColor(Gyan);
Line(1,1,60
Для черчения лин
и
LineRel. Процедура
LineTo(x,y:int ger);
строит линию из точки текущего положения указателя в точку с коор-
динатами (x,y). Процедура
teger); LineRel(dx,dy:in
проводит линию от точки текущего расположения указателя (x, y) в точ-
ку (x + dx, y + dy).
Турбо Паскаль позволяет вычерчивать линии самого различного
стиля: тонкие, широкие, штриховые, пунктирные и т. д. Установка сти-
ля производится процедурой
SetLineStyle(a,b,c:word);
Здесь a устанавливает тип строки, возможные значения которого при-
ведены в табл. 10.2,
b – образец, с –
стантами, указанными в табл. 10.3. Е
81

Страницы