Entwickler-Ecke :: Thema anzeigen - algo endwert berechungsproblem

F34r0fTh3D4rk - Mo 19.06.06 14:56
Titel: algo endwert berechungsproblem

ich wusste nicht, wie ich den titel besser formulieren hätte können, nunja, ich habe einen rekursiven gradient algo angefangen, der auch soweit super funzt:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure gradient(image: Timage; col1, col2: TColor; Startp, Endp: integer; ainc: integer);
var
  newp: integer;
  newcol: TColor;
begin
  newp := (startp + (endp - startp) div 2);
  newcol := RGB((getrvalue(col1) + getrvalue(col2)) div 2, (getgvalue(col1) + getgvalue(col2)) div 2, (getbvalue(col1) + getbvalue(col2)) div 2);
  with image.Canvas do
  begin
    pen.color := newcol;
    MoveTo(newp, 0);
    LineTo(newp, image.Height - 1);
  end;
  if ainc <= 7 then
  begin
    gradient(image, col1, newcol, startp, newp, ainc + 1);
    gradient(image, newcol, col2, newp, endp, ainc + 1);
  end;
end;

procedure TMainForm.Button4Click(Sender: TObject);
begin
  gradient(image1, clred, claqua, 0, image1.width - 1, 0);
end;

problem macht mir die markierte zeile, denn ab dem wert 7 scheint der übergang fließend zu sein, jedoch weiß ich nicht wie ich die 7 berechne, ich dachte da pro rekursionsebene immer 2 prozeduren instanziert werden, dass es dann 2^x wäre, aber dem ist leider nicht so, wie kommt man auf diesen wert ?

(und nein ich möchte den algo net anders haben ^^)

//EDIT: gelöst ;)

mfg

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!