336____________

. 5.8

  

 5

      . 5.8.

         Width = 1.  -
       .

 psInsideFrame  ,    -
.          
Windows.

    PenPos.     
   .     , .. -
 PenPos,    MoveTo(X,Y).  (X,Y)  -
 ,    .     -
,    LineTo(X,Y)       -
 (X,Y).          
  LineTo        .

        .
  ,       Image  -
  ,     . 5.7.   
Image    ,       
     ,   .  
   ,     
   Size.

          
  

Image2->Canvas->MoveTo(0,Image2->Height / 2);

           
    .      

Image2->Canvas->LineTo(PX,PY) ;

     ,   . 
,      :

#define Pi 3.14159

float X,Y;         //  
int PX,PY;         //  
Image2->Canvas->MoveTo(0,Image2->Height / 2);

for (PX = 0; PX <= Imagel->Width; PX++)

{

//X  ,     PX
X =  * 4 * Pi / Imagel->Width;

Y = sin(X) ;

//PY   , '  Y
PY = Imagel->Height - (Y+1) * Ima-gel->Height / 2;

//    
Imagel->Canvas->Pixels[PX][PY] = clBlack;

//    
Image2->Canvas->LineTo(PX,PY) ;

1

     ,      
  , ,    