3. Рисуем простейшие фигуры

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

Попробуем нарисовать точку и прямоугольник. Пусть мы хотим их видеть в следующем месте экрана:

Для этого мы пишем обращения к двум процедурам:

Для точки-PutPixel(14,6, Yellow)

Для прямоугольника-Rectangle(4,2,16,10)

Как видим, при обращении к процедуре PutPixel в скобках нужно указывать три элемента, у Rectangle - четыре. Будем называть элементы, разделенные запятыми внутри скобок, параметрамипроцедур.

Смысл параметров процедур PutPixel и Rectangle ясен из рисунка. В PutPixel первый параметр - горизонтальная координата точки, второй - вертикальная, третий - цвет точки (желтый). В Rectangle первая пара параметров - координаты любого из углов прямоугольника, вторая пара - координаты противоположного ему угла (только не соседнего). В каждой паре первой идет горизонтальная координата, второй - вертикальная. Цвет прямоугольника задается в другой процедуре, о которой разговор позже.

Модуль Graph позволяет удобно использовать всего лишь 16 цветов. Вот они:

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	Белый

Стандартный русский перевод цвета в этой таблице не всегда точен. Например, LightMagenta только с большой натяжкой можно назвать малиновым цветом.

В обращениях к процедурам, имеющим дело с цветом, вместо английского названия цвета можно писать соответствующее число. Например, вместо PutPixel(14,6, Yellow)можно написатьPutPixel(14,6, 14).

Вшколе вы привыкли к такой системе координат:

Вкомпьютере же применяется такая:

Как видите, ось у направлена вниз. Это не очень привычно. Если вас это раздражает, то в 2.2 вам будет предложено исправить ситуацию.

Напишем программу, которая рисует точку, прямоугольник, окружность и отрезок прямой так, как это показано на рисунке:

USESGraph;

VARDevice, Mode: Integer;

BEGIN

Device:=0;

InitGraph(Device, Mode, ’<путь к графическим драйверам>’);

PutPixel(50,100,White);

Rectangle(150,150,50,200); {правый верхний и левый нижний углы}

Circle(200,100,50); {окружность}

Line(100,50,250,150); {отрезок прямой}

ReadLn;

CloseGraph

END.

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

Окружностьможно построить, если известно положение центра и радиус. Окружность рисуется процедуройCircle, первые два параметра которой - координаты центра, третий - радиус.

Попробуем теперь нарисовать эллипсс центром в точкех=200,у=150, вот такой:

Это выполнит процедура Ellipse. Вот ее вызов -Ellipse(200,150,0,360,100,40).Если вы хотите нарисовать не полный эллипс, а только часть его, вместо 0 укажите начальный угол дуги эллипса, скажем 90, а вместо 360 - конечный угол, скажем 180.

Процедура ClearDeviceстирает все с экрана в графическом режиме.

Задание 67:Нарисуйте снеговика: