Информатика -продвинутый курс




РАБОТА С ГРАФИКОЙ - часть 2


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

uses graph; var gd, gm, errorcod: integer;

begin

gd:=detect; initgraph(gd,gm,");

errorcod'=graphresult;

if errorcod <>grok then

begin

writeln('ошибка графики');

writeln(grapherrormsg(errorcod));

halt

end;

Процедура Halt останавливает выполнение программы и возвращает управление операционной системе.

Для формирования палитры используется система смешения красного, зеленого и синего цветов и изменения яркости луча. Цвет задается номером из списка цветов палитры в интервале 0 .. 15.

Процедуры sе1со1ог(<цвет>) и setbkcolor(<цвет>) устанавливают текущий цвет рисунка и цвет фона. При инициализации графики по умолчанию устанавливается черный фон и белый цвет рисунка.

В табл. 3.2 указаны основные процедуры для модуля Graph, применяющиеся для построения простейших геометрических примитивов.

Координаты точек воспринимаются в «экранной» системе координат, в которой начало - верхний левый угол экрана, ось «х» направлена вниз, ось «у» -направо. Максимальные значения координат определяются разрешимостью экрана (см. табл. 3.1).

Первый аргумент процедуры setlinestyle(a,b,t) а - стиль линии второй параметр b -«образец» - имеет значение 4, если а=4, в остальных случаях b=0; третий параметр t -толщина линии - может иметь значение 1 (нормальная толщина) или 3 (жирная линия).

Таблица 3.2

 Основные процедуры модуля Graph

Заголовок процедуры

Геометрический смысл

putpixel(x,y,c)

Построить точку (х,у) цветом с

setlinestyle(a,b,t)

Установить стиль, образей и толщину линий

line(xl,yl,x2,y2)

Соединить две точки отрезком

rectangle(xl,yl.x2.y2)

Построить прямоугольник с заданными концами диагонали и

сторонами, параллельными осям координат

circle(x,y,r)

Построить окружность с центром (х,у) и радиусом г

arc(x,y,a,b,r)

Построить дугу окружности: a,b - начальный и конечный угол в

Градусах

ellipse(x,y,a,b,rx,ry)

Построить эллиптическую дугу: rx, rу - полуоси эллипса

setfillstyle(t,c)

Установить стиль закраски и ее цвет

fillellipse(x,y,rx,ry)

Построить закрашенный эллипс, используя цвет рисунка

floodfill(x,y,cg)

Закрасить фигуру до границы с цветом cg; (x,y) - внутренняя

точка фигуры

bar(xl,yl,x2,y2)

Построить столбец, используя тип и цвет закраски

pieslice(x,y,a,b.r)

Построить и закрасить сектор круга

sector(x,y.a,b,rx,ry)

Построить и закрасить эллиптический сектор

settextsiyle(f,n,d)

Установить шрифт, направление вывода и размер символа текста '

outtextxy(x,y,st)

Вывести строку st, начиная с точки (х,у)

outtext(st)

Вывести строку, начиная с точки расположения текущего указателя

<


Содержание  Назад  Вперед