модуль graph

[zoomisus19]

у меня есть нарисованное изображение(например гриб) как мне его повернуть на 180(чтоб шляпка в низу была)!
помогите плс!

[ZX Spectrum-128]

Или такой вариант решения:
1. Занести все точки изображения в массив с помощью getpixel.
2. Повернуть массив
http://www.programmersforum.ru/showthread.php?t=32490
3. Вывести точки из массива - putpixel

Попробуйте вот этот код, обозначен полужирным.
Или положите код рисования гриба

uses
  crt,graph;
var
 grDriver: Integer;
 grMode: Integer;
 ErrCode: Integer;
 size,i:integer;
 p:pointer;
begin
 grDriver := Detect;
 InitGraph(grDriver, grMode,'c:\bp\bgi ');
 ErrCode := GraphResult;
 if ErrCode = grOk then
 begin  { Do graphics }
   for i:=0 to GetMaxColor do
     begin
       Setcolor(i);
       Rectangle(i, i, GetMaxX div 4, GetMaxY div 4);
     end;
   Size := ImageSize(0, 0, GetMaxX div 4,0);
   GetMem(P, Size);   { Allocate memory on heap }
   for i:=0 to GetMaxy div 4 do
     begin
       GetImage(0, i,GetMaxX div 4, i, P^);
       putimage(GetMaxX div 4+1, GetMaxy div 4-i,p^,normalput);
     end;
   Readln;
   CloseGraph;
 end
 else
   Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.

[Arigato]

Везде вместо координаты y записать 480-y.