VPF::[Pascal] Реализация алгоритма с затравкой

katbka25

Дата 28.10.2010, 19:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 6.9.2008

Репутация: нет
Всего: нет

Это сами фигуры Лиссажу. Тут вроде все нормально.

Код


uses Graph,crt;

const
a=80;w1=2;w2=10;
var
driver,mode,x1,y1,x2,y2,t,color:integer;
procedure Figure(w1,w2:integer);
begin
 driver:=9;
 mode:=0;
 initgraph(driver,mode,'');
 for t:=1 to 1000 do
   begin
   setcolor(white);
   x1:=100+round(a*cos(w1*t / (180/Pi)));
   y1:=100+round(a*sin(w2*t / (180/Pi)));
   x2:=100+round(a*cos(w1*(t+1) / (180/Pi)));
   y2:=100+round(a*sin(w2*(t+1) / (180/Pi)));
   line(x1,y1,x2,y2);
   end;
end;

А вот с заливкой каждого сегмента у меня проблемы... Как определять принадлежит ли данная точка области фигуры, как определить что мы закрашиваем другую область?
Пишу так, но тут явно все коряво:

Код


procedure Fill(x,y,color1,color2:integer);
begin
 driver:=9;
 mode:=0;
 initgraph(driver, mode,'');
 if((GetPixel(x,y) < > color1)and(GetPixel(x,y) < > color2))
 then
  begin
  PutPixel(x,y,color2);
  Fill(x+1,y,color1,color2);
  Fill(x,y+1,color1,color2);
  Fill(x-1,y,color1,color2);
  Fill(x,y-1,color1,color2);
  end;
end;

Заранее спасибо за помощь.

Sanaff

Дата 29.10.2010, 12:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 151
Регистрация: 15.9.2009
Где: г. Северодвинск

Репутация: -1
Всего: 1

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

--------------------

Программист - это локальный бог ©ICQ 373-628-456

Sartorius

Дата 29.10.2010, 12:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1568
Регистрация: 18.7.2006
Где: Ivory tower

Репутация: 8
Всего: 37

В Graph.tpu вроде ж FLoodFill был. Найдите внутренние точки сегментов аналитически.

Sanaff

Дата 29.10.2010, 18:17 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 151
Регистрация: 15.9.2009
Где: г. Северодвинск

Репутация: -1
Всего: 1

Аналитически искать может оказаться сложней для больших w. а для маленьких w фигура может быть незамкнута вообще. что тогда заливать?

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »