more glitching is not a crime

Fonderie/crapulator.c

@@ -132,6 +132,17 @@ count++;	flag_debug = 0;
 
 return retval;
 }
+/* -------------------------------------------------------------- */
+char * crap_name_from_number(int num)
+{
 
+return "???";
+}
+/* -------------------------------------------------------------- */
+int crap_number_from_name(char *name)
+{
+
+return -1;
+}
 /* -------------------------------------------------------------- */
 

Fonderie/glitches.c

@@ -51,4 +51,55 @@ for (idx=0; idx<number; idx++) {
 return foo;
 }
 /*   --------------------------------------------------------------   */
+int un_petit_flou_8x8(FloatImg *picture, int xpos, int ypos)
+{
+float	sr, sg, sb;
+int	x, y, off;
+
+/*
+ *  please add boundary check ?
+ */
+
+sr = sg = sb = 0.0;
+for (y=0; y<8; y++) {
+	off = xpos + (picture->width * (y+ypos));
+	for (x=0; x<8; x++) {
+		sr += picture->R[off];
+		sg += picture->G[off];
+		sb += picture->B[off];
+		off++;
+		}
+	}
+sr /= 64.0;	sg /= 64.0;	sb /= 64.0;
+for (y=0; y<8; y++) {
+	off = xpos + (picture->width * (y+ypos));
+	for (x=0; x<8; x++) {
+		picture->R[off] = sr;
+		picture->G[off] = sg;
+		picture->B[off] = sb;
+		off++;
+		}
+	}
+
+return 0;
+}
+/*   --------------------------------------------------------------   */
+int un_moyen_flou_8x8(FloatImg *picture, int xpos, int ypos)
+{
+int	i, j, x, y;
+
+for (i=y=0; i<8; i++, y+=8) {
+	for (j=x=0; j<8; j++, x+=8 ) {
+		un_petit_flou_8x8(picture, x+xpos, y+ypos);
+		}
+	}
+return -1;
+}
+/*   --------------------------------------------------------------   */
+int poke_a_random_pixel(FloatImg *picz, float fval, int kaboo)
+{
+
+return -1;
+}
+/*   --------------------------------------------------------------   */
 

Fonderie/glitches.h

@@ -5,4 +5,8 @@
 int kill_a_random_line(FloatImg *pvictime, float level, int bits);
 int kill_a_few_lines(FloatImg *who, float fval, int number);
 
+int un_petit_flou_8x8(FloatImg *picture, int x, int y);
+int un_moyen_flou_8x8(FloatImg *picture, int x, int y);
+int poke_a_random_pixel(FloatImg *picz, float fval, int kaboo);
+
 /* this is a wtf file */

Fonderie/interpolator.c

@@ -77,6 +77,9 @@ for (idx=0; idx<globbuf.gl_pathc; idx++) {
 		fprintf(stderr, "crapulator failure %d\n", foo);
 		exit(1);
 		}
+	un_moyen_flou_8x8(&B,  20, 20);
+	un_moyen_flou_8x8(&B, 220, 20);
+	un_moyen_flou_8x8(&B, 420, 20);
 
 	for (step=0; step<Nsteps; step++) {
 		coef = (float)step / (float)Nsteps;

Fonderie/metriques.h

@@ -4,6 +4,8 @@
 
 /*   --------------------------------------------------------------   */
 
+/*		first experiment */
+
 int get_float_metric(FloatImg *pimg, float *where, int whot)
 
 /*   --------------------------------------------------------------   */