MensajePublicado: Lun 09 Ago, 2004 2:52 pm    Asunto: Convertir una Imagen a Escala de Grises Responder citando
Buenas,

Aprovechando la proximidad de la vacaciones voy a indicar cual es la forma de convertir una imagen a Escala de Grises.

Código:

  Graphics::TBitmap *src = new Graphics::TBitmap();

  src->PixelFormat=pf24bit;
  src->LoadFromFile("Vacaciones.bmp"); // Cargo la imagen a Convertir

  byte *p0;
  int x,y,Gray;


  for(y=0;y<src->Height;y++)
  {
     p0=(Byte *)src->ScanLine[y];
     for (x=0; x<src->Width;x++)
     {
      Gray=(int)( (p0[(x*3)]*0.3)+(p0[(x*3+1)]*0.59)+(p0[(x*3+2)]*0.11));
      p0[x*3]=Gray;
      p0[x*3+1]=Gray;
      p0[x*3+2]=Gray;
     }
  }

  Image1->Picture->Assign(src);

  delete src;
 


Espero que le sirva a alguien!!
_________________
Saludos
~~~~~~~~
Wink _Willa
~~~~~~~~
www.avancegame.com