forked from tTh/FloatImg
605 lines
13 KiB
C
605 lines
13 KiB
C
/*
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <pam.h>
|
|
|
|
|
|
|
|
#include "../floatimg.h"
|
|
|
|
int verbosity;
|
|
|
|
float global_fvalue;
|
|
|
|
/* --------------------------------------------------------------------- */
|
|
|
|
int fimg_classif_trial(FloatImg *src, FloatImg*dst, int notused);
|
|
|
|
int essai_classif(char *infile)
|
|
{
|
|
FloatImg src, dst;
|
|
int foo;
|
|
|
|
if (NULL != infile) {
|
|
fprintf(stderr, "%s: loading %s\n", __func__, infile);
|
|
foo = fimg_create_from_dump(infile, &src);
|
|
if (foo) {
|
|
fprintf(stderr, "%s: error loading '%s'\n", __func__, infile);
|
|
return foo;
|
|
}
|
|
}
|
|
else {
|
|
fprintf(stderr, "%s : NOT INPUT FILE, FUBAR\n", __func__);
|
|
abort();
|
|
}
|
|
|
|
fimg_clone(&src, &dst, 1);
|
|
|
|
foo = fimg_classif_trial(&src, &dst, 0);
|
|
if (foo) {
|
|
fprintf(stderr, "%s: err %d in classif_trial\n", __func__, foo);
|
|
return foo;
|
|
}
|
|
|
|
foo = fimg_save_as_pnm(&dst, "out.pnm", 0);
|
|
if (foo) {
|
|
fprintf(stderr, "%s : err %d saving result\n", __func__, foo);
|
|
return foo;
|
|
}
|
|
|
|
return foo;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
/* nouveau 19 aout 2020, le matin avant la canicule */
|
|
|
|
int essai_ecriture_tiff(char *outname)
|
|
{
|
|
int foo;
|
|
FloatImg picz;
|
|
|
|
fimg_create(&picz, 800, 600, FIMG_TYPE_RGB);
|
|
fimg_test_pattern(&picz, 0, 22222);
|
|
|
|
foo = fimg_write_as_tiff(&picz, outname, 0);
|
|
if (foo) {
|
|
fprintf(stderr, "%s got a %d\n", __func__, foo);
|
|
return foo;
|
|
}
|
|
|
|
return -7;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
/* essai de fichiers FITS (astronomie) */
|
|
int essai_ecriture_fits(char *outname)
|
|
{
|
|
FloatImg src;
|
|
int foo;
|
|
|
|
fprintf(stderr, "%s is creating the picz\n", __func__);
|
|
fimg_create(&src, 512, 512, FIMG_TYPE_RGB);
|
|
fimg_test_pattern(&src, 0, 255.0);
|
|
|
|
foo = fimg_save_R_as_fits(&src, outname, 0);
|
|
|
|
fprintf(stderr, "saving '%s' to fits --> %d\n", outname, foo);
|
|
|
|
return -1;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
/*
|
|
* egalisation dynamique approximative
|
|
* #coronamaison Thu 09 Apr 2020 03:37:10 PM CEST
|
|
*/
|
|
int essai_equalize(char *infile)
|
|
{
|
|
FloatImg src;
|
|
int foo;
|
|
|
|
if (NULL != infile) {
|
|
fprintf(stderr, "%s: loading %s\n", __func__, infile);
|
|
foo = fimg_create_from_dump(infile, &src);
|
|
if (foo) {
|
|
fprintf(stderr, "%s: err load '%s'\n", __func__, infile);
|
|
return foo;
|
|
}
|
|
}
|
|
else {
|
|
fprintf(stderr, "%s : NOT INPUT FILE, FUBAR\n", __func__);
|
|
abort();
|
|
}
|
|
|
|
foo = fimg_equalize_compute(&src, NULL, 666.666);
|
|
fprintf(stderr, "equalize compute --> %d\n", foo);
|
|
|
|
fimg_destroy(&src);
|
|
|
|
return -1;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
int essai_rotate(char *infile)
|
|
{
|
|
FloatImg src, dst;
|
|
int foo;
|
|
|
|
if (NULL != infile) {
|
|
fprintf(stderr, "%s: loading %s\n", __func__, infile);
|
|
foo = fimg_create_from_dump(infile, &src);
|
|
if (foo) {
|
|
fprintf(stderr, "%s: err load '%s'\n", __func__, infile);
|
|
return foo;
|
|
}
|
|
}
|
|
else {
|
|
fprintf(stderr, "%s : NOT INPUT FILE, FUBAR\n", __func__);
|
|
abort();
|
|
}
|
|
|
|
fimg_save_as_png(&src, "test.png", 0);
|
|
|
|
foo = fimg_rotate_90(&src, &dst, 0);
|
|
fprintf(stderr, "rotate 90 -> %d\n", foo);
|
|
|
|
foo = fimg_save_as_png(&dst, "rotated90.png", 0);
|
|
foo = fimg_save_as_pnm(&dst, "rotated90.pnm", 0);
|
|
|
|
fimg_destroy(&src);
|
|
|
|
return -1;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
int essai_filtrage_3x3(char *infile)
|
|
{
|
|
FloatImg src, dst;
|
|
int foo; /// , idx;
|
|
// char buffer[100];
|
|
|
|
FimgFilter3x3 filter_a = {
|
|
|
|
{ 1.0, 1.0, 1.0,
|
|
1.0, -3.0, 1.0,
|
|
1.0, 1.0, 1.0 },
|
|
8.0, 0.0
|
|
|
|
};
|
|
|
|
FimgFilter3x3 filter_b = {
|
|
|
|
{ -2.0, -1.0, 0.0,
|
|
-1.0, 3.0, 1.0,
|
|
0.0, 1.0, 2.0 },
|
|
8.0, 0.0
|
|
|
|
};
|
|
|
|
if (NULL != infile) {
|
|
fprintf(stderr, "%s: loading %s\n", __func__, infile);
|
|
foo = fimg_create_from_dump(infile, &src);
|
|
if (foo) {
|
|
fprintf(stderr, "%s: err load '%s'\n", __func__, infile);
|
|
return foo;
|
|
}
|
|
}
|
|
else {
|
|
fprintf(stderr, "%s is creating the picz\n", __func__);
|
|
fimg_create(&src, 640, 480, FIMG_TYPE_RGB);
|
|
fimg_test_pattern(&src, 0, 255.0);
|
|
}
|
|
|
|
// fimg_save_as_png(&src, "test.png", 0);
|
|
|
|
foo = fimg_clone(&src, &dst, 0);
|
|
if (foo) {
|
|
fprintf(stderr, "%s: err clone %p\n", __func__, &src);
|
|
return -44;
|
|
}
|
|
|
|
|
|
fimg_filter_3x3(&src, &dst, &filter_a);
|
|
|
|
|
|
foo = fimg_clamp_negativ(&dst);
|
|
|
|
if (foo) {
|
|
fprintf(stderr, "clamped %d negative pixels\n", foo);
|
|
}
|
|
// foo = fimg_save_as_png(&dst, "f3x3a.png", 0);
|
|
// foo = fimg_save_as_pnm(&dst, "f3x3a.pnm", 0);
|
|
|
|
fimg_filter_3x3(&src, &dst, &filter_b);
|
|
foo = fimg_clamp_negativ(&dst);
|
|
if (foo) {
|
|
fprintf(stderr, "clamped %d negative pixels\n", foo);
|
|
}
|
|
// foo = fimg_save_as_png(&dst, "f3x3b.png", 0);
|
|
// foo = fimg_save_as_pnm(&dst, "f3x3a.pnm", 0);
|
|
|
|
fimg_destroy(&src); fimg_destroy(&dst);
|
|
|
|
return 0;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
int essai_filtrage_2x2(char *infile)
|
|
{
|
|
FloatImg fimg;
|
|
int foo, idx;
|
|
char buffer[100];
|
|
|
|
if (NULL != infile) {
|
|
fprintf(stderr, "%s: loading %s\n", __func__, infile);
|
|
foo = fimg_create_from_dump(infile, &fimg);
|
|
if (foo) {
|
|
fprintf(stderr, "%s: err load '%s'\n", __func__, infile);
|
|
return foo;
|
|
}
|
|
}
|
|
else {
|
|
fprintf(stderr, "%s is creating the picz\n", __func__);
|
|
fimg_create(&fimg, 512, 512, FIMG_TYPE_RGB);
|
|
fimg_draw_something(&fimg);
|
|
}
|
|
|
|
foo = fimg_save_as_pnm(&fimg, "source.pnm", 0);
|
|
|
|
/*
|
|
* running multiple filters so you can
|
|
* watch the up-left shift :)
|
|
*/
|
|
for (idx=0; idx<5; idx++) {
|
|
foo = fimg_lissage_2x2(&fimg);
|
|
sprintf(buffer, "filter%03d.png", idx);
|
|
foo = fimg_save_as_png(&fimg, buffer, 0);
|
|
if (verbosity) {
|
|
fprintf(stderr, "%s %d\n", buffer, foo);
|
|
}
|
|
}
|
|
|
|
fimg_destroy(&fimg);
|
|
|
|
return 0;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
int essai_geometrie(char *infile)
|
|
{
|
|
FloatImg fimg, result;
|
|
int foo;
|
|
|
|
if (NULL != infile) {
|
|
fprintf(stderr, "loading %s\n", infile);
|
|
foo = fimg_create_from_dump(infile, &fimg);
|
|
if (foo) {
|
|
fprintf(stderr, "%s: err load '%s'\n", __func__, infile);
|
|
return foo;
|
|
}
|
|
}
|
|
else {
|
|
fimg_create(&fimg, 512, 512, FIMG_TYPE_RGB);
|
|
fimg_draw_something(&fimg);
|
|
}
|
|
|
|
foo = fimg_save_as_pnm(&fimg, "source.pnm", 0);
|
|
|
|
memset(&result, 0, sizeof(FloatImg));
|
|
|
|
foo = fimg_halfsize_0(&fimg, &result, 0);
|
|
fprintf(stderr, "retour halfsize -> %d\n", foo);
|
|
if (foo) {
|
|
return -2;
|
|
}
|
|
|
|
if (verbosity) fimg_describe(&result, "result after halfsize");
|
|
|
|
foo = fimg_save_as_pnm(&result, "something.pnm", 0);
|
|
|
|
return 0;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
int essai_sfx0(char *infile)
|
|
{
|
|
FloatImg fimg;
|
|
int foo;
|
|
|
|
if (NULL != infile) {
|
|
fprintf(stderr, "loading %s\n", infile);
|
|
foo = fimg_create_from_dump(infile, &fimg);
|
|
if (foo) {
|
|
fprintf(stderr, "%s: err load '%s'\n", __func__, infile);
|
|
return foo;
|
|
}
|
|
}
|
|
else {
|
|
fimg_create(&fimg, 512, 512, FIMG_TYPE_RGB);
|
|
fimg_draw_something(&fimg);
|
|
}
|
|
|
|
foo = fimg_save_as_pnm(&fimg, "something.pnm", 0);
|
|
if (foo) {
|
|
fprintf(stderr, "%s: err save %d\n", __func__, foo);
|
|
return -6;
|
|
}
|
|
foo = fimg_killcolors_a(&fimg, 0.0);
|
|
foo = fimg_save_as_pnm(&fimg, "colorskilled-a.pnm", 0);
|
|
if (foo) {
|
|
fprintf(stderr, "%s: err save %d\n", __func__, foo);
|
|
return -6;
|
|
}
|
|
|
|
foo = fimg_killcolors_b(&fimg, 0.0);
|
|
foo = fimg_save_as_pnm(&fimg, "colorskilled-b.pnm", 0);
|
|
if (foo) {
|
|
fprintf(stderr, "%s: err save %d\n", __func__, foo);
|
|
return -6;
|
|
}
|
|
|
|
|
|
return 0;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
int essai_parse_double(void)
|
|
{
|
|
int foo;
|
|
double dval;
|
|
char *str;
|
|
|
|
str = "12.34"; dval = 0.0;
|
|
foo = parse_double(str, &dval);
|
|
printf("%-10s -> %3d %g\n", str, foo, dval);
|
|
|
|
str = "12e4"; dval = 0.0;
|
|
foo = parse_double(str, &dval);
|
|
printf("%-10s -> %3d %g\n", str, foo, dval);
|
|
|
|
str = "5s"; dval = 0.0;
|
|
foo = parse_double(str, &dval);
|
|
printf("%-10s -> %3d %g\n", str, foo, dval);
|
|
|
|
str = "PORN"; dval = 0.0;
|
|
foo = parse_double(str, &dval);
|
|
printf("%-10s -> %3d %g\n", str, foo, dval);
|
|
|
|
return 0;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
int essai_detect_type(void)
|
|
{
|
|
int foo;
|
|
char *fname;
|
|
|
|
foo = format_from_extension(fname="foo.fimg");
|
|
printf("%-10s %d\n\n", fname, foo);
|
|
|
|
foo = format_from_extension(fname="foo.pnm");
|
|
printf("%-10s %d\n\n", fname, foo);
|
|
|
|
foo = format_from_extension(fname="foo.png");
|
|
printf("%-10s %d\n\n", fname, foo);
|
|
|
|
foo = format_from_extension(fname="foo.xyzzy");
|
|
printf("%-10s %d\n\n", fname, foo);
|
|
|
|
return 0;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
int essai_mire(char *outname, int notused)
|
|
{
|
|
FloatImg fimg;
|
|
int re;
|
|
|
|
fimg_create(&fimg, 1280, 960, FIMG_TYPE_RGB);
|
|
|
|
re = fimg_test_pattern(&fimg, 9, 1.0);
|
|
if (re) {
|
|
fprintf(stderr, "fimg_test_pattern -> %d\n", re);
|
|
}
|
|
fimg_save_as_pnm(&fimg, "mire.pnm", 0);
|
|
|
|
return -1;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
int essai_rampes(void)
|
|
{
|
|
FloatImg fimg;
|
|
int foo;
|
|
|
|
fimg_create(&fimg, 640, 480, FIMG_TYPE_RGB);
|
|
|
|
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, (double)3.141592654);
|
|
fprintf(stderr, "make h deg -> %d\n", foo);
|
|
foo = fimg_save_as_pnm(&fimg, "vdeg.pnm", 0);
|
|
fprintf(stderr, "%s: save as pnm -> %d\n", __func__, foo);
|
|
|
|
return 0;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
int essai_ecriture_png(char *fname)
|
|
{
|
|
FloatImg fimg;
|
|
int foo;
|
|
|
|
fimg_create(&fimg, 800, 600, FIMG_TYPE_RGB);
|
|
|
|
fimg_draw_something(&fimg);
|
|
|
|
if (verbosity) {
|
|
foo = fimg_save_as_pnm(&fimg, "quux.pnm", 0);
|
|
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);
|
|
|
|
return 0;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
|
|
|
|
int fimg_essai_histo(FloatImg *src, char *outpic, int k); /* histogram.c */
|
|
int fimg_essai_hsv(char *fname); /* hsv.c */
|
|
|
|
|
|
int essai_histogramme(char *fname, int k)
|
|
{
|
|
FloatImg fimg;
|
|
int foo;
|
|
|
|
fprintf(stderr, ">>> %s ( '%s' %d )\n", __func__, fname, k);
|
|
|
|
foo = fimg_create_from_dump(fname, &fimg);
|
|
if (foo) {
|
|
fprintf(stderr, "%s: err load '%s'\n", __func__, fname);
|
|
return foo;
|
|
}
|
|
|
|
foo = fimg_essai_histo(&fimg, "out.png", k);
|
|
if (foo) {
|
|
fprintf(stderr, "essai_histo -> error %d\n", foo);
|
|
return foo;
|
|
}
|
|
|
|
fimg_destroy(&fimg);
|
|
|
|
fprintf(stderr, "\\o/ end of %s\n", __func__);
|
|
|
|
return 0;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
enum nCmd { Equalize=1, Rotate, Sfx0, F3x3, MIRE, Wfits, Wpng, Wtiff,
|
|
Histo, Hsv,Classif };
|
|
typedef struct {
|
|
char *name;
|
|
int Cmd;
|
|
} Command;
|
|
|
|
Command commands[] = {
|
|
{ "equalize", Equalize },
|
|
{ "rotate", Rotate },
|
|
{ "sfx0", Sfx0 },
|
|
{ "f3x3", F3x3 },
|
|
{ "mire", MIRE },
|
|
{ "wfits", Wfits },
|
|
{ "wpng", Wpng },
|
|
{ "wtiff", Wtiff },
|
|
{ "histo", Histo },
|
|
{ "hsv", Hsv },
|
|
{ "classif", Classif },
|
|
{ NULL, 0 }
|
|
} ;
|
|
|
|
/* --------------------------------------------------------------------- */
|
|
int lookup_cmd(char *cmdtxt)
|
|
{
|
|
Command *pcmd;
|
|
|
|
pcmd = commands;
|
|
while (pcmd->name) {
|
|
if (!strcmp(pcmd->name, cmdtxt)) return pcmd->Cmd;
|
|
pcmd++;
|
|
}
|
|
|
|
return -1;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
void help(int k)
|
|
{
|
|
Command *pcmd;
|
|
|
|
fprintf(stderr, "usage:\n\t./t command filename\n");
|
|
|
|
fprintf(stderr, "commands:\n");
|
|
pcmd = commands;
|
|
while (pcmd->name) {
|
|
fprintf(stderr, "\t%-15s %d\n", pcmd->name, pcmd->Cmd);
|
|
pcmd++;
|
|
}
|
|
fprintf(stderr, "\ncompiled on "__DATE__" at "__TIME__"\n");
|
|
|
|
exit(0);
|
|
}
|
|
/* --------------------------------------------------------------------- */
|
|
int main(int argc, char *argv[])
|
|
{
|
|
int foo, opt;
|
|
char *filename, *command;
|
|
|
|
fprintf(stderr, "++++++++ test des fonctions pid=%d\n", getpid());
|
|
|
|
global_fvalue = 1.0;
|
|
|
|
while ((opt = getopt(argc, argv, "hk:v")) != -1) {
|
|
switch(opt) {
|
|
case 'h': help(0); break;
|
|
case 'k': global_fvalue = atof(optarg); break;
|
|
case 'v': verbosity++; break;
|
|
}
|
|
}
|
|
|
|
// fprintf(stderr, "argc %d optind %d\n", argc, optind);
|
|
|
|
filename = NULL;
|
|
if (2 != argc-optind) {
|
|
fprintf(stderr, "%s: bad command line\n", argv[0]);
|
|
help(1);
|
|
}
|
|
|
|
command = argv[optind];
|
|
filename = argv[optind+1];
|
|
|
|
if (verbosity) {
|
|
fprintf(stderr, "running command '%s' on '%s'\n", command, filename);
|
|
}
|
|
|
|
opt = lookup_cmd(command);
|
|
// fprintf(stderr, "lookup '%s' --> %d\n", command, opt);
|
|
|
|
switch(opt) {
|
|
case Equalize:
|
|
foo = essai_equalize(filename); break;
|
|
|
|
case Sfx0:
|
|
foo = essai_sfx0(filename); break;
|
|
case F3x3:
|
|
foo = essai_filtrage_3x3(filename); break;
|
|
|
|
case MIRE:
|
|
foo = essai_mire(filename, 0);
|
|
break;
|
|
case Wfits:
|
|
foo = essai_ecriture_fits(filename);
|
|
break;
|
|
case Wpng:
|
|
foo = essai_ecriture_png(filename);
|
|
break;
|
|
case Wtiff:
|
|
foo = essai_ecriture_tiff(filename);
|
|
break;
|
|
case Histo:
|
|
foo = essai_histogramme(filename, 98765);
|
|
break;
|
|
case Hsv:
|
|
foo = fimg_essai_hsv(filename);
|
|
break;
|
|
case Classif:
|
|
foo = essai_classif(filename);
|
|
break;
|
|
default:
|
|
fprintf(stderr, "%s : bad command\n", command);
|
|
exit(1);
|
|
|
|
}
|
|
|
|
if (foo) {
|
|
fprintf(stderr, "Essai ====> %d\n", foo);
|
|
}
|
|
|
|
fprintf(stderr, "++++++++++++++ end of pid %d\n", getpid());
|
|
return 0;
|
|
}
|
|
/* --------------------------------------------------------------------- */
|