Реализация алгоритмов растровой графики для заполнения сплошных областей

@musikh · Регистрация: 05.07.2020

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста, с лабораторной работой.
Описание алгоритма:
Дано : Pop(x,y) -процедура извлечения из стека координат (x,y) очередного пиксела
Push(x,y) - процедура помещения в стек координат (x,y) очередного пиксела
Нарисовать_точку(x,y,col) - процедура для подкрашивания цветом col пиксела с координатами(x,y)
с(x,y) - цвет пиксела с координатами (x,y)
cb - цвет для подкрашивания пикселов границы области
ci - цвет для подкрашивания пикселов внутри области
(х0,y0) - координаты затравочного пиксела
Получить : Перекрасить сплошную область с данным затравочным пикселом и цветом границы в цвет ci.
1.Инициализировать стек:Push(x0,y0).
2.Пока стек не пуст выполнить: начало
Извлечь пиксел из стека и закрасить его в цвет области:
Pop(x,y);
Нарисовать_точку(x,y,ci);
3.Присвоить: xw=x; x=x+1.
4.Пока c(x,y) # cb заполняем интервал справа от затравки:
Нарисовать_точку(x,y,ci); x=x+1;по окончанию идти к 5.
5.Присвоить: xr=x-1; x=xw; x=x-1.
6.Пока c(x,y) # cb заполнть интервал слева от затравки: Нарисовать_точку(x,y,ci);x=x-1; по окончанию идти к 7.
7.Сохранить крайний слева пиксел: xl=x+1;
8.Проверить строки ниже и выше данной, если там есть еще незаполненные пикселы искать затравку, начиная с левого края:
Для j от -1 до 2 с шагом 3 выполнить: начало
x=xl; y=y+j;
Пока x <= xr искать затравку на строке ниже(выше): начало
fl="ложь";
Пока ( c(x,y)#cb and c(x,y)#ci and x<xr ) заполнить точки внутри:
начало
Увеличить х на единицу.
Если (not fl) = "истина" то присвоить fl="истина". конец
Если fl="истина" то крайний справа пиксел - в стек: начало
Если ( x=xr and c(x,y)#cb and c(x,y)#ci ) то Push(x,y) иначе Push(x-1,y).
Присвоить fl="ложь". конец
Продолжить проверку,если интервал был прерван: Присвоить xb=x.
Пока (c(x,y)=cb or c(x,y)=ci and x<xr) увеличить x на 1. Если x=xb то присвоить: x=x+1.
конец
конец
конец пункта 2.
6.Закончить.
Алгоритм правильно заполняет любую область, справляется с внутренними дырами и зубцами на границе. Используется при закраске, когда известна хотя бы одна точка внутри необходимой для закрашивания области.

Задание:
1. Написать на языке PASCAL программу, реализующую алгоритм заливки многоугольника любой формы.
2. Проверить правильность работы программы, нарисовав с помощью функций модуля GRAPH невыпуклый многоугольник (с дырами внутри), закрасьте его заданным цветом, указав координаты принадлежащей многоугольнику точки.
3. Написать и отладить программу, реализующую алгоритм построчного заполнения выпуклого многоугольника, заданного координатами вершин и цветом границы.

@canadamoscow · 07.10.2020, 13:25

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses GraphABC;
 
procedure Zakraska(i,j:integer);
begin
  var ColorTek := GetPixel(i,j);
  var ColorZ := ClRandom;
  var vorkug := |(0,1), (0,-1),(-1,0),(1,0)|; //(влево  вправо вниз вверх )
  var q := new Stack<(integer,integer)>;
  q.Push((i, j)); 
  repeat 
   var (ii, jj) := q.Pop;
    For var w := 0 to 3 do
    begin       
      var (u, v) :=((ii+vorkug[w].Item1).Clamp(0,500), (jj+vorkug[w].Item2).Clamp(0,500) );
      if GetPixel(u,v) = ColorTek then begin PutPixel(u,v,ColorZ); q.Push((u,v)) end;      
    end;
  until not q.Any;
end;
 
procedure Init;
begin
   Window.Clear;
   Moveto(50,50);
   loop 5 do lineto(Random(10,490),Random(10,490));
   lineto(50,50);
   DrawCircle(100,100,20);
end;
 
begin
  OnMouseDown := procedure (x,y, mb:integer) →  if mb = 1 then Zakraska(x,y) else Init;
  window.SetSize(500,500);
  Init;
end.

@musikh · 16.10.2020, 13:01 **[ТС]**

Спасибо! Но у меня компилятор пишет:"Нет индексного свойства по умолчанию для типа set of Tuple '2" (в строке 15). Как это исправить?

@mr-Crocodile · 16.10.2020, 13:06

musikh, обновляй PascalABC.NET

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

Реализация алгоритмов растровой графики для заполнения сплошных областей

Решение

Решение

@musikh 0 / 0 / 0 Регистрация: 05.07.2020 Сообщений: 12

	Реализация алгоритмов растровой графики для заполнения сплошных областей 06.10.2020, 18:16. Показов 1612. Ответов 3 Метки нет (Все метки) Помогите, пожалуйста, с лабораторной работой. Описание алгоритма: Дано : Pop(x,y) -процедура извлечения из стека координат (x,y) очередного пиксела Push(x,y) - процедура помещения в стек координат (x,y) очередного пиксела Нарисовать_точку(x,y,col) - процедура для подкрашивания цветом col пиксела с координатами(x,y) с(x,y) - цвет пиксела с координатами (x,y) cb - цвет для подкрашивания пикселов границы области ci - цвет для подкрашивания пикселов внутри области (х0,y0) - координаты затравочного пиксела Получить : Перекрасить сплошную область с данным затравочным пикселом и цветом границы в цвет ci. 1.Инициализировать стек:Push(x0,y0). 2.Пока стек не пуст выполнить: начало Извлечь пиксел из стека и закрасить его в цвет области: Pop(x,y); Нарисовать_точку(x,y,ci); 3.Присвоить: xw=x; x=x+1. 4.Пока c(x,y) # cb заполняем интервал справа от затравки: Нарисовать_точку(x,y,ci); x=x+1;по окончанию идти к 5. 5.Присвоить: xr=x-1; x=xw; x=x-1. 6.Пока c(x,y) # cb заполнть интервал слева от затравки: Нарисовать_точку(x,y,ci);x=x-1; по окончанию идти к 7. 7.Сохранить крайний слева пиксел: xl=x+1; 8.Проверить строки ниже и выше данной, если там есть еще незаполненные пикселы искать затравку, начиная с левого края: Для j от -1 до 2 с шагом 3 выполнить: начало x=xl; y=y+j; Пока x <= xr искать затравку на строке ниже(выше): начало fl="ложь"; Пока ( c(x,y)#cb and c(x,y)#ci and x<xr ) заполнить точки внутри: начало Увеличить х на единицу. Если (not fl) = "истина" то присвоить fl="истина". конец Если fl="истина" то крайний справа пиксел - в стек: начало Если ( x=xr and c(x,y)#cb and c(x,y)#ci ) то Push(x,y) иначе Push(x-1,y). Присвоить fl="ложь". конец Продолжить проверку,если интервал был прерван: Присвоить xb=x. Пока (c(x,y)=cb or c(x,y)=ci and x<xr) увеличить x на 1. Если x=xb то присвоить: x=x+1. конец конец конец пункта 2. 6.Закончить. Алгоритм правильно заполняет любую область, справляется с внутренними дырами и зубцами на границе. Используется при закраске, когда известна хотя бы одна точка внутри необходимой для закрашивания области. Задание: 1. Написать на языке PASCAL программу, реализующую алгоритм заливки многоугольника любой формы. 2. Проверить правильность работы программы, нарисовав с помощью функций модуля GRAPH невыпуклый многоугольник (с дырами внутри), закрасьте его заданным цветом, указав координаты принадлежащей многоугольнику точки. 3. Написать и отладить программу, реализующую алгоритм построчного заполнения выпуклого многоугольника, заданного координатами вершин и цветом границы. 0

@musikh 0 / 0 / 0 Регистрация: 05.07.2020 Сообщений: 12
	16.10.2020, 13:01 [ТС]
	Спасибо! Но у меня компилятор пишет:"Нет индексного свойства по умолчанию для типа set of Tuple '2" (в строке 15). Как это исправить? 0

@mr-Crocodile 3053 / 1672 / 657 Регистрация: 19.03.2019 Сообщений: 5,380
	16.10.2020, 13:06
	Сообщение было отмечено musikh как решение Решение musikh, обновляй PascalABC.NET 1