for 100 div (64 + 1) = 1 so you get 100 steps also 100 div (16 +1) = 5 you get 20 steps
Delphi-Quellcode:
var V,T : single;
S : byte;
V := 100 / (Steps + 1);
T := 0;
while T < 100 do
begin
T := T + V; //add real
S := trunc(T); //get byte
SetLength(Result, Length(Result) + 1);
Result[High(Result)] := Blend(C1, C2, S);
end;
end;