[odd]

Сообщение от Dj_smart

А можно сделать так, чтобы выводить картинку прям на дисплей, не засоряя память?
типа:
DrawRotate(img,x,y,Angle);

Добавил такую функцию.
Называется DrawRotated(img, angle, x, y).
Тестовый пример тогда немного тоже изменится:

Program TurnTest;
Uses    turn;
Var     im: image;
        i: integer;
Begin
     im:=LoadImage('/licq.png');
    SetColor(255, 255, 255);
    for i:=0 to  360 do
    begin
        FillRect(0, 0, GetWidth, GetHeight);
         DrawRotated(im, i, 10, 10);
        Repaint; Delay(10);
    end;
     Repaint; Delay(5000);
End.