Графика, Заливка треугольника одним цветом Опции

[Pautina]

Помогите, пожалуйста, с решением данной задачи!
рис1

Из рисунка1 следует, что изображение треугольника на экране – это набор горизонтальных отрезков оси абсцисс, при чем каждой строке экрана соответствует один отрезок, проведенный между точками пересечения отрезков со сторонами треугольника AB и AC, затем BC и AC.
Составим математическую модель. Координаты точек пересечения отрезков со сторонами треугольника будут рассчитываться по следующим формулам:

X = Ax + (Bx – Ax) / (By – Ay) * (By – Ay)
X2 (1) = Ay + (Sy – Ay) / (Bx – Ax) / (By – Ay)
X1 = Ax + (Sy – Ay) * (Cx – Ax) / (By – Ay)
X2 (2) = Bx + (Sy – By) * (Cx – Bx) / (Cy – By)

Далее приведем словесное описание алгоритма будущей программы.
рис2

После проведения сортировки координат вершин данного треугольника необходимо организовать цикл, обеспечивающий рисование линий для ординаты Y, которая изменяется от Ymin до Ymax. В теле цикла необходимо определить координаты точек X1 и X2 и затем провести между ними линию заданного цвета.

Сообщение отредактировано: Pautina - 14.09.2007 15:15

[Pautina]

Lapp, спасибо огромное за помощь. Скажи, а как мне после нахождения вершины с минимальным y

a1:=random(640);
b1:=random(480);
a2:=random(640);
b2:=random(480);
a3:=random(640);
b3:=random(480);
PutPixel(a1,b1,4);
PutPixel(a2,b2,4);
PutPixel(a3,b3,4);

if (b1>b2) and (b1>b3) then A:=b1 else
                       begin
                       if (b2>b1) and (b2>b3) then A:=b2 else A:=b3;
                       end;

упорядочить остальные вершины по x?

[Lapp]

Во-первых, не забывай, что ты ищешь минимальный Y, а не максимальный. Так что знаки неравенств надо поменять.

При упорядочивании нужно перекладывать координаты (и X, и Y) через буфер:

if a3<a2 then begin 
  d:=a2;
  a2:=a3;
  a3:=d;
  d:=b2;
  b2:=b3;
  b3:=d;
end;

Эту операцию нужно проделать с парами точек 2 и 3 (как в приведенном фрагменте), потом 1 и 2, а потом снова 2 и 3.

Хочешь мои соображения "на тему"?
Странно, что ты х и у обозначила как a и b.
И вообще, грамотнее было бы работать с массивами и записями, а не с отдельными переменными. Так получится яснее и проще. Конечно, в такой простой программе и так сойдет, но я бы все же рекомендовал.
Прирно так:
- сделать отдельный тип для точки
- треугольник представлять как массив такого типа.

type
  tPoint = record
    x,y : integer;   {координаты}
    I : string  {название точки};
  end;
  tTriangle = array [1..3] of tPoint;

Тогда, например, перекладывание выглядело бы проще:

if T[3].x<T[2].x then begin 
  d:=T[2];
  T[2]:=T[3];
  T[3]:=d;
end;

А если сделать для этого процедурку - то и того проще.

procedure Swap(T:tTriangle; i,j:integer);
var
  d:tPoint;
begin
  if T[3].x<T[2].x then begin 
    d:=T[2];
    T[2]:=T[3];
    T[3]:=d;
  end
end;

{...}

  if T[3].x<T[2].x then Swap(T,2,3);
  if T[2].x<T[1].x then Swap(T,1,2);
  if T[3].x<T[2].x then Swap(T,2,3);