
Lib_turn -       

---------------------------------------------------------------------------------------------------------------

image Rotate(im: image; alpha: integer) -   ,    alpha
    1:           
    2: ,         
     : im:=Rotate(im, 10); ..    .
      :
    DrawImage(Rotate(im, 10), 10, 10); //           
    3:        90/180/270   
     Lib_sprite  .
    
---------------------------------------------------------------------------------------------------------------
 ,  :

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

2008 (c) odd
   SE K550i
