source tree refactor and build system (to be completed)

extras/experiment/Makefile

@@ -0,0 +1,15 @@
+
+#  experiments
+
+
+COPT = -Wall -fpic -g -DDEBUG_LEVEL=1 -lm
+DEPS = ../floatimg.h  ../libfloatimg.a Makefile
+LIBS = -ltiff -lpnglite -lcfitsio
+
+all:	assemblage extracteur
+
+assemblage:	assemblage.c ${DEPS} 
+	gcc $(COPT) $< ../libfloatimg.a $(LIBS) -o $@
+
+extracteur:	extracteur.c ${DEPS}
+	gcc $(COPT) $<  ../libfloatimg.a $(LIBS) -o $@

extras/experiment/README.md

@@ -0,0 +1,6 @@
+# EXPÉRIMENTATION ÀLC
+
+## ASSEMBLAGE
+
+## EXTRACTEUR
+

extras/experiment/assemblage.c

@@ -0,0 +1,85 @@
+/*
+ *		assemblage experimental
+ */
+
+#include  <stdio.h>
+#include  <stdlib.h>
+
+#include  "../floatimg.h"
+
+// #include  "incrustator.h"
+
+int		verbosity;
+
+/* ---------------------------------------------- ~~~~~~~~~~~~~~~~ */
+/*
+ *	le prototype de base avec trop peu de parametres, mais
+ *	c'est assez dur de formaliser la structure des informations
+ *	a transmettre de fonction en fonction, et commant on peut
+ *	integrer cette mecanique dans singlepass.c ?!#@
+ */
+int premier_essai(int largeur, int hauteur, char *outname)
+{
+FloatImg	grande, incrust;
+int		foo;
+
+foo = fimg_create(&grande, largeur, hauteur, FIMG_TYPE_RGB);
+if (foo) {
+	fprintf(stderr, "%s: Kkrkr %d pour create grande\n", __func__, foo);
+	return -1;
+	}
+fimg_vdeg_a(&grande, 2345);
+
+foo = fimg_create(&incrust, 640, 480, FIMG_TYPE_RGB);
+if (foo) {
+	fprintf(stderr, "%s: Kkrkr %d pour create incrust\n", __func__, foo);
+	return -1;
+	}
+// fimg_drand48(&incrust, 13.37);
+foo = fimg_load_from_dump("foo.fimg", &incrust);
+if (foo) {
+	fprintf(stderr, "%s: err %d loading image\n", __func__, foo);
+	return -1;
+	}
+
+#define FLAGS   0
+foo = fimg_incrustator_0(&incrust, &grande, 111, 111, FLAGS);
+#undef FLAGS
+if (foo) {
+	fprintf(stderr, "%s: err %d sur incrustator_0\n", __func__, foo);
+	return -1;
+	}
+
+
+foo =  fimg_export_picture(&grande, outname, 0);
+if (foo) {
+	fprintf(stderr, "%s: error %d export '%s'\n", __func__,
+					foo, outname);
+	return -1;
+	}
+
+fimg_destroy(&incrust);		fimg_destroy(&grande);
+
+return 0;
+}
+/* ---------------------------------------------- ~~~~~~~~~~~~~~~~ */
+int main(int argc, char *argv[])
+{
+int		foo;
+
+verbosity = 2;
+
+fimg_print_version(1);
+
+foo = premier_essai(1280, 1024, "out.png");
+if (foo) {
+	fprintf(stderr, "EPIC FAIL %s\n", argv[0]);
+	exit(1);
+	}
+
+return 0;
+}
+/* ---------------------------------------------- ~~~~~~~~~~~~~~~~ */
+
+
+

extras/experiment/essai.sh

@@ -0,0 +1,26 @@
+#!/bin/bash
+
+make extracteur
+
+IMGS="foo.fimg"
+
+for idx in $(seq 0 69)
+do
+	outf=$(printf "%s/X%04d.png" "/tmp" $idx)
+	echo "work on "$outf
+
+	x=$(( idx * 4  ))
+	y=$(( idx + 80 ))
+
+	./extracteur $IMGS 256,128,${x},${y} $outf
+	error=$?
+	if [ 0 -ne $error ] ; then
+		echo error $error
+		exit 1
+	fi
+	echo
+
+done
+
+convert -delay 10 /tmp/X????.png foo.gif
+

extras/experiment/extracteur.c

@@ -0,0 +1,131 @@
+/*
+ *		another ugly experiment
+ */
+#include  <stdio.h>
+#include  <stdlib.h>
+#include  <unistd.h>
+
+#include  "../floatimg.h"
+
+// #include  "incrustator.h"
+
+int		verbosity;
+
+/* ---------------------------------------------- ~~~~~~~~~~~~~~~~ */
+
+/* ---------------------------------------------- ~~~~~~~~~~~~~~~~ */
+int essai_extraction(FloatImg *in, FloatImg *out, FimgArea51 *rect)
+{
+int		foo;
+int		xs, ys, xd, yd;
+int		count;
+float		rgb[3];
+
+if (verbosity) {
+	fimg_describe(in,  "source");
+	fimg_describe(out, "destination");
+	print_rectangle(__func__, rect);
+	}
+
+count = 0;
+for (yd=0; yd<rect->h; yd++) {
+	ys = yd + rect->y;
+	if ((ys<0) || (ys>=in->height)) continue;
+	for (xd=0; xd<rect->w; xd++) {
+		xs = xd + rect->x;
+		if ((xs<0) || (xs>=in->width)) continue;
+		fimg_get_rgb(in,  xs, ys, rgb);
+		fimg_put_rgb(out, xd, yd, rgb);
+		count++;
+		}
+	}
+
+// fprintf(stderr, "%s: %d pix moved\n", __func__, count);
+
+return 0;
+}
+/* ---------------------------------------------- ~~~~~~~~~~~~~~~~ */
+void help(int k)
+{
+puts("Usage:\n\textracteur in.fimg w,h,x,y out.???");
+}
+/* ---------------------------------------------- ~~~~~~~~~~~~~~~~ */
+
+int main(int argc, char *argv[])
+{
+int		foo, opt;
+FloatImg	src, dst;
+FimgArea51	zone;
+char		*infile  = "foo.fimg";
+char		*outfile = "out.fimg";
+
+verbosity = 0;
+
+#if 0
+for (foo=0; foo<argc; foo++) {
+	fprintf(stderr, "%9d   %s\n", foo, argv[foo]);
+	}
+#endif
+
+while ((opt = getopt(argc, argv, "hv")) != -1) {
+	switch(opt) {
+		case 'h':	help(0), exit(0);	break;
+		case 'v':	verbosity++;		break;
+		default:				break;
+		}
+	}
+
+if (3 != argc-optind) {
+	fprintf(stderr, "---- %s errcli c=%d %d ----\n", argv[0],
+					argc, argc-optind);
+	help(1);
+	exit(1);
+	}
+
+if (verbosity) {
+	fprintf(stderr, "*** %s   %s %s\n", argv[0], __DATE__, __TIME__);
+	fimg_print_version(1);
+	}
+
+infile = argv[optind];	outfile = argv[optind+2];
+fprintf(stderr, "%s   %s -> %s\n", argv[0], infile, outfile);
+
+foo = fimg_create_from_dump(infile, &src);
+if (foo) {
+	fprintf(stderr, "%s: err %d loading image '%s'\n", __func__,
+					foo, infile);
+	exit(1);
+	}
+
+if (4 != parse_rectangle( argv[optind+1], &zone, 0) ) {
+	fprintf(stderr, "%s: error in parsing of '%s'\n",
+					argv[0], argv[optind+1]);
+	exit(1);
+	}
+
+// zone.w = src.width / 2;		zone.h = src.height / 2;
+// zone.x = src.width / 4 ;	zone.y = src.height / 4;
+
+if (verbosity) print_rectangle(argv[0], &zone);
+
+foo = fimg_create(&dst, zone.w, zone.h,  FIMG_TYPE_RGB);
+if (foo) {
+	fprintf(stderr, "NO PICZ EPIC FAIL %d\n", foo);
+	exit(1);
+	}
+
+foo = fimg_extractor(&src, &dst, &zone);
+if (foo) {
+	fprintf(stderr, "EXTRACTOR EPIC FAIL %d\n", foo);
+	exit(1);
+	}
+
+foo = fimg_export_picture(&dst, outfile, 0);
+if (foo) {
+	fprintf(stderr, "export '%s' -> err %d\n", outfile, foo);
+	exit(1);
+	}
+
+return 0;
+}
+/* ---------------------------------------------- ~~~~~~~~~~~~~~~~ */