|
|
Рисование геометрических фигурПостроение заполненных фигур
Ряд графических процедур выполняет построение заполненных фигур - фигур с замкнутым контуром, автоматически заполняемых сразу после построения. По умолчанию заполнение производится сплошным белым цветом. Цвет и стиль (орнамент) заполнения можно устанавливать из стандартного набора 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:
№ элемент двоичные шестнадцатеричные Байта орнамента числа числа
2 1 1 0 0 0 0 1 1 $C3
4 0 0 1 1 1 1 0 0 $3C 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 -00100 -41000 -81100 - С 0001 -10101 -51001 -91101 - D 0010 -20110 -61010 -A1110 -E 0011 -30111 -71011 -B1111 -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) и радиусами ( полуосями ) :
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), а затем демонстрирующей набор стандартных орнаментов на передней грани параллелепипедов:
Uses Graph; Сonst bukva_Y: FillPatternType=($81, $C3, $66, $3C, $18, $18, $18, $18); Red_50: FillPatternType=($AA, $55, $AA, $55, $AA, $55, $AA, $55); var i, x1, y1, x2, y2, Gd, Gm : integer; Begin Gd:= Detect; InitGraph(Gd, Gm, '_'); SetFillPattern(Red_50, Red);{ орнамент - 50% красных пикселов } Bar(250, 10, 350, 110); SetFillPattern(bukva_Y, Blue);{ орнамент - синяя буква "Y" } Bar(340, 30, 440, 130); { стандартный набор из 12 орнаментов BGI выводим цветом с номером "11" } for i:=0 to 11 do begin SetFillStyle(i, 11); if i<6 then begin x1:=90*i; y1:=150 end else begin x1:=90*(i-6); y1:=270 end; x2:=x1+70; y2:=y1+80; Bar3d(x1, y1, x2, y2, 10, TopOn) end; ReadLn; CloseGraph End. Заполняя не черный экран орнаментом Red_50, можно получить новые цвета фона. Выбранным из стандартных или определенным орнаментом можно заполнить любую замкнутую область с границей цвета "N" оператором
FloodFill(X, Y, N);
Заполнение начинает производится из точки X, Y и ограничивается при достижении границы цвета с номером "N". Например: Rectangle(x1, y1, x2, y2); FloodFill((x1+x2) div 2, (y1+y2) div 2, Red); Если область не замкнута или цвет границы не равен "N", то заполнение "разольется" по экрану.
Практическое задание N 1. 54
1. С использованием оператора цикла нарисовать на экране 12 одинаковых заполненных различными стандартными орнаментами фигур ( в 3 ряда по 4 фигуры). По нажатию клавиши должен меняться вариант фигуры: 1. 1 Прямоугольник, 2. 1 Эллипс, 1. 2 Параллелепипед. 2. 2 Круг. Выполнить задание с использованием процедур рисования фигур без автоматического заполнения, а затем заполнить их. 2. Нарисовать 5 вложенных прямоугольников с увеличением размера на 20 пикселов в каждом направлении. Стиль заполнения для каждой фигуры определить буквами Вашего имени. 3. Нарисовать 5 соосных кругов разного цвета с уменьшением радиуса на 10 пикселов. Стиль заполнения для каждого круга определить его номером, т. е. цифрами 1, 2, 3, 4, 5. 4. Определить три орнамента заполнения: "снежинка", "иголки" с наклоном влево и вправо. Нарисовать из треугольников пять елок и заполнить их орнаментом "иголки". Заполнить экран орнаментом "снежинка". 5. Создать элемент орнамента с единицами (4*4) в центре. Нарисовать на экране картину "ночной город", используя фрагменты "звездного неба" и пять прямоугольников, заполненных орнаментом 4*4 разного цвета. 6. Используя исходные орнаменты из одной линии составить с использованием логических операций орнаменты цифр: 1, 6, 7 и букв: B, F, E.
Работа с линиями
В графическом режиме курсор невидим, его положение можно определить функциями, возвращающими значения координат:
GetX;- по оси "Х", GetY; - по оси "Y".
Следующие процедуры перемещают курсор без рисования:
MoveTo(x, y);- переместить курсор в точку с координатами (x, y), MoveRel(dx,dy);- сместить курсорна расстояние dx, dy от текущего положения.
Для построения многоугольников и ломаных линий удобно использовать процедуры:
LineTo(x, y); - провести отрезок прямой линииот текущего положения
LineRel(dX, dY);- провести отрезок прямой линии от текущего положения курсора до точки, смещенной на расстояние dX, dY по соответствующим осям.
Пример операторов для построения восьмиугольника:
R:=100; { расстояние от вершин до центра xc, yc }
for i:= 1 to 8 do begin alfa:= i * pi/4;{ значение угла в рад. } x[i]:= xc + round(R * cos(alfa));{ координаты вершин } y[i]:= yc + round(R * sin(alfa)) end; MoveTo(x[8], y[8]);{ исходная позиция для рисования } for i:= 1 to 8 do LineTo(x[i], y[i]);{ рисование линий }
Для отрезков прямых линий и процедур с их использованием можно задать режимы построения прямых линий оператором:
SetWriteMode(N);
N=0 - замещение линией изображения на экране ( режим CopyPut ) используется по умолчанию, N=1 - изображение комбинируется ( режимXorPut). Работа функции состоит в изменении согласно логической операции "исключающее ИЛИ" исходного значения цвета пиксела (числа "1" или "0"). Логическая функция Xor, примененная к одной переменной дважды, восстанавливает ее исходное значение:( J xor I ) xor I = J. Следовательно при повторном проведении линии в режиме XorPut изображение этой линии уничтожается, а цвет пикселов экрана становится исходным. На этом правиле основаны некоторые программы построения движущихся изображений.
Пример операторов для рисования движущегося прямоугольника: SetWriteMode(1); a:= 100; b:= 50;{ стороны прямоугольника } x1:= 0; y1:= GetMaxY div 2; N:= GetMaxX - x1 - a;{ N - число перемещений } for i:= 0 to N do begin Rectangle(x1+i, y1, x1+a+i, y1+b); { рисование прямоугольника } delay(10); Rectangle(x1+i,y1,x1+a+i,y1+b);{ стирание прямоугольника } end;
Практическое задание N 1. 55
1. Составить процедуру рисования N - угольной звезды. В параметры процедуры включить число лучей звезды, радиусы вписанной и описанной окружностей, цвет линий и координаты центра звезды. Перемещать две звезды разного цвета в пределах экрана случайным образом.
2. Составить процедуру рисования N - угольной звезды, где N= 3, 5, 7, ... Операторы рисования имеют вид: M:=N div 2; Moveto(x[1],y[1]); For i:=1 to N do begin j:=(M*i) mod N + 1; LineTo(x[j],y[j]) end; Перемещать две звезды разного цвета в пределах экрана. Толщину и форму (стиль) линийотрезков прямых, прямоугольников, окружностей, эллипсов можно задать оператором
SetLineStyle(F, P, T);
Здесь F - форма линии из стандартного набора BGI: F=0 - сплошная, F=1 - пунктирная, F=2 - штрих-пунктирная, F=3 - штриховая. F=4 - форма линии задается параметром Р.При F<4 значение Р игнорируется. Параметры F, P, T типа Word. Стиль линии Р - число, двоичное представление которого отображает заполнение линии длиной 16 пикселов. Если разряд числа равен 1, то пиксел высвечивается, 0 - не высвечивается. Удобно использовать шестнадцатеричные числа. Например: P = $35F1 = 0 0 1 1 0 1 0 1 1 1 1 1 0 0 0 1 ( двоичное )
Можно использовать десятичную форму записи значения параметра "Р", где 0<= P <= 65535= 216-1 . T - толщина линии может принимать два значения: T= 1 - тонкая (1 пиксел), T= 3 - толстая (3 пиксела). Например, операторы: SetLineStyle(4, $5555, 3); Line(x1, y1, x2, y2); определяют толстую мелким пунктиром линию.
Практическое задание N 1. 55
1. Вывести на экран горизонтальные толстые линии с двоичным представлением:
1111000001100000, 1111000011110000, 0111101111011110, 1100110011001100, 1001100110011001, 1111100011111000.
2. Вывести на экран вертикальные толстые линии с двоичным представлением:
0101010101010101, 1100011000110001, 1111110011111100, 0111011101110111, 1110001110001110, 1111000000001111.
3. Вывести на экран линии разных форм, заданных параметром РN = PN-1 + 2 * N, где P0= 1; N= 1, . . , 150 . Линии располагать вертикально. 4. Вывода на экран линий разных форм, заданных параметромРN = PN-1 + 2N, где P0= 1; N= 1, . . , 15 . Линии располагать горизонтально. 5. Нарисовать расходящийся из центра экрана по спирали ромбический лабиринт шириной 6 пикселов из отрезков наклонных прямых. Очищать экран и менять толщину и форму линии F= 0, . . , 3. 6. Нарисовать расходящийся из центра экрана по спирали прямоугольный лабиринт шириной 5 пикселов из отрезков вертикальных и горизонтальных прямых. Очищать экран и менять толщину и форму линии.
Применяя к исходным стилям линий пользователя логические операции, можно получать новые стили линий. Например:
P3 = P1 and P2 - линии из совпадающих единичных битов. P3 = P1 or P2- добавление единичных битов. P3 = P1 xor P2 - обнуление совпадающих значений битов. P3 = not P2 - изменение значений битов на противоположные. Таблица результатов выполнения логической операции "xor" над битами.
бит "A" операция бит "B" результатлогических операций "or" и "and"
Xor 1 0 1 xor 0 1 Результат операции "A xor B" равен 0 xor 0 0единице при различных значениях битов 0 xor 1 1"A" и "B", иначе результат равен нулю.
Практическое задание N 1. 56
1. Создать эффект "бегущих огней" перемещением на один пиксел набора из трех касающихся толстых пунктирных линий ( перерисовка в режиме XorPut ). Крайние линии стиля "Р", средняя - стиля "not P". 2. Создать штриховые стили "Р1", "Р2" и рассчитать с использованием всех логические операций приведенные выше стили Р3. Вывести на экран исходные и расчетные линии.
Не нашли, что искали? Воспользуйтесь поиском по сайту: ©2015 - 2024 stydopedia.ru Все материалы защищены законодательством РФ.
|
1 1 0 0 0 0 0 0 1 $81
3 0 1 1 0 0 1 1 0 $66
RX - по горизонтали, RY - по вертикали.
курсора до точки с координатами X, Y.
В отличие от процедуры Line(x1, y1, x2, y2);процедуры LineTo(x, y); и LineRel(dX, dY);при своем исполнении перемещают текущий указатель.
xc:= GetMaxX div 2; yc:= GetMaxY div 2;
отобразит стиль:
( Таблица результатов выполнения
над битами приведена на стр. . )