Алгоритм со списком активных рёбер

[Slavchik452]

Нужна помощь в написании Алгоритма заполнения многоугольника со списком активных рёбер. Написать нужно алгоритм для заполнения фигуры тор. Что не так в моём коде?

procedure FillFacetW2(F: tFacet; VL: tVertList; C: tPixel; z0: float);
{ Алгоритм со списком активных рёбер}
type
   tEdge = record
      topV: tVertex; 
      lowV: tVertex;
   end;    
var
   i, j, k, y, countP, countE, testedE, ycurrent, lastActiveE, firstActiveE, m: integer;
   ymin, ymax: integer;
   ix1, ix2: integer;
   x: double;
   Points: array [1..5] of integer;
   buf: tEdge;
   edge: array of tEdge; 
begin
   SetLength(edge, F.nv + 1); //F.nv = 4
   {Наименьшее и наибольшее y}
   ymin := VL[F.v[1]].ys;
   ymax := ymin;
   for i := 1 to F.nv - 1  do
      if VL[F.v[i]].ys < ymin then
         ymin := VL[F.v[i]].ys
      else 
      if ymax < VL[F.v[i]].ys then
         ymax := VL[F.v[i]].ys;
         
   countE := 1;      
   {заполняем массив ребер, записывая сначала верхнюю вершину(меньшую по y), затем нижнюю(большую по y)}
   for i:= 1 to F.nv - 1 do begin
       if VL[F.v[i]].ys <> VL[F.v[(i + 1)]].ys then begin
         if VL[F.v[i]].ys < VL[F.v[(i + 1)]].ys then begin
            edge[countE].topV  := VL[F.v[i]];
            edge[countE].lowV := VL[F.v[(i + 1)  ]];
         end
         else begin
            edge[countE].topV  := VL[F.v[(i + 1)]];
            edge[countE].lowV := VL[F.v[i]];
         end;
         countE := countE + 1;
       end;        
    end;
    //end;  
   {Сортируем ребра по y}
   for i := 1 to countE - 1 do begin //edge[1..
      buf := edge[i];
      j := i;
      while (j > 1) and (edge[j - 1].topV.ys > buf.topV.ys) do begin
         edge[j] := edge[j - 1];
         j := j - 1; 
      end;
      edge[j] := buf;
   end;
   
   testedE := 1;
   firstActiveE := 1;
   lastActiveE := 1;
   {Цикл закраски}
   for i := ymin to ymax do begin
      ycurrent := i;
      {Список активных ребер}
      while (testedE < countE) and (edge[testedE].topV.ys <= ycurrent) do
         testedE := testedE + 1;
      lastActiveE := testedE - 1;
      countP := 1;
      j := firstActiveE;
      while j <= lastActiveE do begin
         {Нахождение точек пересечения}
         {x := (ycurrent - edge[j].topV.ys) * (edge[j].lowV.xs - edge[j].topV.xs) / 
              (edge[j].lowV.ys - edge[j].topV.ys) + edge[j].topV.xs;}
         x:= (edge[j].lowV.xs * edge[j].topV.ys - edge[j].topV.xs * edge[j].lowV.ys - 
             (edge[j].lowV.xs - edge[j].topV.xs)* ycurrent)/(edge[j].topV.ys - edge[j].lowV.ys);
         Points[countP] := trunc(x);
         countP := countP + 1;
         {Исключение неактивных рёбер}
         if edge[j].lowV.ys <= ycurrent then begin
            edge[j] := edge[firstActiveE];
            firstActiveE := firstActiveE + 1;
         end;
         j := j + 1;
      end;
      {сортировка точек}
      for m := 1 to countP - 1  do begin
         x := Points[m];
         j := m;
         while (j > 1) and (x < Points[j - 1]) do begin
            Points[j] := Points[j - 1];
            j := j - 1; 
         end;
         Points[j] := trunc(x);
      end;
      {Заполняем строки}
      j:= 1;
      while j < (countP - 1) do begin
         HLine(Points[j], ycurrent, Points[j + 1]);
         j:= j + 2;
      end;       
   end;
end;

[Slavchik452]

Вот архив с исходниками

[BDA]

Архив с исходниками это гораздо лучше, чем просто кусок кода. А как вы оцениваете, что что-то не так? Вроде вполне красивый бублик рисуется.

[Slavchik452]

Видимо скинул не тот архив

[Slavchik452]

На данной кратинке что вы показали, используется YX-алгоритм, а нужен алгоритм со списком активных рёбер

[BDA]

Глубину нужно тоже как-то учесть. Так как сейчас "задние" грани, рисующиеся позже, перетирают "передние".

[Slavchik452]

BDA, Спасибо огромное, а как здесь её учесть?

[Slavchik452]

BDA, И с чем это связано? Потому как призму хорошо рисует данный алгоритм. Как я думаю тут проблема с удалением невидимых граней.

[BDA]

Сообщение от Slavchik452

как здесь её учесть?

Не знаю.

Сообщение от Slavchik452

призму хорошо рисует

Если судить по цвету призмы и тора, то рисуется изнанка тора.

[Slavchik452]

BDA, Разобрался с ошибкой, нужно было правильно заполнить z-буфер. Благодарю за помощь, очень помогли)