Процедуры графического режима и их параметры

End.

Readln

Begin

Writeln(‘ Работаем в графическом режиме‘);

Readln;

Device:=0;

Initgraph(device, mode, ‘c:BPBGI’);

Circle(100,80,50);

Readln;

Closegraph;

Writeln(‘Мы снова в текстовом режиме‘);

Пояснения: Перед использованием процедуры Initgraph необходимо создать две переменные величины типа integer. Первая переменная под именем device означает типвидеоадаптера, стоящего в компьютере, на котором работаем; вторая переменная под именем mode означает номер графического режима.

Прежде, чем перейти к знакомству с процедурами графического режима, будем считать, что наш экран разделен на 640 пикселей в ширину и 480 пикселей в высоту. Исходя из этого, мы будем писать программы и задавать параметры процедур, используемых в графике. Нужно отметить, что система координат в компьютере отличается от той, к которой мы привыкли (пояснить).

Putpixel (x,y) – процедура для рисования точки, где x - горизонтальная координата точки, y – вертикальная.

Rectangle () - процедура для рисования прямоугольника, где - координаты одного угла прямоугольника, - координаты противоположного угла.

Line() – процедура для рисования отрезка прямой, где - координаты начальной точки отрезка, - координаты конечной точки.

Circle(x,y,R)- процедура для рисования окружности, где x – горизонтальная координата центра окружности, y – вертикальная, R – радиус.

Ellipse(x,y,0,360,) – процедура для рисования эллипса, где x- горизонтальная координата центра эллипса, y – вертикальная координата, - радиус по горизонтали, - радиус по вертикали.

Cleardevice – очистка экрана.

Модуль Graph позволяет использовать 16 цветов. В среде Паскаль они имеют нумерацию от 0 до 15.

	black	черный
	blue	синий
	green	зеленый
	cyan	голубой
	red	красный
	magenta	фиолетовый
	brown	коричневый
	lightgray	светло-серый
	darkgray	темно-серый
	lightblue	ярко-синий
	lightgreen	ярко-зеленый
	lighcyan	ярко-голубой
	lightred	розовый
	lightmagenta	малиновый
	yellow	желтый
	white	белый

Рассмотрим программу, которая рисует точку, окружность, прямоугольник и отрезок прямой. (рисунок)

Uses graph;

Var device,mode:integer;

Дата добавления: 2014-01-14