使用TBitmap.Rotate时如何避免位图旋转模糊问题？

我在FireMonkey中尝试旋转位图，以下两段代码均能正常运行：

procedure Rotate(Source, Dest: TBitmap; Angle: Single);
begin
  if Assigned(Source) then
  begin
    Dest.Assign(Source);
    Dest.Rotate(Angle);
  end;
end;

甚至简化为以下代码，功能也完全相同：

procedure Rotate(Source, Dest: TBitmap; Angle: Single);
begin
  Source.Rotate(Angle);
end;

但每次调用Rotate旋转任意角度后，多次重复操作会导致图像逐渐轻微模糊。比如连续5次旋转5°后，图像清晰度明显下降，示例如下：

模糊原因 #

每次旋转位图时，FireMonkey的Rotate方法会对图像进行重采样插值（如双线性插值）。当旋转非90°倍数的角度时，像素位置偏移后，插值计算会产生近似值。多次重复该过程，每次插值的误差会不断累积，最终导致图像逐渐模糊。

尤其在直接修改源位图的场景（如第二个简化代码），每次旋转都基于上一次已被模糊的图像，误差累积会更显著。

解决方法 #

核心思路是始终基于原始未修改的位图执行旋转计算，避免用旋转后的图像作为下一次操作的源：

• 保存原始位图副本，每次从原始图生成结果
  将原始位图保存为全局或类成员变量（比如FOriginalBitmap: TBitmap），每次旋转都基于这个原始副本生成新结果：

  procedure RotateFromOriginal(Dest: TBitmap; Angle: Single);
  begin
    if Assigned(FOriginalBitmap) then
    begin
      Dest.Assign(FOriginalBitmap);
      Dest.Rotate(Angle);
    end;
  end;
  

  这种方式每次旋转都使用最清晰的原始图像，不会累积插值误差。

• 记录总旋转角度，单次旋转到目标角度
  如果需要实现累加旋转（比如每次加5°），只需记录当前总旋转角度，每次直接从原始位图旋转到总角度，而非多次叠加旋转：

  var FTotalAngle: Single = 0;
  
  procedure RotateAdditive(Dest: TBitmap; AddAngle: Single);
  begin
    FTotalAngle := FTotalAngle + AddAngle;
    if Assigned(FOriginalBitmap) then
    begin
      Dest.Assign(FOriginalBitmap);
      Dest.Rotate(FTotalAngle);
    end;
  end;
  

  无论叠加多少次角度，最终都是对原始位图执行一次旋转，彻底避免多次插值的误差累积。

• 调整插值模式（缓解方案）
  如果必须基于旋转后的图像操作，可尝试提升插值精度来缓解模糊，但无法彻底解决累积问题。例如通过放大位图再旋转的方式：

  Dest.BitmapScale := 2; // 先放大位图，提升插值采样率
  Dest.Rotate(Angle);
  Dest.BitmapScale := 1; // 还原回原尺寸
  

  这种方法会增加性能消耗，效果不如前两种方案。

内容的提问来源于stack exchange，提问作者Craig