Студопедия
Главная страница | Контакты | Случайная страница

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Построение заполненных фигур

Читайте также:
  1. I Часто ли я чувствую себя в изоляции от людей, часто ли я боюсь людей, в особенности фигур, наделенных властью, автрритетом?
  2. Бусины Чехия 131-50-021 под жемчуг фигурн.
  3. ВИ 6», исполненная после 3-х шагов фигуры «Правый поворот» (The V.6).
  4. Вычисление площадей плоских фигур с помощью определенного интеграла. Примеры.
  5. Вычисление площадей плоских фигур.
  6. Геометрические фигуры, окружающие тело
  7. Глава 7. Построение стратегии
  8. Динамическое построение событий
  9. Женские фигурки
  10. Задание 1. Построение диаграмм.

 

 

Ряд графических процедур выполняет построение заполненных фигур - фигур с замкнутым контуром, автоматически заполняемых сразу после построения. По умолчанию заполнение производится сплошным белым цветом. Цвет и стиль (орнамент) заполнения можно устанавливать из стандартного набора BGI или определять самим.

 


SetFillStyle(P, N); - процедура установки орнамента P=0, 1,..., 12 и

цвета с номером "N" для заполняемых фигур.

 

P = 0 - сплошное заполнение цветом фона, при этом значение "N" игнорируется,

P = 1 - сплошное заполнение цветом с номером "N",

P = 2... 11 - стандартный набор орнаментов BGI,

P = 12 - орнамент и цвет определяет пользователь.

 


SetFillPattern(PP, N); - процедура установки орнамента пользователя PP

и цвета с номером "N" для заполняемых фигур.

 

Параметр PP имеет тип FillPatternType или array [1.. 8] of byte. Байт состоит из восьми битов и соответствует ряду из 8 пикселов, т. е. параметр РР определяет элемент орнамента размером 8*8 пикселов (восемь рядов по восемь пикселов). Если бит равен 1, то пиксел высвечивается заданным цветом, если бит равен 0 - текущим цветом фона.

 

Пример орнамента в виде буквы Y:

 


№ элемент двоичные шестнадцатеричные

Байта орнамента числа числа

 


1 1 0 0 0 0 0 0 1 $81

C3

3 0 1 1 0 0 1 1 0 $66

C

5 0 0 0 1 1 0 0 0 $18

6 0 0 0 1 1 0 0 0 $18

7 0 0 0 1 1 0 0 0 $18

8 0 0 0 1 1 0 0 0 $18

Шестнадцатеричные цифры соответствуют двоичным тетрадам цифр:

 

0000 - 0 0100 - 4 1000 - 8 1100 - С

0001 - 1 0101 - 5 1001 - 9 1101 - D

0010 - 2 0110 - 6 1010 - A 1110 - E

0011 - 3 0111 - 7 1011 - B 1111 - F

 

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

 

Орнамент удобно задавать, используя переменные с начальным значением (типизированные константы), например:

{оператор описания:}

Const Bukva_Y: FillPatternType=($81,$C3,$66,$3C,$18,$18,$18,$18);

 

{оператор выполнения:} SetFillPattern(Bukva_Y, 4);

 

Можно добавлять один орнамент к другому используя логические операции, например, A и B - исходные орнаменты, Z - результирующий орнамент. Тогда:

Z:= A and B; - орнамент из совпадающих единичных частей исходных орнаментов,

Z:= A or B; - орнамент с добавлением единичных частей исходных орнаментов,

Z:= A xor B; - орнамент из несовпадающих единичных частей исходных орнаментов,

Z:= not A; - орнамент инверсный (обратный) к исходному орнаменту.

Z:= A xor A; - обнуление, Z:= A xor (not A); - сплошное заполнение орнамента.

 

Приведем процедуры построения заполненных установленным орнаментом фигур. Граница заполняемых фигур рисуется текущим цветом для линий.

 


Bar(X1, Y1, X2, Y2); - построить заполненный прямоугольник с заданными

координатами левого верхнего (X1, Y1) и правого

нижнего (X2, Y2) углов. Аналог процедуры: Rectangle(X1, Y1, X2, Y2);.

 


Bar3d(X1, Y1, X2, Y2, d, t); -построить параллелепипед с заполненной

передней гранью. Координаты углов: (X1, Y1), (X2, Y2), глубина "d". Переменная "t" типа boolean задает вывод верхней грани. При t=TopOn (true) верхняя грань показывается, при t=TopOff (false) - нет.

 


FillEllipse(X, Y, RX, RY); - построить заполненный эллипс с центром в

точке (X, Y) и радиусами (полуосями):

RX - по горизонтали, RY - по вертикали.

Sector(X, Y, A1, A2, RX, RY); - построить заполненный сектор эллипса.

A1 и A2 - начальный и конечный углы (в градусах), отсчитываемые против часовой стрелки относительно направления оси Х. Аналог процедуры: Ellipse(X, Y, A1, A2, RX, RY); строит сектор эллипса без автоматического заполнения.

 


PieSlice(X, Y, A1, A2, R); - построить заполненный сектор круга с

центром в точке (X, Y) и радиусом R. Аналог процедуры: Arc(X, Y, A1, A2, R); строит дугу окружности.

 


FillPoly(N, M); - заполнить произвольную плоскую фигуру с границей,

описанной массивом точек. N - число точек границы,

М - параметр - переменная типа PointType, определяемая в модуле Graph в виде:

TYPE PointType = Record x, y: Integer End; В программе массив можно описать операторами: Const N=100; Var M: array[1..N] of PointType;

Присвоение значений можно провести в цикле:

For i:=1 to 3 do begin M[i].x:=random(95); M[i].y:=random(95) end;

Приведем пример программы, выводящей два прямоугольника с орнаментами пользователя (bukva_Y и Red_50), а затем демонстрирующей набор стандартных орнаментов на передней грани параллелепипедов:

 




Дата добавления: 2015-09-10; просмотров: 92 | Поможем написать вашу работу | Нарушение авторских прав

Практическое задание N 1. 26 | Описание функций и процедур | Program NP_1; | Рекурсивные функции и процедуры | Разработка модулей | Практическое задание N 1. 34 | Практическое задание N 1. 36 | TextBackGround(blue); ClrScr; TextColor(14); | Практическое задание N 1. 42 | Практическое задание N 1. 45 |


lektsii.net - Лекции.Нет - 2014-2025 год. (0.007 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав