Bildbearbeitung - Astronomie-Aufgabe

[hamptoncourt]

Ach ... Diagonal ...

Jaja, so schaut es doch schon besser aus ...

Aber dann muss doch P3 anders sein, oder???

P1 läuft von oben link. P3 Muss doch dann von unten links laufen, also:

Delphi-Quellcode:

P3.X := -1;
  for y:=0 to image3.Height-1 do
    begin
    for x:= image3.width-1 Downto 0 do
      begin
      if (((image3.Canvas.pixels[x,y]) and 255) > 10) then
        begin
         P3.X := x;
         p3.Y := y;
         break;
        end;
      end;
    if P3.X > 0 then Break;
    end;