Processamento de Imagem

Question

CAROS AMIGOSPRECISO, �P�S FAZER A LEITURA DAS CORES DA IMAGEM SUBSTITUIR AS PROXIMAS, OU SEJA, PEGAR O VARIOS TONS DE CINZA QUE APARECE E TORNA-LO UM S� BASEADO NO QUE MAIS APARECE, PRECISO DE ALGUMAS...

Beppe · Answer

Como pretende identificar os tons de cinza? Por regra, os valores de R, G e B s�o os mesmos, mas se houver leves varia��es o resultado ainda ser� cinza.Ataliba...

Soldi · Answer

[quote:3a5ff27457=�Ataliba�]Como pretende identificar os tons de cinza? Por regra, os valores de R, G e B s�o os mesmos, mas se houver leves varia��es o resultado ainda ser� cinza.Ataliba[/quote:3a5ff27457]QUANDO FA�O UMA VARREDURA PIXEL A PIXEL, GUARDANDO A COR E A QTDE QUE ELA APARECE, APARECEM VARIOS TONS, O QUE PRECISO � TESTA-LOS E TRANSFORMA-LOS EM UM S�.SE TIVER MAIS ALGUMA DICA, FICO GRATOSOLDI...

Beppe · Answer

Onde est� armazenando as cores?...

Soldi · Answer

[quote:f1ba3ec82d=�Ataliba�]Onde est� armazenando as cores?[/quote:f1ba3ec82d]em um vetor record, ele se ajusta ao tamanho existente de cada cor e suas qtdes..soldi...

Mtakaki · Answer

Rapaz eu tamb�m estou tendo o mesmo problema, eu estou armazenando os valores de uma imagem (0-255, em tons de cinza) num array din�mico do tamanho da imagem, mas na hora de visualizar fica com defeitos, para transformar os valores na escale de cinza eu utilizo um fun��o que muda da base decimal para hexdecimal, ex: (255 - manda o valor 255 e retorna $FFFFFF e j� tentei $00FFFFFF, em cada componente do RGB retorna o valor igual para cada um 255=FF), mas mesmo assim n�o aparece certo. algu�m pode me dizer como fazer?

pois � eu tb quero substituir as cores, mas nao em tons de conza, mas amntendo as cores, paenas reduzir as tonalidades, ou seja, tornar varios tons de cinza em apenas um s�, a� � o problema, a imagem retornada fica com uma cor s�, nao se mantem os padroes, tb nao sei como fazer.
soldi

Soldi · Answer

[quote:da335818d7=�mtakaki�]Rapaz eu tamb�m estou tendo o mesmo problema, eu estou armazenando os valores de uma imagem (0-255, em tons de cinza) num array din�mico do tamanho da imagem, mas na hora de visualizar fica com defeitos, para transformar os valores na escale de cinza eu utilizo um fun��o que muda da base decimal para hexdecimal, ex: (255 - manda o valor 255 e retorna $FFFFFF e j� tentei $00FFFFFF, em cada componente do RGB retorna o valor igual para cada um 255=FF), mas mesmo assim n�o aparece certo. algu�m pode me dizer como fazer?[/quote:da335818d7]pois � eu tb quero substituir as cores, mas nao em tons de conza, mas amntendo as cores, paenas reduzir as tonalidades, ou seja, tornar varios tons de cinza em apenas um s�, a� � o problema, a imagem retornada fica com uma cor s�, nao se mantem os padroes, tb nao sei como fazer.soldi...

Mtakaki · Answer

Ei cara eu consegui resolver uma parte, eu fiz assim:

No caso para 256 tons de cinza:
0 - preto
255 - branco

Como voc� viu o Tcolor � no formato hexadecimal, segundo o help do delphi. Eu fiquei testando o que poderia ser, ent�o usei um Image.Canvas.Pen:= Tcolor(255); e retornou a cor vermelha, ent�o eu notei que o Tcolor teria que passar o valor em base 10 e n�o na base 16.
fiz o seguinte ex:
o valor 200 - transformei para hexadecimal, no caso C8 ent�o para cada componente RGB concatenei e resultou C8C8C8 ( 1� par Azul, 2� Verde e 3� Vermelho).
Usei uma fun��o que retornava o valor em decimal, no caso retornava 13158600 pelo menos para o meu programa funcionou, s� notei um problema uma das fotos que eu tentei abrir ficou com um problema, apareceram uns pontos vermelhos. No caso n�o � necess�rio fazer essas transforma��es pega o valor (x) e faz cada x retornar 16^2*x+16^1*x+16^0*x, que vai retornar o valor tamb�m;

{-------Procedimento para transformar em decimal para Hexadecimal----}
function DecToBase( Decimal: LongInt): String;
const
Symbol: String[16] = �0123456789ABCDEF�;
var
Strin: String;
Bas: Byte;
begin
Strin := ��;
repeat
Bas := Decimal mod 16;
Strin := Symbol[Bas + 1] + Strin;
Decimal := Decimal div 16;
until ( Decimal = 0 );
Result := Strin;
end;

{-------Procedimento para transformar em Hexadecimal para decimal ----}

function retornaBase( Str: String): Integer;
var
x,y,z:integer;
valor:real;
begin
x:=length(Str); z:=0; valor:=0;
repeat
case Str[x] of
�0�:y:=0;
�1�:y:=1;
�2�:y:=2;
�3�:y:=3;
�4�:y:=4;
�5�:y:=5;
�6�:y:=6;
�7�:y:=7;
�8�:y:=8;
�9�:y:=9;
�A�:y:=10;
�B�:y:=11;
�C�:y:=12;
�D�:y:=13;
�E�:y:=14;
�F�:y:=15;
end;
valor:=valor+(power(16,z))*y;
x:=x-1; z:=z+1;
until ( x = 0 );
Result := round(valor);
end;

Mtakaki · Answer

Ei acabei de ver que estava enganado em rela��o a transforma��o direto, tem que passar de decimal para hexa e de hexa para decimal...

Jaguarnet7 · Answer

sobe...

Beppe · Answer

Aqui vai em pseudo-c�digo:[code:1:9b8090ff9e]para cada coluna X  para cada linha Y    se o pixel em (X, Y) � tom de cinza, ent�o      adicione o ponto (X, Y) � tabela Pontos      adicione a cor do pixel em (X, Y) � tabela Coresdescubra a cor Cor predominante na tabela Corespara cada item (X, Y) na tabela Pontos  mude o pixel em (X, Y) para a cor Cor[/code:1:9b8090ff9e]Para a tabela Pontos pode-se usar um vetor n�o-ordenado.A tabela Cores pode ser implementada como um tabela de dispers�o(hash table). Cada item na tabela � composto por (Cor, Apari��es)O m�todo de inser��o na tabela Cores primeiro verifica se a cor existe; em caso positivo incrementa-se o campo Apari��es do item, sen�o um novo item � adicionado.[code:1:9b8090ff9e]se existe Cor em um item C de Cores, ent�o  C.Apari��es <- C.Apari��es + 1sen�o  C <- (Cor, 1)  adicione C � Cores[/code:1:9b8090ff9e]...

Nildo · Answer

Pelo que entendi voc� quer transformar uma imagem para um tom de cinza? Usa essa fun��o que eu criei:

procedure TomDeCinza(const Bmp: TBitmap);
type
  TRGBArray = array[0..32767] of TRGBTriple;
  PRGBArray = ^TRGBArray;
var 
  x, y, Cinza: Integer; 
  Linha: PRGBArray; 
begin 
  Bmp.PixelFormat := pf24Bit; 
  for y := 0 to Bmp.Height - 1 do 
  begin 
    Linha := Bmp.ScanLine[y]; 
    for x := 0 to Bmp.Width - 1 do 
    begin 
      Cinza           := (Linha[x].rgbtRed + Linha[x].rgbtGreen + Linha[x].rgbtBlue) div 3;
      Linha[x].rgbtRed := Cinza; 
      Linha[x].rgbtGreen := Cinza; 
      Linha[x].rgbtBlue := Cinza;
    end;
  end;
end;

Existem formas mais r�pidas de se fazer isso. Mas � complicado mexer em Assembler. Mas acho que o que tem aqui j� resolve.

F�rum Processamento de Imagem #188415