typedef struct rgb {
     BYTE b;
     BYTE g;
     BYTE r;
} rgb;

const     MaxX =  4060 , MaxY= 4700 ; // Размер картинки
rgb       a[MaxY][MaxX], b[MaxX];
int       x, y, 
int       x1= 135 , x2= 3985 , y1= 135 , y2= 4505 ,  // Угловые точки карты (не считая боковых полосок)
int       idx, idy;
double    dx, dx1=- 5 , dx2= 29 , dx3=- 9 , dx4= 54 ; // На сколько нужно сдвигать каждую из четырех 
                                                               // угловых точек
double    dy, dy1= 7 ,  dy2= 5 ,  dy3= 2 ,  dy4= 0 ;
char      Buf[ 1000 ];

void fun(void)
{
 int      n;
 FILE     *in, *out;

 in = fopen("na-40-81.bmp", "rb");
 if (in == NULL) {
     Application->MessageBox("Входной файл не открыт", "", MB_OK);
     return;
 } // if

 out = fopen("na40081.bmp", "wb");
 if (out == NULL) {
     Application->MessageBox("Выходной файл не открыт", "", MB_OK);
     return;
 } // if

 fread(Buf,  54 ,  1 , in);
 fread(a,  1 ,  3 *MaxX*MaxY, in);
 fwrite(Buf,  54 ,  1 , out);

 for (y=MaxY- 1 ; y>= 0 ; y--) {
     for (x =  0 ; x < MaxX; x++) {
          if (x% 100  ==  0 ) {
               b[x].r =  0 ;
          } // if
          dx = (dx4*(x-x1)*(y-y1))/((x2-x1)*(y2-y1)) +
               (dx3*(x-x2)*(y-y1))/((x1-x2)*(y2-y1)) +
               (dx2*(x-x1)*(y-y2))/((x2-x1)*(y1-y2)) +
               (dx1*(x-x2)*(y-y2))/((x1-x2)*(y1-y2));
          dy = (dy4*(x-x1)*(y-y1))/((x2-x1)*(y2-y1)) +
               (dy3*(x-x2)*(y-y1))/((x1-x2)*(y2-y1)) +
               (dy2*(x-x1)*(y-y2))/((x2-x1)*(y1-y2)) +
               (dy1*(x-x2)*(y-y2))/((x1-x2)*(y1-y2));
          idx = dx;
          idy = dy;
          if (x+idx< 0  || x+idx>=MaxX || y+idy< 0  || y+idy>=MaxY) {
               b[x].r =  0 ;
               b[x].g =  0 ;
               b[x].b =  0 ;
          } else {
               b[x].r = a[MaxY- 1 -y-idy][x+idx].r;
               b[x].g = a[MaxY- 1 -y-idy][x+idx].g;
               b[x].b = a[MaxY- 1 -y-idy][x+idx].b;
          } // else
     } // for
     fwrite(b,  1 ,  3 *MaxX, out);
 } // for

 fclose(in);
 fclose(out);
}