working on glitches

.gitignore

@@ -64,6 +64,9 @@ tools/*.png
 tools/*.tiff
 
 Fonderie/*.o
+Fonderie/*.png
+Fonderie/*.pnm
 Fonderie/fonderie
 Fonderie/interpolator
+Fonderie/t
 

Fonderie/Makefile

@@ -8,7 +8,12 @@ LIBS = ../libfloatimg.a -lpnglite -lm
 OBJS = fonctions.o sfx.o crapulator.o glitches.o metriques.o
 DEPS = fonctions.h crapulator.h metriques.h glitches.h
 
-all:	fonderie interpolator
+all:	fonderie interpolator t
+
+# ---------------------------------------------------------
+
+t:	t.c Makefile glitches.o
+	gcc ${COPT} $< glitches.o  ${LIBS} -lz -o $@
 
 # ---------------------------------------------------------
 

Fonderie/crapulator.c

@@ -117,6 +117,9 @@ switch (idFx) {
 		retval = trinarize(image, 0);
 		break;
 			/* --- WTF -- */
+	case 25:
+		retval = vertical_singlitch(image, 250, fval, 18, 0);
+		break;
 	default :
 		fprintf(stderr, "%s : effect #%d invalid\n", 
 				__func__, idFx);

Fonderie/fonderie.c

@@ -10,6 +10,7 @@
 #include  <floatimg.h>
 
 #include  "fonctions.h"
+#include  "glitches.h"
 #include  "crapulator.h"
 
 int			verbosity;
@@ -125,8 +126,8 @@ for (idx=0; idx<globbuf.gl_pathc; idx++) {
 		fprintf(stderr, "load #%d from dump -> %d\n", idx, foo);
 		continue;
 		}
-	/*		=========================		*/
+
-	/*		FSCKING INPUT FILTER HERE 		*/
+	/*		fscking input filter here 		*/
 	foo = crapulator(&input, infx, 0.42);
 	if (foo) {
 		fprintf(stderr, "%s crapulator -> %d\n", __func__, foo);

Fonderie/glitches.c

@@ -113,4 +113,36 @@ int poke_a_random_pixel(FloatImg *picz, float fval, int kaboo)
 return -1;
 }
 /*   --------------------------------------------------------------   */
+int vertical_singlitch(FloatImg *picz, int xpos, float fval, 
+						float omega, float phi)
+{
+int		y, x, w, h;
+double		dy;
+
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p %d %f %f )\n", __func__, picz,
+					xpos, omega, phi);
+#endif
+
+h = picz->height;		w = picz->width;
+#define BB 10
+for (y=BB; y<h-BB; y++) {
+
+	dy = (double)y * omega;
+
+	x = xpos + (int)(10.9*sin(dy+phi));	/* add sinus deviation */
+
+	/* compute bounding box */
+	if ( (x>BB) && (x<w-BB) ) {
+		/* an make the glitch */
+		fimg_plot_rgb(picz, x, y, fval, fval, fval);
+		if (rand() & 8)
+			fimg_plot_rgb(picz, x-1, y, 0.0, 0.0, 0.0);
+		if (rand() & 8)
+			fimg_plot_rgb(picz, x+1, y, 0.0, 0.0, 0.0);
+		}
+	}
+return 0;
+}
+/*   --------------------------------------------------------------   */
 

Fonderie/glitches.h

@@ -9,4 +9,7 @@ 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);
 
+int vertical_singlitch(FloatImg *picz, int xpos, float fv, float omega,
+							float phi);
+
 /* this is a wtf file */

Fonderie/interpolator.c

@@ -39,7 +39,7 @@ static int cmp_idxvalues(const void *pa, const void *pb)
 return ( ((IdxValue *)pa)->value > ((IdxValue *)pb)->value);
 }
 
-int tentative_triage(glob_t *ptr_glob, IdxValue **ptr_idxval)
+int tentative_triage(glob_t *ptr_glob, IdxValue **ptr_idxval, int method)
 {
 int		idx, foo, nombre;
 float		metrique;
@@ -47,7 +47,8 @@ char		*filename;
 IdxValue	*idxvalues;
 
 #if DEBUG_LEVEL
-fprintf(stderr, ">>> %s ( %p %p )\n", __func__, ptr_glob, ptr_idxval);
+fprintf(stderr, ">>> %s ( %p %p %d )\n", __func__, ptr_glob,
+				ptr_idxval, method);
 #endif
 
 nombre = ptr_glob->gl_pathc;
@@ -71,13 +72,16 @@ for (idx=0; idx<nombre; idx++) {
 				foo, filename);
 		return -1;
 		}
+	if (verbosity)
 		fprintf(stderr, "%5d   %s   %f\n", idx, filename, metrique);
 	idxvalues[idx].idx = idx;
 	idxvalues[idx].value = metrique;
 	}
 
+if (method) {
 	/* and now, we can massage all our datas */
 	qsort(idxvalues, nombre, sizeof(IdxValue), cmp_idxvalues);
+	}
 
 for (idx=0; idx<nombre; idx++) {
 	printf("%5d   %9.6f  %5d\n", idx,
@@ -92,7 +96,8 @@ return 0;
 /*
  *		This is the mega working loop
  */
-int interpolator(char *pattern, char *outdir, int Nsteps, int infx)
+int interpolator(char *pattern, char *outdir, int Nsteps,
+				int infx, int outfx, int sort)
 {
 FloatImg	A, B, Out, *pFirst, *pSecond;
 glob_t		globbuf;
@@ -117,7 +122,7 @@ if (0 == globbuf.gl_pathc) {
 	}
 
 idx_values = NULL;
-foo = tentative_triage(&globbuf, &idx_values);
+foo = tentative_triage(&globbuf, &idx_values, sort);
 fprintf(stderr, "\tTRI of %p -> %d\n\n", idx_values, foo);
 
 foo = fimg_fileinfos(globbuf.gl_pathv[0], iarray);
@@ -154,7 +159,7 @@ for (idx=0; idx<globbuf.gl_pathc; idx++) {
 	/*				 OK try it ... */
 	foo = crapulator(&B, infx, value/2.0);
 	if (foo) {
-		fprintf(stderr, "crapulator failure %d\n", foo);
+		fprintf(stderr, "in fx crapulator failure %d\n", foo);
 		exit(1);
 		}
 
@@ -162,10 +167,12 @@ for (idx=0; idx<globbuf.gl_pathc; idx++) {
 		coef = (float)step / (float)Nsteps;
 		fimg_interpolate(pSecond, pFirst, &Out, coef);
 
-		/* here we can insert the output filter */
+		/* here we can insert the OUTPUT filter */
-		if (rand() & 0x55) {
+		foo = crapulator(&Out, outfx, value);
-			kill_a_few_lines(&Out, value/2.0, 5+(rand()%20));
+		if (foo) {
-			kill_a_few_lines(&Out,   0.0, 5+(rand()%20));
+			fprintf(stderr, "\nout fx %d crapulator failure %d\n",
+						outfx,		foo);
+			exit(1);
 			}
 
 		sprintf(line, "%s/%05d.png", outdir, ipng);
@@ -210,29 +217,36 @@ int main (int argc, char *argv[])
 int		foo;
 int		nbrsteps = 9;
 int		opt;
+int		inFx = 0;
+int		outFx = 0;
+int		sort = 0;
 
 fprintf(stderr, "*** %s : compiled by tTh, %s %s\n", __FILE__,
 			__DATE__, __TIME__);
 fimg_print_version(2);
 
-while ((opt = getopt(argc, argv, "hv")) != -1) {
+while ((opt = getopt(argc, argv, "hS:vw:x:")) != -1) {
 	switch(opt) {
 		case 'h':	help();			break;
+		case 'S':	sort = atoi(optarg);	break;
 		case 'v':	verbosity++;		break;
+		case 'w':	inFx = atoi(optarg);	break;
+		case 'x':	outFx = atoi(optarg);	break;
 		}
 	}
 
-/*              TO BE CONTINUED 		*****/
+#if DEBUG_LEVEL
+fprintf(stderr, "%s : argc = %d, optind = %d\n", argv[0], argc, optind);
+#endif
 
-if (4 != argc) {
+if (3 != (argc-optind)) {
-	fprintf(stderr, "args: <in globpattern> <out dir> <nbrsteep>\n");
+	fprintf(stderr, "args: [options] <inglob> <outdir> <nbsteep>\n");
 	exit(1);
 	}
 
-nbrsteps = atoi(argv[3]);
+nbrsteps = atoi(argv[optind+2]);
-
+foo = interpolator(argv[optind], argv[optind+1], nbrsteps,
-#define EFFECT	7
+					inFx, outFx, sort);
-foo = interpolator(argv[1], argv[2], nbrsteps, EFFECT);
 
 fprintf(stderr, "interpolator give a %d score\n", foo);
 

Fonderie/t.c

@@ -0,0 +1,65 @@
+/*
+ * 		test des trucs
+ */
+
+#include  <stdio.h>
+#include  <stdlib.h>
+
+#include  "../floatimg.h"
+#include  "glitches.h"
+
+/* ----------------------------------------------------------- */
+
+int		verbosity;
+
+#define		PNG	"out.png"
+#define		W	512
+#define		H	256
+#define		LMAX	233.333
+#define		TIMER	1
+
+int main(int argc, char *argv[])
+{
+int		foo, iter, xloc, bloub;
+FloatImg	image;
+char		buff[1000];
+double		debut, fin;
+float		omega;
+verbosity = 1;
+
+fimg_print_version(1);
+
+foo = fimg_create(&image, W, H, FIMG_TYPE_RGB);
+if (foo) {
+	fprintf(stderr, "err %d create image\n", foo);
+	exit(1);
+	}
+fimg_vdeg_a(&image, LMAX);
+
+debut = fimg_timer_set(TIMER);
+
+for (iter=0; iter<64; iter++) {
+
+	for (bloub=0; bloub<5; bloub++) {
+		xloc = rand() % W;
+		omega = (float)(0.1 + drand48()*0.8) * 0.5;
+		foo = vertical_singlitch(&image, xloc, LMAX,
+						omega, (float)iter);
+		if (foo) abort();
+		}
+
+	sprintf(buff, "out%03d.png", iter);
+	foo = fimg_save_as_png(&image, buff, 0);
+	if (foo) {
+		fprintf(stderr, "err %d saving to '%s'\n", foo, PNG);
+		exit(1);
+		}
+	}
+
+fin = fimg_timer_set(TIMER);
+fprintf(stderr, "elapsed %f\n", fin-debut);
+
+return 0;
+}
+
+/* ----------------------------------------------------------- */

doc/the_floatimg_hack.tex

@@ -694,7 +694,15 @@ int fimg_killcolors_b(FloatImg *fimg, float fval);
 int fimg_colors_mixer_a(FloatImg *fimg, float fval);
 \end{lstlisting}
 
+\subsection{Glitches}\index{glitch}
 
+Un \textsl{glitch} peut-il être classé dans la catégorie des effets
+spéciaux ou non ? \textsc{Hmha}, non. un fx est paramétrable
+et surtout répétitif. Un glitch est quasiment souvbent un phénomène
+aléatoire\index{drand48} et tout aussi paramétrable.
+
+J'ai commencé à étudier ces objets étranges quand j'ai commencé
+sur l'interpolator\index{interpolator} à l'automne 2020.
 
 %		----------------------------------
 

funcs/rampes.c

@@ -21,7 +21,6 @@ if (FIMG_TYPE_RGB != img->type) {
 	fprintf(stderr, "%s bad type\n", __func__);
 	return -6;
 	}
-
 for (x=0; x<img->width; x++)
 	{
 	value = (float)x / (float)img->width;
@@ -34,6 +33,9 @@ for (x=0; x<img->width; x++)
 return 0;
 }
 /* --------------------------------------------------------------------- */
+/*
+ *    wtf ? ther's no way to have the black at the bottom ?
+ */
 int fimg_vdeg_a(FloatImg *img, double dcoef)
 {
 int		x, y;
@@ -47,7 +49,6 @@ if (FIMG_TYPE_RGB != img->type) {
 	fprintf(stderr, "%s bad type\n", __func__);
 	return -6;
 	}
-
 for (y=0; y<img->height; y++)
 	{
 	value = (float)y / (float)img->height;

tools/png2fimg.c

@@ -43,7 +43,10 @@ if (foo) {
 if (verbosity)	fimg_describe(&fimg, argv[2]);
 
 foo = fimg_dump_to_file(&fimg, argv[2], 0);
-fprintf(stderr, "save as fimg -> %d\n", foo);
+if (foo) {
+	fprintf(stderr, "save as '%s' -> err %d\n", argv[2], foo);
+	exit(1);
+	}
 
 return 0;
 }