for Y := 0 to Bitmap.height - 1 do for X := 0 to Bitmap.width - 1 do begin //円周からの距離を求める R := Radius - SQRT(Power(X-CX,2)+Power(Y-CY,2)); if (R<0) then R := 0; //R<0 円周の外側 Degree := (R/Radius) * Deg; //Deg=入力された角度 Rad := DegToRad(Degree); //ラジアンに変換 SrcX := Round(Cos(Rad)*(X-CX)-Sin(Rad)*(Y-CY)+CX); SrcY := Round(Sin(Rad)*(X-CX)+Cos(Rad)*(Y-CY)+CX); Dst[Y,X] := Src[SrcX,SrcY]; end;