From 3778e75399a10509c4b29900d5bb11b82a0ac7b1 Mon Sep 17 00:00:00 2001
From: tonton th <sigfood@dinorama.fr>
Date: Sat, 16 Jan 2021 11:29:40 +0100
Subject: [PATCH] + multidots glitcher

---
 Fonderie/crapulator.c    |  7 ++++---
 Fonderie/crapulors.liste |  3 ++-
 Fonderie/essai.sh        |  4 ++--
 Fonderie/glitches.c      | 45 +++++++++++++++++++++++++++++++++-------
 Fonderie/glitches.h      |  1 +
 Fonderie/interpolator.c  |  4 ++--
 Fonderie/t.c             |  2 +-
 7 files changed, 50 insertions(+), 16 deletions(-)

diff --git a/Fonderie/crapulator.c b/Fonderie/crapulator.c
index 28d525fc..156fc235 100644
--- a/Fonderie/crapulator.c
+++ b/Fonderie/crapulator.c
@@ -97,7 +97,6 @@ FimgFilter3x3	hipass = {
 	1.0,	0.0
 	};
 
-
 switch (typef) {
 	case 0:		pfiltre = &lowpass;		break;
 	case 1:		pfiltre = &hipass;		break;
@@ -248,11 +247,13 @@ switch (idFx) {
 		break;
 
 	case CR_qsortrgb:
-		// fprintf(stderr, "!!! %d !!!\n", idFx);
-		// retval = fimg_qsort_rgb_b(image, image, 0);
 		retval = trier_les_pixels(image);
 		break;
 
+	case CR_multidots:
+		retval = plot_multidots(image, 42);
+		break;
+
 	case CR_message:
 		fprintf(stderr, "### msg from pid %d, fval=%f ###\n",
 						getpid(), fval);
diff --git a/Fonderie/crapulors.liste b/Fonderie/crapulors.liste
index fdcf635c..05fd1f25 100644
--- a/Fonderie/crapulors.liste
+++ b/Fonderie/crapulors.liste
@@ -25,6 +25,7 @@
 26	rndblks		1	1.0
 27	shiftln0	1	1.0
 28	qsortrgb	2	1.0
-42	nothing		42	3.14159
+30	multidots	100	1.333
+42	nothing		42	3.1415926
 99	message		1	1.0
 -1	end		1	1.0
diff --git a/Fonderie/essai.sh b/Fonderie/essai.sh
index a4081ed2..a3fe3d44 100755
--- a/Fonderie/essai.sh
+++ b/Fonderie/essai.sh
@@ -31,8 +31,8 @@ convert -delay 200 /tmp/fstack*.png foo.gif
 essai_singlepass ()
 {
 MP4="/home/tth/Essais/FondageDePlomb/foo.mp4"
-INPUT="/home/tth/Essais/FondageDePlomb/capture/00???.fimg"
-FILTRE="trinitron"
+INPUT="/home/tth/Essais/FondageDePlomb/capture/02[0123]??.fimg"
+FILTRE="multidots:liss3x3:liss3x3"
 OUTDIR="/tmp/x8/"
 
 echo '********* essai single *********'
diff --git a/Fonderie/glitches.c b/Fonderie/glitches.c
index 5e3e971d..9666c42c 100644
--- a/Fonderie/glitches.c
+++ b/Fonderie/glitches.c
@@ -120,6 +120,24 @@ for (y=0; y<8; y++) {
 return 0;
 }
 /*   --------------------------------------------------------------   */
+int plot_multidots(FloatImg *picture, int notused)
+{
+int		pass, szimg, osrc, odst;
+
+szimg = picture->width * picture->height;
+
+for (pass=0; pass<szimg/32; pass++) {
+
+	osrc = rand() % szimg;
+	odst = rand() % szimg;
+	picture->R[odst] = (picture->R[osrc] + picture->R[odst]) / 2.0;
+	picture->G[odst] = (picture->G[osrc] + picture->G[odst]) / 2.0;
+	picture->B[odst] = (picture->B[osrc] + picture->B[odst]) / 2.0;
+
+	}
+
+return 0;
+}
 int random_blocks(FloatImg *picture, int percent)
 {
 int		x, y;
@@ -212,16 +230,26 @@ for (y=BB; y<h-BB; y++) {
 return 0;
 }
 /*   --------------------------------------------------------------   */
-static void shifter(float *fs, float *fd, int w, int nbr)
+static void shifter(float *fs, float *fd, int stp, int largeur)
 {
-int	krkr;
+int	xpos;
 
-for (krkr=0; krkr<nbr; krkr++) {
-	fd[krkr] = fs[(krkr+w)%nbr];
+/* move the pixels */
+for (xpos=0; xpos<largeur; xpos++) {
+	fd[xpos] = fs[(xpos+stp)%largeur];
 	}
 /* take your sixpack, film at 11 */
 }
 
+static void smooth_line(float *fs, float *fd, int sz)
+{
+int	xpos;
+for (xpos=1; xpos<(sz-1); xpos++) {
+	fd[xpos] = (fs[xpos-1]+fs[xpos]+fs[xpos+1]) / 3.0;
+	}
+fd[0] = fd[sz-1] = 0.0;
+}
+
 int multilines_shift_0(FloatImg *picz, int step, int nombre)
 {
 float		*buffline, *sptr;
@@ -242,15 +270,18 @@ for (idx=0; idx<nombre; idx++) {
 
 	sptr = picz->R + (ypos * picz->width);
 	shifter(sptr, buffline, step, picz->width);
-	memcpy(sptr, buffline, picz->width*sizeof(float));
+	smooth_line(buffline, sptr, picz->width);
+	// XXX memcpy (sptr, buffline, picz->width*sizeof(float));
 
 	sptr = picz->G + (ypos * picz->width);
 	shifter(sptr, buffline, step, picz->width);
-	memcpy(sptr, buffline, picz->width*sizeof(float));
+	smooth_line(buffline, sptr, picz->width);
+	// XXX memcpy (sptr, buffline, picz->width*sizeof(float));
 
 	sptr = picz->B + (ypos * picz->width);
 	shifter(sptr, buffline, step, picz->width);
-	memcpy(sptr, buffline, picz->width*sizeof(float));
+	smooth_line(buffline, sptr, picz->width);
+	// XXX memcpy (sptr, buffline, picz->width*sizeof(float));
 	}
 
 return 0;
diff --git a/Fonderie/glitches.h b/Fonderie/glitches.h
index deb12959..b46b83ff 100644
--- a/Fonderie/glitches.h
+++ b/Fonderie/glitches.h
@@ -3,6 +3,7 @@
  */
 
 int do_something(FloatImg *pimg, int notused);
+int plot_multidots(FloatImg *picture, int notused);
 
 int kill_a_random_line(FloatImg *pvictime, float level, int bits);
 int kill_a_few_lines(FloatImg *who, float fval, int number);
diff --git a/Fonderie/interpolator.c b/Fonderie/interpolator.c
index 4a3c5da4..eb2eef22 100644
--- a/Fonderie/interpolator.c
+++ b/Fonderie/interpolator.c
@@ -89,7 +89,7 @@ for (idx=0; idx<nombre; idx++) {
 
 if (method) {
 	/* and now, we can massage all our datas */
-	// fprintf(stderr, "sorting %d ...\n", method);
+	fprintf(stderr, "sorting method = %d ...\n", method);
 	qsort(idxvalues, nombre, sizeof(IdxValue), cmp_idxvalues);
 	}
 
@@ -128,7 +128,7 @@ IdxValue	*idx_values;			/* gni? */
 fprintf(stderr, "  interpolate from '%s' to '%s' with %d steps.\n",
 			pattern, outdir, Nsteps);
 
-if (negative) fprintf(stderr, "%s: negative on\n", __func__);
+if (negative) fprintf(stderr, "%s: negative ON\n", __func__);
 
 memset(&globbuf, 0, sizeof(glob_t));
 foo = glob(pattern, 0, NULL, &globbuf);
diff --git a/Fonderie/t.c b/Fonderie/t.c
index 450fe25e..13898f73 100644
--- a/Fonderie/t.c
+++ b/Fonderie/t.c
@@ -153,7 +153,7 @@ puts("\t-F\tdefine:the:filter:chain");
 puts("\t-g\tinput glob pattern");
 puts("\t-i\tinfile.fimg");
 puts("\t-L\tlist available filters");
-puts("\t-o\tinfile.xxx");
+puts("\t-o\toutfile.xxx");
 puts("\t-O\t/output/directory");
 puts("\t-s\tdo single test");