Студопедия

КАТЕГОРИИ:


Архитектура-(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)

Построение дуг, эллипсов и окружностей




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

Процедура Rectangle(X1,Y1,X2,Y2:integer); строит изображение прямоугольника на плоскости. Здесь X1,Y1 – координаты левого верхнего угла, X2,Y2 – координаты правого нижнего угла прямоугольника. При этом используется текущий цвет SetColor и стиль линии SetLineStyle. Область внутри прямоугольника не закрашена и совпадает по цвету с фоном.

Процедура Bar(X1,Y1,X2,Y2:integer); позволяет строить более эффектные прямоугольники. Она рисует прямоугольник, внутренняя область которого залита по текущему шаблону. Обычно используется в деловой графике для построения столбиковых диаграмм, а также для “закраски” графического окна, чтобы фон графического окна не сливался с общим фоном экрана.

Рассмотрим, как производить "заливку" замкнутых областей экрана с помощью различных узоров, т.е. как выбрать узор (шаблон) и цвет заполнения фигуры. Комбинацию узор-цвет принято называть стилем заполнения.

Процедура SetFillStyle(<шаблон>:word; <цвет>:word); устанавливает шаблон и цвет заполнения замкнутой фигуры.

Таблица 4. Константы шаблонов закраски

Константа Значение Описание узора
EmptyFill SolidFill LineFill LtSlashFill SlashFill BkSlashFill LtBkSlashFill HatchFill XhatchFill InterleaveFill WideDotFill CloseDotFill UserFill   Закраска области фоновым цветом Сплошная закраска области текущим цветом Закраска линиями – Закраска линиями /// Закраска жирными линиями /// Закраска жирными линиями \\\ Закраска линиями \\\ Закраска редкой штриховкой Закраска частой штриховкой (в обоих направлениях) Закраска прерывистой линией Закраска линией из редких точек Закраска линией из частых точек Закраска определяемая программистом

Процедура FloodFill(X,Y:integer; Border:word); заполняет ограниченную область текущим цветом и стилем заполнения (SetFillStyle). Граница закрашиваемой области высвечивается цветом, заданным в Border.

Если точка (X,Y) находится внутри области, то эта область закрашивается, если же она расположена вне области, то заполняется внешняя часть области.

Процедура Arc(X,Y:integer; a1, a2,R:word); строит дугу. Здесь X,Y – центр окружности дуги, a1, a2 – начальный и конечный углы, отсчитываемые от горизонтальной оси против часовой стрелки, R – радиус. Если a1=00, а a2=3600, то вычерчивается полная окружность.

Процедура Ellipse(X,Y:integer; a1,a2,Rx,Ry:word); предназначена для построения эллиптических дуг. Здесь X,Y – центр эллипса, a1, a2 – начальный и конечный углы, отсчитываемые от горизонтальной оси против часовой стрелки, и Ry – горизонтальная и вертикальная полуоси. Если a1=00, а a2=3600, то вычерчивается полный эллипс.

Процедура FillEllipse(X,Y:integer; Rx,Ry:word); строит полный закрашенный эллипс.

Процедура Circle(X,Y:integer; R:word); выводит на экран изображение окружности с центром X,Y и радиусом R. Окружность рисуется цветом, заданным SetColor.

Процедура PieSlice(X,Y:integer; a1,a2,R:word); выводит на экран изображение закрашенного сектора круга, используя в качестве центра круга точку X,Y, начального угла a1, конечного угла a2 и радиуса R. Контур сектора высвечивается текущим цветом. При заполнении сектора используются шаблон и цвет, установленные процедурой SetFillStyle. Если a1=00, а a2=3600 то на экран выводится закрашенная окружность.

Процедура Sector(X,Y:integer; a1, a2,Rx,Ry:word); строит закрашенный сектор эллипса.




Поделиться с друзьями:


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


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



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




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