Rechenproblem

[Delphi-Fan-Friedrichsdorf]

Mein Problem hat sich gelöst.
Falls jemanden die Lösung interressiert:

Meine eigenen Beispieldateien habe mich darauf gebracht, das ich nur einen Farbverlauf
zwischen der Wunschfarbe und Schwarz bzw Weiß zeichnen müsste und dann die gesuchte Stufe entnehmen muss.

Daraus folgt:

Delphi-Quellcode:

 if MASK < 128 then
 OUT:= 0+round((IN-0)*MASK/128) else
 if MASK > 128 then
 OUT:= IN+round((255-IN)*(MASK-128)/128) else
 if MASK = 128 then
 OUT:=IN;

(muss für jeden RGB-Kanal einzeln gerechnet werden)

basierend auf der einfachen Formel für einen Farbverlauf(hier in RGB-Zerhackter Form):

Delphi-Quellcode:

procedure GradiendColor(rstart,gstart,bstart,rend,gend,bend,pos,length:Integer;var rout:Integer;var gout:Integer;var bout:Integer;);
begin
rout:=rstart+round((rend-rstart)*pos/length);
gout:=gstart+round((gend-gstart)*pos/length);
bout:=bstart+round((bend-bstart)*pos/length);
end;

Auch wenn ich die Lösung doch noch selbst herausbekommen habe, danke ich euch für eure hilfe.