41.) Создание простейших графических изображений: многоугольники.

Rectangle (X1, Y1, X2, Y2 : Integer); ‑ процедура вычерчивания прямоугольника текущем цветом и стилем линий с координатами левого верхнего и правого нижнего углов;

42.) Создание простейших графических изображений: дуги, окружности, эллипсы.

Arc (X,Y : Integer; BegА, EndA, R : Word); ‑ процедура вычерчивает дугу окружности с центром в точке (X,Y) радиуса R, BegA, EndA - начальный и конечный углы дуги, которые отсчитываются против часовой стрелки и указываются в градусах, нулевой угол соответствует горизонтальному направлению вектора слева направо, если задать значения начального угла 0 и конечного 359, то будет выведена полная окружность;

Circle (X,Y : Integer; R : Word); ‑ процедура вычерчивания окружности с центром в точке с координатами X,Y заданного радиуса R, параметр R определяет количество пикселей в горизонтальном направлении;

Ellipse (X,Y : Integer; BegA, EndA, Rx, Ry : Word); ‑ процедура вычерчивает эллипсную дугу с центром в точке с координатами (X,Y), начиная с угла BegA и заканчивая - EndA, с горизонтальным и вертикальным радиусом Rx и Ry соответственно; при вычерчивании дуги используются текущие цвет и стиль линий, углы также отсчитываются против часовой стрелки в градусах.

43.) Работа в графическом видеорежиме: управление цветом изображения.

SetPalette (N : Word; Color : ShortInt); ‑ заменяет все фрагменты изображения, выполненные цветом палитры под номером N на новый цвет Color, цвет с индексом 0 соответствует цвету фона и также может изменяться с помощью данной процедуры;

SetAllPalette (var Palette); ‑ изменяет несколько цветов палитры, для корректной работы ей следует передать нетипизированный параметр, первый байт которого должен содержать длину палитры N, а остальные N байт - номера устанавливаемых цветов. Для определения текущего размера палитры используют результат, возвращаемый функцией GetPaletterSize : Integer;

GetDefaultPalette (var Palette : PaletteType); ‑ позволяет получить структуру палитры, устанавливаемую автоматически, возвращающую размер и цвета палитры;

SetColor (Color : Word); ‑ позволяет установить текущий цвет выводимых линий (константы модуля Graph соответствуют константам, определяющим цвет, модуля Crt), максимальное значение, которое можно использовать при обращении к этой процедуре возвращает функция GetMaxColor : Word;

GetColor : Word; ‑ функция определяет, каким цветом выводятся линии на экране,

Существует аналогичная группа команд, позволяющих установить цвет Color и определить текущий цвет фона, на котором выводятся символы. Это процедура