计算渐变颜色的最快方法？

我正在制作一小部分与渐变相关的类型/函数以供将来使用。我想确保至少有两个过程：ColorBetween 和 ColorsBetween。我可能只想获取任意 2 种颜色 (ColorsBetween) 之间的 TColor 数组，并且我可能只需要知道两种颜色 (ColorBetween) 之间的百分比的一个颜色值。

我已经在下面完成了大部分工作。除此之外，我有两个核心问题：

1. 如何按给定百分比计算每个 RGB 通道的中间颜色？ （请参阅下面我在哪里[???])
2. 完成我正在做的事情的最快方法是什么（同时保留两个不同的功能）？

这是代码：

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  StrUtils, StdCtrls, Math;

type
  TColorArray = array of TColor;

implementation

function ColorsBetween(const ColorA, ColorB: TColor; const Count: Integer): TColorArray;
var
  X: Integer; //Loop counter
begin
  SetLength(Result, Count);
  for X:= 0 to Count - 1 do 
    Result[X]:= ColorBetween(ColorA, ColorB, Round((X / Count) * 100)); //Correct?
end;

function ColorBetween(const ColorA, ColorB: TColor; const Percent: Single): TColor;
var
  R1, G1, B1: Byte;
  R2, G2, B2: Byte;
begin
  R1:= GetRValue(ColorA);
  G1:= GetGValue(ColorA);
  B1:= GetBValue(ColorA);
  R2:= GetRValue(ColorB);
  G2:= GetGValue(ColorB);
  B2:= GetBValue(ColorB);
  Result:= RGB(
    EnsureRange(([???]), 0, 255),
    EnsureRange(([???]), 0, 255),
    EnsureRange(([???]), 0, 255)
  );
end;

EDIT:改变了Percent: Integer to Percent: Single获得更平滑的效果 - 不限于 100 个可能的值。

听起来你想更换你的 ???和

Round((R1*Percent + R2*(100-Percent))/100.0)

The EnsureRange在您的代码中没有必要，因为此函数必须返回 0 到 255 范围内的值，前提是Percent范围是 0 到 100。我想我会应用EnsureRange to Percent（强制其范围为 0.0 到 100.0），然后使用以下代码：

Result := RGB(
  Round((R1*Percent + R2*(100-Percent))/100.0),
  Round((G1*Percent + G2*(100-Percent))/100.0),
  Round((B1*Percent + B2*(100-Percent))/100.0),
);

您的第一个函数返回一个数组，其第一个颜色是ColorA。也许你这样做会更好：

for X:= 0 to Count - 1 do
  Result[X]:= ColorBetween(ColorA, ColorB, (X+1) / (Count+1) * 100.0);

这在数组的两端提供了相同的行为。或者也许你两者都想要ColorA and ColorB包括。然后你会使用：

X / (Count-1) * 100.0

但如果您这样做，请记住 Count 必须大于 1，否则您将被零除。那永远不会成功！

不用担心性能。毫无疑问，代码可以稍微快一点，但它肯定不会成为瓶颈。您将使用这些颜色并用它们进行绘画。这将比这些简单的例程消耗更多的资源。

最后一点。 RGB 空间中的插值对于人眼来说看起来不会特别平滑或线性。使用浮点百分比并不能回避这个事实。为了在观看时获得最佳效果，您需要在不同的色彩空间中进行插值。