高手请进:(附源码),256色旋转算法速度问题:角度越大,速度越慢.(原因是内存颠簸造成，)
procedure Rotate(Bmp:Pointer;BMPWidth,BMPHeight,cx,cy:Integer;Dst:Pointer;DstWidth,DSTHeight:integer;Angle:Double);
var
x,y,
dx,dy,
sdx,sdy,
xDiff,yDiff,
isinTheta,
icosTheta: Integer;
SrcTmp:PByteArray;
DstTmp: PByte;
sinTheta,
cosTheta,
Theta: Double;
x_1,y_1:Integer;
calcfirstx,calcfirsty:Double;
begin
Theta:=-Angle*Pi/180;
sinTheta:=Sin(Theta);
cosTheta:=Cos(Theta);
xDiff:=(DstWidth-BmpWidth)div 2;
yDiff:=(DstHeight-BmpHeight)div 2;
isinTheta:=Round(sinTheta*$10000);
icosTheta:=Round(cosTheta*$10000);
DstTmp:=PByte(DST);
SrcTmp:=PByteArray(BMP);
x_1:=DstWidth-1;
y_1:=DstHeight-1;
calcfirstx:=cx-cx*cosTheta+cy*sinTheta-xDiff;
calcfirsty:=cy-cx*sinTheta-cy*cosTheta-yDiff;
for y:=y_1-100 downto 0 do
begin
sdx:=Round((calcfirstx-y*sinTheta)*$10000);
sdy:=Round((calcfirsty+y*cosTheta)*$10000);
for x:=x_1 downto 0 do
begin
dx:=sdx shr 16;
dy:=sdy shr 16;
if(dy <BMPHeight)and(dx <BMPWidth) then
begin
DstTmp^:=SrcTMP[dx+dy*BMPWidth];// < <--------------此处角度大时内存颠簸严重(图像大小:2048*1536)
end;
inc(sdx,icosTheta);
inc(sdy,isinTheta);
Inc(DstTmp);
end;
end;
end;


[解决办法]
旋转确实有这个问题
这个不叫“内存颠簸”吧 ，“内存颠簸”应该是因为缓存的路数不够，造成类似“hash”碰撞，从而降低缓存利用率；
这个应该是内存预取失效之类的，就是CPU预取的数据大部分是无效的(CPU会一次连续读取64字节到缓存，但某些角度的旋转需要的数据经常只有一个颜色数据(一般1-4字节)，大部分数据都白读了)；

尝试一下自己手工预取试试 (在几百个CPU周期之前读一下那个内存数据；可以考虑专门的预取指令比如prefetchnta、prefetcht0等) ，然后让预读代码和实际处理代码交错起来

(ps: 我没有尝试过这个方案；
我的blog中也写了几篇关于图像任意角度旋转的文章，并且还有带插值的高质量旋转实现)
[解决办法]
用GDI+吧。俺已经完美实现了。