Как повернуть изображение на 180 градусов?

[kl45gp]

Всем кто откликнулся!

тема такая: Пишу игру и тут понимаю, что рисовать чела по направлению в перёд и назад тупо, и не удобно. Ну и подумал "Может нарисовать по направлению в перёд, а для направления назад просто повернуть на 180", да фишка есть! НО КАК ПОВЕРНТЬ ИЗОБРАЖЕНИЕ(image) НА 180 градусов???

[Alar]

Нашёл разворот на 270 градусов. 180, я думаю, аналогично.

Пасибо всем большое за обсуждение темы всем кому на будущее пригодится. Везде, где 31 это размер изображения ширина:32, высота:32, (указан массив от 0). Используется изображение BitMap, для большей универсальности можно просчитывать размер изображение и разумеется, если изображение не квадратное, то менять еще и размер Image'а (х на у, и соответственно у на х). Для особо страждующих можно конечно запихнуть все это и в линейный массив, координаты и все цыклы пересчитывайте сами.
//-------------------------------------------------------------
Процедура на буттон 1: разворот изображение по часовой стрелки на 90°.
Процедура на буттон 2: разворот изображение против часовой стрелки на 90°.
Процедура на буттон 3: зеркальное отображение рисунка по горизонтали.
Процедура на буттон 4: зеркальное отображение рисунка по вертикали.


var
Form1: TForm1;
PixelsArray: array [0..31, 0..31, 0..0] of integer;
implementation

{$R *.dfm}

Procedure AddArray(Image: TImage);
var
x,y :integer;
begin
for x:=0 to 31 do
begin
for y:=0 to 31 do
begin
PixelsArray[x][y][0]:=Image.Canvas.Pixels[x,y];
end;
end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
AddArray(Image1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z :integer;
begin
z:=31;
for x:=0 to 31 do
begin
for y:=0 to 31 do
begin
image1.Canvas.Pixels[x,y]:=PixelsArray[y][z][0];
end;
z:=z-1;
end;
AddArray(Image1);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
x,y,z :integer;
begin
for x:=0 to 31 do
begin
z:=31;
for y:=0 to 31 do
begin
image1.Canvas.Pixels[x,y]:=PixelsArray[z][x][0];
z:=z-1;
end;
end;
AddArray(Image1);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
x,y,z :integer;
begin
z:=31;
for x:=0 to 31 do
begin
for y:=0 to 31 do
begin
image1.Canvas.Pixels[x,y]:=PixelsArray[z][y][0];
end;
z:=z-1;
end;
AddArray(Image1);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
x,y,z :integer;
begin
for x:=0 to 31 do
begin
z:=31;
for y:=0 to 31 do
begin
image1.Canvas.Pixels[x,y]:=PixelsArray[x][z][0];
z:=z-1;
end;
end;
AddArray(Image1);
end;

[kl45gp]

Большое спасибо!
Вечером протестирую...

[Pilyla]

пишет: can only modify an image if it contains a bitmap...Что изменить? (там где баттон 1)
а если изменить PixelsArray[x][y][0]:=Image.picture.Bitmap.Canvas.Pixel s[x,y]; ,то ничего не выводит