Работа с изображениями.

Читайте также:

Определение. Палитрой называется упорядоченный набор цветов, доступных в данном графическом режиме.

Определение. Тип Word - целое число от 0 до 65535.

Процедура SetColor - устанавливает текущий цвет, взятый из палитры.
Общий вид:

SetColor(Color);

Color имеет тип word; Пример:

...SetColor(2);...SetColor(RED);...

Таблица цветов. 0 - Black
1 - Blue
2 - Green
3 - Cyan - бирюзовый
4 - Red
5 - Magenta - фиолетовый
6 - Brown
7 - LightGray - светло-серый
8 - DarkGray - темно-серый
9 - LightBlue
10 - LightGreen
11 - LightCyan
12 - LightRed
13 - LightMagenta
14 - Yellow
15 - White
128 - Blink - мерцание

Функция GetColor - возвращает код текущего цвета - значение типа Word.
Пример.

... Var I:word;...I:=GetColor;...

Функция GetMaxColor - возвращает наибольший код цвета, значение типа Word, который может быть передан процедуре SetColor в качестве параметра.

Процедура SetBkColor - устанавливает цвет фона из палитры. Устанавливается для всего экрана.
Общий вид:

SetBkColor(Color); Color - Значение типа Word - новый цвет фона.

Пример.

SetBkColor(RED);илиSetBkColor(4);

Функция GetBkColor - возвращает значение типа Word - код используемого фона.

Процедура SetRGBPalette - изменяет компоненты палитры при использовании драйверов VGA и IBM 8514.
Общий вид:

SetRGBPalette(ColNum,RedVal, GreenVal, BlueVal);

ColNum - код цвета из палитры.
RedVal, GreenVal, BlueVal - определяют интенсивность соответственно красной, зеленой и синей составляющей для цвета с номером ColNum. ColNum,RedVal, GreenVal, BlueVal - значения типа Integer.
Для драйвера IBM 8514 ColNum может изменяться в пределах от 0 до 255, для VGA от 0 до 15.

Процедура SetFillStyle - определяет шаблон и цвет заполнения.
Общий вид:

SetFillStyle(Pattern,Color);

Pattern - шаблон заполнения, Color - цвет заполнения

Шаблоны заполнения:

Константа	код	заполнение
EmptyFill		Сплошное заполнение цветом фона(без узора)
SolidFill		Сплошное заполнение текущим цветом, который устанавливается процедурой SetColor.
LineFill
LtSlashFill
SlashFill
BkSlashFill
LtBkSlashFill
HatchFill
XhatchFill
InterleaveFill
WideDotFill
CloseDotFill
UserFill		Шаблон заполнения,определенный пользователем.

По умолчанию используются константа SolidFill и цвет с максимальным номером из текущей палитры. Шаблон и цвет, определенные процедурой SetFillStyle, применяются всеми процедурами и функциями, в которых используется операция заполнения.

Функции GetX и GetY - возвращают координаты по горизонтали (Х) и вертикали (Y) указателя текущей позиции. Координаты GetX и GetY отсчитываются от левого верхнего угла экрана (активного окна), начиная с нуля.
Пример.

... Var x,y: integer;...x:=GetX;y:=GetY;...

Функции GetMaxX и GetMaxY - возвращают текущие значения (типа Integer) разрешения, т.е. количество точек (пикселей) по осям Х и Y, эти значения зависят от выбранного драйвера и разрешения.

Процедура MoveTo - перемещает указатель текущей позиции в точку с заданными координатами.
Общий вид:

MoveTo(x,y);

x и y - координаты точки на экране, куда будет перемещен указатель.
Пример.

...MoveTo(10,30);...

Процедура MoveRel - перемещает указатель на заданное расстояние, определяемое приращением координат Х и Y, относительно его текущего местоположения.
Общий вид:

MoveRel(Dx,Dy);

Пример, пусть указатель находится в точке (10,44).

...MoveRel(5,8);(*переместит указатель в точку (15,52)*)...MoveRel(-10,-2):(*переместит указатель из тоски (15,52) в точку (5,50)*)...

Процедура Line - отображает прямую линию между двумя точками, координаты которых заданы в качестве параметров.
Общий вид:

Line(x1,y1,x2,y2);

x1,x2,y1,y2 имеют тип Integer.
Пример.

Var x1,x2,y1,y2: integer;...Line(0,0,50,67)...x1:=56;y1:=78;x2:=1,y2:=100; Line(x1,y1,x2,y2);:...

Процедура LineTo - проводит прямую от текущего положения указателя до точки заданной координатами.
Общий вид:

LineTo(X,Y);

X иY - координаты точки.

Процедура LineRel - отображает прямую от текущей позиции и до точки, координаты которой получены приращением по Х и У.
Общий вид:

LineRel(Dx,Dy);

Dx,Dy - приращения по Х и Y,имеют тип Integer.
Пример, пусть указатель находится в точке (45,17).

...LineRel(40,40);(*проведет прямую из точки с координатами (45,17) до точки с координатами (85,57)*)...

Функция GetPixel - возвращает значение типа Word, соответствующее цвету пикселя, координаты которого (X,Y).
Общий вид:

GetPixel(X,Y);

Пример.

... Var I:Word;...I:=GetPixel(45,45);...

Процедура PutPixel - отображает точку в заданной позиции и заданным цветом
Общий вид:

PutPixel(x,y,color);

X,Y - координаты точки (типа Integer), Color - ее цвет (типа Word).
Пример.

...PutPixel(23,45,4);...

Процедура Circle - вычерчивает окружность.
Общий вид:

Circle(x,y,Rad);

X,Y - координата точки, Rad - радиус окружности в пикселях по горизонтали.
Пример:

...Circle(45,67,50);...

Процедура Ellipse - вычерчивает эллипс.
Общий вид:

Ellipse(X,Y,BAngle,Eangle,XRad,YRad);

X,Y - координаты центра, Bangle и Eangle - начальный и конечный углы дуги (в радианах!), XRad,Yrad - горизонтальный и вертикальных радиус эллипса.
Пример.

...Ellipse(200,200,50,56,30,20);...

Дата добавления: 2014-12-19; просмотров: 80 | Поможем написать вашу работу | Нарушение авторских прав

lektsii.net - Лекции.Нет - 2014-2025 год. (0.008 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав