Графика в Турбо Паскале — страница 4

  • Просмотров 3041
  • Скачиваний 278
  • Размер файла 22
    Кб

выведена полная окружность. При вычерчивании дуги окружности используется те же соглашения относительно линии радиуса, что и в процедуре Circle. Процедура Ellipse. Вычерчивает эллипсную дугу. Заголовок: Procedure Ellipse(X, Y: Integer; BegA, EndA, Rx, RY: Word); Здесь X,Y – координаты центра; BegA, EndA – соответственно начальный и конечный углы дуги; RX, RY – горизонтальный и вертикальный радиусы эллипса в пикселях. При вычерчивании дуги эллипса используется те же

соглашения относительно линии, что и в процедуре Circle, ите же соглашения относительно углов, что и в процедуре Arc. Если радиусы согласовать с учетом масштабного коэффициента GetAspectRatio, будут вычерчена правильная окружность. 1.6 Краски, палитры, заполнения Процедура SetCOlor. Устанавливает текущий цвет для вводимых линий и символов. Заголовок: Procedure SetColor(Color: Word); Здесь Color – текущий цвет. Процедура SetBkColor. Устанавливает цвет фона.

Заголовок: Procedure SetBkColor (Color: Word); Здесь Color - цвет фона. В отличие от текстового режима, в котором цвет фона может быть только темного оттенка, в графическом режиме он может быть любым. Установка нового цвета фона, немедленно изменяет цвет графического экрана. Это означает, что нельзя создать изображение, два участка которого имели бы разный цвет фона. Для GGA-адаптера в режиме высокого разрешения установка цвета фона изменяет цвет

активных пикселей. Замечу, что после замены цвета фона на любой, отличный от 0 (Black) цвет. Вы не сможете более использовать цвет 0 как черный, он будет заменяться на цвет фона, т.к. процедуры модуля Graph интерпретируют цвет с номером 0 как цвет фона. Это означает, в частности, что Вы уже не сможете вернуть фону черный цвет! Если Ваш ПК оснащен цветным экраном, следующая программа продемонстрирует работу процедуры SetBkColor. Программа

выводит десять вложенных друг в друга прямоугольников, после чего циклически меняет цвет фона. Для выхода из программы достаточно нажать на любую клавишу. Процедура SetFillStyle. Устанавливает стиль (тип и цвет). Заголовок: Procedure SetFillStile(Fill, Color: Word); Здесь Fill – тип заполнения; Color – цвет заполнения. С помощью заполнения можно покрывать какие-либо фрагменты изображения периодически повторяющимся узором. Процедура FloodFill. Заполняет

произвольную замкнутую фигуру, используя текущий стиль заполнения(узор и цвет). Заголовок: Procedure FloodFill(X, Y: Integer; Border: Word); Здесь X, Y – координаты любой точки внутри замкнутой фигуры; Border – цвет граничной линии. Если фигура не замкнута, заполнение «разольется по всему экрану. 1.7. Сохранение и выдача изображений Функция ImageSize. Возвращает размер памяти в байтах, необходимый для размещения прямоугольного фрагмента изображения.