Как сделать наклон объекта на определенный градус?

uses GraphABC;
Var x, y, r: Integer;
var b:Picture;
begin
SetWindowSize(500,500);
centerwindow;
lockdrawing;
x := 280;
y := 350;
r := 70;
b:=Picture.Create('1.bmp');
 
Repeat
clearwindow;
setpencolor(clRed);
setbrushcolor(clRed);
b.Draw(0,0);
Circle(x,y,r);
Dec(r,2);
dec(y,7);
Sleep(10);
redraw;
until r<19;
end.

uses GraphABC,ABCObjects;
var b:PictureABC;
.............................
b:=PictureABC.Create(300,100,'11.png');//грузим 1 картинку в нужные координаты
//что-то делаем
b.Destroy;//удаляем
b:=PictureABC.Create(300,180,'11b.png');//грузим 2 картинку в нужные координаты

uses GraphABC,ABCObjects;
var b:Picture;
var b1,b2:PictureABC;
Var x, y, r,x1,y1,r1,x0,y0,i: Integer;
begin
SetWindowSize(500,500);
centerwindow;
lockdrawing;
x := 280;
y := 350;
r := 60; // шар
setpenwidth(15);
b:=Picture.Create('1.bmp');
Repeat
clearwindow;
setpencolor(clRed);
setbrushcolor(clRed);
b.Draw(0,0);
b1:=PictureABC.Create(280,200,'11.bmp');//грузим 1 картинку в нужные координаты
//что-то делаем
b1.Destroy;//удаляем
b1:=PictureABC.Create(280,200,'12.bmp');//грузим 2 картинку в нужные координаты
 
Circle(x,y,r);
Dec(r,2);
dec(y,7);
Sleep(10);
redraw;
until r<10;
end.

b:=PictureABC.Create(0,0,'1.bmp');

b:=PictureABC.Create(0,0,'1.bmp');

uses GraphABC;
begin
  var p := Picture.Create('C:\PABCWork.NET\Samples\Applications\TextEditor\Save.png');
  p.Draw(100,10);
  
  var pL := Picture.Create(p.Height, p.Width);
  var pR := Picture.Create(p.Height, p.Width);
  for var y := 0 to p.Width-1 do
    for var x := 0 to p.Height-1 do
      begin
        var c := p.GetPixel(x, y);
        pL.SetPixel(y, p.Height-x-1, c);
        pR.SetPixel(p.Width-y-1, x, c);
      end;
      
  pL.Draw(100 - p.Width, 10 + p.Height);
  pR.Draw(100 + p.Width, 10 + p.Height);
end.

uses GraphABC,ABCObjects;
Var x, y, r,x1,y1,r1,x0,y0,i: Integer;
var b:Picture;
var b2:PictureABC;
begin
SetWindowSize(500,500);
centerwindow;
lockdrawing;
x := 280;
y := 350;
r := 60; // шар
setpenwidth(15);
b:=Picture.Create('1.bmp');
Repeat 
clearwindow;
setpencolor(clRed);
setbrushcolor(clRed);
b.Draw(0,0);
Circle(x,y,r);
Dec(r,2);b2:=PictureABC.Create(280,130,'k1.png'); 
dec(y,7);
Sleep(10);b2.Destroy;
redraw;
b2:=PictureABC.Create(280,130,'k1.png'); 
b2.Destroy;
until r<10;
b2:=PictureABC.Create(280,170,'k2.png'); 
end.