ag
int main(void){

	Image monImage;
	monImage = ImRead("chenille.ppm");
	unsigned char **red,**green,**blue, **gris;
	red = ImGetR(monImage);
	green = ImGetG(monImage);
	blue = ImGetB(monImage);
	int nbr = ImNbRow(monImage);
	int nbc = ImNbCol(monImage);
	Image Imgl = ImAlloc(GrayLevel,nbr,nbc);
	gris = ImGetI(Imgl);

	for (int i=0;i<nbr;i++){
		for (int j=0;j<nbc;j++)
		{

			gris[i][j] =(red[i][j]*0.299f + green[i][j]*0.587f + blue[i][j]*0.114);
		}
	}

	ImWrite(Imgl, "chenille.pgm");
	ImFree(&monImage);
	ImFree(&Imgl);

	return 0;
}


#include <stdio.h>
#include <stdlib.h>
#include "limace.h"


int main(void){

	Image monImage = ImRead("chenille.pgm");
	unsigned char **gris;
	Matrix matrice = MatCAlloc(Int,1,256);
	int **M = MatGetInt(matrice);
	int nbr = ImNbRow(monImage);
	int nbc = ImNbCol(monImage);
	gris = ImGetI(monImage);

	for (int i=0;i<nbr;i++){
		for (int j=0;j<nbc;j++)
		{

			M[0][gris[i][j]]++;
		}
	}

	MatWriteAsc(matrice , "chenille.mx");
	MatFree(&matrice);
	ImFree(&monImage);


	return 0;
}

#include "limace.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

int main(int argc, char *argv[]) {

	Matrix H;
	int **getH;
	int k;

	Image ImGris, ImBW;
	int NbLig, NbCol, i, j, seuil;

	unsigned char **G, **IBW;

	if(argc!=2){
		return 0;
	}

	seuil=atoi(argv[1]);

	H=MatReadAsc("chenille-hist.mx");
	getH=MatGetInt(H);

	for(k=0; k<256; k++){
		printf("%d %d\n",k,getH[0][k]);
	}

	MatFree(&H);


	ImGris=ImRead("chenille.pgm");
	NbLig=ImNbRow(ImGris);
	NbCol=ImNbCol(ImGris);
	G=ImGetI(ImGris);

	ImBW=ImAlloc(BitMap,NbLig,NbCol);
	IBW=ImGetI(ImBW);

	for(i=0; i<NbLig; i++)
	  for(j=0; j<NbCol; j++){
		if(G[i][j]<seuil)
		     IBW[i][j]=0;
		else
		     IBW[i][j]=1;
	  }

ImWrite(ImBW,"chenille.pbm");

ImFree(&ImGris);
ImFree(&ImBW);

return 0;

}

#include "limace.h"

int main() {

	Image Im, ImLSD;
	int NbLig, NbCol, i, j;

	unsigned char **R, **G, **B, **RLSD, **GLSD, **BLSD;

	Im=ImRead("chenille.ppm");
	NbLig=ImNbRow(Im);
	NbCol=ImNbCol(Im);
	R=ImGetR(Im);
	G=ImGetG(Im);
	B=ImGetB(Im);

	ImLSD=ImAlloc(Color,NbLig,NbCol);
	RLSD=ImGetR(ImLSD);
	GLSD=ImGetG(ImLSD);
	BLSD=ImGetB(ImLSD);

	for(i=0; i<NbLig; i++)
	for(j=0; j<NbCol; j++){
	if(R[i][j]<128)
	     RLSD[i][j]=0;
	else
	     RLSD[i][j]=255;

	if(G[i][j]<128)
	     GLSD[i][j]=0;
	else
	     GLSD[i][j]=255;

	if(B[i][j]<128)
	     BLSD[i][j]=0;
	else
	     BLSD[i][j]=255;
	}

	ImWrite(ImLSD,"chenille-lsd.ppm");

	ImFree(&Im);
	ImFree(&ImLSD);

return 0;

}