Fonderie/metriques.c

@@ -51,7 +51,7 @@ float		means[4];	/* four values : R G B A */
 int		foo;
 
 #if DEBUG_LEVEL
-fprintf(stderr, ">>> %s ( %p %p )\n", __func__, pimg, where);
+fprintf(stderr, ">>> %s ( %p %f %d )\n", __func__, pimg, where, whot);
 #endif
 
 foo = fimg_meanvalues(pimg, means);

Fonderie/singlepass.c

@@ -71,7 +71,7 @@ if (0 == globbuf.gl_pathc) {
 for (idx=0; idx<globbuf.gl_pathc; idx++) {
 
 	fname = globbuf.gl_pathv[idx];		/* alias of filename */
-	fprintf(stderr, "  %6ld  %s\r", (long)globbuf.gl_pathc-idx, fname);
+	fprintf(stderr, "  %6d  %s\r", globbuf.gl_pathc-idx, fname);
 
 	if (0==image.width && 0==image.height) {
 		foo = fimg_create_from_dump(fname, &image);
@@ -104,9 +104,9 @@ fimg_destroy(&image);
 single_print_state("end of run :)", 0);
 
 elapsed = fimg_timer_get(0);
-fprintf(stderr, "%s: %ld frames, elapsed %.3f s, %.3f fps\n",
+fprintf(stderr, "%s: %d frames, elapsed %.3f s, %.3f fps\n",
 				__func__,
-				(long)globbuf.gl_pathc, elapsed,
+				globbuf.gl_pathc, elapsed,
 				(double)globbuf.gl_pathc/elapsed);
 
 return 0;
@@ -156,9 +156,6 @@ while ((opt = getopt(argc, argv, "hF:g:LO:svx")) != -1) {
 
 		case 'x':	do_xper = 1;		break;
 
-		default:
-			fprintf(stderr, "%s ABEND\n", argv[0]);
-			exit(1);
 		}
 
 	}

doc/the_floatimg_hack.tex

@@ -299,7 +299,7 @@ Les deux premiers champs sont \textsl{obvious}.
 Le troisième est le type d'image : pour le moment, il y en a % trois
 un certain nombre
 qui sont définis\footnote{et plus ou moins bien gérés\dots} :
-gris, rgb et rgba/rgbz\index{rgba}\index{rgbz}.
+gris, rgb et rgba\index{rgba}.
 Les constantes adéquates sont dans \texttt{floatimg.h}
 
 \begin{lstlisting}
@@ -443,7 +443,7 @@ $x$ et $y$ de la demande.
 Quand au canal \textsl{alpha}\index{alpha}, il est pour le moment
 superbement ignoré. Ceci dit, on vient de me faire remarquer qu'il
 peut être utilisable aussi pour faire du
-\textsl{z-buffer}\index{z-buffer}\index{rgbz} \dots
+\textsl{z-buffer}\index{z-buffer} \dots
 
 %		----------------------------------
 
@@ -477,7 +477,7 @@ int fimg_cos_010(FloatImg *s, FloatImg *d, double maxval);
 
 Si vous souhaitez rajouter votre propre méthode de modification
 de contraste, il y a quelques explication en page \pageref{exemplefunc}.
-Mais rien ne vous oblige à le faire. Sauf vos envies.
+Mais rien ne vous oblige à le faire.
 
 
 \begin{figure}[h]
@@ -627,9 +627,6 @@ int fimg_save_as_png(FloatImg *src, char *outname, int flags);
 \end{lstlisting}
 
 Tous les flags doivent être à zéro. Sinon, ça foire parfois.
-Et en fait (mars 2021) je ne suis pas très content de 
-\texttt{pnglite}, donc un de ces jours\footnote{Rendez-nous notre
-Mixou !}, je prendrais cinq jours pour régler le souci.
 
 \subsubsection{Vers TIFF}\index{TIFF}
 

funcs/alltests.sh

@@ -1,33 +0,0 @@
-#!/bin/bash
-
-#
-#	trying to run a maximum of ugly code
-#
-
-for trial in $(./t -l)
-do
-
-	printf "============ %-10s ============\n" $trial
-
-	make t
-	error=$?
-	if [ 0 -ne $error ] 
-	then
-		echo "make error is " $error
-		exit 1
-	fi
-
-
-	./t -v $trial
-	error=$?
-	if [ 0 -ne $error ] 
-	then
-		echo "run error is " $error
-		exit 1
-	fi
-
-	printf "\t=== return code %d\n" $error
-	echo
-	sleep 10
-
-done

funcs/t.c

@@ -61,16 +61,6 @@ while (pcmd->name) {
 return -1;
 }
 /* --------------------------------------------------------------------- */
-void list_tests(void)
-{
-Command *pcmd = commands;
-while (pcmd->name) {
-	printf("%s\n", pcmd->name);
-	pcmd++;
-	}
-exit(0);
-}
-/* --------------------------------------------------------------------- */
 void help(int k)
 {
 Command *pcmd;
@@ -78,9 +68,7 @@ Command *pcmd;
 fprintf(stderr, "usage:\n\t./t [options] command [filename]\n");
 
 fprintf(stderr, "options:\n");
-fprintf(stderr, "\t-k 1.414\tset float value\n");
-fprintf(stderr, "\t-l\t\tlist tests\n");
-fprintf(stderr, "\t-o \t\toutfile\n");
+fprintf(stderr, "\t-o  outfile\n");
 
 fprintf(stderr, "commands:\n");
 pcmd = commands;
@@ -106,12 +94,10 @@ outfile		= "out.pnm";
 command		= "none";
 filename	= "in.fimg";
 
-while ((opt = getopt(argc, argv, "hk:lo:p:v")) != -1) {
-	// fprintf(stderr, "opt = %c\n", opt);
+while ((opt = getopt(argc, argv, "hk:o:p:v")) != -1) {
 	switch(opt) {
 		case 'h':	help(0);			break;
 		case 'k':	global_fvalue = atof(optarg);	break;
-		case 'l':	list_tests();			break;
 		case 'o':	outfile = optarg;		break;
 		case 'v':	verbosity++;			break;
 		}
@@ -155,21 +141,19 @@ switch(opt) {
 		foo = essai_mire(filename, 0);
 		break;
 	case Wfits:
-		foo =  essai_ecriture_fits("out.fits");
+		foo =  essai_ecriture_fits(filename);
 		break;
 	case Wpng:
-		foo = essai_ecriture_png("out.png");
+		foo = essai_ecriture_png(filename);
 		break;
 	case Wtiff:
-		foo = essai_ecriture_tiff("out.tiff");
+		foo = essai_ecriture_tiff(filename);
 		break;
 	case Histo:
 		foo = essai_histogramme(filename, 98765);
 		break;
 	case Hsv:
-		// not ready for primtime
-		// foo = fimg_essai_hsv(filename);
-		foo = 0;
+		foo = fimg_essai_hsv(filename);
 		break;
 	case Classif:
 		foo = essai_classif(filename, outfile, global_fvalue);
@@ -184,29 +168,23 @@ switch(opt) {
 		foo = essai_displacement(filename, outfile);
 		break;
 	case ReadPNG:
-		// not ready for primetime		
-		// foo = essai_lecture_png("in.png", outfile, 0);
-		foo = 0;
+		foo = essai_lecture_png(filename, outfile, 0);
 		break;
 	case Plasmas:
 		foo = essai_plasma(filename, outfile, 1, global_fvalue);
 		fprintf(stderr, "we are all plasmafields\n");
 		break;
-	case Rotate:
-		fprintf(stderr, "rotate not implemented (%d)\n", rand());
-		foo = 0;
-		break;
 	default:
-		fprintf(stderr, "'%s' is a bad command\n", command);
+		fprintf(stderr, "%s : bad command\n", command);
 		exit(1);
 
 	}
 
 if (foo) {
-	fprintf(stderr, "******* Essai --> %d\n", foo);
+	fprintf(stderr, "Essai ====> %d\n", foo);
 	}
 
-fprintf(stderr, "++++++++++++ end of '%s' pid %d\n", command, getpid());
+fprintf(stderr, "+++++ end of %s pid %d\n", command, getpid());
 return 0;
 }
 /* --------------------------------------------------------------------- */

funcs/tests.c

@@ -231,7 +231,7 @@ if (foo) {
 	return foo;
 	}
 
-return 0;
+return -7;
 }
 /* --------------------------------------------------------------------- */
 /*	essai de fichiers FITS (astronomie)				*/
@@ -278,7 +278,7 @@ fprintf(stderr, "equalize compute --> %d\n", foo);
 
 fimg_destroy(&src);
 
-return 0;
+return -1;
 }
 /* --------------------------------------------------------------------- */
 int essai_rotate(char *infile)
@@ -510,7 +510,6 @@ if (foo) {
 	return -6;
 	}
 
-fimg_destroy(&fimg);
 
 return 0;
 }
@@ -589,26 +588,16 @@ int		foo;
 
 fimg_create(&fimg, 640, 480, FIMG_TYPE_RGB);
 
-#define V ((double)3.141592654)
-
-foo = fimg_hdeg_a(&fimg,  V);
+foo = fimg_hdeg_a(&fimg, (double)3.141592654);
 fprintf(stderr, "make h deg -> %d\n", foo);
 foo = fimg_save_as_pnm(&fimg, "hdeg.pnm", 0);
 fprintf(stderr, "%s: save as pnm -> %d\n", __func__, foo);
 
-
-foo = fimg_vdeg_a(&fimg,  V);
+foo = fimg_vdeg_a(&fimg, (double)3.141592654);
 fprintf(stderr, "make h deg -> %d\n", foo);
-foo = fimg_save_as_pnm(&fimg, "vdeg_a.pnm", 0);
+foo = fimg_save_as_pnm(&fimg, "vdeg.pnm", 0);
 fprintf(stderr, "%s: save as pnm -> %d\n", __func__, foo);
 
-foo = fimg_vdeg_a(&fimg, -V);
-fprintf(stderr, "make h deg -> %d\n", foo);
-foo = fimg_save_as_pnm(&fimg, "vdeg_b.pnm", 0);
-fprintf(stderr, "%s: save as pnm -> %d\n", __func__, foo);
-
-#undef V
-
 return 0;
 }
 /* --------------------------------------------------------------------- */
@@ -647,14 +636,12 @@ fimg_draw_something(&fimg);
 
 if (verbosity) {
 	foo = fimg_save_as_pnm(&fimg, "quux.pnm", 0);
-	fprintf(stderr, "%s: saved as pnm -> %d\n", __func__, foo);
+	fprintf(stderr, "%s: save as pnm -> %d\n", __func__, foo);
 	}
 
 foo = fimg_save_as_png(&fimg, fname, 0);
 fprintf(stderr, "save as png -> %d\n", foo);
 
-fimg_destroy(&fimg);
-
 return 0;
 }
 /* --------------------------------------------------------------------- */

lib/fimg-core.c

@@ -167,10 +167,6 @@ if (NULL == fimg->R) {
 
 
 free(fimg->R);
-if (FIMG_TYPE_RGB==fimg->type) {
-	free(fimg->G);
-	free(fimg->B);
-	}
 memset(fimg, 0, sizeof(FloatImg));
 
 return 0;

tools/fimg2text.c

@@ -35,6 +35,7 @@ else {
 fp = stdout;					/* XXX */
 for (y=0; y<src->height; y+=steps) {
 	for (x=0; x<src->width; x+=steps) {
+
 		fimg_get_rgb(src, x, y, rgb);
 		fprintf(fp, "%d %d ", x, y);
 		fprintf(fp, "%f %f %f\n", rgb[0], rgb[1], rgb[2]);
@@ -119,9 +120,7 @@ if (norm > 0.0) {
 	}
 
 foo = export_as_machinable(&fimg, dstname, steps, 0);
-if (foo) {
-	fprintf(stderr,"%s: err %d on export\n", __func__, foo);
-	}
+
 fimg_destroy(&fimg);
 
 return 0;