364_____________________________________________ 5

,     ,   .    -
    ,   ,     -
,   Bitmap,      .   ,  -
 ,       Draw  CopyRect. 
         .

      ,   -
  ,    .       -
,      ,    ,  
 .      . 5.15  5.16,  -
,   .         -
,   .        
 ,     .       -
          -
  .

 ,   ,     -
  .       ,  
      ,
     .   
    ,   -
 .       
 .   ,       
   .     -
            -
 .

      . 
            -
   .       ,   -
  .       .

^define Pi 3.1415926535897932385

short int cadr = 0;           //  

short int H=30;               //    

short int Xpos = 3 * H;       //   

short int Ypos = 120;         // ""

short int Hmen = 30;          //  

short int Rhead = 10;         //  

short int revers =1;         //  

short int L = H * 1.41;       //  

short int Ncadr=16;           //    

//-

void _fastcall TFormI::Draw()
(

float Angi = Pi/4*(1+(2.*cadr)/(Ncadr-1));

short int Yb = Ypos-H*sin(Angi);

short int Yt = Yb-Hmen;