?ť??ť?{\rtf1\ansi\ansicpg950\deff0\deflang1033\deflangfe1028{\fonttbl{\f0\fmodern\fprq6\fcharset136 \'b7\'73\'b2\'d3\'a9\'fa\'c5\'e9;}}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\lang1028\f0\fs20\par
int f=0,g=0,h=0,i,j,x,y,p=0,q=0,r=0,s=0,x0,y0,have=0;\par
int flag=1;\par
Byte *ptr1, *ptr2, *ptr3, *ptr_1, *ptr_2, *ptr_3, *ptr_4, *ptr_5;\par
Bitmap4->Assign(Bitmap2);\par
Bitmap4->Height=Image1->Height;\par
Bitmap4->Width=Image1->Width;\par
for(y=0;y<=Bitmap4->Height-1;y++)\par
\{\par
   ptr1=(Byte *)Bitmap4->ScanLine[y];\par
   for(x=0;x<=Bitmap4->Width-1;x++)\par
   \{\par
      if(ptr1[x*3]!=0)\par
      \{\par
         ptr1[x*3]=255;\par
         ptr1[x*3+1]=255;\par
         ptr1[x*3+2]=255;\par
      \}\par
      else\par
      \{\par
         ptr1[x*3]=0;\par
         ptr1[x*3+1]=0;\par
         ptr1[x*3+2]=0;\par
      \}\par
   \}\par
\}\par
\par
while(1)\par
\{\par
   x=1;\par
   y=1;\par
   ptr1=(Byte *)Bitmap4->ScanLine[y];\par
   while(ptr1[x*3]!=255)\par
   \{\par
      if(x==Bitmap4->Width-2 && y==Bitmap4->Height-2)\par
      \{\par
         have=1;\par
         break;\par
      \}\par
      if(x==Bitmap4->Width-1)\par
      \{\par
         x=0;\par
         y++;\par
      \}\par
      x++;\par
      ptr1=(Byte *)Bitmap4->ScanLine[y];\par
   \}\par
 \par
   if(have==1)\par
   \{\par
      break;\par
   \}\par
      y0=y;\par
      ptr1[x*3]=flag;\par
      ptr1[x*3+1]=flag;\par
      ptr1[x*3+2]=flag;\par
      for(y=y0;y<=Image1->Height-2;y++)\par
      \{\par
         ptr2=(Byte *)Bitmap4->ScanLine[y];\par
         for(x=1;x<=Image1->Width-2;x++)\par
         \{\par
            if(ptr2[x*3]==flag)\par
            \{\par
               for(j=y-1;j<y+2;j++)\par
               \{\par
                  ptr_1=(Byte *)Bitmap4->ScanLine[j];\par
                  for(i=x-1;i<x+2;i++)\par
                  \{\par
                     if(ptr_1[i*3]==255)\par
                     \{\par
                        ptr_1[i*3]=flag;\par
                        ptr_1[i*3+1]=flag;\par
                        ptr_1[i*3+2]=flag;\par
                     \}\par
                  \}\par
               \}\par
            \}\par
         \}\par
         ptr2=(Byte *)Bitmap4->ScanLine[y];\par
         for(x=Image1->Width-2;x>=1;x--)\par
         \{\par
            if(ptr2[x*3]==flag)\par
            \{\par
               for(j=y-1;j<y+2;j++)\par
               \{\par
                  ptr_2=(Byte *)Bitmap4->ScanLine[j];\par
                  for(i=x-1;i<x+2;i++)\par
                  \{\par
                     if(ptr_2[i*3]==255)\par
                     \{\par
                        ptr_2[i*3]=flag;\par
                        ptr_2[i*3+1]=flag;\par
                        ptr_2[i*3+2]=flag;\par
                     \}\par
                  \}\par
               \}\par
            \}\par
         \}\par
      \}\par
      flag++;\par
\}\par
for(j=1;j<flag;j++)\par
\{\par
   for(y=0;y<=Bitmap4->Height-1;y++)\par
   \{\par
      ptr_4=(Byte *)Bitmap4->ScanLine[y];\par
      for(x=0;x<=Bitmap4->Width-1;x++)\par
      \{\par
         if(ptr_4[x*3]==j)\par
         \{\par
            ptr_4[x*3]=50;\par
            ptr_4[x*3+1]=255;\par
            ptr_4[x*3+2]=255;\par
            p+=x;\par
            q++;\par
            r+=y;\par
            s++;\par
         \}\par
      \}\par
   \}\par
   int xx=p/q;\par
   int yy=r/s;\par
   for(int b=yy-1;b<=yy+1;b++)\par
   \{\par
      ptr_5=(Byte *)Bitmap4->ScanLine[b];\par
      if(b==yy-1)\par
      \{\par
         ptr_5[xx*3]=0;\par
         ptr_5[xx*3+1]=0;\par
         ptr_5[xx*3+2]=255;\par
      \}\par
      if(b==yy)\par
      \{\par
         for(int a=xx-1;a<=xx+1;a++)\par
         \{\par
            ptr_5[a*3]=0;\par
            ptr_5[a*3+1]=0;\par
            ptr_5[a*3+2]=255;\par
         \}\par
      \}\par
      if(b==yy+1)\par
      \{\par
         ptr_5[xx*3]=0;\par
         ptr_5[xx*3+1]=0;\par
         ptr_5[xx*3+2]=255;\par
      \}\par
   \}\par
\par
   p=q=r=s=0;\par
\par
\}\par
Image1->Picture->Assign(Bitmap4);\par
\par
 \par
\par
\par
}
 