Zitat von
jfheins:
Zitat von
LDericher:
Leute, kommt mal runter, es funktioniert
Dein "Grün" ist aber reichlich fad
Oha! Du hast recht, ist mir gar nicht aufgefallen zuerst - und das ist leider wichtig für die Funktion des Ganzen...
Wie krieg ich das Grün denn hier rein?
Delphi-Quellcode:
function TColorRing.getColor(X, Y: integer): TColor;
var
Angle:integer;
R,
G,
B:Byte;
begin
Angle:=Self.getAngle(X, Y);
if(Angle
in [0..119])
then
begin
R:=255;
G:=trunc(255*Angle/119);
B:=0;
end
else if(Angle
in [120..239])
then
begin
dec(Angle, 120);
R:=trunc(255*(119 - Angle)/119);
G:=trunc(255*(119 - Angle)/119);
B:=trunc(255*Angle/119);
end
else
begin
dec(Angle, 240);
R:=trunc(255*Angle/119);
G:=0;
B:=trunc(255*(119 - Angle)/119);
end;
Result:=
RGB(R, G, B);
end;