Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Построение дуг и окружностей

Построение многоугольников

Построение прямоугольников

ПОСТРОЕНИЕ ГРАФИЧЕСКИХ ФИГУР

Цвет, стиль и толщина линии для вычерчивания берутся по умолчанию или устанавливаются соответственно процедурами SetColor и SetFillPattern, SetFillStyle (ниже).

Процедура вычерчивания одномерного прямоугольника:

Rectangle(Xl, Y1, Х2, Y2:integer),

где XI, Y1 — координаты левого верхнего угла,

Х2, Y2 — координаты правого нижнего угла прямоугольника. Область внутри прямоугольника не закрашена и совпадает по цвету с фоном.

Фрагмент 5. В качестве примера приведем фрагмент, который выводит на экран 100 вычерченных разным цветом динамически изменяющихся по высоте прямоугольников:

for I:= I to 100 do begin

SetColor(Green); {Установка цвета}

Rectangle(200,Random(300),250,300); {I-й прямоугольник}

Delay(50); {Задержка}

ClearDevice {Очистка экрана}

end;

 

Более эффектные для восприятия прямоугольники можно строить с помощью процедуры

Bar(xl,yl,x2,y2:integer), которая рисует закрашенный (SetFillStyle) столбец

 

Фрагмент 6. Пример использования:

SetFillStyle(1,3);

Bar(10,10,50,100);

Bar3D(xl, yl, x2, y2:integer; Depth: word; Top: boolean)

вычерчивает трехмерный закрашенный прямоугольник. Тип и цвет закраски – SetFillStyle. Depth – число пикселей, задающих глубину трехмерного контура, чаще Depth:= (X2-X1) DIV 4; параметр Тор определяет, строить над прямоугольником вершину (Тор:= True) или нет (Тор:= False).

Например:

SetFillStyle(1,3);

Bar3D(10,10,50,100,10,True);

DrawPoly(NumPointst: word; var PolyPoints)

Параметр PolyPoints является нетипизированным параметром, который содержит координаты каждого пересечения в многоугольнике. Параметр NumPoints задает число координат в PolyPoints. Необходимо помнить, что для вычерчивания замкнутой фигуры с N вершинами нужно передать при обращении к процедуре DrawPoly N+1 координату, где координата вершины с номером n будет равна координате вершины с номером 1.

Окружность:

Circle (X, Y, Radius: word);

где X и Y — координаты центра окружности,

Radius — ее радиус.

 

Пример вывода ярко-зеленой окружности с радиусом 50 пикселей и центром в точке 450,100:

SetColor(LightGreen);

Circle(450,100,50)

 

Дуга:

Arc (X,Y: integer; StAngle, EndAngle, Radius: word);

где X, Y — центр окружности,

StAngle и EndAngle начальный и конечный yгол в градусах,

Radius — радиус.

 

Пример:

SetColor(Red);

Arc(450,100,0,90,50);

 

Эллиптическая дуга:

Ellipse (X,Y:integer; StAngle,EndAngle:word; xR,yR:word);

где X, Y — центр эллипса в дисплейных координатах,

xR и yR — горизонтальная и вертикальная оси.

Фон внутри эллипса совпадает с фоном экрана.

 

Закрашенный эллипс

FillEllipse (X, Y:integer; xR, yR:word);

где X, Y — центр эллипса в дисплейных координатах,

xR и yR — горизонтальная и вертикальная оси.

Заполнитель устанавливается соответствующими процедурами (см.ранее).

 

 

Сектор:

PieSlice (X,Y:integer;StAngle,EndAngle,Radius:word);

точка X, Y — центр окружности,

сектор рисуется от начального угла StAngle до конечного угла EndAngle.

Контур сектора вычерчивается текущим цветом, а при закрашивании используются тип и цвет закраски, заданные процедурами SetFillStyle и SetFillPattern.

 

Сектор в эллипса

Sector(X, Y:integer; StAngle, EndAngle, xR, yR:word);

где X, Y — центр,

xR, yR — горизонтальный и вертикальный радиусы.

сектор вычерчивается от начального угла StAngle до конечного угла EndAngle текущим цветом и заполняется стилем, заданным процедурами SetFillStyle или SetFillPattern.

<== предыдущая лекция | следующая лекция ==>
Установка цвета и палитры | Работа с фрагментами изображения
Поделиться с друзьями:


Дата добавления: 2014-01-05; Просмотров: 238; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.009 сек.