Fórum Tratamento de Imagens #326553

// Declara o vetor das três cores
    int VetorR[256], VetorG[256], VetorB[256];

    // Zera o vetor das cores
    for (int x=0; x<256; x++)
    {
        VetorR[x] = 0;
        VetorG[x] = 0;
        VetorB[x] = 0;
    }

    // Percorre os píxels somando a posição correspondente à intensidade no vetor da cor
    for (int y = 0; y < Image1->Height; y++)
    {
        for (int x = 0; x < Image1->Width; x+=3)
        {
            VetorR[GetRValue(Image1->Canvas->Pixels[x][y])]++;
            VetorG[GetGValue(Image1->Canvas->Pixels[x][y])]++;
            VetorB[GetBValue(Image1->Canvas->Pixels[x][y])]++;
        }
    }

    // Mostra o gráfico de intensidades da cor Vermelha
    for (int x=0; x<256; x++)
    {
        Image2->Canvas->MoveTo(x, 0);
        Image2->Canvas->LineTo(x, VetorR[x]/2);
    }

    // Mostra o gráfico de intensidades da cor Verde
    for (int x=0; x<256; x++)
    {
        Image3->Canvas->MoveTo(x, 0);
        Image3->Canvas->LineTo(x, VetorG[x]/2);
    }

    // Mostra o gráfico de intensidades da cor Azul
    for (int x=0; x<256; x++)
    {
        Image4->Canvas->MoveTo(x, 0);
        Image4->Canvas->LineTo(x, VetorB[x]/2);
    }