Ver Mensaje Individual
  #1  
Antiguo 20-01-2005
elcaracas elcaracas is offline
Miembro
 
Registrado: ene 2005
Posts: 26
Reputación: 0
elcaracas Va por buen camino
Matriz de Pixeles. Necesito velocidad!!

Hola. Mi problema es el siguiento.

Estoy haciendo un programa de tratamiento de archivos *.FIT. estos archivos guardan una matriz de números enteros de 16-bits (0 a 65535). Estos se dividen por 256 y la pasamos a 8-bits. En realidad es una foto en blanco y negro con 65536 niveles de grises y la paso a 256 niveles de grises. La represento pixel a pixel para visualizarla, del siguiente modo:

Supongamos que f[i,j] es la matriz que guarda la información de la foto.
la foto es de 512x512 pixeles:

el código es el siguiente:

for j:=0 to 511 do
for i:=0 to 511 do
begin
b:=round(f[i,j]/256); {b:byte}
Image1.canvas.pixel[i,j]:=rgb(b,b,b);
end;

pero esto va extremadamente lento.

Alguien sabe como puedo representar esta matriz mas rápido?

Muchas gracias!
Responder Con Cita