1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
//appel à la fonction de traçage de cercle
cercleBMP ();
//fin de l'appel
Label4->Caption=IntToStr(a1);
Label5->Caption=IntToStr(a2);
Label6->Caption=IntToStr(b1);
Label7->Caption=IntToStr(b2);
for(x=0;x<height;x++)
{
for(y=0;y<width;y++)
{
//c=imag[x][y];
// cc=im [x][y];
cc1=imagette[x][y];
cc2=imagette1[x][y];
Form3->Image2->Canvas->Pixels[y][x]=imag[x][y];//image avec un cercle (contour initial)
Form3->Image3->Canvas->Pixels[y][x]=im[x][y];
Form3->Image4->Canvas->Pixels[y][x]=(TColor)RGB(cc1,cc1,cc1);
Form3->Image5->Canvas->Pixels[y][x]=(TColor)RGB(cc2,cc2,cc2);
}
} |
Partager