add new ugly tools

.gitignore

@@ -1,9 +1,35 @@
 
 *.o
 
-libimage.a
-
-foo
+libtthimage.a
+cscope.out
+gmon.out
 
 Lib/foo
+Lib/testtga
+Lib/t_png
 Lib/t_t16x24
+Lib/testbmp
+Lib/*.tga
+
+Tests/*.tga
+Tests/*.gif
+Tests/t_t16x24
+
+Tools/genplot2
+Tools/tga_alpha
+Tools/tga_cadre
+Tools/tga_combine
+Tools/tga_dither
+Tools/tga_export
+Tools/tga_tools
+Tools/tga_effects
+Tools/tga_equalize
+Tools/tga_filtres
+Tools/tga_remap
+Tools/tga_television
+Tools/tga_applymap
+Tools/tga_makehf15
+Tools/tga_mires
+Tools/tga_incrust
+Tools/tga_pattern

Contribs/ExplodeVidz.md

@@ -0,0 +1,16 @@
+
+# Exploding Vidz for fun and profit.
+
+But du jeu : traiter la séquence d'image complète d'une vidéo live,
+sans devoir attendre 107 ans que le job soit fait.
+
+## Current status
+
+- [rgb_decomp.c](rgb_decomp.c) 
+
+## Film at 11.
+
+See you soon.
+
+
+

Contribs/README.md

@@ -0,0 +1,9 @@
+
+# Contributions
+
+Voici une collection informelle de fonctions diverses et variées contribuées
+par moi-même (et peut-être, un jour, d'autres gens...) et qui risquent
+bien de n'être **pas très maintenues**, contrairement au reste du *kluge*.
+
+Nous allons commencer par des fonctions inventées lors d'une *n*-ième session
+du projet [ExplodeVidz](ExplodeVidz.md).

Contribs/rgb_decomp.c

@@ -0,0 +1,87 @@
+
+
+#include  <stdio.h>
+#include  <stdlib.h>
+#include <sys/time.h>
+#include <sys/resource.h>
+
+#include  <tthimage.h>
+
+/* -------------------------------------------------------- */
+
+
+/* -------------------------------------------------------- */
+
+int rgb_process_by_filename(char *inf, char *outf)
+{
+Image_Desc	*src, *dst;
+int		foo;
+int		x, y, larg, offs;
+int		r, g, b;
+
+if ( (src=Image_TGA_alloc_load(inf)) == NULL )
+	{
+	fprintf(stderr, "%s: err load %s\n", __func__, inf);
+	exit(5);
+	}
+
+printf("source '%s'   %dx%d\n", inf, src->width, src->height);
+
+if ( (dst=Image_clone(src, 0)) == NULL )
+	{
+	fprintf(stderr, "%s: no mem for image cloning\n", __func__);
+	exit(5);
+	}
+
+Image_clear(dst, 160, 60, 60);
+
+/*
+ *	calcul de la zone à traiter
+ */
+larg = src->width / 3;
+offs = (src->width - larg) / 2;
+printf("largeur  %d   offset   %d\n", larg, offs);
+
+
+for (y=0; y<src->height; y++) {
+	for (x=0; x<larg; x++) {
+
+		Image_getRGB(src, x+offs, y, &r, &g, &b);
+
+		Image_plotRGB(dst, x,          y, r, r, r);
+		Image_plotRGB(dst, x+offs,     y, g, g, g);
+		Image_plotRGB(dst, x+(2*offs), y, b, b, b);
+
+		}
+	}
+
+Image_egalise_cos010(dst, dst, 0);
+
+foo = Image_TGA_save(outf, dst, 0);
+if (foo) {
+	fprintf(stderr, "%s: error %d saving %s\n", __func__, foo, outf);
+	exit(5);
+	}
+
+return 0;
+}
+
+/* -------------------------------------------------------- */
+int main(int argc, char *argv[])
+{
+int	foo;
+
+if (3 != argc)
+	{
+	exit(1);
+	}
+
+foo = rgb_process_by_filename(argv[1], argv[2]);
+if (foo) {
+	fprintf(stderr, "process by filename -> %d\n", foo);
+	}
+
+return 0;
+}
+
+/* -------------------------------------------------------- */

Datas/16x24gruik

@@ -0,0 +1,702 @@
+32
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+33
+................
+................
+................
+......**........
+.....****.......
+....******......
+.....****.......
+.....****.......
+.....***........
+.....***........
+......**........
+......**........
+......**........
+......**........
+......**........
+......**........
+.......*........
+................
+.....****.......
+....**..**......
+....**..**......
+.....****.......
+................
+................
+34
+................
+...**......**...
+...***....***...
+...**......**...
+...**......**...
+...*........*...
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+35
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+43
+................
+................
+................
+................
+................
+................
+................
+................
+.....*****......
+......***.......
+.......*........
+.......**.......
+......***.......
+..*..******..*..
+..************..
+..*..******.....
+.......**.......
+.......**.......
+.......**.......
+......****......
+...*********....
+................
+................
+................
+44
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+......**........
+......**........
+.....**.........
+....**..........
+46
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+......***.......
+.....**.**......
+.....*.*.*......
+......***.......
+................
+................
+48
+................
+..************..
+..************..
+................
+.**..........**.
+.**..........**.
+.**..........**.
+.**..........**.
+.**..........**.
+.**..........**.
+................
+................
+................
+................
+.**..........**.
+.**..........**.
+.**..........**.
+.**..........**.
+.**..........**.
+.**..........**.
+................
+..************..
+..************..
+................
+55
+................
+..************..
+..************..
+................
+.............**.
+.............**.
+.............**.
+.............**.
+.............**.
+.............**.
+................
+................
+................
+................
+.............**.
+.............**.
+.............**.
+.............**.
+.............**.
+.............**.
+................
+................
+................
+................
+56
+................
+..************..
+..************..
+................
+.**..........**.
+.**..........**.
+.**..........**.
+.**..........**.
+.**..........**.
+.**..........**.
+................
+..************..
+..************..
+................
+.**..........**.
+.**..........**.
+.**..........**.
+.**..........**.
+.**..........**.
+.**..........**.
+................
+..************..
+..************..
+................
+57
+................
+..************..
+..************..
+................
+.**..........**.
+.**..........**.
+.**..........**.
+.**..........**.
+.**..........**.
+.**..........**.
+................
+..************..
+..************..
+................
+.............**.
+.............**.
+.............**.
+.............**.
+.............**.
+.............**.
+................
+..************..
+..************..
+................
+60
+................
+................
+................
+..........**....
+.........***....
+........**......
+.......**.......
+......**........
+.....**.........
+....**..........
+...**...........
+..***...........
+...**...........
+....**..........
+.....**.........
+......**........
+.......**.......
+........**......
+.........***....
+..........**....
+................
+................
+................
+................
+77
+..****......****
+..****......****
+..****......****
+..**..**..**..**
+..**..**..**..**
+..**..**..**..**
+..**....**....**
+..**....**....**
+..**....**....**
+..**..........**
+..**..........**
+..**..........**
+..**..........**
+..**..........**
+..**..........**
+..**..........**
+..**..........**
+..**..........**
+..**..........**
+..**..........**
+..**..........**
+................
+................
+................
+80
+................
+..**********....
+..**********....
+....**......**..
+....**......**..
+....**.......*..
+....**......R...
+....**......**..
+....**......*...
+....**....**....
+....********....
+....****........
+....**..........
+....**..........
+.....*..........
+.....*..........
+....**..........
+....**..........
+...***..........
+..*****.........
+..*...**........
+................
+................
+................
+83
+................
+.......**.......
+....********....
+..**........**..
+..**........**..
+..**........**..
+..**............
+..**............
+..**............
+....***.........
+......****......
+.........***....
+............**..
+............**..
+............**..
+..**........**..
+..**........**..
+..**........**..
+....********....
+........**......
+................
+................
+................
+................
+84
+................
+................
+................
+..************..
+..************..
+..**...**...**..
+..*....**....*..
+.......**.......
+.......**.......
+.......**.......
+......**........
+......**........
+......**........
+.......**.......
+........**......
+........**......
+.......**.......
+.......**.......
+.......**.......
+.......**.......
+......***.......
+....******..*...
+...**********...
+................
+85
+................
+................
+................
+..****....****..
+..***......***..
+..**........**..
+..**........**..
+..**........**..
+..**........**..
+..**........**..
+.**..........**.
+.**.........**..
+..**.......**...
+..**.......**...
+..**.......**...
+..**.......**...
+..**.......**...
+..***.....***...
+...***...***....
+...*********....
+....******......
+................
+................
+................
+97
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+....*******.....
+...**......*....
+...........**...
+...........*....
+...********.....
+..**.......**...
+..**.......**...
+..**.......**...
+..**.......**...
+..**......**....
+...*******.**...
+................
+................
+................
+101
+................
+................
+................
+................
+................
+................
+................
+................
+................
+....******......
+...********.....
+..**.......**...
+..**.......**...
+..**......**....
+...********.....
+..**............
+..**............
+..**............
+...**...........
+...***.....**...
+.....******.....
+................
+................
+................
+104
+................
+................
+................
+...****.........
+...****.........
+...***..........
+....**..........
+....**..........
+....**..........
+....**..........
+....**..........
+....**..........
+....**..........
+....**..**......
+....********....
+....**.....**...
+....**.....**...
+...**......**...
+...**......**...
+....**.....**...
+...****...***...
+................
+................
+................
+105
+................
+................
+................
+................
+................
+......**........
+....*****.......
+.....***........
+................
+................
+................
+.....*****......
+......**........
+......**........
+......*.........
+.....**.........
+......**........
+......**........
+......**........
+.....***........
+...*******......
+................
+................
+................
+111
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+.....******.....
+....**.....*....
+...**......**...
+...**......**...
+...**......**...
+....**.....**...
+.....**...**....
+......****......
+................
+................
+................
+112
+................
+................
+................
+................
+................
+................
+...**...........
+..****..****....
+...***..****....
+....****....**..
+.....***....**..
+.....***....**..
+.....***....**..
+.....***....**..
+....****....**..
+....**..****....
+....**..****....
+....**...**.....
+....**..........
+....**..........
+....**..........
+..******........
+..******........
+..******........
+
+116
+................
+................
+................
+................
+....***.........
+....**..........
+....**..........
+....**..........
+....**..........
+...*********....
+...***....**....
+....**..........
+....**..........
+....**..........
+....**..........
+....**..........
+....**..........
+....**..........
+....***.........
+.....***....***.
+......*******...
+........***.....
+................
+................
+117
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+..***.....***...
+..**.......**...
+..**.......**...
+..**.......**...
+..**.......**...
+..**.......**...
+..**.......**...
+...**.....**....
+....*******.....
+.....****.......
+................
+................
+................
+118
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+.***.......***..
+..**.......**...
+..**.......**...
+...**......**...
+...**.....**....
+....**....**....
+....**...**.....
+.....**.**......
+......***.......
+.......*........
+................
+................
+................
+120
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+................
+..***.......***.
+...**......**...
+....**....**....
+.....**..**.....
+......****......
+.....**..**.....
+....**....**....
+...**......**...
+..***......***..
+................
+................
+................
+121
+................
+................
+................
+................
+................
+................
+................
+..**........**..
+..**........**..
+..**.......***..
+..**.......**...
+..**.......***..
+..**........**..
+..**........**..
+..**........**..
+....**********..
+....**********..
+........******..
+............**..
+............**..
+............**..
+.....********...
+..**********....
+......****......
+

Datas/neon.map

@@ -0,0 +1,256 @@
+  0   0   0 A flashy map ... by D. Egnor
+  0   0   0
+  8   0   0
+ 16   4   4
+ 24   4   8
+ 32   8  12
+ 40  12  16
+ 48  12  20
+ 56  16  24
+ 64  20  28
+ 72  20  32
+ 80  24  36
+ 88  28  40
+ 96  28  44
+104  32  48
+112  36  52
+120  36  56
+128  40  60
+136  40  64
+144  44  68
+152  48  72
+160  48  76
+168  52  80
+176  56  84
+184  56  88
+192  60  92
+200  64  96
+208  64 100
+216  68 104
+224  72 108
+232  72 112
+240  76 116
+252  80 120
+248  80 120
+240  76 116
+232  76 112
+224  72 108
+216  68 104
+208  68 100
+200  64  96
+192  60  92
+184  60  88
+176  56  84
+168  56  80
+160  52  76
+152  48  72
+144  48  68
+136  44  64
+128  40  60
+120  40  60
+112  36  56
+104  36  52
+ 96  32  48
+ 88  28  44
+ 80  28  40
+ 72  24  36
+ 64  20  32
+ 56  20  28
+ 48  16  24
+ 40  16  20
+ 32  12  16
+ 24   8  12
+ 16   8   8
+  8   4   4
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   4   0
+  0  12   0
+  0  20   0
+  0  28   0
+  0  36   0
+  0  44   0
+  0  52   0
+  0  60   0
+  0  68   0
+  0  76   0
+  0  84   0
+  0  92   0
+  0 100   0
+  0 108   0
+  0 116   0
+  0 124   0
+  0 132   0
+  0 140   0
+  0 148   0
+  0 156   0
+  0 164   0
+  0 172   0
+  0 180   0
+  0 188   0
+  0 196   0
+  0 204   0
+  0 212   0
+  0 220   0
+  0 228   0
+  0 236   0
+  0 244   0
+  0 252   0
+  0 248   0
+  0 240   0
+  0 232   0
+  0 224   0
+  0 216   0
+  0 208   0
+  0 200   0
+  0 192   0
+  0 184   0
+  0 176   0
+  0 168   0
+  0 160   0
+  0 152   0
+  0 144   0
+  0 136   0
+  0 128   0
+  0 120   0
+  0 112   0
+  0 104   0
+  0  96   0
+  0  88   0
+  0  80   0
+  0  72   0
+  0  64   0
+  0  56   0
+  0  48   0
+  0  40   0
+  0  32   0
+  0  24   0
+  0  16   0
+  0   8   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  4   4   0
+ 12  12   0
+ 20  20   0
+ 28  28   0
+ 36  36   0
+ 44  44   0
+ 52  52   0
+ 60  60   0
+ 68  68   0
+ 76  76   0
+ 84  84   0
+ 92  92   0
+100 100   0
+108 108   0
+116 116   0
+124 124   0
+132 132   0
+140 140   0
+148 148   0
+156 156   0
+164 164   0
+172 172   0
+180 180   0
+188 188   0
+196 196   0
+204 204   0
+212 212   0
+220 220   0
+228 228   0
+236 236   0
+244 244   0
+252 252   0
+248 248   0
+240 240   0
+232 232   0
+224 224   0
+216 216   0
+208 208   0
+200 200   0
+192 192   0
+184 184   0
+176 176   0
+168 168   0
+160 160   0
+152 152   0
+144 144   0
+136 136   0
+128 128   0
+120 120   0
+112 112   0
+104 104   0
+ 96  96   0
+ 88  88   0
+ 80  80   0
+ 72  72   0
+ 64  64   0
+ 56  56   0
+ 48  48   0
+ 40  40   0
+ 32  32   0
+ 24  24   0
+ 16  16   0
+  8   8   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0
+  0   0   0

Datas/primaires.map

@@ -0,0 +1,97 @@
+0 0 0
+0 0 16
+0 0 32
+0 0 48
+0 0 64
+0 0 80
+0 0 96
+0 0 112
+0 0 128
+0 0 144
+0 0 160
+0 0 176
+0 0 192
+0 0 208
+0 0 224
+0 0 240
+0 0 255
+16 0 0
+32 0 0
+48 0 0
+64 0 0
+80 0 0
+96 0 0
+112 0 0
+128 0 0
+144 0 0
+160 0 0
+176 0 0
+192 0 0
+208 0 0
+224 0 0
+240 0 0
+255 0 0
+0 16 0
+0 32 0
+0 48 0
+0 64 0
+0 80 0
+0 96 0
+0 112 0
+0 128 0
+0 144 0
+0 160 0
+0 176 0
+0 192 0
+0 208 0
+0 224 0
+0 240 0
+0 255 0
+0 16 16
+0 32 32
+0 48 48
+0 64 64
+0 80 80
+0 96 96
+0 112 112
+0 128 128
+0 144 144
+0 160 160
+0 176 176
+0 192 192
+0 208 208
+0 224 224
+0 240 240
+0 255 255
+16 0 16
+32 0 32
+48 0 48
+64 0 64
+80 0 80
+96 0 96
+112 0 112
+128 0 128
+144 0 144
+160 0 160
+176 0 176
+192 0 192
+208 0 208
+224 0 224
+240 0 240
+255 0 255
+16 16 0
+32 32 0
+48 48 0
+64 64 0
+80 80 0
+96 96 0
+112 112 0
+128 128 0
+144 144 0
+160 160 0
+176 176 0
+192 192 0
+208 208 0
+224 224 0
+240 240 0
+255 255 0

Datas/volcano.map

@@ -0,0 +1,256 @@
+  0   0   0 An explosion of lava ... by D. Egnor
+ 60  60  60
+ 64  60  60
+ 72  60  60
+ 76  56  56
+ 84  56  56
+ 88  52  52
+ 96  52  52
+100  48  48
+108  48  48
+112  44  44
+120  44  44
+128  40  40
+132  40  40
+140  36  36
+144  36  36
+152  32  32
+156  32  32
+164  28  28
+168  28  28
+176  24  24
+180  24  24
+188  20  20
+196  20  20
+200  16  16
+208  16  16
+212  12  12
+220  12  12
+224   8   8
+232   8   8
+236   4   4
+244   4   4
+252   0   0
+252   4   0
+252  12   0
+252  20   0
+252  28   0
+252  36   0
+252  44   0
+252  52   0
+252  60   0
+252  68   0
+252  76   0
+252  84   0
+252  92   0
+252 100   0
+252 108   0
+252 116   0
+252 124   0
+252 132   0
+252 140   0
+252 148   0
+252 156   0
+252 164   0
+252 172   0
+252 180   0
+252 188   0
+252 196   0
+252 204   0
+252 212   0
+252 220   0
+252 228   0
+252 236   0
+252 244   0
+252 252   0
+252 252   4
+252 252  12
+252 252  20
+252 252  28
+252 252  36
+252 252  44
+252 252  52
+252 252  60
+252 252  68
+252 252  76
+252 252  84
+252 252  92
+252 252 100
+252 252 108
+252 252 116
+252 252 124
+252 252 132
+252 252 140
+252 252 148
+252 252 156
+252 252 164
+252 252 172
+252 252 180
+252 252 188
+252 252 196
+252 252 204
+252 252 212
+252 252 220
+252 252 228
+252 252 236
+252 252 244
+252 252 252
+252 252 252
+252 248 248
+252 248 244
+252 244 240
+252 244 236
+252 240 232
+252 240 228
+252 236 224
+252 236 220
+252 232 216
+252 232 212
+252 228 208
+252 228 204
+252 224 200
+252 224 196
+252 220 192
+252 220 188
+252 216 184
+252 216 180
+252 212 176
+252 212 172
+252 208 168
+252 208 164
+252 204 160
+252 204 156
+252 200 152
+252 200 148
+252 196 144
+252 196 140
+252 192 136
+252 192 132
+252 188 128
+252 184 124
+252 184 120
+252 180 116
+252 180 112
+252 176 108
+252 176 104
+252 172 100
+252 172  96
+252 168  92
+252 168  88
+252 164  84
+252 164  80
+252 160  76
+252 160  72
+252 156  68
+252 156  64
+252 152  60
+252 152  56
+252 148  52
+252 148  48
+252 144  44
+252 144  40
+252 140  36
+252 140  32
+252 136  28
+252 136  24
+252 132  20
+252 132  16
+252 128  12
+252 128   8
+252 124   4
+252 120   0
+252 120   0
+252 116   0
+252 112   0
+252 108   0
+252 104   0
+252 100   0
+252  96   0
+252  92   0
+252  88   0
+252  84   0
+252  80   0
+252  76   0
+252  72   0
+252  68   0
+252  64   0
+252  60   0
+252  60   0
+252  56   0
+252  52   0
+252  48   0
+252  44   0
+252  40   0
+252  36   0
+252  32   0
+252  28   0
+252  24   0
+252  20   0
+252  16   0
+252  12   0
+252   8   0
+252   4   0
+252   0   0
+252   0   0
+248   0   0
+244   0   0
+244   0   0
+240   0   0
+236   0   0
+232   0   0
+232   0   0
+228   0   0
+224   0   0
+224   0   0
+220   0   0
+216   0   0
+212   0   0
+212   0   0
+208   0   0
+204   0   0
+204   0   0
+200   0   0
+196   0   0
+192   0   0
+192   0   0
+188   0   0
+184   0   0
+184   0   0
+180   0   0
+176   0   0
+172   0   0
+172   0   0
+168   0   0
+164   0   0
+160   0   0
+160   0   0
+156   4   4
+152   4   4
+148   8   8
+144   8   8
+140  12  12
+140  12  12
+136  16  16
+132  16  16
+128  20  20
+124  20  20
+120  24  24
+120  24  24
+116  28  28
+112  28  28
+108  32  32
+104  32  32
+100  36  36
+100  36  36
+ 96  40  40
+ 92  40  40
+ 88  44  44
+ 84  44  44
+ 80  48  48
+ 80  48  48
+ 76  52  52
+ 72  52  52
+ 68  56  56
+ 64  56  56
+ 60  60  60
+ 60  60  60

Docs/README.md

@@ -0,0 +1,31 @@
+# libtthimage, la doc
+
+Les fichiers [HTML](html/) que vous avez ici sont des versions historiques,
+qui seront peut-être mise à jour au prochain grand refactoring.
+Leur contenu est donc à prendre avec des pincettes, ymmv.
+
+Ceci dit, les principes généraux sont encore bons. Mais il y a quelques
+points à préciser.
+
+## Compilation
+
+Certaines options de compilation sont dans le fichier de
+[paramètres](../Paramakes.mk) pour les différents fichiers make.
+Je vous conseille de vérifier leurs pertinences, et en particulier
+les options `-p` et `-pg` que j'oublie parfois d'enlever avant
+le _push_.
+
+Le script [build.sh](../build.sh)  tente d'automatiser les
+compilations de la bibilothèque, des tests et des outils
+en ligne de commande. Il est encore loin d'être parfait.
+
+## Installation
+
+Le script [install.sh](../install.sh) va installer divers fichiers
+aux bonnes places là où on lui dit avec la variable `DESTDIR`.
+Attention, celle-ci doit être cohérente avec les valeurs déclarée
+dans le fichier Paramakes.mk !
+
+## Utilisation
+
+??? *Insérez ici quelques exemples d'utilisation des tools.*

Lib/.gitignore

@@ -0,0 +1,6 @@
+
+*.png
+*.gif
+
+cflow.txt
+reduce.map

Lib/7seg.c

@@ -0,0 +1,216 @@
+/*
+ * afficheurs a 7 segments - 8 nov 2008 - avenue St Exupery
+ */
+
+#include  <stdio.h>
+#include  <stdlib.h>
+#include  <string.h>
+#include  <math.h>
+#include  <ctype.h>
+#include  "../tthimage.h"
+
+/*::------------------------------------------------------------------::*/
+int Image_7seg_m0v(Image_Desc *img, int xpos, int ypos, int bits, int k)
+{
+Image_Rect	r;
+int		foo, numbit, mask;
+int		failed;
+
+#if DEBUG_LEVEL 
+fprintf(stderr, ">>> %s ( %p, <%d,%d>, 0x%x, %d )\n", __func__,
+				img, xpos, ypos, bits, k);
+#endif
+
+/* ==> check the parameters */
+
+/* ==> tag the plotting zone */
+r.x = xpos;		r.y = ypos;
+r.h = 19;		r.w = 43;
+foo = Image_paint_rect(img, &r, 25, 21, 42);
+#if DEBUG_LEVEL > 1
+fprintf(stderr, "   %s : paint rect -> %d\n", __func__, foo);
+#endif
+
+foo = Image_draw_rect(img, &r, 125, 101, 232);
+#if DEBUG_LEVEL > 1
+fprintf(stderr, "   %s : draw rect -> %d\n", __func__, foo);
+#endif
+
+failed = 0;
+
+/* draw the lighten segments */
+for (numbit=0; numbit<8; numbit++)
+	{
+	mask = 1 << numbit;
+#if DEBUG_LEVEL > 1
+	fprintf(stderr, "%s  numbit %2d  mask %02x\n", __func__, numbit, mask);
+#endif
+	if ( ! (mask & bits) )
+		{
+#if DEBUG_LEVEL > 1
+		fprintf(stderr, "%d skip %d\n", numbit, mask);
+#endif
+		continue;
+		}
+
+	r.x = -1;		/* mark as 'no plot that'*/
+	switch (mask)
+		{
+		case 0x01:
+			r.x = xpos+6;		r.y = ypos+2;
+			r.h = 15;		r.w = 4;
+			break;
+		case 0x02:
+			r.x = xpos+9;		r.y = ypos + 14;
+			r.h = 4;		r.w = 13;
+			break;
+		case 0x04:
+			r.x = xpos+9;		r.y = ypos +1;
+			r.h = 4;		r.w = 13;
+			break;
+		case 0x08:
+			r.x = xpos+22;		r.y = ypos+2;
+			r.h = 15;		r.w = 4;
+			break;
+		case 0x10:
+			r.x = xpos+25;		r.y = ypos+14;
+			r.h = 4;		r.w = 13;
+			break;
+		case 0x20:
+			r.x = xpos+25;		r.y = ypos+1;
+			r.h = 4;		r.w = 13;
+			break;
+		case 0x40:
+			r.x = xpos+38;		r.y = ypos+2;
+			r.h = 15;		r.w = 4;
+			break;
+		case 0x80:
+			/* le point */
+			r.x = xpos+1;		r.y = ypos+1;
+			r.h = 6;		r.w = 4;
+			break;
+
+		default:
+			fprintf(stderr, "segfaulting in %s\n", __func__);
+			abort();
+			break;			/* ah ah ah ah */
+		}
+	if (r.x >= 0)
+		{
+#if DEBUG_LEVEL > 1
+		fprintf(stderr, "  painting...\n");
+#endif
+		Image_paint_rect(img, &r, 200, mask, 50);
+		}
+	else
+		{
+		failed++;
+		}
+	}
+
+if (failed > 0)
+	{
+	fprintf(stderr, "%s : failed = %d\n", __func__, failed);
+	}
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+int Image_7seg_digv(Image_Desc *img, int xpos, int ypos, char chiffre, int k)
+{
+static	int patterns[] = 
+	{ 0x77, 0x24, 0x5d, 0x6d, 0x2e, 0x6b, 0xfb, 0x25, 0x7f, 0x6f };
+	/*   0     1     2     3     4     5     6     7     8     9 */
+int	foo, idx, bits;
+
+#if DEBUG_LEVEL > 1
+fprintf(stderr, "%s: digit 0x%2x  sizeof(patterns) -> %d\n", __func__,
+			chiffre,	sizeof(patterns));
+#endif
+
+if (0 != k)
+	fprintf(stderr, "in %s, k was %d. It's bad.\n", __func__, k);
+
+if ( ! isdigit(chiffre) )
+	{
+	fprintf(stderr, "*** in %s, value 0x%x is not a digit\n", __func__,
+					chiffre);
+	abort();
+	}
+idx = chiffre - '0';
+bits = patterns[idx];
+
+#if DEBUG_LEVEL > 1
+fprintf(stderr, "%s  patterns[%d] -> 0x%x\n", __func__, idx, bits);
+#endif
+
+foo = Image_7seg_m0v(img, xpos, ypos, bits, 0);
+#if DEBUG_LEVEL > 1
+fprintf(stderr, "foooooo ----> %d\n", foo);
+#endif
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+int Image_7seg_tag0(Image_Desc *img, char *numstr, int k)
+{
+int		len, idx;
+int		foo;
+char		digit;
+
+#if DEBUG_LEVEL > 1
+fprintf(stderr, ">>> %s ( %p, '%s', %d )\n", __func__, img, numstr, k);
+#endif
+
+len = strlen(numstr);
+#if DEBUG_LEVEL > 1
+fprintf(stderr, "    len = %d\n", len);
+#endif
+
+for (idx=0; idx<len; idx++)
+	{
+	foo = len-idx-1;
+	digit = numstr[foo];
+#if DEBUG_LEVEL > 1
+	fprintf(stderr, "  %s  %d->%d  '%c'\n", __func__, idx, foo, digit);
+#endif
+	foo = Image_7seg_digv(img, 10, 10+(idx*21), digit, k);
+	}
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ * this is purely a test/demo routine - don't use in production !
+ */
+int Image_7_segments(Image_Desc *img, int nbre, int k)
+{
+int	foo, bar;
+int	iter;
+
+#if DEBUG_LEVEL 
+fprintf(stderr, ">>> %s ( %p, %d, 0x%x )\n", __func__, img, nbre, k);
+#endif
+
+iter = 0;		/* safe value */
+
+for (iter=0; iter<nbre; iter++) 
+	{
+	printf("----%s   passe %d -----\n", __func__, iter);
+	bar = 1 << iter;
+	foo = Image_7seg_m0v(img, 20, 5+(iter*22), bar, 0);
+#if DEBUG_LEVEL > 1
+	fprintf(stderr, "7seg_m0v %d 0x%02x -> %d\n", iter, bar, foo);
+#endif
+
+	bar = '0' + iter;
+	foo = Image_7seg_digv(img, 80, 5+(iter*22), bar, 0);
+#if DEBUG_LEVEL > 1
+	fprintf(stderr, "7seg_digv %d 0x%02x -> %d\n", iter, bar, foo);
+#endif
+	}
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+

Lib/Makefile

@@ -6,38 +6,69 @@
 
 include ../Paramakes.mk
 
-DEPS = ../tthimage.h Makefile
+DEPS = ../tthimage.h ../Paramakes.mk Makefile
 
-STATICLIB = "../libimage.a"
+all:	foo testtga t_png testbmp
 
 #-----------------------------------------------------------------
 
+7seg.o:		7seg.c		$(DEPS)
+
+alpha.o:	alpha.c		$(DEPS)
+alpha2.o:	alpha2.c	$(DEPS)
+anamorphose.o:	anamorphose.c	$(DEPS)
+
 basic_io.o:	basic_io.c	$(DEPS)
 bitblt.o:	bitblt.c	$(DEPS)
+bitplanes.o:	bitplanes.c	$(DEPS)
+bmp.o:		bmp.c		$(DEPS)		bmp.h
 
-calcluts.o:	
+cadres.o:	cadres.c	$(DEPS)
+cadres2.o:	cadres2.c	$(DEPS)
+cadres3.o:	cadres3.c	$(DEPS)
+cadres4.o:	cadres4.c	$(DEPS)
+cadres84.o:	cadres84.c	$(DEPS)
+cadresbox.o:	cadresbox.c	$(DEPS)
+
+calcluts.o:	calcluts.c	$(DEPS)	
 calculs.o:	calculs.c	$(DEPS)
 classif.o:	classif.c	$(DEPS)
+col4bits.o:	col4bits.c	$(DEPS)
+col_reduc.o:	col_reduc.c	$(DEPS)
 col_xyz.o:	col_xyz.c	$(DEPS)
+colors.o:	colors.c	$(DEPS)
+colors2.o:	colors2.c	$(DEPS)
 combine.o:	combine.c	$(DEPS)
 combine2.o:	combine2.c	$(DEPS)
 combine3.o:	combine3.c	$(DEPS)
 combine4.o:	combine4.c	$(DEPS)
 combine5.o:	combine5.c	$(DEPS)
 combine6.o:	combine6.c	$(DEPS)
+contrast.o:	contrast.c	$(DEPS)
 
+detect.o:	detect.c	$(DEPS)
+distances.o:	distances.c	$(DEPS)
 dither.o:	dither.c	$(DEPS)
 dither2.o:	dither2.c	$(DEPS)
 dither3.o:	dither3.c	$(DEPS)
-dither4.o:	dither4.c	$(DEPS)
 doublesz.o:	doublesz.c	$(DEPS)
+drawalpha.o:	drawalpha.c	$(DEPS)
 drawing.o:	drawing.c	$(DEPS)
+drawpatt.o:	drawpatt.c	$(DEPS)
 
 effects.o:	effects.c	$(DEPS)
 effects2.o:	effects2.c	$(DEPS)
 effects3.o:	effects3.c	$(DEPS)
+extractbits.o:	extractbits.c	$(DEPS)
 
+filtadapt.o:	filtadapt.c	$(DEPS)
 filtres.o:	filtres.c	$(DEPS)
+falsecolors.o:	falsecolors.c	$(DEPS)
+functions.o:	functions.c	$(DEPS)		# new Aug 15, 2024
+
+gadgrect.o:	gadgrect.c	$(DEPS)
+glitch.o:	glitch.c	$(DEPS)
+gradient.o:	gradient.c	$(DEPS)
 
 halfsize.o:	halfsize.c	$(DEPS)
 
@@ -48,20 +79,27 @@ luts15bits.o:	luts15bits.c	$(DEPS)
 
 marques.o:	marques.c	$(DEPS)
 mircol.o:	mircol.c	$(DEPS)
+morpho.o:	morpho.c	$(DEPS)
+mosaic.o:	mosaic.c	$(DEPS)
 msglib.o:	msglib.c	$(DEPS)
 mustopen.o:	mustopen.c	$(DEPS)
 
 operat.o:	operat.c	$(DEPS)
 op2x2.o:	op2x2.c		$(DEPS)
 
+palettes.o:	palettes.c	$(DEPS)
 patterns.o:	patterns.c	$(DEPS)
 patterns2.o:	patterns2.c	$(DEPS)
 patterns3.o:	patterns3.c	$(DEPS)
 patterns4.o:	patterns4.c	$(DEPS)
+photomaton.o:	photomaton.c	$(DEPS)
+pcx.o:		pcx.c		$(DEPS)
 pht.o:		pht.c		$(DEPS)
 pixeliz.o:	pixeliz.c	$(DEPS)
 pixels.o:	pixels.c	$(DEPS)
 plotteur.o:	plotteur.c	$(DEPS)
+png.o:		png.c		$(DEPS)
+pnm.o:		pnm.c		$(DEPS)
 pov_hf15a.o:	pov_hf15a.c	$(DEPS)
 pov_hf15b.o:	pov_hf15b.c	$(DEPS)
 pov_hf15c.o:	pov_hf15c.c	$(DEPS)
@@ -69,71 +107,104 @@ pov_hf15d.o:	pov_hf15d.c	$(DEPS)
 pov_hf15e.o:	pov_hf15e.c	$(DEPS)
 pov_hf15f.o:	pov_hf15f.c	$(DEPS)
 pov_synth.o:	pov_synth.c	$(DEPS)
+ptlist.o:	ptlist.c	$(DEPS)
 
+quadpics.o:	quadpics.c	$(DEPS)
+
+readjpeg.o:	readjpeg.c	$(DEPS)
+recurse.o:	recurse.c	$(DEPS)
 rgbmask.o:	rgbmask.c	$(DEPS)
 
 scale.o:	scale.c		$(DEPS)
 sobel4.o:	sobel4.c	$(DEPS)
+stereo.o:	stereo.c	$(DEPS)
 
 tamppool.o:	tamppool.c	$(DEPS)
+tele_2.o:	tele_2.c	$(DEPS)
 television.o:	television.c	$(DEPS)
 text0.o:	text0.c		$(DEPS)
 text1.o:	text1.c		$(DEPS)
 text16x24.o:	text16x24.c	$(DEPS)
 tga.o:		tga.c		$(DEPS)
 tools.o:	tools.c		$(DEPS)
+turtle.o:	turtle.c	$(DEPS)
 
 vignetize.o:	vignetize.c	$(DEPS)
 
 warp0.o:	warp0.c		$(DEPS)
 warp1.o:	warp1.c		$(DEPS)
 warp2.o:	warp2.c		$(DEPS)
-warp3.o:	warp3.c		$(DEPS)
 
+zoom.o:		zoom.c		$(DEPS)
 
 #-----------------------------------------------------------------
 
-OBJECTS =	basic_io.o bitblt.o					\
-		calculs.o classif.o col_xyz.o				\
+OBJECTS =	7seg.o							\
+		alpha.o alpha2.o anamorphose.o				\
+		basic_io.o bitblt.o bitplanes.o bmp.o			\
+		cadres2.o cadres3.o cadres4.o cadres84.o cadresbox.o	\
+		cadres.o						\
+		calcluts.o calculs.o classif.o 				\
+		col4bits.o colors.o colors2.o col_reduc.o col_xyz.o	\
 		combine.o combine2.o combine3.o combine4.o combine5.o 	\
-		dither.o dither2.o dither3.o dither4.o			\
-		doublesz.o drawing.o					\
-		effects.o effects2.o effects3.o				\
-		filtres.o						\
+		combine6.o combine_rnd.o				\
+		contrast.o						\
+		detect.o distances.o					\
+		dither.o dither2.o dither3.o				\
+		doublesz.o drawalpha.o drawing.o drawpatt.o		\
+		effects.o effects2.o effects3.o extractbits.o		\
+		filtadapt.o filtres.o falsecolors.o			\
+		functions.o						\
+		gadgrect.o glitch.o gradient.o				\
 		halfsize.o						\
 		image.o	imprime.o					\
 		luts15bits.o						\
-		marques.o mircol.o msglib.o mustopen.o			\
+		marques.o mircol.o morpho.o mosaic.o msglib.o		\
+		mustopen.o						\
 		operat.o op2x2.o					\
+		palettes.o						\
 		patterns.o patterns2.o patterns3.o patterns4.o		\
-		pht.o pixeliz.o pixels.o plotteur.o			\
+		pcx.o							\
+		photomaton.o pht.o pixeliz.o pixels.o plotteur.o	\
+		pnm.o png.o						\
 		pov_hf15a.o pov_hf15b.o pov_hf15c.o pov_hf15d.o 	\
 		pov_hf15e.o pov_hf15e.o pov_hf15f.o pov_synth.o		\
-		rgbmask.o						\
-		scale.o	sobel4.o					\
-		tamppool.o television.o text0.o text1.o text16x24.o	\
-		tga.o tools.o						\
+		ptlist.o						\
+		quadpics.o						\
+		readjpeg.o recurse.o rgbmask.o				\
+		scale.o	sobel4.o stereo.o				\
+		tamppool.o tele_2.o television.o			\
+		text0.o text1.o text16x24.o				\
+		tga.o tools.o turtle.o					\
 		vignetize.o						\
-		warp0.o warp1.o warp2.o warp3.o
+		warp0.o warp1.o warp2.o					\
+		zoom.o
 
-$(STATICLIB): 	$(OBJECTS)
-	$(AR) 	vrs $@ $?
+# build the static library
+../libtthimage.a: 	$(OBJECTS)
+	$(AR) 	rs $@ $?
 	$(RANLIB)   $@
 
 #-----------------------------------------------------------------
 
-foo:		foo.c $(DEPS) $(STATICLIB)
-	gcc $(CFLAGS) $< $(STATICLIB) -o $@
+foo:		foo.c $(DEPS) ../libtthimage.a
+	gcc $(CFLAGS) $< ../libtthimage.a -lm -o $@
 
-t_t16x24:	t_t16x24.c $(DEPS)  $(STATICLIB)
-	gcc $(CFLAGS) $< $(STATICLIB) -o $@
+t_png:	t_png.c $(DEPS)  ../libtthimage.a
+	gcc $(CFLAGS) $< ../libtthimage.a -lpng -lz -o $@
+
+testbmp:	testbmp.c $(DEPS)  ../libtthimage.a
+	gcc $(CFLAGS) $< ../libtthimage.a -lm -o $@
 
 #-----------------------------------------------------------------
 
 essais.o:	essais.c	$(DEPS) essais.h
 	gcc $(CFLAGS) $< -c
 
-testtga:	testtga.c $(DEPS) $(STATICLIB) essais.o
-	gcc $(CFLAGS) $< $(STATICLIB) essais.o -lm -o $@
+testtga.o:	testtga.c testtga.c $(DEPS) 
+	gcc $(CFLAGS) $< -c
+
+testtga:	testtga.o ../libtthimage.a essais.o
+	gcc $(CFLAGS) $< essais.o ../libtthimage.a -lm -o $@
 
 #-----------------------------------------------------------------

Lib/README.md

@@ -1,4 +1,12 @@
-# The tTh image processind library
+# The tTh image processing library
 
 Ugly software born around 1995 on a MS-Dos 286 computer.
+Look at the [`Makefile`](Makefile) for no more explanations.
+More pertinent informations can be found in
+[`tthimage.h`](../tthimage.h).
+
+
+## Text primitives
+
+Big rewrite in progress, the actual version is a mess.
 

Lib/alpha.c

@@ -0,0 +1,297 @@
+/*
+		alpha.c
+		-------
+	Various transparency operations, aka "alpha channel ops"
+
+			--------------------------------------
+			Et c,a va me forcer a installer libpng
+			--------------------------------------
+			    15May01: on attend toujours libPNG
+			    07Dec01: pfeue, libPNG toujours pas la...
+			    03Fev14: ... please wait more ...
+			    04Oct22: on the way, stay tuned.
+*/
+
+#include  <stdio.h>
+#include  <string.h>
+#include  <stdlib.h>
+#include  "../tthimage.h"
+
+/*::------------------------------------------------------------------::*/
+int
+Image_RGBA_over_RGB(Image_Desc *rgba, Image_Desc *src, Image_Desc *dst)
+{
+int	x, y;
+int	rs, gs, bs, rm, gm, bm, am, r, g, b;
+int	foo;
+
+if (rgba->type != IMAGE_RGBA)
+	{
+	fprintf(stderr, "RGBA over RGB: image is not RGBA (%d)\n", rgba->type);
+	return IMAGE_BAD_TYPE;
+	}
+if ( (foo=Image_compare_desc(rgba, src)) )
+	{
+	fprintf(stderr, "RGBA over RGB: err on sources: %s\n",
+						Image_err2str(foo));
+	return foo;
+	}
+
+#if DEBUG_LEVEL
+fprintf(stderr, "RGBA/RGB types: %d %d %d\n", rgba->type, src->type, dst->type);
+#endif
+
+for (y=0; y<src->height; y++)
+	{
+	for (x=0; x<src->width; x++)
+		{
+		rs = (src->Rpix[y])[x];
+		gs = (src->Gpix[y])[x];
+		bs = (src->Bpix[y])[x];
+		Image_getRGBA(rgba, x, y, &rm, &gm, &bm, &am);
+
+		r = ((rs*(255-am)) + (rm*am)) / 256;
+		g = ((gs*(255-am)) + (gm*am)) / 256;
+		b = ((bs*(255-am)) + (bm*am)) / 256;
+
+		Image_plotRGB(dst, x, y, r, g, b);
+		}
+	}
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ *		this function do some dirty things with the internals
+ *		of the library. And you got here a 'secret' prototype.
+ */
+int Image_alloc_pixels(unsigned char ***pix, int w, int h);
+/*
+ *		Ahem. You, if you use this prototype, you are going
+ *		to be a big laM3r. Don't do it. You have be warned.
+ */
+int
+Image_add_alpha_channel(Image_Desc *img, int value)
+{
+uint8_t	**tmp_ptr;
+int	foo;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "Add Alpha Channel v=%d to Img %p\n", value, img);
+#endif
+
+if (img == NULL)
+	{
+	fprintf(stderr, "Add Alpha Channel: ZarWa, 'img' is NULL\n");
+	return NULL_DESCRIPTOR;
+	}
+
+if (img->Apix != NULL)
+	{
+	fprintf(stderr, "Image %p already has an alpha channel\n", img);
+	return VERY_STRANGE;
+	}
+
+if (img->type != IMAGE_RGB)
+	{
+	fprintf(stderr, "Image %p is not RGB.\n", img);
+	return VERY_STRANGE;
+	}
+
+foo = Image_alloc_pixels(&tmp_ptr, img->width, img->height);
+#if DEBUG_LEVEL
+fprintf(stderr, "creation channel alpha foo=%d ptr=%p\n", foo, tmp_ptr);
+#endif
+
+/*	Yo, le plan memoire est disponible, on y poke la 'value'	*/
+for (foo=0; foo<img->height; foo++) {
+	memset(tmp_ptr[foo], value, img->width);
+	}
+
+/*	and now, we update the image descriptor	*/
+img->type	= IMAGE_RGBA;
+img->nb_planes	= 4;
+img->Apix	= tmp_ptr;
+img->modified   = 1;
+
+#if DEBUG_LEVEL
+Image_dump_descriptor(img, "apres creation canal Alpha");
+#endif
+
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+int
+Image_kill_alpha_channel(Image_Desc *img)
+{
+int		line;
+
+#if DEBUG_LEVEL
+Image_dump_descriptor(img, "Killing Alpha Channel");
+#endif
+
+if (img->type != IMAGE_RGBA) {
+#if DEBUG_LEVEL
+	fprintf(stderr, "Kill Alpha Channel: bad type %d\n", img->type);
+#endif
+	return VERY_STRANGE;
+	}
+
+if (img->nb_planes != 4) {
+	fprintf(stderr, "Kill Alpha Channel: bad planes number %d\n",
+						img->nb_planes);
+	return VERY_STRANGE;
+	}
+
+if (img->Apix == NULL) {
+	fprintf(stderr, "Kill Alpha Channel: _no_ alpha channel in %p\n", img);
+	return NO_ALPHA_CHANNEL;
+	}
+
+for (line=0; line<img->height; line++)
+	if (img->Apix[line] != NULL)     free(img->Apix[line]);
+
+free(img->Apix);	img->Apix = NULL;
+img->nb_planes	= 3;
+img->type = IMAGE_RGB;
+img->modified   = 1;
+
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+int
+Image_map_alpha_on_img(Image_Desc *img)
+{
+register int pix;
+int	x, y;
+
+if (img->Apix == NULL)
+	{
+	fprintf(stderr, "%s : %p have no alpha channel.\n", __func__, img);
+	return FULL_NUCKED;
+	}
+
+if (img->type != IMAGE_RGBA)
+	{
+	fprintf(stderr, "%s : %p is not an RGBA image.\n", __func__, img);
+	return FULL_NUCKED;
+	}
+
+for (y=0; y<img->height; y++)
+	{
+	for (x=0; x<img->width; x++)
+		{
+		pix = (img->Rpix[y])[x] * (img->Apix[y])[x];
+		(img->Rpix[y])[x] = pix / 256;
+
+		pix = (img->Gpix[y])[x] * (img->Apix[y])[x];
+		(img->Gpix[y])[x] = pix / 256;
+
+		pix = (img->Bpix[y])[x] * (img->Apix[y])[x];
+		(img->Bpix[y])[x] = pix / 256;
+		}
+	}
+
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ *	given two levels by RGB component, this func build an alpha
+ *	binary mask where pixels in the 3 RGB intervals have the v1
+ *	alpha value, and all others have the v2 alpha value.
+ */
+int
+Image_alpha_op_0(Image_Desc *src, Image_Desc *dst, int v1, int v2,
+		    int rb, int rt, int gb, int gt, int bb, int bt,
+		    int param)
+{
+int	x, y, foo, r, g, b;
+int	c1, c2;
+
+/*
+	XXX NO SAFETY CONTROLS ?
+*/
+if (dst->Apix == NULL)
+	{
+	fprintf(stderr, "Alpha op 0: dst %p have no alpha channel.\n", dst);
+	return FULL_NUCKED;
+	}
+if (0 != param)
+	{
+	fprintf(stderr, "%s: parameter must be 0\n", __func__);
+	}
+
+c1 = c2 = 0;
+for (y=0; y<src->height; y++)
+	{
+	for (x=0; x<src->width; x++)
+		{
+		foo = Image_getRGB(src, x, y, &r, &g, &b);
+
+		if (	(r > rb && r < rt) ||
+			(g > gb && g < gt) ||
+			(b > bb && b < bt)	)
+			{
+			dst->Apix[y][x] = v1;
+			c1++;
+			}
+		else
+			{
+			dst->Apix[y][x] = v2;
+			c2++;
+			}
+		}
+	}
+
+#if DEBUG_LEVEL
+fprintf(stderr, "Alpha op 0:  c1=%d   c2=%d\n", c1, c2);
+#endif
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ *	New: 16 Oct 2001.
+ */
+int Image_copy_component_to_alpha(Image_Desc *img, char component)
+{
+int	x, y;
+
+if (img->type != IMAGE_RGBA)
+	{
+	fprintf(stderr, "Alpha copy comp: %p is not an RGBA image.\n", img);
+	return NO_ALPHA_CHANNEL;
+	}
+
+if (img->Apix == NULL)
+	{
+	fprintf(stderr, "Alpha copy comp: %p have no alpha channel.\n", img);
+	return NO_ALPHA_CHANNEL;
+	}
+
+#if DEBUG_LEVEL
+fprintf(stderr, "moving component '%c' to alpha channel of %p\n", 
+				component, 		img);
+#endif
+
+for (y=0; y<img->height; y++) {
+    for (x=0; x<img->width; x++) {
+	switch (component)
+	    	{
+    		case 'r': case 'R':
+    			img->Apix[y][x] = img->Rpix[y][x];	break;
+	    	case 'g': case 'G':
+    			img->Apix[y][x] = img->Gpix[y][x];	break;
+	    	case 'b': case 'B':
+    			img->Apix[y][x] = img->Bpix[y][x];	break;
+	    	}
+	}
+    }
+return FUNC_IS_ALPHA;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ *			   bon, et maintenant, qu'est-ce qu'on invente ?
+ *							ben 'alpha2.c' !
+ */
+/*::------------------------------------------------------------------::*/

Lib/alpha2.c

@@ -0,0 +1,129 @@
+/*
+		alpha2.c
+		--------
+	Various transparency operations, aka "alpha channel ops"
+
+*/
+
+#include  <stdio.h>
+#include  <stdlib.h>
+#include  <string.h>
+#include  "../tthimage.h"
+
+/*::------------------------------------------------------------------::*/
+int	Image_alpha_setvalue(Image_Desc *dst, int v_alpha)
+{
+int	y;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "%s : %d -> %p\n", __func__, v_alpha, dst);
+#endif
+
+if (dst->type != IMAGE_RGBA)
+	{
+	fprintf(stderr, "%s : picz %p haz no alpha\n", __func__, dst);
+#if MUST_ABORT
+	abort();
+#endif
+	return NO_ALPHA_CHANNEL;
+	}
+
+for (y=0; y<dst->height; y++)
+	{
+	memset(dst->Apix[y], v_alpha, dst->width);
+	}
+dst->modified   = 1;
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ *	values of r,g,b pixels are scaled by alpha value.
+ */
+int
+Image_alpha_reduce(Image_Desc *src, Image_Desc *dst, int yo)
+{
+int	foo, x, y;
+int	r, g, b, a;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "Image: alpha reduce: %p -> %p (yo=%d)\n", src, dst, yo);
+#endif
+
+if (src->type != IMAGE_RGBA)
+    {
+    fprintf(stderr, "Image: alpha reduce: %p is not RGBA", src);
+    return NO_ALPHA_CHANNEL;
+    }
+
+if ( (foo=Image_compare_desc(src, dst)) )
+    {
+    fprintf(stderr, "Image: alpha reduce: images are differents %d\n", foo);
+    return foo;
+    }
+
+for (y=0; y<src->height; y++)
+	{
+	for (x=0; x<src->width; x++)
+		{
+		Image_getRGBA(src, x, y, &r, &g, &b, &a);
+		r = (r * a) / 256;
+		g = (g * a) / 256;
+		b = (b * a) / 256;
+		Image_plotRGB(dst, x, y, r, g, b);
+		}
+	}
+
+dst->modified   = 1;
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ *	this fonction need more explanations :(
+ */
+int
+Image_poke_alpha_from_rgb(Image_Desc *src, Image_Desc *dst, 
+					int fr, int fg, int fb, int flag)
+{
+int	foo, x, y, r, g, b, a0, a1, a;
+
+a = 0;		/* warning shutdown */
+
+if ( (foo=Image_compare_desc(src, dst)) )
+    {
+    fprintf(stderr, "Poke alpha from rgb: images are differents %d\n", foo);
+    return foo;
+    }
+
+if ( dst->Apix == NULL )
+    {
+    fprintf(stderr, "poke alpha from rgb: dest image have NO alpha channel\n");
+    return NO_ALPHA_CHANNEL;
+    }
+
+a0 = flag ? 0 : 255;
+a1 = flag ? 255 : 0;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "For rgb = %d,%d,%d  alpha wil be %d\n", fr, fg, fb, a);
+#endif
+
+for (y=0; y<src->height; y++)
+	{
+	for (x=0; x<src->width; x++)
+		{
+		Image_getRGB(src, x, y, &r, &g, &b);
+
+		if (r==fr && g==fg && b==fb)	a = a0;
+		else				a = a1;
+
+		Image_plotRGBA(dst, x, y, r, g, b, a);
+		}
+	}
+
+dst->modified   = 1;
+
+return FUNC_NOT_FINISH;
+}
+/*::------------------------------------------------------------------::*/
+

Lib/anamorphose.c

@@ -7,7 +7,7 @@
 #include   <stdlib.h>
 #include   <math.h>
 
-#include   "tthimage.h"
+#include   "../tthimage.h"
 
 /*::------------------------------------------------------------------::*/
 int
@@ -16,16 +16,14 @@ Image_anmo_X(Image_Desc *src, Image_Desc *dst)
 int		x, y;
 double		dnormx, dnormy;
 
-fprintf(stderr, "%s : %p -> %p\n", __func__, src, dst);
+fprintf(stderr, ">>> %s: %p -> %p\n", __func__, src, dst);
 
 /*
  * we scan the destination picture
  */
-for (y=0; y<dst->height; y++)
-	{
+for (y=0; y<dst->height; y++) {
 	dnormy = (double)y/(double)dst->height;
-	for (x=0; x<dst->width; x++)
-		{
+	for (x=0; x<dst->width; x++) {
 		dnormx = (double)x/(double)dst->width;
 
 
@@ -42,7 +40,6 @@ return FUNC_NOT_FINISH;
 int
 Image_anmo_grille(Image_Desc *dst)
 {
-int	x, y;
 
 if (dst->magic != MAGIC_OF_IMAGE)
 	{
@@ -73,10 +70,8 @@ double		xamp, yamp;
 long		nb_in, nb_out;
 #endif
 
-image = Image_alloc(w, h, 3);
-if (image==NULL)
-	{
-	fprintf(stderr, "%s: Abend: no mem\n", __FILE__);
+if (NULL==(image = Image_alloc(w, h, 3))) {
+	fprintf(stderr, "%s %s : Abend: no mem\n", __FILE__, __func__);
 	exit(5);
 	}
 

Lib/basic_io.c

@@ -2,17 +2,17 @@
 		BASIC_IO		Sept 2001
 		--------		---------
 
-		Ce module a été écrit pour tenter de régler les 
-		problèmes de "boutisme" pour que ça puisse aussi
+		Ce module a ete ecrit pour tenter de regler les 
+		problemes de "boutisme" pour que c,a puisse aussi
 		tourner sur les vrais processeurs, parce que, bon,
-		les 386, ça suffit, hein...
+		les 386, parfois, on s'en gave, hein...
 
 		Ceci dit, je ne sais pas vraiment comment traiter
-		le problème. Pour le moment (Septembre 2001) c'est
+		le probleme. Pour le moment (Septembre 2001) c'est
 		un peu beaucoup du "try and test".
 
-		D'autre part, comment ça va se passer sur des CPUs
-		à 64 (ou 128) bits ?
+		D'autre part, comment les choses vont se passer sur
+		des CPUs a 64 (ou 128) bits ?
 		-------------------------------------------------
 
 	9 oct 2001: pourquoi pas de fonction pour ecrire des BYTEs ?
@@ -136,7 +136,7 @@ for (foo=0; foo<4; foo++)
 
 *pvalue = value;
 
-return FUNC_IS_BETA;
+return FUNC_IS_BETA;		/* XXX ? */
 }
 /*::------------------------------------------------------------------::*/
 int	Image_basicIO_write_I_long(FILE *fp, long value)

Lib/bitblt.c

@@ -20,30 +20,34 @@
  *	et les parametres x et y disent ou recopier les pixels dans l'image
  *	de destination.
  */
-int
-Image_get_rect(Image_Desc *s, Image_Rect *z, Image_Desc *d, int x, int y)
+int Image_get_rect(Image_Desc *s, Image_Rect *z, Image_Desc *d, int x, int y)
 {
 int	xfoo, yfoo;				/* oh! des 'foo' 2D :-) */
 int	xs, ys;
 
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p %p %p  %d %d )\n", __func__, s, z, d, x, y);
+#endif
+
+/*
+ *			NEED MORE EXPLANATION XXX !
+ */
 #if DEBUG_LEVEL > 1
 fprintf(stderr, "GET RECT src  %p   %4d, %4d, %4d, %4d\n",
 				s, z->x, z->y, z->w, z->h);
 fprintf(stderr, "         dst  %p   %4d, %4d\n", d, x, y);
 #endif
 
-if ( (z->w > d->width) || (z->h > d->height) )
-	{
+if ( (z->w > d->width) || (z->h > d->height) ) {
+	fprintf(stderr, "%s: oups, bad rect\n", __func__);
 	return 666;
 	}
 
-for (yfoo=0; yfoo<z->h; yfoo++)
-	{
+for (yfoo=0; yfoo<z->h; yfoo++)	{
 	ys = yfoo + z->y;
 	if (ys<0 || ys>s->height-1)
 		continue;
-	for (xfoo=0; xfoo<z->w; xfoo++)
-		{
+	for (xfoo=0; xfoo<z->w; xfoo++)	{
 		xs = xfoo + z->x;
 		if (xs<0 || xs>s->width-1)
 			continue;
@@ -55,23 +59,27 @@ return 0;
 }
 /*::------------------------------------------------------------------::*/
 /*
+ *	2023-09-30: je comprend rien a ce truc !
+ *
  *	recopie d'un rectangle d'une image source par dessus
  *	une image destination.
  */
-int
-Image_put_rect(Image_Desc *s, Image_Rect *z, Image_Desc *d, int x, int y)
+int Image_put_rect(Image_Desc *s, Image_Rect *z, Image_Desc *d, int x, int y)
 {
 int	xfoo, yfoo;		
 int	xs, ys, xd, yd;
 
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p %p %p  %d %d )\n", __func__, s, z, d, x, y);
+#endif
+
 #if DEBUG_LEVEL > 1
 fprintf(stderr, "PUT RECT src  %p   %4d, %4d, %4d, %4d\n",
 			s, z->x, z->y, z->w, z->h);
 fprintf(stderr, "         dst  %p   %4d, %4d\n", d, x, y);
 #endif
 
-for (yfoo=0; yfoo<z->h; yfoo++)
-	{
+for (yfoo=0; yfoo<z->h; yfoo++)	{
 	ys = yfoo + z->y;
 	if (ys<0 || ys>s->height-1)
 		continue;
@@ -80,8 +88,7 @@ for (yfoo=0; yfoo<z->h; yfoo++)
 	if (yd<0 || yd>d->height-1)
 		continue;
 
-	for (xfoo=0; xfoo<z->w; xfoo++)
-		{
+	for (xfoo=0; xfoo<z->w; xfoo++)	{
 		xs = xfoo + z->x;
 		if (xs<0 || xs>s->width-1)
 			continue;
@@ -94,33 +101,27 @@ for (yfoo=0; yfoo<z->h; yfoo++)
 		}
 	}
 
-return FUNC_IS_ALPHA;
+return FUNC_IS_ALPHA;		/* AH BRAVO */
 }
 
 /*::------------------------------------------------------------------::*/
 /*
  *  coredumper dlmkt !
  */
-int
-Image_copy_rect(Image_Desc *s, Image_Rect *z, Image_Desc *d, int x, int y)
+int Image_copy_rect(Image_Desc *s, Image_Rect *z, Image_Desc *d, int x, int y)
 {
 int	xs, ys, xd, yd, xx, yy;
 int	foo;
 
-#if DEBUG_LEVEL > 1
-fprintf(stderr, "%s s=%p z=%p d=%p x,y=%d,%d\n", __func__,
-			s, z, d, x, y);
-#endif
+fprintf(stderr, ">>> %s ( %p %p %p  %d %d )\n", __func__, s, z, d, x, y );
 
-if (d->magic != MAGIC_OF_IMAGE)
-	{
+if (d->magic != MAGIC_OF_IMAGE)	{
 	fprintf(stderr, "%s: need Dead Beef\n", __func__);
 	return  NOT_AN_IMAGE_DESC;
 	}
 
 foo = 0;
-for (yy=0; yy<z->h; yy++)
-	{
+for (yy=0; yy<z->h; yy++) {
 	ys = yy + z->y;
 	if (ys<0 || ys>=s->height)
 		continue;
@@ -129,8 +130,7 @@ for (yy=0; yy<z->h; yy++)
 	if (yd<0 || yd>=d->height)
 		continue;
 
-	for (xx=0; xx<z->w; xx++)
-		{
+	for (xx=0; xx<z->w; xx++) {
 		xs = xx + z->x;
 		if (xs<0 || xs>=s->width)
 			continue;
@@ -154,22 +154,21 @@ return FUNC_IS_BETA;
  *		23 dec 01	found a coredump if src image is too small
  *
  */
-Image_Desc *
-Image_create_subimg(Image_Desc *src, Image_Rect *r, int gray)
+Image_Desc *Image_create_subimg(Image_Desc *src, Image_Rect *r, int gray)
 {
 Image_Desc *clone;
 int x,y,xs, ys;
 
+fprintf(stderr, ">>> %s ( %p %p %d )\n", __func__, src, r, gray);
+
 /*
  *	sanities controls...
  */
-if (src->type != IMAGE_RGB)
-	{
+if (src->type != IMAGE_RGB) {
 	fprintf(stderr, "'%s' work only on RGB images\n", __func__);
 	exit(5);
 	}
-if ( (r->x<0) || (r->y<0) )
-	{
+if ( (r->x<0) || (r->y<0) ) {
 	fprintf(stderr, "create_subimg, rect(%d,%d,%d,%d) iznotgoud\n",
 					r->x, r->y, r->w, r->h);
 	exit(5);
@@ -180,34 +179,28 @@ if ( (r->x<0) || (r->y<0) )
  *	now, we allocate the new image...
  */
 clone = Image_alloc(r->w, r->h, src->type);
-if (clone == NULL)
-	{
+if (clone == NULL) {
 	fprintf(stderr, "CreateSubImage: can't alloc memory...\n");
 	exit(5);
 	}
 
-for (x=0; x<r->w; x++)
-	{
+for (x=0; x<r->w; x++) {
 	xs = x + r->x;
-	for (y=0; y<r->h; y++)
-		{
+	for (y=0; y<r->h; y++) {
 		ys = y + r->y;
 		/*printf("dst %4d %4d     ", x, y); */
 		/*printf("src %4d %4d     ", xs, ys); */
 
-		if (ys<0 || ys>src->width)
-			{
+		if (ys<0 || ys>src->width) {
 			Image_plotRGB(clone, x, y, gray, gray, gray);
 			}
-		else
-			{
+		else	{
 			/* XXX calling this func is a nasty cpu sucker,
 			 * so we have to go to a nasty optimize trick */
 			/* XXX Image_pixel_copy(src, xs, ys, clone, x, y); */
 			(clone->Rpix[y])[x] = (src->Rpix[ys])[xs];
 			(clone->Gpix[y])[x] = (src->Gpix[ys])[xs];
 			(clone->Bpix[y])[x] = (src->Bpix[ys])[xs];
-
 			}
 		}
 	}

Lib/bitplanes.c

@@ -12,7 +12,7 @@
 
 #include  "../tthimage.h"
 
-#define VERSION_STRING "5 octobre 2015"
+#define VERSION_STRING "7 juiller 2022"
 
 /*::------------------------------------------------------------------::*/
 /*:: private variables */
@@ -45,7 +45,7 @@ int		taille;
 uint8_t		*pbits;
 
 #if DEBUG_LEVEL
-fprintf(stderr, "%s ( %d %d )\n", __func__, w, h);
+fprintf(stderr, ">>> %s ( %d %d )\n", __func__, w, h);
 #endif
 
 /* is there a sanity check on the dimensions ? */
@@ -90,7 +90,7 @@ int Image_free_that_BP(A_BitPlane *bp, int k)
 {
 
 #if DEBUG_LEVEL
-fprintf(stderr, "%s ( %p %d )\n", __func__, bp, k);
+fprintf(stderr, ">>> %s ( %p %d )\n", __func__, bp, k);
 #endif
 
 if (bp->magic != MAGIC_BIT_PLANE) {
@@ -117,7 +117,7 @@ return FUNC_IS_ALPHA;
 int Image_BP_setname(A_BitPlane *bp, const char *name)
 {
 #if DEBUG_LEVEL
-fprintf(stderr, "%s ( %p '%s' )\n", __func__, bp, name);
+fprintf(stderr, ">>> %s ( %p '%s' )\n", __func__, bp, name);
 #endif
 
 if (MAGIC_BIT_PLANE != bp->magic) {
@@ -186,10 +186,9 @@ offbit = x % 8;
 fprintf(stderr, "   offbyte %d, offbit %d\n", offbyte, offbit);
 fprintf(stderr, "   avant 0x%02x\n", bp->plane[offbyte]);
 #endif
-if (bit)
-	bp->plane[offbyte] |= (1 << offbit);
-else
-	bp->plane[offbyte] &= ~(1 << offbit);
+
+if (bit)		bp->plane[offbyte] |= (1 << offbit);
+else			bp->plane[offbyte] &= ~(1 << offbit);
 
 #if DEBUG_LEVEL > 1
 fprintf(stderr, "   apres 0x%02x\n", bp->plane[offbyte]);
@@ -243,7 +242,7 @@ fprintf(stderr, "%s ( %p '%s' 0x%03x )\n", __func__, bp, fname, k);
 
 if (NULL==(fp=fopen(fname, "w")))
 	{
-	fprintf(stderr, "fucked in %s\n", __func__);
+	fprintf(stderr, "fucked in %s on file '%s'\n", __func__, fname);
 	return FULL_NUCKED;
 	}
 
@@ -252,17 +251,14 @@ fprintf(fp, "# written by libtthimage v %s\n# bitplane module '%s'\n",
 			IMAGE_VERSION_STRING, VERSION_STRING);	
 
 chariot = 0;
-for (y=0; y<bp->height; y++)
-	{
-	for (x=0; x<bp->width; x++)
-		{
+for (y=0; y<bp->height; y++) {
+	for (x=0; x<bp->width; x++) {
 		Image_BP_pget(bp, x, y, &v);
 		if (v)		fputc('1', fp);
 		else		fputc('0', fp);
 		if (chariot++ < 74)
 			fputc(' ', fp);
-		else
-			{
+		else	{
 			fputc('\n', fp);	chariot=0;
 			}
 		}

Lib/bmp.c

@@ -14,20 +14,18 @@
 
 #include  <stdio.h>
 #include  <stdlib.h>
-#include  "tthimage.h"
+#include  "../tthimage.h"
 
 #include  "bmp.h"	/* maybe I can hardcoded bmp.h here ? */
 
 /*::------------------------------------------------------------------::*/
-static void
-fatal_error(char *txt)
+static void fatal_error(char *txt)
 {
 fprintf(stderr, "BMP: Fatal error: %s\n", txt);
 exit(10);
 }
 /*::------------------------------------------------------------------::*/
-int
-Image_BMP_infos(char *nom, int *pw, int *ph, int *pt, int verb)
+int Image_BMP_infos(char *nom, int *pw, int *ph, int *pt, int verb)
 {
 FILE		*fp;
 BMPHEAD		head;
@@ -35,17 +33,20 @@ int		foo;
 
 if (verb)	printf("BMP_Infos : '%s'\n", nom);
 
-if ((fp=fopen(nom, "r")) == NULL)
-	{
+if ((fp=fopen(nom, "r")) == NULL) {
 	fprintf(stderr, "BMP_Infos: can't open %s\n", nom);
 	return FILE_NOT_FOUND;
 	}
 
 foo = fread(&head, 1, sizeof(head), fp);
+if (sizeof(head) != foo) {
+	fprintf(stderr, "%s: err read header of %s\n", __func__, nom);
+	fclose(fp);
+	return UNKNOW_ERROR;
+	} 
 fclose(fp);
 
-if (verb)
-	{
+if (verb) {
 	printf("signature    %c%c           filesize %8ld\n",
 		head.id[0], head.id[1], head.filesize);
 	printf("headerSize   %8ld     infoSize %8ld\n",
@@ -54,7 +55,7 @@ if (verb)
 			head.width, head.height, head.bits);
 	printf("colors: used %ld  important %ld\n", 
 			head.clrused, head.clrimportant);
-	printf("taille structure header  %d\n", sizeof(BMPHEAD));
+	printf("taille structure header  %ld\n", sizeof(BMPHEAD));
 	}
 /* 
  * now, return some usefull informations.
@@ -70,28 +71,32 @@ return 0;
  */
 #define PIX2BYTE(n) ((n+7)/8)
 
-Image_Desc *
-Image_BMP_alloc_load(char *nom, int reserved)
+Image_Desc * Image_BMP_alloc_load(char *nom, int reserved)
 {
+(void)reserved;				/* WARNING KILLER */
 FILE		*fp;
 BMPHEAD		head;
 int		ligne, foo, larg, col, ligne2;
 Image_Desc	*image;
 uint8_t		*buffer;
 
-if ((fp=fopen(nom, "r")) == NULL)
-	{
+if ((fp=fopen(nom, "r")) == NULL) {
 	fprintf(stderr, "can't open %s\n", nom);
 	return NULL;
 	}
 
 foo = fread(&head, 1, sizeof(head), fp);
+if (sizeof(head) != foo) {
+	fprintf(stderr, "%s: err read header of %s\n", __func__, nom);
+	fclose(fp);
+	return NULL;
+	} 
+
 #if DEBUG_LEVEL
 fprintf(stderr, "BMP: on a lu %d octets pour le header.\n", foo); 
 #endif
 
-if ( head.id[0] != 'B' || head.id[1] != 'M' )
-	{
+if ( head.id[0] != 'B' || head.id[1] != 'M' ) {
 	fprintf(stderr, "BMP_Alloc_Load: BAD MAGIC  %s\n", nom);
 	return NULL;
 	}
@@ -103,15 +108,13 @@ fprintf(stderr, "BMP_Alloc_Load: image depth = %d\n", head.bits);
 /*
  *	first step: allocating the memory.
  */
-switch (head.bits)
-	{
+switch (head.bits) {
 	case 1:	case 4: case 8:
 		fprintf(stderr, "bit depth %d not supported\n", head.bits);
 		return NULL;
 		break;
 
 	case 24:
-
         	if ( (image=Image_alloc(head.width, head.height, 3))==NULL)
             		fatal_error("no memory for picture in 'alloc_load'\n");
 
@@ -119,7 +122,6 @@ switch (head.bits)
             		fatal_error("no memory for buffer in 'alloc_load'\n");
 
 		larg = head.width * 3;
-
 		break;
 
 	default:
@@ -132,8 +134,7 @@ switch (head.bits)
 /*
  *	round up to an even dword boundary	(?)
  */
-if (larg & 0x00000003)
-	{
+if (larg & 0x00000003) {
 	larg |= 0x00000003;
 	larg++;
 	}
@@ -143,17 +144,14 @@ if (larg & 0x00000003)
  *
  *	(no default case, filtered in first step)
  */
-switch (head.bits)
-    {
+switch (head.bits) {
     case 24:
 
-	for (ligne=0; ligne<head.height; ligne++)
-	    {
+	for (ligne=0; ligne<head.height; ligne++) {
 	    foo=fread(buffer, 1, larg, fp);
 	    /* printf("ligne %5d lu %d\n", ligne, foo); */
 	    ligne2 = head.height - ligne - 1;
-	    for (col=0; col<head.width; col++)
-		{
+	    for (col=0; col<head.width; col++) {
                 (image->Bpix[ligne2])[col] = buffer[  col*3 ];
                 (image->Gpix[ligne2])[col] = buffer[ (col*3) + 1 ];
                 (image->Rpix[ligne2])[col] = buffer[ (col*3) + 2 ];
@@ -172,9 +170,9 @@ return image;
  *
  *	et cette fois-ci, on va faire gaffe au boutisme :)
  */
-int
-Image_BMP_save_24(char *filename, Image_Desc *img, int flag)
+int Image_BMP_save_24(char *filename, Image_Desc *img, int flag)
 {
+(void)flag;				/* WARNING KILLER */
 FILE		*fp;
 long		grand;
 short		court;
@@ -187,8 +185,7 @@ fprintf(stderr, "%s : writing %p to %s, flag=%d\n", __func__,
 				img, filename, flag);
 #endif
 
-if ((fp=fopen(filename, "w")) == NULL)
-	{
+if ((fp=fopen(filename, "w")) == NULL) {
 	fprintf(stderr, "can't open %s for writing\n", filename);
 	return FILE_CREATE_ERR;
 	}
@@ -206,8 +203,7 @@ if (bytes & 0x3)
 	bytes++;
 	}
 */
-switch (bytes & 0x3)
-	{
+switch (bytes & 0x3) {
 	case 0:		/* OK */	break;
 	case 1:		bytes+=3;	break;
 	case 2:		bytes+=2;	break;
@@ -261,14 +257,12 @@ fflush(fp);
 if ((buffer=(uint8_t *)malloc(sizeof(uint8_t)*4*img->width)) == NULL)
     fatal_error("no memory buffer for BMP24 save operation");
 
-for (line=img->height-1; line>=0; line--)
-	{
+for (line=img->height-1; line>=0; line--) {
 	ptr = buffer;
         Rptr = img->Rpix[line];
         Gptr = img->Gpix[line];
         Bptr = img->Bpix[line];
-        for (foo=0; foo<img->width; foo++)
-            {
+        for (foo=0; foo<img->width; foo++) {
             *ptr++ = Bptr[foo];
             *ptr++ = Gptr[foo];
             *ptr++ = Rptr[foo];

Lib/cadres.c

@@ -0,0 +1,472 @@
+/*
+	fabrication de cadres dans des images.
+	--------------------------------------
+	new 24 Janvier 2000
+*/
+
+#include  <stdio.h>
+#include  <stdlib.h>
+#include  <math.h>
+
+#include  "../tthimage.h"
+
+/*::------------------------------------------------------------------::*/
+/*
+ *	l'epaisseur de ce cadre est de DEUX pixels, et cette valeur
+ *	ne doit pas changer, car d'autres fonctions en dependent.
+ */
+int Image_cadre_A(Image_Desc *im)
+{
+int	x, y;
+int	a, b;
+
+a = 0;	b = 255;
+
+for (x=0; x<im->width; x++) {
+	(im->Rpix[0])[x] = a;
+	(im->Gpix[0])[x] = a;
+	(im->Bpix[0])[x] = a;
+	Image_plotRGB(im, x, im->height-1, a, a, a);
+	}
+for (y=0; y<im->height; y++) {
+	(im->Rpix[y])[0] = a;
+	(im->Gpix[y])[0] = a;
+	(im->Bpix[y])[0] = a;
+	Image_plotRGB(im, im->width-1, y, a, a, a);
+	}
+for (x=1; x<im->width-1; x++) {
+	(im->Rpix[1])[x] = b;
+	(im->Gpix[1])[x] = b;
+	(im->Bpix[1])[x] = b;
+	Image_plotRGB(im, x, im->height-2, b, b, b);
+	}
+for (y=1; y<im->height-1; y++) {
+	(im->Rpix[y])[1] = b;
+	(im->Gpix[y])[1] = b;
+	(im->Bpix[y])[1] = b;
+	Image_plotRGB(im, im->width-2, y, b, b, b);
+	}
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ * 30 septembre 2008: Image_cadre_B devient Image_cadre_cracra :)
+ */
+int Image_cadre_cracra(Image_Desc *im, int largeur, int k)
+{
+int	x, y, r, g, b;
+
+if (im->width < (largeur+5) || im->height < (largeur+5))
+	return IMAGE_TOO_SMALL;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "%s: k is $%04x\n", __func__, k);
+#endif
+
+for (y=0; y<im->height; y++) {
+	for (x=0; x<largeur; x++) {
+		r = rand() % (10 + x * 20);
+		g = rand() % (11 + x * 10);
+		b = rand() % (10 + x * 12);
+
+		(im->Rpix[y])[x] = r;
+		(im->Gpix[y])[x] = g;
+		(im->Bpix[y])[x] = b;
+		}
+	for (x=0; x<largeur; x++) {
+		r = rand() % (10 + (largeur-x) * 20);
+		g = rand() % (10 + (largeur-x) * 10);
+		b = rand() % (10 + (largeur-x) * 12);
+		Image_plotRGB(im, x+im->width-largeur, y, r, g, b);
+		}
+	}
+
+for (x=0; x<im->width; x++) {
+	for (y=0; y<largeur; y++) {
+		r = rand() % (10 + y * 10);
+		g = rand() % (10 + y * 12);
+		b = rand() % (10 + y * 20);
+
+		(im->Rpix[y])[x] = r;
+		(im->Gpix[y])[x] = g;
+		(im->Bpix[y])[x] = b;
+		}
+	for (y=0; y<largeur; y++) {
+		r = rand() % (10 + (largeur-y) * 10);
+		g = rand() % (10 + (largeur-y) * 12);
+		b = rand() % (10 + (largeur-y) * 20);
+
+		(im->Rpix[y+im->height-largeur])[x] = r;
+		(im->Gpix[y+im->height-largeur])[x] = g;
+		(im->Bpix[y+im->height-largeur])[x] = b;
+		}
+	}
+
+return OLL_KORRECT;		/* OK, this func is really finishd */
+}
+/*::------------------------------------------------------------------::*/
+/*
+ * killing this func - 30 sept 2008 - ave St Exupery
+ */
+int	Image_cadre_B(Image_Desc *im, int larg)
+{
+int	foo;
+fprintf(stderr, "****** Image_cadre_B is obsolete ******\n");
+fprintf(stderr, "****** Use Image_cadre_cracra !! ******\n");
+foo = Image_cadre_cracra(im, larg, 0);
+
+return foo;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ *	--------------------------------------------------
+ *	3 octobre 2009 : il faudra la renommer pour etre	XXX
+ *	en accord avec 'tga_cadre' qui la nomme "sweep".	XXX
+ */
+int Image_cadre_C(Image_Desc *im, int r, int g, int b, int n)
+{
+int	x, y, x2, y2, ir, ig, ib;
+float	fx, fy;
+float	d, fn, coef;
+
+#if DEBUG_LEVEL > 1
+fprintf(stderr, "%s :  %d  %d  %d  /  %d\n", __func__, r, g, b, n);
+#endif
+
+fn = (float)(n*n);
+x2 = im->width / 2;
+y2 = im->height / 2;
+
+for (y=0; y<im->height; y++) {
+	/*
+	 *	distance au bord HAUT BAS le plus proche
+	 */
+	if (y < y2)	fy = (float)y;
+	else		fy = (float)((im->height - y)-1);
+	fy = fy*fy;
+
+	for (x=0; x<im->width; x++) {
+		/*
+		 *	distance au bord DROITE GAUCHE le plus proche
+		 */
+		if (x < x2)	fx = (float)x;
+		else		fx = (float)((im->width - x)-1);
+		fx = fx*fx;
+
+		/* XXX  un peu plus d'explications ici */
+		if (fx < fy)	d = fx;
+		else		d = fy;
+
+		if (d < fn) {
+			coef = d / fn;
+			ir = (im->Rpix[y])[x];
+			ig = (im->Gpix[y])[x];
+			ib = (im->Bpix[y])[x];
+
+			ir=(int)(((float)ir * coef) + ((float)r * (1.0-coef)));
+			ig=(int)(((float)ig * coef) + ((float)g * (1.0-coef)));
+			ib=(int)(((float)ib * coef) + ((float)b * (1.0-coef)));
+			/* Image_plotRGB(im, x, y, ir, ig, ib); */
+			(im->Rpix[y])[x] = ir;
+			(im->Gpix[y])[x] = ig;
+			(im->Bpix[y])[x] = ib;
+			}
+		}
+	}
+
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ *    this function was the successor of the 'C' cadre. Need a rename.
+ */
+int Image_cadre_bruit(Image_Desc *im, int r, int g, int b, int n)
+{
+int	x, y, x2, y2, ir, ig, ib;
+float	fx, fy;
+float	d, fn, level;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "%s : %d %d %d / %d\n", __func__, r, g, b, n);
+#endif
+
+#if DEBUG_LEVEL
+fprintf(stderr, "   %s :  current random is %d\n", __func__, rand());
+#endif
+
+fn = (float)(n*n);
+x2 = im->width / 2;
+y2 = im->height / 2;
+
+for (y=0; y<im->height; y++) {
+	/*
+	 *	distance au bord HAUT BAS le plus proche
+	 */
+	if (y < y2)	fy = (float)y;
+	else		fy = (float)((im->height - y)-1);
+	fy = fy*fy;
+
+	for (x=0; x<im->width; x++) {
+		/*
+		 *	distance au bord DROITE GAUCHE le plus proche
+		 */
+		if (x < x2)	fx = (float)x;
+		else		fx = (float)((im->width - x)-1);
+		fx = fx*fx;
+
+		if (fx < fy)	d = fx;
+		else		d = fy;
+
+		if (d < fn) {
+			level = (int)((d / fn) * 1000.0);
+			if ( (rand()%1000) < level ) {
+				Image_getRGB(im, x, y, &ir, &ig, &ib);	
+				}
+			else	{
+				ir = r;    ig = g;    ib = b;
+				}
+			/* Image_plotRGB(im, x, y, ir, ig, ib); */
+			(im->Rpix[y])[x] = ir;
+			(im->Gpix[y])[x] = ig;
+			(im->Bpix[y])[x] = ib;
+			}
+		}
+	}
+
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+/* inventee pour blablanux :) */
+int Image_cadre_E(Image_Desc *im, int v1, int v2, int v3, int dim)
+{
+int	foo, bar;
+Image_Rect rect;
+
+for (foo=0; foo<dim; foo++) {
+	bar = 1 << (foo%8);
+#if DEBUG_LEVEL > 1
+	fprintf(stderr, "cadre E: foo is %d, bar is 0x%x\n", foo, bar);
+#endif
+	rect.x = foo;
+	rect.y = foo;
+	rect.w = im->width - foo*2;
+	rect.h = im->height - foo*2;
+	Image_draw_rect(im, &rect, v1^bar, v2^bar, v3^bar);
+	}
+
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+/*						5 Fev 2001
+ *		pas de dégradé
+ */
+int Image_cadre_pattern_0(Image_Desc *im, Image_Desc *pat, int larg)
+{
+int	x, y, r, g, b;
+
+/*
+ *	Tiens, je la supposais plus facile a ecrire...
+ */
+for (y=0; y<im->height; y++) {
+	for (x=0; x<larg; x++) {
+		Image_getRGB(pat, x%pat->width, y%pat->height, &r, &g, &b);
+		/* Image_plotRGB(im, x, y, r, g, b); */
+		(im->Rpix[y])[x] = r;
+		(im->Gpix[y])[x] = g;
+		(im->Bpix[y])[x] = b;
+		}
+	for (x=im->width-larg; x<im->width; x++) {
+		Image_getRGB(pat, x%pat->width, y%pat->height, &r, &g, &b);
+		/* Image_plotRGB(im, x, y, r, g, b); */
+		(im->Rpix[y])[x] = r;
+		(im->Gpix[y])[x] = g;
+		(im->Bpix[y])[x] = b;
+		}
+	}
+
+for (x=0; x<im->width; x++) {
+	for (y=0; y<larg; y++) {
+		Image_getRGB(pat, x%pat->width, y%pat->height, &r, &g, &b);
+		/* Image_plotRGB(im, x, y, r, g, b); */
+		(im->Rpix[y])[x] = r;
+		(im->Gpix[y])[x] = g;
+		(im->Bpix[y])[x] = b;
+		}
+	for (y=im->height-larg; y<im->height; y++) {
+		Image_getRGB(pat, x%pat->width, y%pat->height, &r, &g, &b);
+		/* Image_plotRGB(im, x, y, r, g, b); */
+		(im->Rpix[y])[x] = r;
+		(im->Gpix[y])[x] = g;
+		(im->Bpix[y])[x] = b;
+		}
+	}
+
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+/*						12 Feb 2001
+ *		dégradé proportionnel à la distance 
+ */
+int Image_cadre_pattern_1(Image_Desc *im, Image_Desc *pat, int n)
+{
+int	x, y, x2, y2, ir, ig, ib, jr, jg, jb, r, g, b;
+float	fx, fy;
+float	d, fn, level;
+int	lmax;
+
+fn = (float)(n*n);
+fx = fy = 0.0;				/* warning shutter */
+x2 = im->width / 2;
+y2 = im->height / 2;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "*** %s: fn = %f\n", __func__, fn);
+#endif
+
+lmax = 0;
+for (y=0; y<im->height; y++) {
+	/*
+	 *	distance au bord HAUT BAS le plus proche
+	 */
+	if (y < y2)	fy = (float)y;
+	else		fy = (float)((im->height - y)-1);
+	fy = fy*fy;
+
+	for (x=0; x<im->width; x++) {
+
+		/*
+		 *	distance au bord DROITE GAUCHE le plus proche
+		 */
+		if (x < x2)	fx = (float)x;
+		else		fx = (float)((im->width - x)-1);
+		fx = fx*fx;
+
+		/*
+		 *	we take the smallest of the two distances
+		 */
+		if (fx < fy)	d = fx;
+		else		d = fy;
+
+		if (d < fn) {
+			level = (int)(100 * d / fn);
+			if (level > lmax) {
+				lmax = level;
+				}
+
+			Image_getRGB(im, x, y, &ir, &ig, &ib);	
+			Image_getRGB(pat, x%pat->width, y%pat->height,
+								&jr, &jg, &jb);	
+
+			r = (ir * level) + (jr * (100-level));
+			g = (ig * level) + (jg * (100-level));
+			b = (ib * level) + (jb * (100-level));
+			/* Image_plotRGB(im, x, y, r/100, g/100, b/100); */
+			(im->Rpix[y])[x] = r / 100;
+			(im->Gpix[y])[x] = g / 100;
+			(im->Bpix[y])[x] = b / 100;
+			}
+		}
+	}
+#if DEBUG_LEVEL
+fprintf(stderr, "cadre pattern 1 : lmax = %d\n", lmax);
+#endif
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+int Image_cadre_pattern_2(Image_Desc *im, Image_Desc *pat, int n)
+{
+int	x, y, x2, y2, ir, ig, ib;
+int	xp, yp;
+float	fx, fy;
+float	d, fn, level;
+int	lmax;
+
+fn = (float)(n*n);
+fx = fy = 0.0;				/* warning shutter */
+x2 = im->width / 2;
+y2 = im->height / 2;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "*** cadre pat 2 : fn = %f\n", fn);
+fprintf(stderr, "*** cadre pat 2 : pat: %d x %d\n", pat->width, pat->height);
+#endif
+
+lmax = 0;
+for (y=0; y<im->height; y++) {
+	/* distance au bord HAUT BAS le plus proche */
+	if (y < y2)	fy = (float)y;
+	else		fy = (float)((im->height - y)-1);
+	fy = fy*fy;
+
+	for (x=0; x<im->width; x++) {
+		/* distance au bord DROITE GAUCHE le plus proche */
+		if (x < x2)	fx = (float)x;
+		else		fx = (float)((im->width - x)-1);
+		fx = fx*fx;
+		/* we take the smallest of the two distances */
+		if (fx < fy)	d = fx;
+		else		d = fy;
+
+		if (d < fn) {
+			level = (int)((d / fn) * 1000.0);
+			if ( (rand()%1000) < level ) {
+				Image_getRGB(im, x, y, &ir, &ig, &ib);	
+				}
+			else {
+				xp = x % pat->width;
+				yp = y % pat->height;
+				Image_getRGB(pat, xp, yp, &ir, &ig, &ib);	
+				}
+			/* Image_plotRGB(im, x, y, ir, ig, ib); */
+			(im->Rpix[y])[x] = ir;
+			(im->Gpix[y])[x] = ig;
+			(im->Bpix[y])[x] = ib;
+			}
+		}
+	}
+
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+/*				nouveau : Mon 12 Sep 2022 10:47:18 PM CEST
+ */
+int Image_cadre_std2(Image_Desc *im, int r, int g, int b, int nx, int ny)
+{
+int			x, y;
+
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p   %d %d %d   %d %d )\n", __func__,
+			im,	r, g, b,   nx, ny);
+#endif
+
+for (y=0; y<im->height; y++) {
+	for (x=0; x<nx; x++) {
+		(im->Rpix[y])[x] = r;
+		(im->Gpix[y])[x] = g;
+		(im->Bpix[y])[x] = b;
+		}
+	for (x=0; x<nx; x++) {
+		(im->Rpix[y])[im->width-x-1] = r;
+		(im->Gpix[y])[im->width-x-1] = g;
+		(im->Bpix[y])[im->width-x-1] = b;
+		}
+	}
+
+for (x=0; x<im->width; x++) {
+	for (y=0; y<ny; y++) {
+		(im->Rpix[y])[x] = r;
+		(im->Gpix[y])[x] = g;
+		(im->Bpix[y])[x] = b;
+		}
+	for (y=0; y<ny; y++) {
+		(im->Rpix[y+im->height-ny])[x] = r;
+		(im->Gpix[y+im->height-ny])[x] = g;
+		(im->Bpix[y+im->height-ny])[x] = b;
+		}
+	}
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+/*		et maintenant ? on peut aller voir 'cadres2.c' ?	*/
+/*::------------------------------------------------------------------::*/

Lib/cadres2.c

@@ -0,0 +1,190 @@
+/*
+			cadres2.c
+			=========
+	more specific 'cadres' around images.
+	work in progress, you have to wait (a long time ?)
+*/
+
+#include  <stdio.h>
+#include  <stdlib.h>
+#include  "../tthimage.h"
+
+/*::------------------------------------------------------------------::*/
+/*
+ *	je sais pas trop encore quoi faire, là...
+ * 	probablement poser l'image sur un fond avec une ombre en
+ *	dessous...
+ */
+int
+Image_cadre2_soft_1(Image_Desc *src, Image_Desc *dst, RGBA *fond, RGBA *cadre,
+				int larg, int v1, int v2, int v3, int v4)
+{
+int		foo;
+Image_Rect	rect;
+
+(void)cadre;  (void)larg;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "Cadre2 soft 1: work in progress...\n");
+#endif
+
+/*
+ *	ze kontrol !
+ */
+if (src == dst)
+	{
+	fprintf(stderr, "Cadre2 soft 1: source==destination\n");
+	return IMG_OVERWRITE;
+	}
+
+foo = Image_clear(dst, fond->r, fond->g, fond->b);
+#if DEBUG_LEVEL
+fprintf(stderr, "cadre2 soft 1: clear: %d\n", foo);
+#endif
+
+/* -------- on copie la partie de l'image source */
+fprintf(stderr, "Cadre2 soft 1: copy image source\n");
+rect.x = v1;	rect.y = v2;
+rect.w = src->width;
+rect.h = src->height;
+#if DEBUG_LEVEL > 1
+Image_dump_rect(&rect, "cadre2 soft 1", 0);
+Image_TGA_save("aaaa-a.tga", src, 0);
+#endif
+
+foo = Image_copy_rect(src, &rect, dst, rect.x, rect.y);
+#if DEBUG_LEVEL
+fprintf(stderr, "Cadre2 soft 1: retour copy rect = %d pixels\n", foo);
+#endif
+
+return FUNC_NOT_FINISH;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ *	fonction en chantier: coredump probable
+ */
+int
+Image_cadre2_pixx(Image_Desc *src, Image_Desc *dst, int p1, int p2)
+{
+int	x, y, foo;
+int	r, g, b;
+int	p;
+
+#if DEBUG_LEVEL > 1
+fprintf(stderr, "%s : %s : is a wip (%d,%d)\n", __FILE__, __func__, p1, p2);
+#endif
+
+if ( p1==0 || p2==0 )
+	{
+	fprintf(stderr, "Cadres 2: pixx: no zero parameters, please.\n");
+	return DIVISOR_IS_ZERO;
+	}
+
+if ( (p1 > src->width/3) || (p1 > src->height/3) )
+	{
+	fprintf(stderr, "Cadres 2: pixx: p1 %d out of range.\n", p1);
+	return INVALID_PARAM;
+	}
+
+for (x=0; x<src->width; x++)
+	{
+	foo = rand() % p1;
+	for (y=0; y<foo; y++)
+		{
+		Image_getRGB(src, x, y, &r, &g, &b);
+		r ^= (rand()%p2);
+		g ^= (rand()%p2);
+		b ^= (rand()%p2);
+
+		(dst->Rpix[y])[x] = r;
+		(dst->Gpix[y])[x] = g;
+		(dst->Bpix[y])[x] = b;
+		}
+	foo = rand() % p1;
+	for (y=0; y<foo; y++)
+		{
+		Image_getRGB(src, x, (src->height-1)-y, &r, &g, &b);
+		r ^= (rand()%p2);
+		g ^= (rand()%p2);
+		b ^= (rand()%p2);
+
+		p = (dst->height-1)-y;
+		(dst->Rpix[p])[x] = r;
+		(dst->Gpix[p])[x] = g;
+		(dst->Bpix[p])[x] = b;
+		}
+	}
+
+for (y=0; y<src->height; y++)
+	{
+	foo = rand() % p1;
+	for (x=0; x<foo; x++)
+		{
+		Image_getRGB(src, x, y, &r, &g, &b);
+		r ^= (rand()%p2);
+		g ^= (rand()%p2);
+		b ^= (rand()%p2);
+
+		(dst->Rpix[y])[x] = r;
+		(dst->Gpix[y])[x] = g;
+		(dst->Bpix[y])[x] = b;
+		}
+	foo = rand() % p1;
+	for (x=0; x<foo; x++)
+		{
+		Image_getRGB(src, (dst->width-1)-x, y, &r, &g, &b);
+		r ^= (rand()%p2);
+		g ^= (rand()%p2);
+		b ^= (rand()%p2);
+
+		p = (dst->width-1)-x;
+		(dst->Rpix[y])[p] = r;
+		(dst->Gpix[y])[p] = g;
+		(dst->Bpix[y])[p] = b;
+		}
+	}
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ *	this func is a derivative of the _original_ cadre function
+ *	named 'Image_cadre_A' and located in file 'cadres.c'
+ */
+int
+Image_cadre_f(Image_Desc *im, int a, int b)
+{
+int	x, y;
+
+for (x=0; x<im->width; x++)
+	{
+	(im->Rpix[0])[x] = a;
+	(im->Gpix[0])[x] = a;
+	(im->Bpix[0])[x] = a;
+	Image_plotRGB(im, x, im->height-1, a, a, a);
+	}
+for (y=0; y<im->height; y++)
+	{
+	(im->Rpix[y])[0] = a;
+	(im->Gpix[y])[0] = a;
+	(im->Bpix[y])[0] = a;
+	Image_plotRGB(im, im->width-1, y, a, a, a);
+	}
+for (x=1; x<im->width-1; x++)
+	{
+	(im->Rpix[1])[x] = b;
+	(im->Gpix[1])[x] = b;
+	(im->Bpix[1])[x] = b;
+	Image_plotRGB(im, x, im->height-2, b, b, b);
+	}
+for (y=1; y<im->height-1; y++)
+	{
+	(im->Rpix[y])[1] = b;
+	(im->Gpix[y])[1] = b;
+	(im->Bpix[y])[1] = b;
+	Image_plotRGB(im, im->width-2, y, b, b, b);
+	}
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+/*::------------------------------------------------------------------::*/

Lib/cadres3.c

@@ -0,0 +1,127 @@
+/*
+			cadres3.c
+			=========
+
+	floating points 'cadres' around images.
+	work in progress, you have to wait (a long time ?)
+
+*/
+
+#include  <stdio.h>
+#include  <math.h>
+#include  "../tthimage.h"
+
+/*::------------------------------------------------------------------::*/
+/*
+ *	8 Dec 2001: this cadre was first designed for my ExPOVsition
+ */
+int
+Image_cadre_waves_0(Image_Desc *img, int perx, int pery, RGBA *rgb, int amp)
+{
+int	x, y, val, foo;
+double	dx, dy, dw, dh, damp;
+double  kx, ky;
+
+if ( amp>=img->width/2 || amp>=img->height/2 )
+	{
+	fprintf(stderr, "Image cadre waves 0: amp (%d) is too big\n", amp);
+	return INVALID_PARAM;
+	}
+
+damp = (double)amp;
+dw = (double)img->width;
+dh = (double)img->height;
+
+kx = (M_PI * 2.0 * (double)perx) / dw;
+ky = (M_PI * 2.0 * (double)pery) / dh;
+
+#if DEBUG_LEVEL
+printf("Cadre3 waves 0: px %d py %d amp %d\n", perx, pery, amp);
+printf("                dw %f kx %f\n", dw, kx);
+printf("                dh %f ky %f\n", dh, ky);
+#endif
+
+for (x=0; x<img->width; x++)
+	{
+	dx = ((double)x * kx) - (M_PI/2);	
+	val = (int)((sin(dx)*damp)+damp)+1;
+	
+	for (foo=0; foo<val; foo++)
+		{
+		Image_plotRGB(img, x, foo, rgb->r, rgb->g, rgb->a);	
+		Image_plotRGB(img, img->width-x-1, img->height-foo-1,
+						rgb->r, rgb->g, rgb->a);	
+		}
+	}
+
+for (y=0; y<img->height; y++)
+	{
+	dy = (double)y * ky - (M_PI/2);
+	val = (int)((sin(dy)*damp)+damp);
+	
+	for (foo=0; foo<val; foo++)
+		{
+		Image_plotRGB(img, foo, y, rgb->r, rgb->g, rgb->a);	
+		Image_plotRGB(img, img->width-foo-1, y,
+						rgb->r, rgb->g, rgb->a);	
+		}
+	}
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ *	celui-ci, il faudra l'inventer un de ces jours....
+ */
+int
+Image_cadre_waves_1(Image_Desc *img, int perx, int pery, RGBA *rgb, int amp)
+{
+int	x, y, val, foo;
+
+if ( amp>=img->width/2 || amp>=img->height/2 )
+	{
+	fprintf(stderr, "Image cadre waves 1: amp (%d) is too big\n", amp);
+	return INVALID_PARAM;
+	}
+
+
+return FULL_NUCKED;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ *	celui-ci, il faudra l'inventer un de ces jours....
+ */
+int
+Image_cadre_waves_2(Image_Desc *img, int perx, int pery, int amp)
+{
+int	x, y, val, foo;
+double	dx, dy, dw, dh, damp;
+double  kx, ky;
+int	r, g, b;
+
+if ( amp>=img->width/2 || amp>=img->height/2 )
+	{
+	fprintf(stderr, "Image cadre waves 2: amp (%d) is too big\n", amp);
+	return INVALID_PARAM;
+	}
+
+damp = (double)amp;
+dw = (double)img->width;
+dh = (double)img->height;
+
+kx = (M_PI * 2.0 * (double)perx) / dw;
+ky = (M_PI * 2.0 * (double)pery) / dh;
+
+for (x=0; x<img->width; x++)
+	{
+	dx = ((double)x * kx) - (M_PI/2);	
+	val = (int)((sin(dx)*damp)+damp)+1;
+	for (foo=0; foo<val; foo++)
+		{
+		
+		}
+	}
+
+return FULL_NUCKED;
+}
+/*::------------------------------------------------------------------::*/

Lib/cadres4.c

@@ -0,0 +1,223 @@
+/*
+			cadres4.c
+			=========
+*/
+
+#include  <stdio.h>
+#include  <stdlib.h>
+#include  <math.h>
+#include  "../tthimage.h"
+
+/*::------------------------------------------------------------------::*/
+/*
+ *	fonction en chantier -> coredump probable
+ *	je ne sais pas a quoi va servir le parametre 'flags' ...
+ *   7 nov 2007:
+ *      le flag a disparu, il contient maintenant la valeur de
+ *      la composante verte. lol.
+ */
+int Image_cadre_burp_0(Image_Desc *img, int p1, int p2, int gval)
+{
+int	x, y, zz, v;
+
+
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p %d %d 0x%02x )\n", __func__, img, p1, p2, gval);
+#endif
+
+for (x=0; x<img->width; x++) {
+	v = (x * 256) / img->width;
+	for (zz=0; zz<p1; zz++) {
+		y = zz;
+		(img->Rpix[y])[x] = 0;
+		(img->Gpix[y])[x] = gval;
+		(img->Bpix[y])[x] = v;
+
+		y = img->height-zz-1;
+		(img->Rpix[y])[x] = 0;
+		(img->Gpix[y])[x] = gval;
+		(img->Bpix[y])[x] = 255-v;
+		}
+	}
+
+for (y=p1; y<img->height-p1; y++) {
+	v = (y * 256) / img->height;
+	for (zz=0; zz<p2; zz++)	{
+		x = zz;
+		(img->Rpix[y])[x] = 0;
+		(img->Gpix[y])[x] = gval;
+		(img->Bpix[y])[x] = v;
+
+		x = img->width-zz-1;
+		(img->Rpix[y])[x] = 0;
+		(img->Gpix[y])[x] = gval;
+		(img->Bpix[y])[x] = 255-v;
+		}
+	}
+
+img->modified = 1;
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ *	13 Juin 2002: grosse colere, je vais faire du codage a la Gruuik.
+ *	1er Juillet 2022: la colere est toujours la, mais ce n'est pas la
+ *	meme qu'il y a vingt ans...
+ */
+int Image_cadre_burp_1(Image_Desc *img, int p1, int p2, int flags)
+{
+int	x, xx, y, yy, v;
+
+#define TOPV   170
+
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p %d %d $%x )\n", __func__, img, p1, p2, flags);
+#endif
+
+for (x=0; x<img->width; x++) {
+	v = (x * 256) / img->width;
+#if DEBUG_LEVEL > 1
+	printf("%s : debug %d %d\n", __func__, x, v);
+#endif
+	for (yy=0; yy<p1; yy++)	{
+		y = yy;
+		(img->Rpix[y])[x] = TOPV-v;
+		(img->Gpix[y])[x] = TOPV;
+		(img->Bpix[y])[x] = v;
+
+		y = img->height-yy-1;
+		(img->Rpix[y])[x] = v;
+		(img->Gpix[y])[x] = TOPV;
+		(img->Bpix[y])[x] = TOPV-v;
+		}
+	}
+
+for (y=p1; y<img->height-p1; y++) {
+	v = (y * 256) / img->height;
+	for (xx=0; xx<p2; xx++)	{
+		x = xx;
+		(img->Rpix[y])[x] = 0;
+		(img->Gpix[y])[x] = TOPV;
+		(img->Bpix[y])[x] = v;
+
+		x = img->width-xx-1;
+		(img->Rpix[y])[x] = 0;
+		(img->Gpix[y])[x] = TOPV;
+		(img->Bpix[y])[x] = TOPV-v;
+		}
+	}
+
+if (flags & 1) {
+	fprintf(stderr, "plop from %s\n", __func__);
+	}
+
+#undef TOPV				/* molly guard */
+
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ * new 10 decembre 2007 - ave St Exupery - fait pour l'affichage web
+ * des exemples des objets POV de tTh
+ *
+ */
+int Image_cadre_burp_2(Image_Desc *img, int taille, int pr, int pg, int pb)
+{
+int	x, y, zz;
+
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s: sz %d, rgb  %d %d %d\n", __func__, taille, pr, pg, pb);
+#endif
+
+for (x=0; x<img->width; x++) {
+	for (zz=0; zz<taille; zz++) {
+		y = zz;
+		(img->Rpix[y])[x] |= pr;
+		(img->Gpix[y])[x] ^= pg;
+		(img->Bpix[y])[x] &= pb;
+
+		y = img->height-zz-1;
+		(img->Rpix[y])[x] |= pr;
+		(img->Gpix[y])[x] ^= pg;
+		(img->Bpix[y])[x] &= pb;
+		}
+	}
+
+for (y=taille; y<img->height-taille; y++) {
+	for (zz=0; zz<taille; zz++) {
+		x = zz;
+		(img->Rpix[y])[x] |= pr;
+		(img->Gpix[y])[x] ^= pg;
+		(img->Bpix[y])[x] &= pb;
+
+		x = img->width-zz-1;
+		(img->Rpix[y])[x] |= pr;
+		(img->Gpix[y])[x] ^= pg;
+		(img->Bpix[y])[x] &= pb;
+		}
+	}
+
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+int Image_cadre_burp_3(Image_Desc *img, int taille, int pr, int pg, int pb)
+{
+int 	foo;
+
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p   %d   %d %d %d)\n", __func__, img, taille,
+								pr, pg, pb);
+#endif
+
+foo = Image_cadre_burp_2(img, taille, pr, pg, pb);
+foo = Image_cadre_burp_2(img, taille/2, pr/2, pg/2, pb/2);
+
+img->modified = 2;
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+int Image_cadre_rasta_0(Image_Desc *img, int taille)
+{
+Image_Rect	rect;
+int		foo;
+int		r, g, b;
+
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p %d )\n", __func__, img, taille);
+#endif
+
+#define RASTA_RAND	4
+
+rect.x = rect.y = 0;
+rect.w = img->width;
+rect.h = img->height;
+
+for (foo=0; foo<taille; foo++) {
+	r = 220 + (rand() % RASTA_RAND);
+	b = 10 + (rand() % RASTA_RAND);
+	Image_draw_rect(img, &rect, r, 12, b);
+	rect.x++;	rect.y++;
+	rect.h-=2;	rect.w-=2;
+	}
+for (foo=0; foo<taille; foo++) {
+	r = 220 + (rand() % RASTA_RAND);
+	g = 200 + (rand() % RASTA_RAND);
+	Image_draw_rect(img, &rect, r, g, 12);
+	rect.x++;	rect.y++;
+	rect.h-=2;	rect.w-=2;
+	}
+for (foo=0; foo<taille; foo++) {
+	g = 220 + (rand() % RASTA_RAND);
+	b = 10 + (rand() % RASTA_RAND);
+	Image_draw_rect(img, &rect, 12, g, b);
+	rect.x++;	rect.y++;
+	rect.h-=2;	rect.w-=2;
+	}
+
+img->modified = 1;
+
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/

Lib/cadres84.c

@@ -0,0 +1,105 @@
+/*
+ * cadres84.c
+ */
+
+#include  <stdio.h>
+#include  <stdlib.h>
+#include  <math.h>
+#include  "../tthimage.h"
+
+/*::------------------------------------------------------------------::*/
+int Image_cadre_b84_a(Image_Desc *img, int parX, int parY, int k)
+{
+int	h, w, x, y, foo;
+
+h = img->height;	w = img->width;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "%s: %p  px=%d py=%d  k=%d\n", __func__, img, parX, parY, k);
+#endif
+
+if (k) {
+	fprintf(stderr, "%s: k (%d) muste be 0\n", __func__, k);
+	}
+
+for (y=0; y<h; y++)
+	{
+	for (foo=0; foo<parX; foo++)
+		{
+		Image_plot_channel(img, 'r', foo, y, k);
+		Image_plot_channel(img, 'g', foo, y, 256-k);
+		Image_plot_channel(img, 'b', (w-foo)-1, y, k);
+		Image_plot_channel(img, 'r', (w-foo)-1, y, 256-k);
+		}
+	}
+
+return BAD_CADRE;
+}
+/*::------------------------------------------------------------------::*/
+/* mise en place 9 avril 2010 */
+int Image_cadre_b84_b(Image_Desc *img, int k0, int k1)
+{
+int		x, y, r, g, b;
+int		foo;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "%s ( %p %d %d )\n", __func__, img, k0, k1);
+#endif
+
+if (k0) {
+	fprintf(stderr, "%s: k0 (%d) muste be 0\n", __func__, k0);
+	}
+if (k1) {
+	fprintf(stderr, "%s: k1 (%d) muste be 0\n", __func__, k1);
+	}
+
+for (x=0; x<img->width; x++)
+	{
+	for (foo=0; foo<k1; foo++)
+		{
+		y = 0 + foo;
+		Image_getRGB(img, x, y, &r, &g, &b);
+		if (rand() & 0x1180)
+			{
+			r = (r/2) + 127; g = b / 3;
+			}
+		else
+			{
+			r ^= rand(); g ^= rand(); b ^= rand();
+			}
+		Image_plotRGB(img, x, y, r, g, b);
+
+		y = img->height - (foo+1);
+		Image_getRGB(img, x, y, &r, &g, &b);
+		if (rand() & 0x1180)
+			{
+			r = (r/2) + 127; g = b / 3;
+			}
+		else
+			{
+			r ^= rand(); g ^= rand(); b ^= rand();
+			}
+		Image_plotRGB(img, x, y, r, g, b);
+		}
+	}
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+int Image_cadre_b84_c(Image_Desc *img, int k0, int k1, int k2)
+{
+int	h, w, x, y, foo;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "%s: %p %d * %d %d\n", __func__, img, k0, k1, k2);
+#endif
+
+fprintf(stderr, "   +------------------------------+\n");
+fprintf(stderr, "   | SOFTWARE FAILURE - TASK HELD |\n");
+fprintf(stderr, "   | FINISH  ALL DISK  ACTIVITIES |\n");
+fprintf(stderr, "   +------------------------------+\n");
+
+return BAD_CADRE;
+}
+/*::------------------------------------------------------------------::*/
+

Lib/cadresbox.c

@@ -0,0 +1,99 @@
+/*
+ *	cadresbox.c - new 30 janvier 2014
+ */
+
+#include  <stdio.h>
+#include  <math.h>
+#include  "../tthimage.h"
+
+/*::------------------------------------------------------------------::*/
+int Image_cadre_box_0(Image_Desc *img, int t1, RGBA *color)
+{
+int		foo;
+Image_Rect	rect;
+RGBA		tmpcol;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "%s ( %p %d )\n", __func__, img, t1);
+#endif
+
+/* in first action, we make left & right borders of the picz */
+rect.w = t1; rect.h = img->height;
+rect.x = rect.y = 0;
+foo = Image_paint_rect(img, &rect, color->r, color->g, color->b);
+rect.x = img->width - t1;
+foo = Image_paint_rect(img, &rect, color->r, color->g, color->b);
+
+/* next part : top and bottom borders */
+rect.h = t1; rect.w = img->width;
+rect.x = rect.y = 0;
+foo = Image_paint_rect(img, &rect, color->r, color->g, color->b);
+rect.y = img->height - t1;
+foo = Image_paint_rect(img, &rect, color->r, color->g, color->b);
+
+tmpcol.r = color->r ^ 0x80;
+tmpcol.g = color->b ^ 0x80;
+tmpcol.b = color->b ^ 0x80;
+rect.x = t1;	rect.y = t1;
+rect.w = img->width - (t1 * 2);
+rect.h = img->height - (t1 * 2);
+foo = Image_draw_rect(img, &rect, tmpcol.r, tmpcol.g, tmpcol.b);
+
+return FUNC_IS_ALPHA;
+}
+/*::------------------------------------------------------------------::*/
+int Image_cadre_4coins_0(Image_Desc *img, int taille, RGBA *color)
+{
+int		foo;
+Image_Rect	rect;
+RGBA		tmpcol;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "%s ( %p %d )\n", __func__, img, taille);
+#endif
+
+tmpcol.r = color->r ^ 0x80;
+tmpcol.g = color->b ^ 0x80;
+tmpcol.b = color->b ^ 0x80;
+
+rect.w = rect.h = taille;
+
+rect.x = rect.y = 0;
+foo = Image_paint_rect(img, &rect, color->r, color->g, color->b);
+foo = Image_draw_rect(img, &rect, tmpcol.r, tmpcol.g, tmpcol.b);
+
+rect.x = img->width - taille;
+foo = Image_paint_rect(img, &rect, color->r, color->g, color->b);
+#if DEBUG_LEVEL
+fprintf(stderr, "********* %s ***********\n", __func__);
+#endif
+foo = Image_draw_rect(img, &rect, tmpcol.r, tmpcol.g, tmpcol.b);
+#if DEBUG_LEVEL
+fprintf(stderr, "      ********* ---> %d\n", foo);
+#endif
+
+rect.y = img->height - taille;
+foo = Image_paint_rect(img, &rect, color->r, color->g, color->b);
+foo = Image_draw_rect(img, &rect, tmpcol.r, tmpcol.g, tmpcol.b);
+
+rect.x = 0;
+foo = Image_paint_rect(img, &rect, color->r, color->g, color->b);
+foo = Image_draw_rect(img, &rect, tmpcol.r, tmpcol.g, tmpcol.b);
+
+return FUNC_IS_ALPHA;
+}
+/*::------------------------------------------------------------------::*/
+int Image_cadre_box4c_0(Image_Desc *img, int t1, int t2, RGBA *color)
+{
+int		foo;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "%s ( %p %d %d %p )\n", __func__, img, t1, t2, color);
+#endif
+
+foo = Image_cadre_box_0(img, t1, color);
+foo = Image_cadre_4coins_0(img, t2, color);
+
+return 666;
+}
+/*::------------------------------------------------------------------::*/

Lib/calcluts.c

@@ -2,7 +2,7 @@
 			calcluts.c
 			----------
 
-   voir aussi: luts15bits.c
+   voir aussi: luts15bits.c & palettes.c
 
 */
 
@@ -14,32 +14,29 @@
 #include  <alloca.h> 
 #endif
 
-#include  "tthimage.h"
+#include  "../tthimage.h"
 
 /*::------------------------------------------------------------------::*/
-int
-Image_calclut_lin(int *lut, int v0, int v255)
+int Image_calclut_lin(int *lut, int v0, int v255)
 {
 int foo, quux, delta;
 
 #if DEBUG_LEVEL
-fprintf(stderr, "calclut lin: v0 = %d  v255 = %d\n", v0, v255);
+fprintf(stderr, ">>> %s ( %p %d %d )\n", __func__, lut, v0, v255);
 #endif
 
 delta = v255 - v0;
-if (delta == 0)
-	{
+if (delta == 0)	{
 	return DIVISOR_IS_0;
 	}
 
 #if DEBUG_LEVEL
-fprintf(stderr, "calclut lin: delta = %d\n", delta);
+fprintf(stderr, "    calclut lin: delta = %d\n", delta);
 #endif
 
-for (foo=0; foo<256; foo++)
-	{
+for (foo=0; foo<256; foo++) {
 	quux = (foo * delta / 255) + v0;
-#if DEBUG_LEVEL
+#if DEBUG_LEVEL > 1
 	printf("lut(%d) = %d\n", foo, quux);
 #endif
 	lut[foo] = quux;
@@ -48,66 +45,53 @@ for (foo=0; foo<256; foo++)
 return FUNC_IS_ALPHA;
 }
 /*::------------------------------------------------------------------::*/
-int
-Image_calclut_foo(int *lut, int v0, int v255)
+int Image_calclut_foo(int *lut, int v0, int v255)
 {
-fprintf(stderr, "%s ( %p %d %d )\n", __func__, lut, v0, v255);
+fprintf(stderr, ">>> %s ( %p %d %d )\n", __func__, lut, v0, v255);
 
 return FUNC_IS_ALPHA;
 }
 /*::------------------------------------------------------------------::*/
-int
-Image_print_lut(int *lut, char *fname, int flag)
+int Image_print_lut(int *lut, char *fname, int flag)
 {
 FILE	*fp;
 int	foo;
 
-if (strcmp(fname, "-"))
-	fp = fopen(fname, "w");
-else
-	fp = stdout;
+if (strcmp(fname, "-"))		fp = fopen(fname, "w");
+else				fp = stdout;
 
-for (foo=0; foo<256; foo++)
-	{
-	if (flag)
-		printf("%d ", foo);
-	printf("%d\n", lut[foo]);
+for (foo=0; foo<256; foo++) {
+	if (flag) printf("%4d ", foo);
+	printf("  %4d\n", lut[foo]);
 	}
 
-if (fp!=stdout)
-	fclose(fp);
+if (fp!=stdout)			fclose(fp);
 
 return FUNC_IS_ALPHA;
 }
 /*::------------------------------------------------------------------::*/
-int
-Image_load_lut(int *lut, char *fname, int flag)
+int Image_load_lut(int *lut, char *fname, int flag)
 {
 FILE	*fp;
 int	value, foo, idx;
 
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p '%s' )\n", __func__, fname, lut);
+#endif
+
 if (flag) {
 	fprintf(stderr, "in %s, flag must be O, was %d\n", __func__, flag);
 	return WRONG_FLAG;
 	}
 
-#if DEBUG_LEVEL
-fprintf(stderr, "load_lut %s in %p\n", fname, lut);
-#endif
-
-if (NULL==(fp=fopen(fname, "r")))
-	{
+if (NULL==(fp=fopen(fname, "r"))) {
 	fprintf(stderr, "%s can't fopen %s\n", __func__, fname);
 	return 666;
 	}
 
 /* WARNING : very crude code here (4 nov 1999) */
-for (idx=0; idx<256; idx++)
-	{
+for (idx=0; idx<256; idx++) {
 	foo = fscanf(fp, "%d", &value);
-#if DEBUG_LEVEL
-	fprintf(stderr, "load lut %3d %3d %d\n", idx, foo, value);
-#endif
 	if (1==foo)	lut[idx] = value;
 	else		lut[idx] = -1;
 	}

Lib/calculs.c

@@ -246,14 +246,13 @@ return OLL_KORRECT;
 }
 /*::------------------------------------------------------------------::*/
 
-int
-Image_LUT_mono(Image_Desc *src, Image_Desc *dst, int *lut)
+int Image_LUT_mono(Image_Desc *src, Image_Desc *dst, int *lut)
 {
 int	x, y, foo;
 
 if ( (foo=Image_compare_desc(src, dst)) )
     {
-    fprintf(stderr, "Image_LUT_mono: images differentes %d\n", foo);
+    fprintf(stderr, "%s: images differentes %d\n", __func__, foo);
     return foo;
     }
 
@@ -267,7 +266,7 @@ for (y=0; y<src->height; y++)
 	}
     }
 
-return 0;
+return OLL_KORRECT;
 }
 /*::------------------------------------------------------------------::*/
 /* et en parlant de LUTs, il n'y aurait pas un truc pour les LUTs

Lib/col4bits.c

@@ -0,0 +1,155 @@
+/*
+			col4bits.c
+
+	this module is dedicated to functions who works on 
+	4096 colors images. You got four bits by components.
+*/
+
+#include   <stdio.h>
+#include   <stdlib.h>
+
+#include   "../tthimage.h"
+
+/*::------------------------------------------------------------------::*/
+int Image_col4bits_and(Image_Desc *src, Image_Desc *dst)
+{
+int	foo;
+
+if ((foo=Image_compare_desc(src, dst))) {
+	fprintf(stderr, "%s : images not compatibles\n", __func__);
+	return foo;
+	}
+
+foo = Image_copy(src, dst);
+if (foo) {
+	fprintf(stderr, "In %s: copy: err #%d %s\n", __func__,
+					foo, Image_err2str(foo));
+	return foo;
+	}
+foo = Image_and_pix(dst, 0xf0, 0xf0, 0xf0);
+if (foo) {
+	fprintf(stderr, "In %s: and pix: err #%d %s\n", __func__,
+					foo, Image_err2str(foo));
+	return foo;
+	}
+
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+struct elem
+	{
+	long	compte;
+	int	rgb;
+	};
+
+static int compare_compteur(struct elem *p1, struct elem *p2)
+{
+/* printf("%8d %8d\n", p1->compte, p2->compte); */
+return (p2->compte - p1->compte);
+}
+static int compare_teinte(struct elem *p1, struct elem *p2)
+{
+int	r1, g1, b1, r2, b2, g2;
+
+r1 = (( (p1->rgb) >>8)&0xf)	<<4; 
+g1 = (( (p1->rgb) >>4)&0xf)	<<4; 
+b1 = ( (p1->rgb) &0xf)		<<4;
+
+r2 = (( (p2->rgb) >>8)&0xf)	<<4; 
+g2 = (( (p2->rgb) >>4)&0xf)	<<4; 
+b2 = ( (p2->rgb) &0xf)		<<4;
+
+/* printf("%8d %8d\n", p1->compte, p2->compte);
+ return (p1->rgb - p2->rgb); */
+
+return ( (r1+g1+b1) - (r2+g2+b2) );
+}
+
+/*::------------------------------------------------------------------::*/
+/*
+ *				XXX please explain parameters usage !
+ */
+#define TAILLE	(1<<12)
+int Image_calc_Map_4bits(Image_Desc *img, RGB_map *map, int nbre)
+{
+long	surface, maxi;
+int	x, y, r, g, b, idx;
+
+struct elem	elems[TAILLE];
+
+#if DEBUG_LEVEL
+fprintf(stderr, "  Calc map 4 bits: nbre = %d\n", nbre);
+#endif
+
+if ( (nbre<1) || (nbre>255) ) {
+	fprintf(stderr, "%s: nbre %d out of range\n", __func__, nbre);
+	return BAD_COLOR_NUMBER;
+	}
+
+surface = img->width * img->height;
+#if DEBUG_LEVEL
+fprintf(stderr, "%s: surface de l'image = %ld pixels\n", __func__, surface);
+#endif
+
+for (x=0; x<TAILLE; x++) {
+	elems[x].compte = 0L;
+	elems[x].rgb = x;
+	}
+
+maxi = 0L;
+for (x=0; x<img->width; x++) {
+    for (y=0; y<img->height; y++) {
+        r = (img->Rpix[y])[x] >> 4;
+        g = (img->Gpix[y])[x] >> 4;
+        b = (img->Bpix[y])[x] >> 4;
+        idx = (r<<8) | (g<<4) | b;
+
+	if (idx >= TAILLE) {
+		fprintf(stderr, "FATAL ERROR in %s\n", __func__);
+		exit(5);
+		}
+	elems[idx].compte++;
+	if (elems[idx].compte > maxi)
+		maxi = elems[idx].compte;
+        }
+    }
+#if DEBUG_LEVEL
+fprintf(stderr, "%s: compte maximum     = %ld\n", __func__, maxi);
+#endif
+
+/*
+ *	trier la table pour avoir les couleurs les plus
+ *	frequentes en haut.
+ */
+qsort(elems, TAILLE, sizeof(struct elem), compare_compteur);
+
+/*
+ *	trier la palette, certe, mais dans quel ordre ?
+ *	28 Jan 2002: why ?
+ */
+qsort(elems, nbre, sizeof(struct elem), compare_teinte);
+
+/*
+ *	recopier les 'nbre' entrees hautes dans la palette
+ */
+for(x=0; x<nbre; x++) {
+	y = elems[x].rgb;
+
+	r = ((y>>8)&0xf)<<4; 
+	g = ((y>>4)&0xf)<<4; 
+	b = (y&0xf)<<4;
+
+	/* printf("%06x %02x %02x %02x\n", x, r, g, b); */
+	map->red[x] = r;
+	map->green[x] = g;
+	map->blue[x] = b;
+	}
+map->nbre = nbre;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "Image_calc_Map_4bits: fini!\n");
+#endif
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/

Lib/col_reduc.c

@@ -8,6 +8,8 @@
 
 #include  "../tthimage.h"
 
+#define DEBUG_LEVEL 1
+
 /*::------------------------------------------------------------------::*/
 /*
  *	ATTENTION: cette fonction sert à faire des essais, et ne doit
@@ -16,8 +18,7 @@
  *
  *	n is the number of wanted colors 
  */
-int
-Image_essai_col_reduce(Image_Desc *src, Image_Desc *dst, int n, int t)
+int Image_essai_col_reduce(Image_Desc *src, Image_Desc *dst, int n, int t)
 {
 RGB_map		map;
 int		foo;

Lib/colors.c

@@ -13,15 +13,14 @@
 #include    <alloca.h> 
 #endif
 
-#include    "tthimage.h"
+#include    "../tthimage.h"
 
 /*::------------------------------------------------------------------::*/
 /*
 	echange de deux composantes d'une image RGB
 	what about swapping with the alpha channel ?
  */
-int
-Image_swap_colors(Image_Desc *im, char *cols)
+int Image_swap_colors(Image_Desc *im, char *cols)
 {
 uint8_t	*buffer;
 int	y, code;
@@ -30,15 +29,13 @@ int	y, code;
 fprintf(stderr, "Echange de couleurs: [%s] %p\n", cols, im);
 #endif
 
-if (strlen(cols) != 2)
-	{
-	fprintf(stderr, "SwapColors: bad control string: '%s'\n", cols);
+if (strlen(cols) != 2) {
+	fprintf(stderr, "%s: bad control string: '%s'\n", __func__, cols);
 	return INVALID_PARAM;
 	}
 
 code = 0;
-switch (cols[0])
-	{
+switch (cols[0]) {
 	case 'r':	case 'R':	code |= 0x10;		break;
 	case 'g':	case 'G':	code |= 0x20;		break;
 	case 'b':	case 'B':	code |= 0x30;		break;
@@ -46,8 +43,7 @@ switch (cols[0])
 		fprintf(stderr, "SwapColors: bad first color '%c'\n", cols[0]);
 		return INVALID_PARAM;
 	}
-switch (cols[1])
-	{
+switch (cols[1]) {
 	case 'r':	case 'R':	code |= 0x1;		break;
 	case 'g':	case 'G':	code |= 0x2;		break;
 	case 'b':	case 'B':	code |= 0x3;		break;
@@ -56,20 +52,17 @@ switch (cols[1])
 		return INVALID_PARAM;
 	}
 
-if ( (buffer=(uint8_t *)alloca(im->width)) == NULL )
-	{
-	fprintf(stderr, "SwapColors: no mem for buffer\n");
+if ( (buffer=(uint8_t *)alloca(im->width)) == NULL ) {
+	fprintf(stderr, "%s: no mem for buffer\n", __func__);
 	return BUFFER_NO_MEM;
 	}
 
 #if DEBUG_LEVEL
-fprintf(stderr, "SwapColors: code is %02x, buffer at %p\n", code, buffer);
+fprintf(stderr, "%s: code is %02x, buffer at %p\n", __func__, code, buffer);
 #endif
 
-for (y=0; y<im->height; y++)
-	{
-	switch (code)
-		{
+for (y=0; y<im->height; y++) {
+	switch (code) {
 		case 0x12:	case 0x21:
 			memcpy(buffer, im->Rpix[y], im->width);
 			memcpy(im->Rpix[y], im->Gpix[y], im->width);
@@ -86,7 +79,7 @@ for (y=0; y<im->height; y++)
 			memcpy(im->Gpix[y], buffer, im->width);
 			break;
 		default:
-			fprintf(stderr, "SwapColors: code=%02x, Aie.\n", code);
+			fprintf(stderr, "%s: code=%02x, Aie.\n", __func__, code);
 			exit(1);
 		}
 	}
@@ -101,8 +94,7 @@ return OLL_KORRECT;
       fonction de deux parametre [0..1], mais c,a marche
       pas terrible, alors je vais faire encore des essais
  */
-int
-Image_color_x(double v1, double v2, int *pr, int *pg, int *pb)
+int Image_color_x(double v1, double v2, int *pr, int *pg, int *pb)
 {
 double  s, c;
 
@@ -122,8 +114,7 @@ return OLL_KORRECT;
  *	Il doit exister quelque part la meme fonction pour ce
  *	calcul sur une zone rectangulaire d'une image.
  */
-int
-Image_couleur_moyenne(Image_Desc *im, int *pr, int *pg, int *pb)
+int Image_couleur_moyenne(Image_Desc *im, int *pr, int *pg, int *pb)
 {
 int	x, y;
 long	sr, sg, sb, surface;
@@ -153,21 +144,19 @@ return OLL_KORRECT;
 /*
  * nouveau 28 juillet 2008 - avenue St Exupery
  */
-int
-Image_saturate(Image_Desc *src, Image_Desc *dst, int sr, int sg, int sb)
+int Image_saturate(Image_Desc *src, Image_Desc *dst, int sr, int sg, int sb)
 {
 int	x, y, r, g, b;
 int	foo;
 int	minmax[6];
 
 #if DEBUG_LEVEL
-fprintf(stderr, "%s : %p -> %p\n", __func__, src, dst);
-fprintf(stderr, "   r=%d g=%d b=%d\n", sr, sb, sg);
+fprintf(stderr, ">>> %s ( %p %p   %d %d %d )", __func__, src, dst,
+				sr, sg, sb);
 #endif
 
-if ( (foo=Image_compare_desc(src, dst)) )
-    {
-    fprintf(stderr, "Image saturate: images are differents %d\n", foo);
+if ( (foo=Image_compare_desc(src, dst)) ) {
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
     return foo;
     }
 
@@ -176,15 +165,13 @@ foo = Image_minmax_RGB(src, minmax);	/* pourquoi faire ce truc ici ? */
 fprintf(stderr, "   calcul minmax -> %d\n", foo);
 #endif
 
-for (y=0; y<src->height; y++)
-	{
+for (y=0; y<src->height; y++) {
 	for (x=0; x<src->width; x++)
 		{
 		/* et il faut faire quoi, exactement ? */
 		r = src->Rpix[y][x];
 		g = src->Rpix[y][x];
 		b = src->Rpix[y][x];
-
 		/* je n'en ai pas la moindre ideee LOL */
 		}
 	}
@@ -195,27 +182,23 @@ return FUNC_IS_ALPHA;
 /*
  * nouveau 12 mars 2009 - avenue St Exupery, avec du "Gros plant nantais"
  */
-int
-Image_desaturate(Image_Desc *src, Image_Desc *dst, int sr, int sg, int sb)
+int Image_desaturate(Image_Desc *src, Image_Desc *dst, int sr, int sg, int sb)
 {
 int	x, y, r, g, b;
 int	foo;
 
 #if DEBUG_LEVEL
-fprintf(stderr, "%s : %p -> %p  :  ", __func__, src, dst);
-fprintf(stderr, " %d %d %d\n", sr, sg, sb);
+fprintf(stderr, ">>> %s ( %p %p   %d %d %d )", __func__, src, dst,
+				sr, sg, sb);
 #endif
 
-if ( (foo=Image_compare_desc(src, dst)) )
-    {
-    fprintf(stderr, "Image desaturate: images are differents %d\n", foo);
+if ( (foo=Image_compare_desc(src, dst)) ) {
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
     return foo;
     }
 
-for (y=0; y<src->height; y++)
-	{
-	for (x=0; x<src->width; x++)
-		{
+for (y=0; y<src->height; y++) {
+	for (x=0; x<src->width; x++) {
         	r = src->Rpix[y][x];
         	g = src->Gpix[y][x];
         	b = src->Bpix[y][x];
@@ -267,9 +250,8 @@ int Image_color_shift_rgb(Image_Desc *s, Image_Desc *d, int rs, int gs, int bs)
 int	x, y, r, g, b;
 int	foo;
 
-if ( (foo=Image_compare_desc(s, d)) )
-	{
-	fprintf(stderr, "Shift RGB: src & dst are differents (%d)\n", foo);
+if ( (foo=Image_compare_desc(s, d)) ) {
+	fprintf(stderr, "%s: src & dst are differents (%d)\n", __func__, foo);
 	return foo;
 	}
 
@@ -277,10 +259,8 @@ if ( (foo=Image_compare_desc(s, d)) )
 fprintf(stderr, "Shift RGB: %d %d %d\n", rs, gs, bs);
 #endif
 
-for (y=0; y<s->height; y++)
-    {
-    for (x=0; x<s->width; x++)
-        {
+for (y=0; y<s->height; y++) {
+    for (x=0; x<s->width; x++) {
         r = (s->Rpix[y][x] + rs) % 256;
         g = (s->Gpix[y][x] + gs) % 256;
         b = (s->Bpix[y][x] + bs) % 256;
@@ -303,8 +283,7 @@ return FUNC_IS_ALPHA;
  *	16 Dec 2001: not fully tested, may be bogus :-(
 
 */
-int
-Image_colors_recenter_0(Image_Desc *s, Image_Desc *d)
+int Image_colors_recenter_0(Image_Desc *s, Image_Desc *d)
 {
 int	x, y, r, g, b;
 int	or, og, ob;
@@ -313,10 +292,8 @@ double	cr, cg, cb, surface;
 fprintf(stderr, "Image_colors_recenter_0 is a work in progress... ymmv.\n");
 
 cr = cg = cb = 0.0;
-for (y=0; y<s->height; y++)
-    {
-    for (x=0; x<s->width; x++)
-        {
+for (y=0; y<s->height; y++) {
+    for (x=0; x<s->width; x++) {
 	Image_getRGB(s, x, y, &r, &g, &b);
 	cr += (double)r;
 	cg += (double)g;
@@ -335,10 +312,8 @@ og -= 127;
 ob -= 127;
 fprintf(stderr, "colors recenter 0: %d %d %d\n", or, og, ob);
 
-for (y=0; y<s->height; y++)
-    {
-    for (x=0; x<s->width; x++)
-        {
+for (y=0; y<s->height; y++) {
+    for (x=0; x<s->width; x++) {
 	Image_getRGB(s, x, y, &r, &g, &b);
 	r = Image_clamp_pixel(r + or);
 	g = Image_clamp_pixel(g + og);
@@ -365,8 +340,7 @@ long    mindist, pos, dist;
 
 if ( (foo=Image_compare_desc(s, d)) )       return foo;
 
-if ( map->nbre == 0 )
-	{
+if ( map->nbre == 0 ) {
 	fprintf(stderr, "%s: empty map at %p\n", __func__, map);
 	/*
 	 * WTF ? we have an empty map ?!? *
@@ -380,19 +354,15 @@ fprintf(stderr, "Colors 2 Map: %d couleurs dans la map\n", map->nbre);
 
 pos = 0;		/* XXX verifier a quoi c,a sert ?! */
 
-for (y=0; y<s->height; y++)
-    {
-    for (x=0; x<s->width; x++)
-        {
+for (y=0; y<s->height; y++) {
+    for (x=0; x<s->width; x++) {
         mindist = 99999999;
         sr = s->Rpix[y][x];
         sg = s->Gpix[y][x];
         sb = s->Bpix[y][x];
 
-        for (m=0; m<map->nbre; m++)
-            {
-            switch (mode)
-                {
+        for (m=0; m<map->nbre; m++) {
+            switch (mode) {
                 case 0:
                     dist = CUB(sr-map->red[m])   +
                            CUB(sg-map->green[m]) +
@@ -433,8 +403,7 @@ for (y=0; y<s->height; y++)
 		    return INVALID_PARAM;
                 }
 
-            if (dist < mindist)
-                {
+            if (dist < mindist) {
                 pos = m;        mindist = dist;
                 }
             }
@@ -461,8 +430,7 @@ return OLL_KORRECT;
 #define     B_COEF      114
 #define     RGB_DIV	(R_COEF+G_COEF+B_COEF)
 
-int
-Image_to_gray_k(Image_Desc *s, Image_Desc *d, int kr, int kg, int kb, int flag)
+int Image_to_gray_k(Image_Desc *s, Image_Desc *d, int kr, int kg, int kb, int flag)
 {
 int     x, y, r, g, b, v, foo;
 int     grey, diviseur;
@@ -472,8 +440,7 @@ int	vmax;
 fprintf(stderr, "converting image %p to gray in %p, flag %d\n", s, d, flag);
 #endif
 
-if ( (foo=Image_compare_desc(s, d)) )
-	{
+if ( (foo=Image_compare_desc(s, d)) ) {
 	fprintf(stderr, "To Gray: src & dst are differents (%d)\n", foo);
 	return foo;
 	}
@@ -496,14 +463,11 @@ if (diviseur==0) {
 	}
 
 vmax = 0;
-for (y=0; y<s->height; y++)
-    {
-    for (x=0; x<s->width; x++)
-        {
+for (y=0; y<s->height; y++) {
+    for (x=0; x<s->width; x++) {
         r = s->Rpix[y][x];
         g = s->Gpix[y][x];
         b = s->Bpix[y][x];
-
         grey = (r * kr) + (g * kg) + (b * kb);
         v = grey / diviseur;
 
@@ -525,8 +489,9 @@ d->modified   = 1;
 return OLL_KORRECT;
 }
 /*::------------------------------------------------------------------::*/
-int
-Image_to_gray(Image_Desc *s, Image_Desc *d, int flag)
+/*        what are the three magic constants *_COEF ?
+ */
+int Image_to_gray(Image_Desc *s, Image_Desc *d, int flag)
 {
 int	foo;
 
@@ -547,30 +512,25 @@ return foo;
  *  et on fait quoi si il y a pas assez de couleurs dans la MAP ?
  *				ben, on patche ?
  */
-int
-Image_apply_Map(Image_Desc *src, Image_Desc *dst, RGB_map *map)
+int Image_apply_Map(Image_Desc *src, Image_Desc *dst, RGB_map *map)
 {
 int	x, y, r, g, b;
 
 #if DEBUG_LEVEL
-fprintf(stderr, "%s ( %p %p %p )\n", __func__, src, dst, map);
+fprintf(stderr, ">>> %s ( %p %p %p )\n", __func__, src, dst, map);
 #endif
 
-if (map->nbre == 0)
-	{
-	fprintf(stderr, "%s : no colors in palette ?\n", __func__);
+if (map->nbre == 0) {
+	fprintf(stderr, "%s: no colors in palette ?\n", __func__);
 	return EMPTY_COL_MAP;
 	}
 
-if (map->nbre < 255)
-	{
-	fprintf(stderr, "%s : only %d cols in palette\n", __func__, map->nbre);
+if (map->nbre < 255) {
+	fprintf(stderr, "%s: only %d cols in palette\n", __func__, map->nbre);
 	}
 
-for (y=0; y<src->height; y++)
-	{
-	for (x=0; x<src->width; x++)
-		{
+for (y=0; y<src->height; y++) {
+	for (x=0; x<src->width; x++) {
 		r = (src->Rpix[y])[x];
 		g = (src->Gpix[y])[x];
 		b = (src->Bpix[y])[x];
@@ -591,32 +551,26 @@ return OLL_KORRECT;
 /*::------------------------------------------------------------------::*/
 /*	8 May 2001
     et on fait quoi si il y a pas assez de couleurs dans la MAP ? 	*/
-int
-Image_gray_Map(Image_Desc *src, Image_Desc *dst, RGB_map *map)
+int Image_gray_Map(Image_Desc *src, Image_Desc *dst, RGB_map *map)
 {
 int	x, y, r, g, b, gray;
 
-if (map->nbre == 0)
-	{
-	fprintf(stderr, "%s : no colors in palette ?\n", __func__);
+if (map->nbre == 0) {
+	fprintf(stderr, "%s: no colors in palette ?\n", __func__);
 	return VERY_STRANGE;
 	}
 
-if (map->nbre < 255)
-	{
-	fprintf(stderr, "%s : only %d cols in palette\n", __func__, map->nbre);
+if (map->nbre < 255) {
+	fprintf(stderr, "%s: only %d cols in palette\n", __func__, map->nbre);
 	}
 
-for (y=0; y<src->height; y++)
-	{
-	for (x=0; x<src->width; x++)
-		{
+for (y=0; y<src->height; y++) {
+	for (x=0; x<src->width; x++) {
 		r = (src->Rpix[y])[x];
 		g = (src->Gpix[y])[x];
 		b = (src->Bpix[y])[x];
         	gray = ((r * R_COEF) + (g * G_COEF) + (b * B_COEF)) / RGB_DIV;
-		if (gray<0 || gray>255)
-			{
+		if (gray<0 || gray>255)	{
 			fprintf(stderr, "%s: GRAY---- %d\n", __func__, gray);
 			exit(5);
 			}
@@ -641,7 +595,7 @@ char	*cptr, sep[] = " \t,";
 int	idx;
 
 #if DEBUG_LEVEL
-fprintf(stderr, "%s ( %p %p )\n", __func__, str, ints);
+fprintf(stderr, ">>> %s ( %p %p )\n", __func__, str, ints);
 #endif
 
 idx = 0;
@@ -666,7 +620,7 @@ int		foo;
 int		values[4];
 
 #if DEBUG_LEVEL
-fprintf(stderr, "%s ( %p '%s' 0x%x )\n", __func__, ptr, texte, flags);
+fprintf(stderr, ">>> %s ( %p '%s' 0x%x )\n", __func__, ptr, texte, flags);
 #endif
 
 if ( NULL != (envptr=getenv(ENV_DEFAULT_RGBA)) ) {
@@ -678,7 +632,7 @@ if ( NULL != (envptr=getenv(ENV_DEFAULT_RGBA)) ) {
 	ptr->r = values[0];
 	ptr->g = values[1];
 	ptr->b = values[2];
-	ptr->a = values[3];
+	ptr->a = values[3];	/* wtf ? */
 	}
 else	{
 	fprintf(stderr, "no '%s' env var defined\n", ENV_DEFAULT_RGBA);

Lib/colors2.c

@@ -13,7 +13,7 @@
 #include    <alloca.h> 
 #endif
 
-#include    "tthimage.h"
+#include    "../tthimage.h"
 
 /*::------------------------------------------------------------------::*/
 /* nouveau 20 janvier 2010 */
@@ -68,8 +68,9 @@ for (foo=0; foo<NB_SLOTS; foo++)
 
 *ps = seuil;		/* give a nice value to our caller */
 
-fprintf(stderr, "$$$$ seuil is %d\n", seuil);
-
+#if DEBUG_LEVEL
+fprintf(stderr, "%s :  seuil is %d\n", __func__, seuil);
+#endif
 
 for (y=0; y<s->height; y++)
 	{
@@ -85,7 +86,9 @@ for (y=0; y<s->height; y++)
 		}
 	}
 
+#if DEBUG_LEVEL
 fprintf(stderr, "end of %s\n", __func__);
+#endif
 
 return FULL_NUCKED;
 }

Lib/combine.c

@@ -4,13 +4,14 @@
 
 	made by Thierry Boudet, aka "Oulala", aka "Tonton Th".
 
-	ces fonctions combinent de diverses façons deux images
+	ces fonctions combinent de diverses facons deux images
 	de memes dimensions. on pourra, par exemple, les utiliser
 	pour comparer deux traitements.
 */
 
 #include  <stdio.h>
 #include  <stdlib.h>
+#include  <math.h>
 
 #include  "../tthimage.h"
 
@@ -21,41 +22,34 @@
 
 /*::------------------------------------------------------------------::*/
 /*
- *	le paramètre 'zak' n'est pas utilisé et doit être mis à 0
+ *	le parametre 'zak' n'est pas utilise et doit etre mis a 0
  */
-int
-Image_combine_lines(Image_Desc *s1, Image_Desc *s2, Image_Desc *d,
+int Image_combine_lines(Image_Desc *s1, Image_Desc *s2, Image_Desc *d,
 			int sy, int oy, int zak)
 {
 int	foo, x, y, my, r, g, b;
 
-if (sy == 0)
-	{
-	fprintf(stderr, "Combine Lines: sy is zer0 and zak is %d\n", zak);
+if (sy == 0) {
+	fprintf(stderr, "%s: sy is 0 and zak is %d\n", __func__, zak);
 	return DIVISOR_IS_ZERO;
 	}
-if ( (foo=Image_compare_desc(s1, s2)) )
-	{
-	fprintf(stderr, "Combine Lines: sources are differents (%d)\n", foo);
+if ( (foo=Image_compare_desc(s1, s2)) ) {
+	fprintf(stderr, "%s: sources are differents (%d)\n", __func__, foo);
 	return foo;
 	}
 
 #if DEBUG_LEVEL
 fprintf(stderr, "Combine lines:  %d %d\n", sy, oy);
 #endif
-for (y=0; y<s1->height; y++)
-	{
+for (y=0; y<s1->height; y++) {
 	my = (y+oy) / sy;
-	for (x=0; x<s1->width; x++)
-		{
-		if ( my&1 )
-			{
+	for (x=0; x<s1->width; x++) {
+		if ( my&1 ) {
 			r = (s1->Rpix[y])[x];
 			g = (s1->Gpix[y])[x];
 			b = (s1->Bpix[y])[x];
 			}
-		else
-			{
+		else	{
 			r = (s2->Rpix[y])[x];
 			g = (s2->Gpix[y])[x];
 			b = (s2->Bpix[y])[x];
@@ -71,21 +65,22 @@ return OLL_KORRECT;
 }
 /*::------------------------------------------------------------------::*/
 /*
- *	le paramètre 'zak' n'est pas utilisé et doit être mis à 0
+ *	le parametre 'zak' n'est pas utilise et doit etre mis a 0
  */
-int
-Image_combine_columns(Image_Desc *s1, Image_Desc *s2, Image_Desc *d,
+int Image_combine_columns(Image_Desc *s1, Image_Desc *s2, Image_Desc *d,
 			int sx, int ox, int zak)
 {
 int	foo, x, y, mx, r, g, b;
 
-if (sx == 0)
-	{
+if (zak) {
+	fprintf(stderr, "in %s, zak is not 0\n", __func__);
+	}
+
+if (sx == 0) {
 	fprintf(stderr, "Combine Columns: sx is zer0\n");
 	return DIVISOR_IS_ZERO;
 	}
-if ( (foo=Image_compare_desc(s1, s2)) )
-	{
+if ( (foo=Image_compare_desc(s1, s2)) ) {
 	fprintf(stderr, "Combine Lines: sources are differents (%d)\n", foo);
 	return foo;
 	}
@@ -94,19 +89,15 @@ if ( (foo=Image_compare_desc(s1, s2)) )
 fprintf(stderr, "Combine columns:  %d %d\n", sx, ox);
 #endif
 
-for (y=0; y<s1->height; y++)
-	{
-	for (x=0; x<s1->width; x++)
-		{
+for (y=0; y<s1->height; y++) {
+	for (x=0; x<s1->width; x++) {
 		mx = (x+ox) / sx;
-		if ( mx&1 )
-			{
+		if ( mx & 1 ) {
 			r = (s1->Rpix[y])[x];
 			g = (s1->Gpix[y])[x];
 			b = (s1->Bpix[y])[x];
 			}
-		else
-			{
+		else	{
 			r = (s2->Rpix[y])[x];
 			g = (s2->Gpix[y])[x];
 			b = (s2->Bpix[y])[x];
@@ -128,8 +119,7 @@ return OLL_KORRECT;
  *	
  *	'zak' parameter is not used, and must be 0.
  */
-int
-Image_combine_checker(Image_Desc *s1, Image_Desc *s2, Image_Desc *d,
+int Image_combine_checker(Image_Desc *s1, Image_Desc *s2, Image_Desc *d,
 				int sx, int sy, int ox, int oy, int zak)
 {
 int	foo, r, g, b;
@@ -140,38 +130,30 @@ fprintf(stderr, "Checker (%p, %p) -> %p  [%d,%d] [%d,%d]\n",
 			s1, s2, d, sx, sy, ox, oy);
 #endif
 
-if (zak)
-	{
-	fprintf(stderr, "%s: param 'zak' = %d, must be 0.\n", __func__,
-							zak);
+if (zak) {
+	fprintf(stderr, "%s: 'zak' = %d, must be 0.\n", __func__, zak);
 	}
 
-if ( sx==0 || sy==0 )
-	{
+if ( sx==0 || sy==0 ) {
 	fprintf(stderr, "Combine Checker: sx or sy is Zero\n");
 	return DIVISOR_IS_ZERO;
 	}
 
-if ( (foo=Image_compare_desc(s1, s2)) )
-	{
+if ( (foo=Image_compare_desc(s1, s2)) ) {
 	fprintf(stderr, "Combine Checker: sources are differents (%d)\n", foo);
 	return foo;
 	}
 
-for (y=0; y<s1->height; y++)
-	{
+for (y=0; y<s1->height; y++) {
 	my = (y+oy) / sy;
-	for (x=0; x<s1->width; x++)
-		{
+	for (x=0; x<s1->width; x++) {
 		mx = (x+ox) / sx;
-		if ( (mx&1) != (my&1) )
-			{
+		if ( (mx&1) != (my&1) )	{
 			r = (s1->Rpix[y])[x];
 			g = (s1->Gpix[y])[x];
 			b = (s1->Bpix[y])[x];
 			}
-		else
-			{
+		else	{
 			r = (s2->Rpix[y])[x];
 			g = (s2->Gpix[y])[x];
 			b = (s2->Bpix[y])[x];
@@ -186,7 +168,6 @@ for (y=0; y<s1->height; y++)
 return 0;
 }
 /*::------------------------------------------------------------------::*/
-/*::------------------------------------------------------------------::*/
 /*
  *	houba, celle-ci va me donner du mal, et on peut la 
  *	considerer comme pas finie, c'est a dire, entre autre,
@@ -197,22 +178,19 @@ return 0;
  *
  *	Tiens, le parametre 'yo' ne sert a rien ?
  */
-int
-Image_combine_cercle_flou(Image_Desc *s1, Image_Desc *s2, Image_Desc *d, int yo)
+int Image_combine_cercle_flou(Image_Desc *s1, Image_Desc *s2, Image_Desc *d, int yo)
 {
 int	foo;
 int	xcenter, ycenter;
 int	x, y, r1, v1, b1, r2, b2, v2;
 float	fx2, fy2, dmax, coef;
 
-if ( (foo=Image_compare_desc(s1, s2)) )
-	{
+if ( (foo=Image_compare_desc(s1, s2)) ) {
 	fprintf(stderr, "Combine Cercle Flou: differents sources (%d)\n", foo);
 	return foo;
 	}
 
-if ( (foo=Image_compare_desc(s1, d)) )
-	{
+if ( (foo=Image_compare_desc(s1, d)) ) {
 	fprintf(stderr, "Combine Cercle Flou: source != dest (%d)\n", foo);
 	return foo;
 	}
@@ -228,11 +206,9 @@ fprintf(stderr, "\tdmax: %f\n", dmax);
 fflush(stderr);		/* vraiment necessaire ? */
 #endif
 
-for (y=0; y<s1->height; y++)
-	{
+for (y=0; y<s1->height; y++) {
 	fy2 = (float)((y-ycenter)*(y-ycenter));
-	for (x=0; x<s1->width; x++)
-		{
+	for (x=0; x<s1->width; x++) {
 		fx2 = (float)((x-xcenter)*(x-xcenter));
 
 		r1 = (s1->Rpix[y])[x];
@@ -244,6 +220,9 @@ for (y=0; y<s1->height; y++)
 		b2 = (s2->Bpix[y])[x];
 
 		coef = (fx2+fy2)/dmax;
+		if (1==yo) {
+			coef = cos(coef);
+			}
 
 		if (coef < 0.0)		coef = 0.0;
 		if (coef > 1.0)		coef = 1.0;
@@ -253,65 +232,62 @@ for (y=0; y<s1->height; y++)
 		(d->Bpix[y])[x] = (int)(b1*(1.0-coef)+b2*coef);
 
 		}
+#if DEBUG_LEVEL
+	fprintf(stderr, "x %4d y %4d c %f\n", x, y, coef);
+#endif
 	}
 
 return OLL_KORRECT;
 }
 /*::------------------------------------------------------------------::*/
 /*
- *	le flag 'yo' decide quelle image sera en haut à droite.
- *	les paramètres p1 & p2 ne sont pas utilisés.
+ *	le flag 'yo' decide quelle image sera en haut a droite.
+ *	les parametres p1 & p2 ne sont pas utilises.
  */
-int
-Image_combine_diagonale(Image_Desc *s1, Image_Desc *s2, Image_Desc *d,
+int Image_combine_diagonale(Image_Desc *s1, Image_Desc *s2, Image_Desc *d,
 				int yo, int p1, int p2)
 {
 int	foo;
 int	x, y, r, g, b;
 int	vertical, offset;
 
-if ( (foo=Image_compare_desc(s1, s2)) )
-	{
-	fprintf(stderr, "Combine Diagonale: differents sources (%d)\n", foo);
+if ( p1 || p2 ) {
+	fprintf(stderr, "%s: bad p1 %d or bad p2 %d\n", __func__, p1, p2);
+	}
+
+if ( (foo=Image_compare_desc(s1, s2)) ) {
+	fprintf(stderr, "%s: differents sources (%d)\n", __func__, foo);
 	return foo;
 	}
 
-if (s1->height > s1->width)
-	{
+if (s1->height > s1->width) {
 	vertical = 1;
 	offset = (s1->height - s1->width) / 2;
 	}
-else
-	{
+else	{
 	vertical = 0;
 	offset = (s1->width - s1->height) / 2;
 	}
 
-for (y=0; y<s1->height; y++)
-	{
-	for (x=0; x<s1->width; x++)
-		{
-		if ( vertical )
-			{
+for (y=0; y<s1->height; y++) {
+	for (x=0; x<s1->width; x++) {
+		if ( vertical )	{
 			if (x > (y-offset))	foo=1;
 			else			foo=0;
 			}
-		else
-			{ 
+		else	{ 
 			if ((x-offset) > y)	foo=1;
 			else			foo=0;
 			}
 
 		foo = yo ? !foo : foo;			/* strange hack */
 
-		if (foo)
-			{
+		if (foo) {
 			r = (s1->Rpix[y])[x];
 			g = (s1->Gpix[y])[x];
 			b = (s1->Bpix[y])[x];
 			}
-		else
-			{
+		else	{
 			r = (s2->Rpix[y])[x];
 			g = (s2->Gpix[y])[x];
 			b = (s2->Bpix[y])[x];
@@ -324,6 +300,7 @@ for (y=0; y<s1->height; y++)
 	}
 /*
  * 30 sept 2008 : est-ce que cette fonction a subi un bon fuzzing ?
+ *  9 aout 2024 : non, pas encore ;)
  */
 return OLL_KORRECT;
 }
@@ -333,22 +310,18 @@ return OLL_KORRECT;
 	we put in the destination image the min/max value
 	of the RGB componants.
  */
-int
-Image_combine_minmax(Image_Desc *s1, Image_Desc *s2, Image_Desc *d, int flg)
+int Image_combine_minmax(Image_Desc *s1, Image_Desc *s2, Image_Desc *d, int flg)
 {
 int	foo, x, y, r, g, b;
 int	r1, r2, g1, g2, b1, b2;
 
-if ( (foo=Image_compare_desc(s1, s2)) )
-	{
+if ( (foo=Image_compare_desc(s1, s2)) ) {
 	fprintf(stderr, "Combine MinMax: differents sources (%d)\n", foo);
 	return foo;
 	}
 
-for (y=0; y<s1->height; y++)
-	{
-	for (x=0; x<s1->width; x++)
-		{
+for (y=0; y<s1->height; y++) {
+	for (x=0; x<s1->width; x++) {
 		r1 = (s1->Rpix[y])[x];
 		g1 = (s1->Gpix[y])[x];
 		b1 = (s1->Bpix[y])[x];
@@ -357,8 +330,7 @@ for (y=0; y<s1->height; y++)
 		g2 = (s2->Gpix[y])[x];
 		b2 = (s2->Bpix[y])[x];
 
-		if (flg)
-			{
+		if (flg) {
 			r = max(r1, r2);
 			g = max(g1, g2);
 			b = max(b1, b2);
@@ -381,31 +353,26 @@ return OLL_KORRECT;
 /*
  *   fonction faite pour le finisseur de DBvsEE
  *
- *	6 oct 2001: une version qui permettrait de spécifier les
+ *	6 oct 2001: une version qui permettrait de specifier les
  *		seuils en r,g et b serait assez pratique aussi.
  */
-int
-Image_combine_if_not_black(Image_Desc *s1, Image_Desc *s2, Image_Desc *d)
+int Image_combine_if_not_black(Image_Desc *s1, Image_Desc *s2, Image_Desc *d)
 {
 int	foo, x, y, r, g, b;
 
-if ( (foo=Image_compare_desc(s1, s2)) )
-	{
+if ( (foo=Image_compare_desc(s1, s2)) )	{
 	fprintf(stderr, "Combine If Not Black: differents sources (%d)\n", foo);
 	return foo;
 	}
 
-for (y=0; y<s1->height; y++)
-	{
-	for (x=0; x<s1->width; x++)
-		{
+for (y=0; y<s1->height; y++) {
+	for (x=0; x<s1->width; x++) {
 		/* XXX Image_getRGB(s1, x, y, &r, &g, &b); */
 		r = (s1->Rpix[y])[x];
 		g = (s1->Gpix[y])[x];
 		b = (s1->Bpix[y])[x];
 
-		if ( r==0 && g==0 && b==0 )
-			{
+		if ( r==0 && g==0 && b==0 ) {
 			/* XXX Image_getRGB(s2, x, y, &r, &g, &b); */
 			r = (s2->Rpix[y])[x];
 			g = (s2->Gpix[y])[x];
@@ -425,16 +392,14 @@ return FUNC_IS_BETA;		/* XXX c'est pas du OLL_KORRECT ? */
 /*
  *	gni ?
  */
-int	
-Image_poke_2zones(Image_Desc *src, Image_Desc *ia, Image_Desc *ib,
+int Image_poke_2zones(Image_Desc *src, Image_Desc *ia, Image_Desc *ib,
 				   Image_Rect *za, Image_Rect *zb,
-		  Image_Desc *dst)
+				  Image_Desc *dst)
 {
 int		foo;
 /* Image_Rect	rect; */
 
-if ( (foo=Image_compare_desc(src, dst)) )
-	{
+if ( (foo=Image_compare_desc(src, dst)) ) {
 	fprintf(stderr, "Poke 2 Zone: src & dst: %d %s\n", 
 					foo, Image_err2str(foo));
 	return foo;

Lib/combine2.c

@@ -14,8 +14,7 @@
 /*
       Le coefficient K va de 0 a 10000 !
 */
-int
-Image_mix(Image_Desc *a, Image_Desc *b, Image_Desc *c, int k)
+int Image_mix(Image_Desc *a, Image_Desc *b, Image_Desc *c, int k)
 {
 int     x, y;
 int     ra, rb, mk;
@@ -25,7 +24,7 @@ int	foo;
 if ( (foo=Image_compare_desc(a, b)) ||
      (foo=Image_compare_desc(a, c)) )
     {
-    fprintf(stderr, "Image mix: images differentes %s\n", Image_err2str(foo));
+    fprintf(stderr, "%s: images differentes %s\n", __func__, Image_err2str(foo));
     fprintf(stderr, "  a %dx%d b %dx%d c %dx%d\n", 
 				a->width, a->height,
 				b->width, b->height,
@@ -38,14 +37,12 @@ fprintf(stderr, "Mixing:  %p and %p to %p,  k=%d\n", a, b, c, k);
 #endif
 
 mk = 10000 - k;
-for (y=0; y<a->height; y++)
-    {
+for (y=0; y<a->height; y++) {
     pra = a->Rpix[y];   prb = b->Rpix[y];   prk = c->Rpix[y];
     pga = a->Gpix[y];   pgb = b->Gpix[y];   pgk = c->Gpix[y];
     pba = a->Bpix[y];   pbb = b->Bpix[y];   pbk = c->Bpix[y];
 
-    for (x=0; x<a->width; x++)
-        {
+    for (x=0; x<a->width; x++) {
         ra = pra[x];
         rb = prb[x];
         prk[x] = ((ra * k) + (rb * mk)) / 10000;
@@ -66,8 +63,7 @@ return 0;
 /*							new 6 nov 2001
       Les coefficients K[rgb] vont de 0 a 10000 !
 */
-int
-Image_mix_rgb(Image_Desc *a, Image_Desc *b, Image_Desc *c,
+int Image_mix_rgb(Image_Desc *a, Image_Desc *b, Image_Desc *c,
 						int kr, int kg, int kb)
 {
 int	foo, x, y;

Lib/combine3.c

@@ -13,42 +13,35 @@
 /*
  *	un kludge en chantier. programmation à la 'Gruiik' en vue.
  */
-int
-Image_combine_waou(Image_Desc *s1, Image_Desc *s2, Image_Desc *dst,
+int Image_combine_waou(Image_Desc *s1, Image_Desc *s2, Image_Desc *dst,
 					int a, int b, int c, int d)
 {
 int	x, y, foo;
 
 #if DEBUG_LEVEL
-fprintf(stderr, "%s ( %p %p %p %d : %d %d (%d) )\n",
+fprintf(stderr, ">>> %s ( %p %p %p %d : %d %d (%d) )\n",
 			 __func__, s1, s2, dst, a, b, c, d);
 #endif
 
-if ( (foo=Image_compare_desc(s1, s2)) )
-    {
+if ( (foo=Image_compare_desc(s1, s2)) ) {
     fprintf(stderr, "%s : sources are differents %d\n", __func__, foo);
     return foo;
     }
 
-if ( (foo=Image_compare_desc(s1, dst)) )
-    {
+if ( (foo=Image_compare_desc(s1, dst)) ) {
     fprintf(stderr, "%s : destination bad dims %d\n", __func__, foo);
     return foo;
     }
 
-for (y=0; y<dst->height; y++)
-	{
-	for (x=0; x<dst->width; x++)
-		{
-		if (d)
-			{
+for (y=0; y<dst->height; y++) {
+	for (x=0; x<dst->width; x++) {
+		if (d)	{
 			/* canonical function */
 			(dst->Rpix[y])[x] = (x & (s1->Rpix[y])[x]) | a;
 			(dst->Gpix[y])[x] = x | b;
 			(dst->Bpix[y])[x] = (y & (s2->Rpix[y])[x]) | c;
 			}
-		else
-			{
+		else	{
 			/* new 9 mars 2010 - ave St Ex */
 			(dst->Rpix[y])[x] = (x & (s1->Rpix[y])[x]) ^ a;
 			(dst->Gpix[y])[x] = x ^ b;
@@ -63,8 +56,7 @@ return FUNC_IS_BETA;
 /*
  *	un kludge en chantier. programmation à la 'Gruiik' en vue.
  */ 
-int
-Image_combine_wauo(Image_Desc *s1, Image_Desc *s2, Image_Desc *dst,
+int Image_combine_wauo(Image_Desc *s1, Image_Desc *s2, Image_Desc *dst,
 						int flag)
 {
 int	x, y, foo;
@@ -72,31 +64,25 @@ int	x, y, foo;
 if ( flag )
 	fprintf(stderr, "Combine Wauo: flag = %d ?\n", flag);
 
-if ( (foo=Image_compare_desc(s1, s2)) )
-    {
+if ( (foo=Image_compare_desc(s1, s2)) ) {
     fprintf(stderr, "Combine Wauo: sources are differents %d\n", foo);
     return foo;
     }
 
-if ( (foo=Image_compare_desc(s1, dst)) )
-    {
+if ( (foo=Image_compare_desc(s1, dst)) ) {
     fprintf(stderr, "Combine Wauo: destination bad dims %d\n", foo);
     return foo;
     }
 
-for (y=1; y<dst->height-1; y++)
-	{
-	for (x=1; x<dst->width-1; x++)
-		{
+for (y=1; y<dst->height-1; y++) {
+	for (x=1; x<dst->width-1; x++) {
 		(dst->Rpix[y])[x] = (s1->Rpix[y][x] + s2->Rpix[y][x])/2;
 
-		if (s1->Rpix[y][x] > s2->Rpix[y][x])
-			{	
+		if (s1->Rpix[y][x] > s2->Rpix[y][x]) {	
 			(dst->Gpix[y])[x] = (s1->Gpix[y])[x];
 			(dst->Bpix[y])[x] = (s2->Bpix[y])[x];
 			}
-		else
-			{	
+		else	{	
 			(dst->Gpix[y])[x] = (s2->Gpix[y])[x];
 			(dst->Bpix[y])[x] = (s1->Bpix[y])[x];
 			}
@@ -109,31 +95,26 @@ return OLL_KORRECT;
 /*
  *   threshold values (sr, sg, sb) are in the pix range [0..255]
  */
-int
-Image_combine_seuils(Image_Desc *s1, Image_Desc *s2, Image_Desc *dst,
+int Image_combine_seuils(Image_Desc *s1, Image_Desc *s2, Image_Desc *dst,
 						int sr, int sb, int sg)
 {
 int	x, y, foo;
 int	r, g, b;
 
-if ( (foo=Image_compare_desc(s1, s2)) )
-    {
+if ( (foo=Image_compare_desc(s1, s2)) ) {
     fprintf(stderr, "Combine Seuils: sources are differents %d\n", foo);
     return foo;
     }
 
-if ( (foo=Image_compare_desc(s1, dst)) )
-    {
+if ( (foo=Image_compare_desc(s1, dst)) ) {
     fprintf(stderr, "Combine Seuils: destination bad dims %d\n", foo);
     return foo;
     }
 
 sr*=2;	sg*=2;	sb*=2;
 
-for (y=0; y<dst->height; y++)
-	{
-	for (x=0; x<dst->width; x++)
-		{
+for (y=0; y<dst->height; y++) {
+	for (x=0; x<dst->width; x++) {
 		if ( (s1->Rpix[y][x] + s2->Rpix[y][x]) > sr )
 			r = s1->Rpix[y][x];
 		else

Lib/combine5.c

@@ -21,20 +21,17 @@ int	r2, g2, b2;
 int	rd, gd, bd;
 double	k, ka, kb;
 
-if ( (foo=Image_compare_desc(s1, s2)) )
-	{
-	fprintf(stderr, "V degrade: sources err: %s\n", Image_err2str(foo));
+if ( (foo=Image_compare_desc(s1, s2)) ) {
+	fprintf(stderr, "%s: sources err: %s\n", __func__, Image_err2str(foo));
 	return foo;
 	}
 
-for (y=0; y<s1->height; y++)
-	{
+for (y=0; y<s1->height; y++) {
 	k = (double)y/(double)s1->height;
 	if (sens)	{ ka = k;	kb = 1.0 - ka; }
 	else		{ kb = k;	ka = 1.0 - kb; }
 
-	for (x=0; x<s1->width; x++)
-		{
+	for (x=0; x<s1->width; x++) {
 		Image_getRGB(s1, x, y, &r1, &g1, &b1);
 		Image_getRGB(s2, x, y, &r2, &g2, &b2);
 		rd = (int)((double)r1*ka+(double)r2*(kb));
@@ -57,19 +54,16 @@ int	r2, g2, b2;
 int	rd, gd, bd;
 double	k, ka, kb;
 
-if ( (foo=Image_compare_desc(s1, s2)) )
-	{
-	fprintf(stderr, "H degrade: sources err: %s\n", Image_err2str(foo));
+if ( (foo=Image_compare_desc(s1, s2)) ) {
+	fprintf(stderr, "%s: sources err: %s\n", __func__, Image_err2str(foo));
 	return foo;
 	}
 
-for (x=0; x<s1->width; x++)
-	{
+for (x=0; x<s1->width; x++) {
 	k = (double)x/(double)s1->width;
 	if (sens)	{ ka = k;	kb = 1.0-ka; }
 	else		{ kb = k;	ka = 1.0-kb; }
-	for (y=0; y<s1->height; y++)
-		{
+	for (y=0; y<s1->height; y++) {
 		Image_getRGB(s1, x, y, &r1, &g1, &b1);
 		Image_getRGB(s2, x, y, &r2, &g2, &b2);
 		rd = (int)((double)r1*ka+(double)r2*(kb));
@@ -96,14 +90,12 @@ int		foo;
 fprintf(stderr, "%s:%d:%s: no such function or procedure\n",
 		__FILE__, __LINE__, __func__);
 
-if ( (foo=Image_compare_desc(s1, s2)) )
-	{
-	fprintf(stderr, "D degrade: sources err: %s\n", Image_err2str(foo));
+if ( (foo=Image_compare_desc(s1, s2)) ) {
+	fprintf(stderr, "%s: sources err: %s\n", __func__, Image_err2str(foo));
 	return foo;
 	}
-if ( (foo=Image_compare_desc(s1, dst)) )
-	{
-	fprintf(stderr, "D degrade: dst err: %s\n", Image_err2str(foo));
+if ( (foo=Image_compare_desc(s1, dst)) ) {
+	fprintf(stderr, "%s: dst err: %s\n", __func__, Image_err2str(foo));
 	return foo;
 	}
 
@@ -120,30 +112,25 @@ int Image_combine_Vsplit(Image_Desc *s1, Image_Desc *s2, Image_Desc *d,
 int		foo, x, y;
 
 #if DEBUG_LEVEL
-fprintf(stderr, "%s (%p %p %p %d %d)\n", __func__, s1, s2, d, xv, uh);
+fprintf(stderr, ">>> %s ( %p %p %p %d %d )\n", __func__, s1, s2, d, xv, uh);
 #endif
 
 if (0 != uh)
 	fprintf(stderr, "%s : uh must be 0 and not %d\n", __func__, uh);
 
-if ( (foo=Image_compare_desc(s1, s2)) )
-	{
+if ( (foo=Image_compare_desc(s1, s2)) ) {
 	fprintf(stderr, "%s : src err: %s\n", __func__, Image_err2str(foo));
 	return foo;
 	}
 
-for (y=0; y<s1->height; y++)
-	{
-	for (x=0; x<s1->width; x++)
-		{
-		if (x<xv)
-			{
+for (y=0; y<s1->height; y++) {
+	for (x=0; x<s1->width; x++) {
+		if (x<xv) {
 			(d->Rpix[y])[x] = (s1->Rpix[y])[x];
 			(d->Gpix[y])[x] = (s1->Gpix[y])[x];
 			(d->Bpix[y])[x] = (s1->Bpix[y])[x];
 			}
-		else
-			{
+		else {
 			(d->Rpix[y])[x] = (s2->Rpix[y])[x];
 			(d->Gpix[y])[x] = (s2->Gpix[y])[x];
 			(d->Bpix[y])[x] = (s2->Bpix[y])[x];
@@ -152,7 +139,7 @@ for (y=0; y<s1->height; y++)
 		}
 	}
 
-return FUNC_IS_BETA;
+return OLL_KORRECT;
 }
 /*::------------------------------------------------------------------::*/
 /* nouveau 29 novembre 2013 
@@ -163,7 +150,7 @@ int Image_combine_Hsplit(Image_Desc *s1, Image_Desc *s2, Image_Desc *d,
 int		x, y;
 
 #if DEBUG_LEVEL
-fprintf(stderr, "%s (%p %p %p %d %d)\n", __func__, s1, s2, d, yv, uh);
+fprintf(stderr, ">>> %s ( %p %p %p %d %d )\n", __func__, s1, s2, d, yv, uh);
 #endif
 
 if (0 != uh)

Lib/combine6.c

@@ -88,7 +88,7 @@ int Image_XOR(Image_Desc *s1, Image_Desc *s2, Image_Desc *d, int k)
 int		foo, x, y;
 
 #if DEBUG_LEVEL
-fprintf(stderr, "---> %s ( %p %p %p %d)\n", __func__, s1, s2, d, k);
+fprintf(stderr, ">>> %s ( %p %p %p %d)\n", __func__, s1, s2, d, k);
 #endif
 
 if ( (foo=Image_compare_desc(s1, s2)) )

Lib/combine_rnd.c

@@ -9,7 +9,7 @@
 #include  <stdio.h>
 #include  <stdlib.h>
 
-#include  "tthimage.h"
+#include  "../tthimage.h"
 
 /*::------------------------------------------------------------------::*/
 /*

Lib/contours.c

@@ -4,7 +4,7 @@
 
 #include  <stdio.h>
 
-#include  "tthimage.h"
+#include  "../tthimage.h"
 
 /*::------------------------------------------------------------------::*/
 /*

Lib/contrast.c

@@ -4,8 +4,69 @@
 
 #include  <stdio.h>
 #include  <math.h>
-#include  "tthimage.h"
+#include  "../tthimage.h"
 
+
+/*::------------------------------------------------------------------::*/
+/*
+ *	new: Fri Sep 15 20:18:35 UTC 2023
+ *	inspired by the same func in FloatImg
+ */
+int Image_egalise_cos01(Image_Desc *source, Image_Desc *but, int k)
+{
+(void)k;				/* WARNING KILLER */
+int		lut[256], uc, idx, foo;
+float		fidx;
+
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p  %p  %d )\n", __func__,
+		source, but, k);
+#endif
+
+if ( (foo=Image_compare_desc(source, but)) ) {
+	fprintf(stderr, "%s: images not compatible, %d\n", __func__, foo);
+	return foo;
+	}
+for (idx=0; idx<256; idx++) {
+	fidx = (float)idx / 255.0;
+	uc = (unsigned char)(255.0*(0.5 - 0.5 * cos(3.141592654*fidx)));
+	lut[idx] = uc;
+	/* printf("%7d    %7d\n", idx, uc); */
+	}
+Image_LUT_mono(source, but, lut);
+
+return OLL_KORRECT;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ *	new: Fri Sep 15 20:32:12 UTC 2023
+ *	inspired by the same func in FloatImg
+ */
+int Image_egalise_cos010(Image_Desc *source, Image_Desc *but, int k)
+{
+(void)k;				/* WARNING KILLER */
+int		lut[256], uc, idx, foo;
+float		fidx;
+
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p  %p  %d )\n", __func__,
+		source, but, k);
+#endif
+
+if ( (foo=Image_compare_desc(source, but)) ) {
+	fprintf(stderr, "%s: images not compatible, %d\n", __func__, foo);
+	return foo;
+	}
+for (idx=0; idx<256; idx++) {
+	fidx = (float)idx / 255.0;
+	uc = (unsigned char)(255.0*(0.5 - 0.5 * cos(3.141592654*fidx*2.0)));
+	lut[idx] = uc;
+	/* printf("%7d    %7d\n", idx, uc); */
+	}
+Image_LUT_mono(source, but, lut);
+
+return OLL_KORRECT;
+}
 /*::------------------------------------------------------------------::*/
 /*
  *	cette fonction peut etre utilisee avec la meme image
@@ -20,6 +81,10 @@ float	fr, fg, fb;
 fprintf(stderr, "%s : %p -> %p\n", __func__, source, but);
 #endif
 
+if (k)	{
+	fprintf(stderr, "In %s, k must be 0, was %d\n", __func__, k);
+	}
+
 if ( (foo=Image_compare_desc(source, but)) ) {
     fprintf(stderr, "%s : images are differents %d\n", __func__, foo);
     return foo;
@@ -55,6 +120,10 @@ float	fr, fg, fb;
 fprintf(stderr, "%s : %p -> %p\n", __func__, source, but);
 #endif
 
+if (k)	{
+	fprintf(stderr, "In %s, k must be 0, was %d\n", __func__, k);
+	}
+
 if ( (foo=Image_compare_desc(source, but)) ) {
     fprintf(stderr, "%s : images are differents %d\n", __func__, foo);
     return foo;

Lib/detect.c

@@ -6,7 +6,7 @@
 #include  <stdio.h>
 #include  <stdlib.h>
 
-#include  "tthimage.h"
+#include  "../tthimage.h"
 
 /*::------------------------------------------------------------------::*/
 /*
@@ -87,7 +87,7 @@ return OLL_KORRECT;
 /*
  *	on cherche les endroits ou le niveau de gris est 'plat'.
  *
- *	le paramètre 'r1' n'est pas utilise et doit etre mis à 0
+ *	le parametre 'r1' n'est pas utilise et doit etre mis a 0
  */
 int
 Image_detect_flat_gray(Image_Desc *src, Image_Desc *dst, int param, int r1)
@@ -140,7 +140,7 @@ for (y=1; y<src->height-1; y++)
 	}
 /*
  *	hop, en finale, on efface les bords, et on
- *	marque l'image "modifiée". 
+ *	marque l'image "modifiee". 
  */
 (void)Image_raz_sides(dst);
 dst->modified = 1;

Lib/detect2.c

@@ -4,7 +4,7 @@
 */
 
 #include  <stdio.h>
-#include  "tthimage.h"
+#include  "../tthimage.h"
 
 /*::------------------------------------------------------------------::*/
 /*
@@ -17,6 +17,10 @@ int		foo, val;
 int		x, y;
 long		nbre;
 
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p %d %p )\n", __func__, img, seuilr, ptl);
+#endif
+
 nbre = 0;
 for (y=0; y<img->height; y++)
 	{

Lib/distances.c

@@ -0,0 +1,79 @@
+/*
+ *                CALCULS DE LA DISTANCE ENTRE DEUX IMAGES
+ *
+ * new 12 janvier 2009 - avenue St Exupery - dans un etat de grosse fatique
+ */
+
+#include  <stdio.h>
+#include  <stdlib.h>
+
+#include  "../tthimage.h"
+
+/*::------------------------------------------------------------------::*/
+/*
+ */
+int
+Image_distance_0(Image_Desc *ia, Image_Desc *ib, 
+				double *dr, double *dg, double *db)
+{
+int		foo, x, y;
+int		ra, ga, ba, rb, gb, bb;
+
+if ( (foo=Image_compare_desc(ia, ib)) ) {
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
+    return foo;
+    }
+
+*dr = *dg = *db = 0.0;
+
+for (y=0; y<ia->height; y++)
+	{
+	for (x=0; x<ia->width; x++)
+		{
+		ra = (ia->Rpix[y])[x];
+		ga = (ia->Gpix[y])[x];
+		ba = (ia->Bpix[y])[x];
+		rb = (ib->Rpix[y])[x];
+		gb = (ib->Gpix[y])[x];
+		bb = (ib->Bpix[y])[x];
+		*dr += ((double)abs(ra - rb)) / 255.9999999;
+		*dg += ((double)abs(ga - gb)) / 255.9999999;
+		*db += ((double)abs(ba - bb)) / 255.9999999;
+		}
+	}
+
+#if DEBUG_LEVEL > 1
+fprintf(stderr, "%s:   %12.3f   %12.3f   %12.3f\n", __func__, *dr, *dg, *db);
+#endif
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ */
+int
+Image_distance_1(Image_Desc *ia, Image_Desc *ib, 
+				double *dr, double *dg, double *db)
+{
+int		foo, x, y;
+
+if ( (foo=Image_compare_desc(ia, ib)) ) {
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
+    return foo;
+    }
+
+*dr = *dg = *db = 42e42;
+
+for (y=0; y<ia->height; y++)
+	{
+	for (x=0; x<ia->width; x++)
+		{
+
+		/* FIXME need more code */
+
+		}
+	}
+
+return FUNC_IS_ALPHA;
+}
+/*::------------------------------------------------------------------::*/

Lib/dither.c

@@ -12,11 +12,14 @@
 	en entree, on doit avoir une image RGB, sinon, "segfault"
 	le parametre 'uh' represente l'intensite de la couleur 'on'
 */
-int
-Image_dither_Bayer_0(Image_Desc *s, Image_Desc *d, int uh)
+int Image_dither_Bayer_0(Image_Desc *s, Image_Desc *d, int uh)
 {
 int	dx, dy, x, y, r, g, b;
 
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p %p %d )\n", __func__, s, d, uh);
+#endif
+
 /* directement copie de la page 389 de "Bitmapped graphics" de
   			Steve Rimmer. */
 
@@ -57,18 +60,19 @@ return OLL_KORRECT;
  *	19 Juin 2000:   dithering on a 2x2 matrice.
  *	15 Nov  2001:   'uh' parameter is _now_ working ;-}
  */
-int
-Image_dither_crude(Image_Desc *s, Image_Desc *d, int uh)
+int Image_dither_crude(Image_Desc *s, Image_Desc *d, int uh)
 {
 int	x, y, r, g, b;
 int	som;
 
-Image_clear(d, 0, 0, 0);
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p %p %d )\n", __func__, s, d, uh);
+#endif
 
-for (x=0; x<(s->width-1); x+=2)
-	{
-	for (y=0; y<(s->height-1); y+=2)
-		{
+if (s != d) Image_clear(d, 0, 0, 0);
+
+for (x=0; x<(s->width-1); x+=2) {
+	for (y=0; y<(s->height-1); y+=2) {
 		r = g = b = 0;
 		r += Image_R_pixel(s, x, y);
 		r += Image_R_pixel(s, x+1, y);
@@ -96,14 +100,8 @@ for (x=0; x<(s->width-1); x+=2)
 
 		som = r + g + b;
 		
-		if (som < 2048)
-			{
-			Image_plotRGB(d, x+1, y+1, 0, 0, 0);
-			}
-		else
-			{
-			Image_plotRGB(d, x+1, y+1, uh, uh, uh);
-			}
+		if (som < 2048)	Image_plotRGB(d, x+1, y+1, 0, 0, 0);
+		else		Image_plotRGB(d, x+1, y+1, uh, uh, uh);
 		}
 	}
 
@@ -111,27 +109,28 @@ return OLL_KORRECT;
 }
 /*::------------------------------------------------------------------::*/
 /*
- *	ça ne marche pas très fort, ce truc...
+ *	Il ne marche pas tres fort, ce truc...
  */
-int
-Image_dither_2x2(Image_Desc *s, Image_Desc *d, int uh)
+int Image_dither_2x2(Image_Desc *s, Image_Desc *d, int uh)
 {
 int	x, y, xm, ym;
 int	r, g, b, v;
 
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p %p %d )\n", __func__, s, d, uh);
+#endif
+
 x = s->width;		xm = (x&1) ? (x-1) : x;
 y = s->height;		ym = (y&1) ? (y-1) : y;
 
-Image_clear(d, 0, 0, 0);
+if (s != d) Image_clear(d, 0, 0, 0);
 
 #if DEBUG_LEVEL
 fprintf(stderr, "dither 2x2:  %d  %d  %d  %d\n", x, xm, y, ym);
 #endif
 
-for (x=0; x<xm; x+=2)
-	{
-	for (y=0; y<ym; y+=2)
-		{
+for (x=0; x<xm; x+=2) {
+	for (y=0; y<ym; y+=2) {
 		/*
 		 *	bon sang, mais que faire ici ?
 		 */
@@ -155,24 +154,24 @@ for (x=0; x<xm; x+=2)
 return FUNC_IS_ALPHA;
 }
 /*::------------------------------------------------------------------::*/
-int
-Image_dither_seuil_random(Image_Desc *s, Image_Desc *d, int uh)
+int Image_dither_seuil_random(Image_Desc *s, Image_Desc *d, int uh)
 {
 int	x, y, r, g, b;
 int	foo;
 
-if ( (foo=Image_compare_desc(s, d)) )
-    {
-    fprintf(stderr, "dither seuil random: images are differents %d\n", foo);
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p %p %d )\n", __func__, s, d, uh);
+#endif
+
+if ( (foo=Image_compare_desc(s, d)) ) {
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
     return foo;
     }
 
-Image_clear(d, 0, 0, 0);
+if (s != d) Image_clear(d, 0, 0, 0);
 
-for (y=0; y<s->height; y++)
-	{
-	for (x=0; x<s->width; x++)
-		{
+for (y=0; y<s->height; y++) {
+	for (x=0; x<s->width; x++) {
 		if (s->Rpix[y][x] < rand() % 256)	r = 0;
 		else					r = uh;
 
@@ -195,35 +194,33 @@ return OLL_KORRECT;
  *
  *	subtle bug: uh _must_ be 255 ?
  */
-int
-Image_dither_simple_error(Image_Desc *s, Image_Desc *d, int uh)
+int Image_dither_simple_error(Image_Desc *s, Image_Desc *d, int uh)
 {
 int	x, y, xa, xb, inc, errR, errG, errB;
 int	r, g, b, dr, dg, db;
 int	foo;
 
-if ( (foo=Image_compare_desc(s, d)) )
-    {
-    fprintf(stderr, "dither simple error: images are differents %d\n", foo);
+#if DEBUG_LEVEL
+fprintf(stderr, ">>> %s ( %p %p %d )\n", __func__, s, d, uh);
+#endif
+
+if ( (foo=Image_compare_desc(s, d)) ) {
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
     return foo;
     }
 
-Image_clear(d, 0, 0, 0);
+if (s != d) Image_clear(d, 0, 0, 0);
 errR = errG = errB = 0;
 
-for (y=0; y<s->height; y++)
-	{
-	if (y & 1)
-		{
+for (y=0; y<s->height; y++) {
+	if (y & 1) {
 		xa = 0;		xb = s->width - 1;	inc = 1;
 		}
-	else
-		{
+	else	{
 		xa = s->width - 1;	xb = 0;		inc = -1;
 		}
 
-	for (x=xa; x!=xb; x+=inc)
-		{
+	for (x=xa; x!=xb; x+=inc) {
 		r = (s->Rpix[y])[x];
 		if ( (r + errR) > 127 )		dr = uh;
 		else				dr = 0;
@@ -253,26 +250,21 @@ return OLL_KORRECT;
  *	29 Jan 2002: may be I can buid a func for automagically
  *		computing of right values ?
  */
-int
-Image_dither_double_seuil(Image_Desc *s, Image_Desc *d, int sa, int sb, int uh)
+int Image_dither_double_seuil(Image_Desc *s, Image_Desc *d, int sa, int sb, int uh)
 {
 int	x, y, r, g, b, foo;
 
-if ( (foo=Image_compare_desc(s, d)) )
-    {
+if ( (foo=Image_compare_desc(s, d)) ) {
     fprintf(stderr, "dither double seuil: images are differents %d\n", foo);
     return foo;
     }
 
-if ( sa >= sb )
-	{
+if ( sa >= sb )	{
 	fprintf(stderr, "dither double seuil: lo %d > hi %d !\n", sa, sb);
 	}
 
-for (y=0; y<s->height; y++)
-	{
-	for (x=0; x<s->width; x++)
-		{
+for (y=0; y<s->height; y++) {
+	for (x=0; x<s->width; x++) {
 		r = (s->Rpix[y])[x];
 		if (r < sa)		r = 0;
 		else if (r > sb)	r = uh;

Lib/dither2.c

@@ -42,7 +42,7 @@ if ( (foo=Image_compare_desc(s, d)) )
 Image_TGA_save("/tmp/aaaa_debug_a.tga", s, 0);
 #endif
 
-Image_clear(d, 0, 0, 0);
+/* XXX Image_clear(d, 0, 0, 0); */
 
 for (y=0; y<s->height-3; y+=3)
 	{
@@ -108,7 +108,7 @@ if ( (foo=Image_compare_desc(s, d)) )
 fprintf(stderr, "* Image_dither_3x3_1 (%s) is experimental\n", __FILE__);
 #endif
 
-Image_clear(d, 0, 0, 0);
+/* XXX Image_clear(d, 0, 0, 0); */
 
 for (y=0; y<s->height-3; y+=3)
 	{
@@ -167,7 +167,7 @@ if ( (foo=Image_compare_desc(s, d)) )
     return foo;
     }
 
-Image_clear(d, 0, 0, 0);
+/* XXX Image_clear(d, 0, 0, 0); */
 
 return FUNC_NOT_FINISH;
 }
@@ -183,7 +183,7 @@ if ( (foo=Image_compare_desc(s, d)) )
     return foo;
     }
 
-Image_clear(d, 0, 0, 0);
+/* XXX Image_clear(d, 0, 0, 0); */
 
 return FUNC_NOT_FINISH;
 }

Lib/dither3.c

@@ -8,8 +8,7 @@
 #include  "../tthimage.h"
 
 /*::------------------------------------------------------------------::*/
-int
-Image_dither_atkinson(Image_Desc *s, Image_Desc *d, int uh)
+int Image_dither_atkinson(Image_Desc *s, Image_Desc *d, int uh)
 {
 int	x, y, r, g, b;
 int	foo, sr, sg, sb;
@@ -24,10 +23,8 @@ if ( (foo=Image_compare_desc(s, d)) )
 Image_clear(d, 0, 0, 0);
 r = g = b = sr = sg = sb = 0; 
 
-for (y=0; y<s->height; y++)
-	{
-	for (x=0; x<s->width; x++)
-		{
+for (y=0; y<s->height; y++) {
+	for (x=0; x<s->width; x++) {
 
 		}
 	}
@@ -35,3 +32,77 @@ for (y=0; y<s->height; y++)
 return FUNC_NOT_FINISH;
 }
 /*::------------------------------------------------------------------::*/
+/*::------------------------------------------------------------------::*/
+int Image_dither_4x4_0(Image_Desc *s, Image_Desc *d, int uh)
+{
+int	x, y, r, g, b;
+int	foo, sr, sg, sb;
+
+fprintf(stderr, "* Image_dither_4x4_0 (%s) is experimental\n", __FILE__);
+fprintf(stderr, "* Image_dither_4x4_0 le parametre est %d\n", uh);
+
+if ( (foo=Image_compare_desc(s, d)) ) {
+    fprintf(stderr, "dither 4x4 0: images are differents %d\n", foo);
+    return foo;
+    }
+
+Image_clear(d, 0, 0, 0);
+
+for (y=0; y<s->height; y++) {
+	for (x=0; x<s->width; x++) {
+
+		/*     XXX */
+
+		}
+	}
+
+return FUNC_NOT_FINISH;
+}
+/*::------------------------------------------------------------------::*/
+int Image_dither_bayer8x8rnd(Image_Desc *s, Image_Desc *d, int shuff, int mono)
+{
+uint16_t		matrice[16][16];
+int		foo, itmp, m, n;
+int		x, y, r, g, b, pix;
+
+fprintf(stderr, "%s ( %p %p %d %d )\n", __func__, s, d, shuff, mono);
+
+/* remplissage de la matrice */
+fprintf(stderr, "   init matrice\n");
+for(foo=0; foo<256; foo++) {
+	((uint16_t *)matrice)[foo] = foo;
+	}
+/* brasssage de la matrice */
+fprintf(stderr, "   shuffle matrice %d\n", shuff);
+for (foo=0; foo<shuff; foo++) {		/* magic number ? */
+	m = rand() & 0xff;
+	n = rand() & 0xff;
+	itmp = ((uint16_t *)matrice)[n];
+	((uint16_t *)matrice)[n] = ((uint16_t *)matrice)[m];
+	((uint16_t *)matrice)[m] = itmp;
+	}
+
+for (y=0; y<s->height; y++) {
+	for (x=0; x<s->width; x++) {
+		r = s->Rpix[y][x];
+		g = s->Gpix[y][x];
+		b = s->Bpix[y][x];
+		if (mono) {
+			pix = (r + g +b) / 3;
+			d->Rpix[y][x] = d->Gpix[y][x] = d->Bpix[y][x] = \
+					(pix > matrice[x%16][y%16]) * 255;
+			}
+		else	{
+			d->Rpix[y][x] =  (r > matrice[x%16][y%16]) * 255;
+			d->Gpix[y][x] =  (g > matrice[x%16][y%16]) * 255;
+			d->Bpix[y][x] =  (b > matrice[x%16][y%16]) * 255;
+			}
+		}
+	}
+
+fprintf(stderr, "   done\n");
+
+return FULL_NUCKED;
+}
+/*::------------------------------------------------------------------::*/
+

Lib/dither4.c

@@ -1,91 +0,0 @@
-/*
-		dither4.c
-		---------
-*/
-
-#include  <stdio.h>
-#include  <stdlib.h>
-#include  "../tthimage.h"
-
-/*::------------------------------------------------------------------::*/
-int
-Image_dither_4x4_0(Image_Desc *s, Image_Desc *d, int uh)
-{
-int	x, y, r, g, b;
-int	foo, sr, sg, sb;
-
-fprintf(stderr, "* Image_dither_4x4_0 (%s) is experimental\n", __FILE__);
-fprintf(stderr, "* Image_dither_4x4_0 le parametre est %d\n", uh);
-
-if ( (foo=Image_compare_desc(s, d)) )
-    {
-    fprintf(stderr, "dither 4x4 0: images are differents %d\n", foo);
-    return foo;
-    }
-
-Image_clear(d, 0, 0, 0);
-
-for (y=0; y<s->height; y++)
-	{
-	for (x=0; x<s->width; x++)
-		{
-
-		}
-	}
-
-return FUNC_NOT_FINISH;
-}
-/*::------------------------------------------------------------------::*/
-int
-Image_dither_bayer8x8rnd(Image_Desc *s, Image_Desc *d, int shuff, int mono)
-{
-uint16_t		matrice[16][16];
-int		foo, itmp, m, n;
-int		x, y, r, g, b, pix;
-
-fprintf(stderr, "%s ( %p %p %d %d )\n", __func__, s, d, shuff, mono);
-
-/* remplissage de la matrice */
-fprintf(stderr, "   init matrice\n");
-for(foo=0; foo<256; foo++)
-	{
-	((uint16_t *)matrice)[foo] = foo;
-	}
-/* brasssage de la matrice */
-fprintf(stderr, "   shuffle matrice %d\n", shuff);
-for (foo=0; foo<shuff; foo++)		/* magic number ? */
-	{
-	m = rand() & 0xff;
-	n = rand() & 0xff;
-	itmp = ((uint16_t *)matrice)[n];
-	((uint16_t *)matrice)[n] = ((uint16_t *)matrice)[m];
-	((uint16_t *)matrice)[m] = itmp;
-	}
-
-for (y=0; y<s->height; y++)
-	{
-	for (x=0; x<s->width; x++)
-		{
-		r = s->Rpix[y][x];
-		g = s->Gpix[y][x];
-		b = s->Bpix[y][x];
-		if (mono)
-			{
-			pix = (r + g +b) / 3;
-			d->Rpix[y][x] = d->Gpix[y][x] = d->Bpix[y][x] = \
-					(pix > matrice[x%16][y%16]) * 255;
-			}
-		else
-			{
-			d->Rpix[y][x] =  (r > matrice[x%16][y%16]) * 255;
-			d->Gpix[y][x] =  (g > matrice[x%16][y%16]) * 255;
-			d->Bpix[y][x] =  (b > matrice[x%16][y%16]) * 255;
-			}
-		}
-	}
-
-fprintf(stderr, "   done\n");
-
-return FULL_NUCKED;
-}
-/*::------------------------------------------------------------------::*/

Lib/drawalpha.c

@@ -0,0 +1,132 @@
+/*
+		primitives graphiques deuxieme module (circa 2002)
+		--------------------------------------------------
+
+*/
+
+#include  <stdio.h>
+#include  <unistd.h>
+#include  <stdlib.h>
+
+#include  "../tthimage.h"
+
+/*::------------------------------------------------------------------::*/
+#ifndef min
+#define min(a,b) ((a)<(b)?(a):(b))
+#define max(a,b) ((a)>(b)?(a):(b))
+#endif
+/*::------------------------------------------------------------------::*/
+/*
+ *	the easy one.
+ */
+int Image_paint_A_rect(Image_Desc *img, Image_Rect *rect, RGBA *rgba)
+{
+int	xd, yd, xf, yf, x, y;
+int	r, g, b, a0, a1, nbre;
+
+xd = max(0, rect->x);
+yd = max(0, rect->y);
+xf = min((img->width-1), (rect->x+rect->w));
+yf = min((img->height-1), (rect->y+rect->h));
+
+#if DEBUG_LEVEL
+fprintf(stderr, "Paint Alpha Rect: %d <X< %d   %d <Y< %d\n", xd, xf, yd, yf);
+Image_print_rgba("encre alpha", rgba, 0);
+#endif
+
+a0 = 255 - rgba->a;
+a1 = rgba->a;
+
+/* printf("a0 = %d    a1 = %d\n", a0, a1); */
+
+nbre = 0;
+
+for (x=xd; x<xf; x++) {
+	for (y=yd; y<yf; y++) {
+		Image_getRGB(img, x, y, &r, &g, &b);
+		/*
+		 * ok, compute now...
+		 */
+		r = ( r*a0 + rgba->r*a1 ) / 255;
+		g = ( g*a0 + rgba->g*a1 ) / 255;
+		b = ( b*a0 + rgba->b*a1 ) / 255;
+		Image_plotRGB(img, x, y, r, g, b);
+		nbre++;
+		}
+	}
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+/*
+ *	new 15 Janvier 2003.
+ *	premiere utilisation: l'ecriture des titres des 
+ *		image de l'expovsition.
+ */
+int Image_fade_A_rect(Image_Desc *img, Image_Rect *rect, int alpha)
+{
+int	xd, yd, xf, yf, x, y;
+int	r, g, b ;
+
+xd = max(0, rect->x);
+yd = max(0, rect->y);
+xf = min((img->width-1), (rect->x+rect->w));
+yf = min((img->height-1), (rect->y+rect->h));
+
+#if DEBUG_LEVEL
+fprintf(stderr, "Fade Alpha Rect:  %d < X < %d     %d < Y < %d\n",
+				xd, xf, yd, yf);
+fprintf(stderr, "  coefficient alpha = %d\n", alpha);
+#endif
+
+for (x=xd; x<xf; x++) {
+	for (y=yd; y<yf; y++) {
+		Image_getRGB(img, x, y, &r, &g, &b);
+		/*
+		 * ok, compute now...
+		 */
+		r = ( r*alpha ) / 255;
+		g = ( g*alpha ) / 255;
+		b = ( b*alpha ) / 255;
+		Image_plotRGB(img, x, y, r, g, b);
+		}
+	}
+
+return FUNC_IS_BETA;		/* need unit testing */
+}
+/*::------------------------------------------------------------------::*/
+/* nouveau vacances de fevrier 2010 */
+/*
+ * bon, une fonction pour tamponner une image quelconque avec une
+ * image alpha, il serait temps de la mettre en place, nom ?
+ */
+int Image_tampon_alpha_0(Image_Desc *src, Image_Desc *tampon, Image_Desc *dst)
+{
+int	x, y, rs, gs, bs, rt, gt, bt;
+int	rd, gd, bd, clean_tampon;
+
+clean_tampon = 0;
+/* if the 'tampon' is not defined, we have to imagine one */
+if (NULL==tampon) {
+	tampon = Image_clone(src, 0);
+	fprintf(stderr, "fake tampon @ %p\n", tampon);
+	Image_mirror(src, tampon, 0);
+	clean_tampon = 1;
+	}
+
+for (y=0; y<src->height; y++) {
+	for (x=0; x<src->width; x++) {
+		Image_getRGB(src, x, y, &rs, &gs, &bs);
+		Image_getRGB(tampon, x, y, &rt, &gt, &bt);
+		rd = (rs * rt) / 256;
+		}
+	}
+
+if (clean_tampon) {
+	fprintf(stderr, "clean %p in %s\n", tampon, __func__);
+	Image_DeAllocate(tampon);	free(tampon);
+	}
+
+return FUNC_IS_ALPHA;
+}
+/*::------------------------------------------------------------------::*/

Lib/drawing.c

@@ -14,8 +14,7 @@
 #define max(a,b) ((a)>(b)?(a):(b))
 #endif
 /*::------------------------------------------------------------------::*/
-static int
-iSign(int a)
+static int iSign(int a)
 {
 if (a<0)	return -1;
 if (a>0)	return 1;
@@ -35,9 +34,8 @@ Image_plotRGB(i, x+xc, y+yc, 100, 100, 100);
 fprintf(stderr, "sym %d %d\n", x, y);
 }
 
-/* le paramètre 'wrap' ne sert à rien */
-int
-Image_draw_circle(Image_Desc *i, int xc, int yc, int rayon, RGBA *q, int wrap)
+/* le parametre 'wrap' ne sert a rien */
+int Image_draw_circle(Image_Desc *i, int xc, int yc, int rayon, RGBA *q, int wrap)
 {
 int	x, y, d;
 
@@ -48,16 +46,13 @@ fprintf(stderr, "%s : centre %d %d, rayon %d\n", __func__, xc, yc, rayon);
 y = rayon;
 d = 3 - 2 * rayon;
 
-for ( x=0; x<y; )
-	{
+for ( x=0; x<y; ) {
 	symmetry(x, y, xc, yc, q, i);
 
-	if (d<0)
-		{
+	if (d<0) {
 		d += 4 * x + 6;
 		}
-	else
-		{
+	else	{
 		d += 4 * (y - x) * 10;
 		--y;
 		}
@@ -67,19 +62,35 @@ for ( x=0; x<y; )
 return FUNC_NOT_FINISH;
 }
 /*::------------------------------------------------------------------::*/
+/*		New Mon 19 Dec 2022 12:56:44 PM CET			*/
+int Image_H_line(Image_Desc *i, int xa, int xb, int ypos, RGBA *col)
+{
+int		ix;
+
+#if 1
+fprintf(stderr, ">>> %s ( %d %d  %d  %p )\n", __func__, xa, xb, ypos, col);
+#endif
+
+if (xa > xb)	{ ix=xa, xa=xb, xb=ix; }
+
+for (ix=xa; ix<xb; ix++) {
+	Image_plotRGB(i, ix, ypos, col->r, col->g, col->b);
+	}
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
 /*
  *	l'appel a la fonction isign devrait disparaitre pour optimiser
  *	la vitesse du bouzin.
  */
-int
-Image_draw_line(Image_Desc *i, int x1, int y1, int x2, int y2, RGBA *q)
+int Image_draw_line(Image_Desc *i, int x1, int y1, int x2, int y2, RGBA *q)
 {
 int	dx, dy, ix, iy, inc;
 int	foo, plotx, ploty, x, y;
 int	plot;
 
-#if DEBUG_LEVEL > 1
-printf("%s   %4d  %4d   ----->   %4d  %4d\n", __func__, x1, y1, x2, y2);
+#if DEBUG_LEVEL
+printf(">>> %s ( %p  %4d %4d   %4d %4d\n", __func__, i, x1, y1, x2, y2);
 #endif
 
 dx = x2 - x1;		dy = y2 - y1;
@@ -94,39 +105,33 @@ plotx = x1;
 ploty = y1;
 x = y = 0;
 
-for (foo=0; foo<=inc; ++foo)
-	{
+for (foo=0; foo<=inc; ++foo) {
 	x += ix;
 	y += iy;
 	plot = 0;
-	if (x > inc)
-		{
+	if (x > inc) {
 		plot = 42;
 		x -= inc;
 		plotx += iSign(dx);
 		}
-	if (y > inc)
-		{
+	if (y > inc) {
 		plot = 42;
 		y -= inc;
 		ploty += iSign(dy);
 		}
-	if (plot)
-		{
+	if (plot) {
 		/* printf("%5d %5d %5d\n", foo, plotx, ploty ); */
 		Image_plotRGB(i, plotx, ploty, q->r, q->g, q->b);
 		}
-
 	}
 return 0;
 }
 /*::------------------------------------------------------------------::*/
 /*
- *	XXX si je veux remplacer 'plotRGB' par un accès direct
+ *	XXX si je veux remplacer 'plotRGB' par un acces direct
  *	XXX dans les buffers, il faut soigner les controles
  */
-int
-Image_paint_rect(Image_Desc *img, Image_Rect *rect, int r, int g, int b)
+int Image_paint_rect(Image_Desc *img, Image_Rect *rect, int r, int g, int b)
 {
 int	xd, yd, xf, yf, x, y;
 
@@ -140,9 +145,10 @@ yd = max(0, rect->y);
 xf = min((img->width), (rect->x+rect->w));
 yf = min((img->height), (rect->y+rect->h));
 /* 
- *  24 Juin 2002: est-ce que le code ci-dessus a été sérieusement validé ?
+ *  24 Juin 2002: est-ce que le code ci-dessus est vraiment valide ?
  *  24 Avril 2008: NON !
  *  26 janvier 2014 : toujours non...
+ *  19 septembre 2022 : je n'ai pas de certitude a ce sujet
  */
 
 #if DEBUG_LEVEL > 2
@@ -150,10 +156,8 @@ fprintf(stderr, "Paint Rect:   %4d < X < %4d      %4d < Y < %4d\n",
 				xd, xf,		yd, yf);
 #endif
 
-for (x=xd; x<xf; x++)
-	{
-	for (y=yd; y<yf; y++)
-		{
+for (x=xd; x<xf; x++) {
+	for (y=yd; y<yf; y++) {
 		/* Image_plotRGB(img, x, y, r, g, b); */
 		(img->Rpix[y])[x] = r;
 		(img->Gpix[y])[x] = g;
@@ -167,9 +171,12 @@ return 0;
 /*
  *	27 Juin 2001: there was an off-by-one error in this func...
  *	See also 'drawpatt.c' for others things.
+
+	###
+	###   THERE IS A OFF-BY-ONE IN THIS FUNCTION !
+	###
  */
-int
-Image_draw_rect(Image_Desc *img, Image_Rect *rect, int r, int g, int b)
+int Image_draw_rect(Image_Desc *img, Image_Rect *rect, int r, int g, int b)
 {
 int	foo;
 int	xd, yd, xf, yf;
@@ -185,16 +192,14 @@ fprintf(stderr, "Draw a Rect:   xd:%4d  yd:%4d      xf:%4d  yf:%4d\n",
 				xd, yd,		 xf, yf);
 #endif
 
-for (foo=xd; foo<xf; foo++)
-	{
+for (foo=xd; foo<xf; foo++) {
 	/* if ( (rect->y >= 0) && (rect->y < img->height) ) */
 		Image_plotRGB(img, foo, rect->y, r, g, b);
 	/* if ( (rect->y+rect->h >= 0) && (rect->y+rect->h < img->height) ) */
 		Image_plotRGB(img, foo, rect->y+rect->h-1, r, g, b);
 	}
 
-for (foo=yd; foo<yf; foo++)
-	{
+for (foo=yd; foo<yf; foo++) {
 	/* if ( (rect->x >= 0) && (rect->x < img->width) ) */
 		Image_plotRGB(img, rect->x, foo, r, g, b);
 	/* if ( (rect->x+rect->w >= 0) && (rect->x+rect->w < img->width) ) */
@@ -205,8 +210,7 @@ return 0;
 }
 /*::------------------------------------------------------------------::*/
 /* new 10 octobre 2008 - zone de Monredon (Betatech) */
-int
-Image_noise_rect(Image_Desc *img, Image_Rect *rect, int r, int g, int b)
+int Image_noise_rect(Image_Desc *img, Image_Rect *rect, int r, int g, int b)
 {
 int	xd, yd, xf, yf, x, y;
 
@@ -221,10 +225,8 @@ yf = min((img->height-1), (rect->y+rect->h));
 fprintf(stderr, "%s:   %d %d %d %d\n", __func__, xd, yd, xf, yf);
 #endif
 
-for (x=xd; x<xf; x++)
-	{
-	for (y=yd; y<yf; y++)
-		{
+for (x=xd; x<xf; x++) {
+	for (y=yd; y<yf; y++) {
 		(img->Rpix[y])[x] = rand() % r;
 		(img->Gpix[y])[x] = rand() % g;
 		(img->Bpix[y])[x] = rand() % b;
@@ -237,4 +239,3 @@ return FUNC_IS_BETA;
 /* 
  * kikoo lol a tous les goret-codeurs, et en particulier Mr Spleyt.
  */
-

Lib/drawpatt.c

@@ -0,0 +1,61 @@
+/*
+ *	DRAWPATT.C
+ *	==========
+ *
+ *	new 1st July 2003
+ *
+ */
+
+#include  <stdio.h>
+#include  <stdlib.h>
+
+#include  "../tthimage.h"
+
+/*::------------------------------------------------------------------::*/
+/*
+ *	ATTENTION CETTE FONCTION COREDUMPE SI LE RECTANGLE 
+ *	DEPASSE SUR UN BORD DE L'IMAGE !!!
+ */
+int
+Image_draw_rect_from_patt(Image_Desc *img, Image_Rect *rect, Image_Desc *patt)
+{
+int	x, y, xp, yp, xm, ym;
+int	r, g, b;
+
+#if DEBUG_LEVEL
+fprintf(stderr, ">>>> %s\n", __func__);
+#endif
+
+if ( patt == NULL )
+	{
+	fprintf(stderr, "Badaboum!\n");
+	exit(5);
+	}
+
+for (x=0; x<rect->w; x++)
+	{
+	xp = x % patt->width;
+	if (xp > img->width)
+		{
+		continue;
+		}
+
+	for (y=0; y<rect->h; y++)
+		{
+		yp = y % patt->height;
+		if (yp > img->height)
+			{
+			continue;
+			}
+		Image_getRGB(patt, xp, yp, &r, &g, &b);
+		Image_plotRGB(img, x+rect->x, y+rect->y, r, g, b);
+		}
+	}
+
+return FUNC_NOT_FINISH;
+}
+/*
+ *	ATTENTION CETTE FONCTION COREDUMPE SI LE RECTANGLE 
+ *	DEPASSE SUR UN BORD DE L'IMAGE !!!
+ */
+/*::------------------------------------------------------------------::*/

Lib/effects.c

@@ -32,20 +32,17 @@ int     x, y, nx, ny, r, g, b, foo;
 int	 retry;
 #endif
 
-if ( (foo=Image_compare_desc(source, but)) )
-    {
+if ( (foo=Image_compare_desc(source, but)) ) {
     fprintf(stderr, "%s : images are differents %d\n", __func__, foo);
     return foo;
     }
 
-if (intensite < 1)
-    {
+if (intensite < 1) {
     fprintf(stderr, "%s : bad intensity %d\n", __func__, intensite);
     intensite = 1;
     }
 
-if (source == but)
-    {
+if (source == but) {
     fprintf(stderr, "%s : Source & Target are the same image, bad effect expected...\n", __func__ );
     }
 
@@ -53,13 +50,10 @@ if (source == but)
 retry = 0;
 #endif
 
-for (x=0; x<source->width; x++)
-    {
-    for (y=0; y<source->height; y++)
-        {
+for (x=0; x<source->width; x++) {
+    for (y=0; y<source->height; y++) {
 	foo = -1;
-	do
-	    {
+	do  {
       	    nx = x+(rand()%intensite)-(intensite/2);
             ny = y+(rand()%intensite)-(intensite/2);
 	    foo++;
@@ -100,22 +94,18 @@ Image_noise(Image_Desc *source, Image_Desc *but, int intensite)
 {
 int     x, y, r, g, b, foo;
 
-if ( (foo=Image_compare_desc(source, but)) )
-    {
-    fprintf(stderr, "%s : images are differents %d\n", __func__,  foo);
-    return foo;
-    }
+if ( (foo=Image_compare_desc(source, but)) ) {
+	fprintf(stderr, "%s : images are differents %d\n", __func__,  foo);
+	return foo;
+	}
 
-if (intensite < 1)
-    {
-    fprintf(stderr, "%s : bad intensity %d\n", __func__, intensite);
-    intensite = 1;
-    }
+if (intensite < 1) {
+	fprintf(stderr, "%s : bad intensity %d\n", __func__, intensite);
+	intensite = 1;
+	}
 
-for (x=0; x<source->width; x++)
-    {
-    for (y=0; y<source->height; y++)
-        {
+for (x=0; x<source->width; x++) {
+    for (y=0; y<source->height; y++) {
         r = Image_clamp_pixel((source->Rpix[y])[x]
                               + (rand()%intensite) - (intensite/2));
         g = Image_clamp_pixel((source->Gpix[y])[x]
@@ -139,54 +129,46 @@ return OLL_KORRECT;
 	j'ai rapidement besoin de cette fonction alors je code
 	a la rache :-[  (on appelle aussi c,a le codage 123momo)
  */
-int
-Image_mirror(Image_Desc *src, Image_Desc *dst, int reserved)
+int Image_mirror(Image_Desc *src, Image_Desc *dst, int reserved)
 {
 register int	x;
 uint8_t		*buffer;
 int		foo, largeur, y;
 
 if (reserved != 0)
-	fprintf(stderr, "Image_Mirror: reserved must be zero !\n");
+	fprintf(stderr, "%s: reserved must be zero !\n", __func__);
 
-if ( (foo=Image_compare_desc(src, dst)) )
-    {
-    fprintf(stderr, "Image_Mirror: images are differents %d\n", foo);
+if ( (foo=Image_compare_desc(src, dst)) ) {
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
     return foo;
     }
 largeur = src->width;
 
-if ((buffer = (uint8_t *)malloc(largeur)) == NULL)
-	{
-	fprintf(stderr, "Image_Mirror: no memory for buffer");
+if ((buffer = (uint8_t *)malloc(largeur)) == NULL) {
+	fprintf(stderr, "%s: no memory for buffer\n", __func__);
 	return BUFFER_NO_MEM;
 	}
 
-for (y=0; y<src->height; y++)
-	{
-	if (src->Rpix != NULL)
-		{
+for (y=0; y<src->height; y++) {
+	if (src->Rpix != NULL) {
 		for (x=0; x<largeur; x++)
 			buffer[x] = (src->Rpix[y])[x];
 		for (x=0; x<largeur; x++)
 			(dst->Rpix[y])[x] = buffer[largeur-x-1];
 		}
-	if (src->Gpix != NULL)
-		{
+	if (src->Gpix != NULL) {
 		for (x=0; x<largeur; x++)
 			buffer[x] = (src->Gpix[y])[x];
 		for (x=0; x<largeur; x++)
 			(dst->Gpix[y])[x] = buffer[largeur-x-1];
 		}
-	if (src->Bpix != NULL)
-		{
+	if (src->Bpix != NULL) {
 		for (x=0; x<largeur; x++)
 			buffer[x] = (src->Bpix[y])[x];
 		for (x=0; x<largeur; x++)
 			(dst->Bpix[y])[x] = buffer[largeur-x-1];
 		}
-	if (src->Apix != NULL)
-		{
+	if (src->Apix != NULL) {
 		for (x=0; x<largeur; x++)
 			buffer[x] = (src->Apix[y])[x];
 		for (x=0; x<largeur; x++)
@@ -206,19 +188,16 @@ Image_upside_down(Image_Desc *src, Image_Desc *dst, int reserved)
 {
 int		foo, y;
 
-if ( (foo=Image_compare_desc(src, dst)) )
-    {
-    fprintf(stderr, "Image_UpsideDown: images are differents %d\n", foo);
+if ( (foo=Image_compare_desc(src, dst)) ) {
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
     return foo;
     }
 
-if (0 != reserved)
-	{
+if (0 != reserved) {
 	fprintf(stderr, "%s gni ?\n", __func__);
 	}
 
-for (y=0; y<src->height; y++)
-	{
+for (y=0; y<src->height; y++) {
         memcpy(dst->Rpix[y], src->Rpix[src->height-(y+1)], src->width);
         memcpy(dst->Gpix[y], src->Gpix[src->height-(y+1)], src->width);
         memcpy(dst->Bpix[y], src->Bpix[src->height-(y+1)], src->width);
@@ -244,8 +223,7 @@ fprintf(stderr, "Scratching %ld times %p to %p\n", nombre, source, but);
 
 Image_copy(source, but);
 
-while (nombre--)
-    {
+while (nombre--) {
     xs = rand() % source->width;
     ys = rand() % source->height;
     xd = rand() % source->width;
@@ -265,21 +243,18 @@ Image_swap_lines( Image_Desc *src, Image_Desc * dst )
 {
 int	foo, line;
 
-if (src == dst)
-    {
-    fprintf(stderr, "Image swap lines: SRC & DST must be different\n");
+if (src == dst) {
+    fprintf(stderr, "%s: SRC & DST must be different\n", __func__);
     return IMG_OVERWRITE;
     }
 
-if ( (foo=Image_compare_desc(src, dst)) )
-    {
-    fprintf(stderr, "Image swap lines: images have differents sizes. %d\n",
-								foo);
+if ( (foo=Image_compare_desc(src, dst)) ) {
+    fprintf(stderr, "%s: images have differents sizes. %d\n",
+			__func__,			foo);
     return foo;
     }
 
-for (line=0; line<(src->height-1); line+=2)
-	{
+for (line=0; line<(src->height-1); line+=2) {
         memcpy(dst->Rpix[line+1], src->Rpix[line], src->width);
         memcpy(dst->Rpix[line], src->Rpix[line+1], src->width);
         memcpy(dst->Gpix[line+1], src->Gpix[line], src->width);
@@ -298,15 +273,13 @@ Image_swap_cols( Image_Desc *src, Image_Desc * dst )
 {
 int	foo, line, col, tmp, wmax;
 
-if (src == dst)
-    {
-    fprintf(stderr, "Image_SwapCols: SRC & DST must be different\n");
+if (src == dst) {
+    fprintf(stderr, "%s: SRC & DST must be different\n", __func__);
     return IMG_OVERWRITE;
     }
 
-if ( (foo=Image_compare_desc(src, dst)) )
-    {
-    fprintf(stderr, "Image_SwapCols: images are differents %d\n", foo);
+if ( (foo=Image_compare_desc(src, dst)) ) {
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
     return foo;
     }
 
@@ -316,10 +289,8 @@ else
 	wmax = src->width;
 fprintf(stderr, "swap cols %d %d\n", src->width, wmax);
 
-for (line=0; line<src->height; line++)
-    {
-    for (col=0; col<wmax; col+=2)
-	{
+for (line=0; line<src->height; line++) {
+    for (col=0; col<wmax; col+=2) {
 	tmp			= src->Rpix[line][col];
 	dst->Rpix[line][col]  	= src->Rpix[line][col+1];
 	dst->Rpix[line][col+1]	= tmp;
@@ -347,16 +318,13 @@ Image_swap_nibbles( Image_Desc *src, Image_Desc * dst )
 int	foo;
 int	x, y;
 
-if ( (foo=Image_compare_desc(src, dst)) )
-    {
+if ( (foo=Image_compare_desc(src, dst)) ) {
     fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
     return foo;
     }
 
-for (x=0; x<src->width; x++)
-    {
-    for (y=0; y<src->height; y++)
-	{
+for (x=0; x<src->width; x++) {
+    for (y=0; y<src->height; y++) {
 	dst->Rpix[y][x] = ((src->Rpix[y][x] & 0xf0) >> 4) |
 			  ((src->Rpix[y][x] & 0x0f) << 4);
 

Lib/effects2.c

@@ -19,8 +19,7 @@
  *	la parametre 'table' est un tableau de 6 double. d'accord, 
  *	mais quel est donc son contenu ?
  */
-int
-Image_sinwave_0( Image_Desc *source, Image_Desc * but, double *table )
+int Image_sinwave_0( Image_Desc *source, Image_Desc * but, double *table )
 {
 #if DEBUG_LEVEL > 1
 int	foo;
@@ -41,18 +40,15 @@ for (foo=0; foo<6; foo++)
 cx = (2.0 * M_PI) / (double)source->width;
 cy = (2.0 * M_PI) / (double)source->height;
 
-for (x=0; x<source->width; x++)
-    {
+for (x=0; x<source->width; x++) {
     fx = (double)x + (table[1] * sin(table[4] + (cx * table[0] * (double)x)));
     xb = floor(fx + 0.5);
 
-    for (y=0; y<source->height; y++)
-        {
+    for (y=0; y<source->height; y++) {
         fy = (double)y + (table[3] * sin(table[5] + cy * table[2] * (double)y));
         yb = floor(fy + 0.5);
 
-        if ( xb>0 && yb>0 && xb<but->width && yb<but->height )
-            {
+        if ( xb>0 && yb>0 && xb<but->width && yb<but->height ) {
             r = (source->Rpix[yb])[xb];
             g = (source->Gpix[yb])[xb];
             b = (source->Bpix[yb])[xb];
@@ -61,11 +57,7 @@ for (x=0; x<source->width; x++)
 	    (but->Gpix[y])[x] = g;
 	    (but->Bpix[y])[x] = b;
             }
-        else
-            {
-            outside++;
-            /* ??? foo = Image_plotRGB(but, x, y, 0, 0, 0); */
-            }
+        else { outside++; }
         }
     }
 
@@ -85,8 +77,7 @@ return OLL_KORRECT;
  *	Les parametres sont en deux groupes de 3 dans la table.
  *	mais franchement, j'arrive plus a savoir a quoi ils servent.
  */
-int
-Image_sinwave_1( Image_Desc *source, Image_Desc * but, double *table )
+int Image_sinwave_1( Image_Desc *source, Image_Desc * but, double *table )
 {
 int		foo, x, y, xb, yb, r, g, b;
 long		outside = 0;
@@ -191,17 +182,16 @@ int Image_degouline_0(Image_Desc *source, Image_Desc *but, int k1, int k2)
 int		x, y;
 int		foo;
 
+#if DEBUG_LEVEL
+fprintf(stderr, ">> %s ( %p %p  %d %d )\n", __func__, source, but, k1, k2);
+#endif
 fprintf(stderr, "Degouline %d %d\n", k1, k2);
 
 if ( (foo=Image_compare_desc(source, but)) ) {
-    fprintf(stderr, "Image Degouline 2: images are differents %d\n", foo);
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
     return foo;
     }
 
-#if DEBUG_LEVEL
-fprintf(stderr, "%s ( %p %p  %d %d )\n", __func__, source, but, k1, k2);
-#endif
-
 for (x=0; x<source->width; x++)
 	{
 

Lib/effects3.c

@@ -1,7 +1,7 @@
 /*
 		+---------------------------------------+
 		|    Effets speciaux sur les images	|
-		|          troisième module		|
+		|          troisieme module		|
 		+---------------------------------------+
 			Thierry Boudet <oulala@chez.com>
 */
@@ -20,29 +20,28 @@
  *	11 Fev 2003: que vais-je mettre ici ?
  *	 5 avr 2007: je commence a en avoir une idee plus precise.
  */
-int
-Image_effect_x_0(Image_Desc *src, Image_Desc *dst, int kr, int kg, int kb)
+int Image_effect_x_0(Image_Desc *src, Image_Desc *dst, int kr, int kg, int kb)
 {
 int	foo, x, y, r, g, b;
 int	cr, cg, cb;
 
-if ( (foo=Image_compare_desc(src, dst)) )
-    {
-    fprintf(stderr, "Image effect x 0: images are differents %d\n", foo);
-    return foo;
-    }
-
 #if DEBUG_LEVEL
 fprintf(stderr, "*** Effect X_0: coeffs:  %d  %d  %d\n", kr, kg, kb);
 #endif
 
-cr = cg = cb = 0;
+if ( (foo=Image_compare_desc(src, dst)) ) {
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
+    return foo;
+    }
 
-for (y=0; y<dst->height; y++)
-	{
-	for (x=0; x<dst->width; x++)
-		{
-		Image_getRGB(src, x, y, &r, &g, &b);
+cr = cg = cb = 0;		/* raz des compteurs */
+
+for (y=0; y<dst->height; y++) {
+	for (x=0; x<dst->width; x++) {
+		/* Image_getRGB(src, x, y, &r, &g, &b); */
+		r = src->Rpix[y][x];
+		g = src->Gpix[y][x];
+		b = src->Bpix[y][x];
 		if (r > kr) {
 			foo = g;	g = b;	b = foo;
 			cr ++;
@@ -55,39 +54,38 @@ for (y=0; y<dst->height; y++)
 			foo = g;	g = r;	r = foo;
 			cb ++;
 			}
-		Image_plotRGB(dst, x, y, r, g, b);
+		/*  Image_plotRGB(dst, x, y, r, g, b); */
+		dst->Rpix[y][x] = r;
+		dst->Gpix[y][x] = g;
+		dst->Bpix[y][x] = b;
 		}
 	}
 
-fprintf(stderr, "* %s : counts:  %d  %d  %d\n", __func__, cr, cg, cb);
+/* fprintf(stderr, "* %s : counts:  %d  %d  %d\n", __func__, cr, cg, cb); */
 
-return FUNC_IS_ALPHA;
+return FUNC_IS_BETA;
 }
 /*::------------------------------------------------------------------::*/
 /*	2 fevrier 2003: je fait du n'importe quoi, la...		*/
 /*
  * 3 avril 2007: je me rend compte que les parametres ne servent a rien.
  */
-int
-Image_effect_x_1(Image_Desc *src, Image_Desc *dst)
+int Image_effect_x_1(Image_Desc *src, Image_Desc *dst)
 {
 int	foo, x, y, r, g, b;
 
-if ( (foo=Image_compare_desc(src, dst)) )
-    {
-    fprintf(stderr, "Image effect x 1: images are differents %d\n", foo);
+if ( (foo=Image_compare_desc(src, dst)) ) {
+    fprintf(stderr, "I%s: images are differents %d\n", __func__, foo);
     return foo;
     }
 
-for (y=0; y<dst->height; y++)
-	{
-	for (x=0; x<dst->width; x++)
-		{
+for (y=0; y<dst->height; y++) {
+	for (x=0; x<dst->width; x++) {
 		r = src->Rpix[y][x];
 		g = src->Gpix[y][x];
 		b = src->Bpix[y][x];
 
-		/* 2 fevrier 2003: je fait du n'importe quoi, là... */
+		/* 2 fevrier 2003: je fait du n'importe quoi, la... */
 		dst->Rpix[y][x] = g^b;
 		dst->Gpix[y][x] = r^b;
 		dst->Bpix[y][x] = r^g;
@@ -98,25 +96,23 @@ return FUNC_IS_BETA;
 }
 /*::------------------------------------------------------------------::*/
 /*
- *	1er Février 2003: encore une autre expérimentation, qui va être
- *	basée sur la trigonométrie.
+ *	1er Fevrier 2003: encore une autre experimentation, qui va etre
+ *	basee sur la trigonometrie.
  */
-int
-Image_effect_x_2(Image_Desc *src, Image_Desc *dst, int kx, int ky, int kv)
+int Image_effect_x_2(Image_Desc *src, Image_Desc *dst, int kx, int ky, int kv)
 {
 int	foo, x, y, r, g, b;
 double	dr, dg, db, ar, ag, ab;
 
-if ( (foo=Image_compare_desc(src, dst)) )
-    {
-    fprintf(stderr, "Image effect x 2: images are differents %d\n", foo);
+if ( (foo=Image_compare_desc(src, dst)) ) {
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
     return foo;
     }
 
-for (y=0; y<dst->height; y++)
-	{
-	for (x=0; x<dst->width; x++)
-		{
+/* a vrai dire, je ne comprend pas ou caser kx, ky et kz */
+
+for (y=0; y<dst->height; y++) {
+	for (x=0; x<dst->width; x++) {
 		r = src->Rpix[y][x];
 		g = src->Gpix[y][x];
 		b = src->Bpix[y][x];
@@ -137,7 +133,7 @@ for (y=0; y<dst->height; y++)
 		ab = atan2(dr, dg);
 
 		/*
-		 * et là, il y a des soucis d'echelle :)
+		 * et la il y a des soucis d'echelle :)
 		 * 15 mars 2005: pourquoi 156 ? (XXX) 
 		 */
 		r = (int)(ar * 156.0);
@@ -156,31 +152,29 @@ return FUNC_IS_BETA;
 /*
  *	30 Jan 2003: hop, j'improvise pendant que les patates cuisent :)
  *	 4 Fev 2003: et je peaufine pendant que le poulet mijote :)
- *      27 Oct 2003: je debugge pendant que le thé infuse :)
+ *      27 Oct 2003: je debugge pendant que le the infuse :)
  *      16 Mai 2005: je commence a ecrire la documentation.
  *     29 sept 2015: je devrais finir la doc d'ici 2 ans.
+ *     19 aout 2022: je comprend pas ce que c'est cense faire :)
  *
  */
-int
-Image_effect_x_3(Image_Desc *src, Image_Desc *dst, int kx, int ky, char *comp)
+int Image_effect_x_3(Image_Desc *src, Image_Desc *dst, int kx, int ky, char *comp)
 {
 int	foo, sx, sy;
 int	x, y, r, g, b;
 int	cx, cy, dx, dy;
 
-if ( (foo=Image_compare_desc(src, dst)) )
-    {
-    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
-    return foo;
-    }
-
 #if DEBUG_LEVEL
 fprintf(stderr, "%s :   kx %d ky %d   comp '%s'\n", __func__, kx, ky, comp);
 #endif
 
-if (strlen(comp) != 2)
-	{
-	fprintf(stderr, "eff x3: bad comp parameter '%s'\n", comp);
+if ( (foo=Image_compare_desc(src, dst)) ) {
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
+    return foo;
+    }
+
+if (strlen(comp) != 2) {
+	fprintf(stderr, "%s: bad comp parameter '%s'\n", __func__, comp);
 	fprintf(stderr, "  must be a 2 chars string, from 'rgb'\n");
 	return INVALID_PARAM;
 	}
@@ -194,25 +188,22 @@ sx = sy = 0;
 
 /*
  *	ici il faudrait une validation des deux lettres, mais j'ai la
- *	flemme d'écrire ça maintenant. je vais plutôt aller boofer.
+ *	flemme d'ecrire ce genre de chos maintenant.
+ *	Je vais plutot aller boofer.
  */
 
-for (y=0; y<dst->height; y++)
-	{
-	for (x=0; x<dst->width; x++)
-		{
+for (y=0; y<dst->height; y++) {
+	for (x=0; x<dst->width; x++) {
 		r = src->Rpix[y][x];
 		g = src->Gpix[y][x];
 		b = src->Bpix[y][x];
 
-		switch(cx)
-			{
+		switch(cx) {
 			case 'r':	dx = r;		break;
 			case 'g':	dx = g;		break;
 			case 'b':	dx = b;		break;
 			}
-		switch(cy)
-			{
+		switch(cy) {
 			case 'r':	dy = r;		break;
 			case 'g':	dy = g;		break;
 			case 'b':	dy = b;		break;
@@ -222,15 +213,13 @@ for (y=0; y<dst->height; y++)
 		sy = y + ((ky * (dy-128)) / 100);
 
 		if (	sx >= 0 && sx < dst->width &&
-			sy >= 0 && sy < dst->height	)
-			{
+			sy >= 0 && sy < dst->height  ) {
 			r = src->Rpix[sy][sx];
 			g = src->Gpix[sy][sx];
 			b = src->Bpix[sy][sx];
 			Image_plotRGB(dst, x, y, r, g, b);
 			}
-		else
-			{
+		else {
 			Image_plotRGB(dst, x, y, r, r, r);
 			}
 		/* 
@@ -242,8 +231,7 @@ for (y=0; y<dst->height; y++)
 return FUNC_IS_ALPHA;
 }
 /*::------------------------------------------------------------------::*/
-int
-Image_effect_x_4(Image_Desc *src, Image_Desc *dst, int flags)
+int Image_effect_x_4(Image_Desc *src, Image_Desc *dst, int flags)
 {
 int		foo;
 int		x, y;
@@ -253,16 +241,13 @@ int		r, g, b, r2, g2, b2;
 fprintf(stderr, "*** effect x4 is not ready for prime time ***\n");
 #endif
 
-if ( (foo=Image_compare_desc(src, dst)) )
-    {
-    fprintf(stderr, "Image effect x 4: images are differents %d\n", foo);
+if ( (foo=Image_compare_desc(src, dst)) ) {
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
     return foo;
     }
 
-for (y=0; y<src->height; y++)
-	{
-	for (x=0; x<src->width; x++)
-		{
+for (y=0; y<src->height; y++) {
+	for (x=0; x<src->width; x++) {
 		r = src->Rpix[y][x];
 		g = src->Gpix[y][x];
 		b = src->Bpix[y][x];
@@ -289,8 +274,8 @@ return FUNC_IS_BETA;
 /* 22 avril 2007: je vais essayer d'inventer un nouveau truc, mais il
  * faudrait que les gosses arretent de ma casser les oreilles avec leur
  * machine a batailles. putain de gamecube... */
-int
-Image_effect_x_5(Image_Desc *src, Image_Desc *dst, int kx, int ky, int kz)
+/* 23 aout 2022 : j'ai bien envie d'une SNES et d'un Trinitron */
+int Image_effect_x_5(Image_Desc *src, Image_Desc *dst, int kx, int ky, int kz)
 {
 int	foo, sx, sy;
 int	x, y, r, g, b;
@@ -299,20 +284,17 @@ double	dr, dg, db, dr2, dg2, db2;
 
 fprintf(stderr, "*** effect x5 is not ready for prime time ***\n");
 #if DEBUG_LEVEL
-fprintf(stderr, "%s ( %p %p  %d %d %d )\n", __func__, src, dst,
+fprintf(stderr, ">>> %s ( %p %p  %d %d %d )\n", __func__, src, dst,
 				kx, ky, kz);
 #endif
 
-if ( (foo=Image_compare_desc(src, dst)) )
-    {
+if ( (foo=Image_compare_desc(src, dst)) ) {
     fprintf(stderr, "Image effect x 5: images are differents %d\n", foo);
     return foo;
     }
 
-for (y=0; y<src->height; y++)
-	{
-	for (x=0; x<src->width; x++)
-		{
+for (y=0; y<src->height; y++) {
+	for (x=0; x<src->width; x++) {
 		r = src->Rpix[y][x];
 		g = src->Gpix[y][x];
 		b = src->Bpix[y][x];
@@ -326,8 +308,7 @@ for (y=0; y<src->height; y++)
 		g2 = (int)(dg2 * 255.0);
 		b2 = (int)(db2 * 255.0);
 #if DEBUG_LEVEL
-		if (x==42 && y==42)
-			{
+		if (x==42 && y==42) {
 			printf("{{{ pixels %3d %3d %3d }}}\n", r, g, b);
 			printf("{{{ result %3d %3d %3d }}}\n", r2, g2, b2);
 			}

Lib/equalhist.c

@@ -0,0 +1,15 @@
+/*
+ *	Egalisation par cumul d'histogramme
+ *	===================================
+ *
+ * new: Sat Aug 10 14:38:01 UTC 2024, aux Bourtoulots
+ */
+
+
+#include  <stdio.h>
+#include  <math.h>
+#include  "../tthimage.h"
+
+
+/*::------------------------------------------------------------------::*/
+

Lib/essais.c

@@ -17,6 +17,50 @@
 #include  "../tthimage.h"
 #include  "essais.h"
 
+/*		==============================				*/
+int essai_draw_paint_rect(char *outga)
+{
+Image_Desc		*img;
+Image_Rect		rect;
+int			foo, x, y;
+
+fprintf(stderr, ">>> %s ( '%s' )\n", __func__, outga);
+
+rect.x = 8;		rect.y = 8;
+rect.w = 6;		rect.h = 6;
+
+if (NULL==(img=Image_alloc(64, 32, 3))) {
+	abort();
+	}
+
+for (x=0; x<img->width; x+=2) {
+	for (y=0; y<img->height; y+=2) {
+		Image_plotRGB(img, x, y, 200, 200, 200);
+		}
+	}
+
+foo = Image_draw_rect(img, &rect, 192, 128, 64);
+if (foo) {
+	fprintf(stderr, "%s: err %d draw rect\n", __func__, foo);
+	return foo;
+	}
+
+rect.x = 24;
+foo = Image_paint_rect(img, &rect, 64, 128, 192);
+if (foo) {
+	fprintf(stderr, "%s: err %d paint rect\n", __func__, foo);
+	return foo;
+	}
+
+foo = Image_TGA_save(outga, img, 0);
+if (foo) {
+	fprintf(stderr, "%s: err %d save '%s'\n", __func__, foo, outga);
+	return foo;
+	}
+
+return OLL_KORRECT;
+}
+
 /*::------------------------------------------------------------------::*/
 /* nouveau vacances de fevrier 2010 */
 int Essayer_les_alphas(char *fname, int k)
@@ -37,7 +81,7 @@ if (NULL==(dst=Image_clone(src, 0))) {
 	}
 
 foo = Image_tampon_alpha_0(src, NULL, dst);
-if (foo) Image_print_error(__func__, foo);
+if (foo) Image_print_error(fname, foo);
 
 Image_TGA_save("Pictures/aaaa-tampon.tga", dst, 0);
 
@@ -101,7 +145,7 @@ Image_TGA_save("Pictures/aaaa-luminance-128.tga", dst, 0);
 foo = Image_luminance(src, dst, 200);
 Image_TGA_save("Pictures/aaaa-luminance-200.tga", dst, 0);
 foo = Image_luminance(src, dst, 500);
-if (foo) Image_print_error(__func__, foo);
+if (foo) Image_print_error((char *)__func__, foo);
 
 Image_TGA_save("Pictures/aaaa-luminance-500.tga", dst, 0);
 
@@ -172,18 +216,17 @@ if (NULL==(src=Image_TGA_alloc_load(srcname))) {
 	}
 /* on va creer le receptacle des horreurs */
 if (NULL==(dst=Image_clone(src, 0))) {
+	fprintf(stderr, "%s: err clone\n", __func__);
 	exit(5);
 	}
 
 /* ah bravo ! enfin un test unitaire appelable
  * depuis le test unitaire */
-for (idx=0; idx<20; idx++)
-	{
+for (idx=0; idx<20; idx++) {
 	foo = Image_essai_col_reduce(src, dst, 133, idx);
 	printf("le retour de l'essai_col_reduce %d est %d\n", idx, foo);
-	if (OLL_KORRECT==foo)
-		{
-		sprintf(fname, "Pictures/aaaa-colredux-%02d.tga", idx);
+	if (OLL_KORRECT==foo) {
+		sprintf(fname, "aaaa-colredux-%02d.tga", idx);
 		Image_TGA_save(fname, dst, 0);
 		}
 	}
@@ -331,7 +374,9 @@ if ( NULL == (nucked=Image_clone(origine, 1)) ) {
 	}
 
 foo = Image_essai_zoom(origine, nucked, 1.18, 0.42, 0);
-
+if (foo) {
+	fprintf(stderr, "In %s, essai zoom -> %d\n", __func__, foo);
+	}
 Image_TGA_save("Pictures/aaaa-zoom.tga", nucked, 0);
 
 Image_DeAllocate(nucked);	free(nucked);
@@ -425,7 +470,6 @@ int		rotule, foo;
 Image_Desc	*origine, *imgtmp;
 char		chaine[100];
 int		filtre[11];
-int		w3, h3;
 Image_Rect      rect;
 
 static	int	datas_sobel[] =
@@ -442,6 +486,8 @@ static	int	datas_prewitt[] =
 	-1,	-1,	-1,
 	1,	128
 	};
+#if 0
+/* WHAT THE HELL is this data thing ? */
 static struct offxy
 	{ int	x, y; } offsets[] = {
 	{ 1, 0 },
@@ -453,6 +499,7 @@ static struct offxy
 	{ 0, 1 },
 	{ 0, 0 }
 	};
+#endif
 
 printf("========= Filtrage directionnel sur %s =======\n", srcname);
 
@@ -464,9 +511,6 @@ printf("image originale @ %p\n", origine);
 
 imgtmp = Image_clone(origine, 1);
 
-w3 = origine->width * 3;
-h3 = origine->height * 3;
-
 if (flags)	memcpy(filtre, datas_prewitt, sizeof(filtre));
 else		memcpy(filtre, datas_sobel, sizeof(filtre));
 
@@ -537,32 +581,30 @@ int		foo, ax, ay;
 
 printf("====== essais Warping sur %s (k=%d) ====\n", srcname, k);
 
-if (NULL == (src = Image_TGA_alloc_load(srcname)) )
-	{
+if (NULL == (src = Image_TGA_alloc_load(srcname)) ) {
 	fprintf(stderr, "Err loading '%s'\n", srcname);
 	exit(5);
 	}
 dst = Image_clone(src, 0);
 
 foo = Image_warp_essai_0(src, dst, 33.5, 100, 100);
-Image_TGA_save("Pictures/warp-essai-0.tga", dst, 0);
+Image_TGA_save("warp-essai-0.tga", dst, 0);
 
 foo = Image_center_rotate(src, dst, 21.5);
-Image_TGA_save("Pictures/warp-center-rotate.tga", dst, 0);
+Image_TGA_save("warp-center-rotate.tga", dst, 0);
 
 ax = (src->width * 2) / 3;
 ay = (src->height * 2) / 3;
 foo = Image_shift_xy(src, dst, ax, ay);
-Image_TGA_save("Pictures/warp-shift-xy.tga", dst, 0);
+Image_TGA_save("warp-shift-xy.tga", dst, 0);
 foo = Image_shift_x(src, dst, ax);
-Image_TGA_save("Pictures/warp-shift-x.tga", dst, 0);
+Image_TGA_save("warp-shift-x.tga", dst, 0);
 foo = Image_shift_y(src, dst, ay);
-Image_TGA_save("Pictures/warp-shift-y.tga", dst, 0);
+Image_TGA_save("warp-shift-y.tga", dst, 0);
 
 Image_DeAllocate(src);  free(src);
 Image_DeAllocate(dst);  free(dst);
 
-
 return 42;
 }
 /*::------------------------------------------------------------------::*/
@@ -750,7 +792,7 @@ Image_DeAllocate(dst);	free(dst);
 return 42;
 }
 /*::------------------------------------------------------------------::*/
-int Test_classif(char *srcname, int k)
+int Test_Classif(char *srcname, int k)
 {
 Image_Desc	*src, *dst;
 int		foo;
@@ -767,8 +809,7 @@ static Une_Classe_Sph classs[] =
 	{   0, 255,   0,   DC,     0, 255,   0 }
 	};
 
-if (NULL == (src = Image_TGA_alloc_load(srcname)) )
-	{
+if (NULL == (src = Image_TGA_alloc_load(srcname)) ) {
 	fprintf(stderr, "Err loading '%s'\n", srcname);
 	exit(5);
 	}
@@ -776,11 +817,11 @@ dst = Image_clone(src, 0);
 
 foo = Image_classif_0(src, dst);
 Image_print_error("essai classif 0", foo);
-Image_TGA_save("Pictures/aaaa-classif0.tga", dst, 0);
+Image_TGA_save("aaaa-classif0.tga", dst, 0);
 
 foo = Image_classif_1(src, dst, classs, 5, 0);
 Image_print_error("essai classif 1", foo);
-Image_TGA_save("Pictures/aaaa-classif1.tga", dst, 0);
+Image_TGA_save("aaaa-classif1.tga", dst, 0);
 
 Image_DeAllocate(src);	free(src);
 Image_DeAllocate(dst);	free(dst);
@@ -789,23 +830,29 @@ return 42;
 }
 /*::------------------------------------------------------------------::*/
 /* new 24 avril 2007, essais sur le module rgbmask.c			*/
-int
-Test_rgbmask(char *srcname)
+int Test_RGBmask(char *srcname)
 {
 Image_Desc *source, *image ;
 int		foo;
 
+fprintf(stderr, "=============== %s on %s ==============\n", __func__, srcname);
+
+
 source = Image_TGA_alloc_load(srcname);
 image = Image_clone(source, 0);
 
 foo = Image_rgbmask_H(source, image, 0);
-Image_TGA_save("Pictures/aaaa-rgbmaskH.tga", image, 0);
+Image_TGA_save("aaaa-rgbmaskH.tga", image, 0);
 foo = Image_rgbmask_V(source, image, 0);
-Image_TGA_save("Pictures/aaaa-rgbmaskV.tga", image, 0);
+Image_TGA_save("aaaa-rgbmaskV.tga", image, 0);
 foo = Image_rgbmask_2(source, image, 0);
-Image_TGA_save("Pictures/aaaa-rgbmask2.tga", image, 0);
+Image_TGA_save("aaaa-rgbmask2.tga", image, 0);
 foo = Image_rgbmask_R(source, image, 0);
-Image_TGA_save("Pictures/aaaa-rgbmaskR.tga", image, 0);
+Image_TGA_save("aaaa-rgbmaskR.tga", image, 0);
+
+Image_DeAllocate(source);	free(source);
+Image_DeAllocate(image);	free(image);
+
 
 return  42;
 }
@@ -941,9 +988,9 @@ return 0;
 }
 /*::------------------------------------------------------------------::*/
 /*
+ *	2023-09-30 this function need more work
  */
-int
-Test_copie_de_rectangles(char *nomsource)
+int Test_copie_de_rectangles(char *nomsource)
 {
 Image_Desc *source, *image, *finale;
 int	foo, w, h, x, y;
@@ -1006,15 +1053,47 @@ Image_DeAllocate(finale);	free(finale);
 return 0;
 }
 /*::------------------------------------------------------------------::*/
-int
-Test_Egalisations(char *nomsource, int k)
+/* new: Sat Aug 10 15:32:01 UTC 2024 */
+int Essai_Televisions(char *nomsource, int k)
+{
+Image_Desc	*image, *resultat;
+int		foo;
+
+fprintf(stderr, "================ Televisions %s %d ========\n", nomsource, k);
+
+
+image = Image_TGA_alloc_load(nomsource);
+printf("%s : image loaded %p\n", __func__, image);
+resultat = Image_clone(image, 0);
+printf("%s : image cloned %p\n", __func__, resultat);
+
+foo = Image_TV_old(image, resultat, 127, 127, 127);
+printf("\tTV old -> %d\n", foo);
+Image_TGA_save("aaaa_tv_old.tga", resultat, 0);
+
+foo = Image_TV_pix_0(image, resultat, 7, 7, 0);
+printf("\tTV pix 0 -> %d\n", foo);
+Image_TGA_save("aaaa_tv_pix_0.tga", resultat, 0);
+
+foo = Image_TV_cplus_v1(image, resultat, 7);
+printf("\tTV cplus v1 -> %d\n", foo);
+Image_TGA_save("aaaa_tv_cplusV1.tga", resultat, 0);
+
+
+Image_DeAllocate(image);	free(image);
+Image_DeAllocate(resultat);	free(resultat);
+
+return FULL_NUCKED;
+}
+/*::------------------------------------------------------------------::*/
+int Test_Egalisations(char *nomsource, int k)
 {
 Image_Desc *image, *deuxieme, *troisieme;
 int     x, y;
 
-fprintf(stderr, "============= Egalisations %s %d =====\n", nomsource, k);
+fprintf(stderr, "================ Egalisations %s %d =====\n", nomsource, k);
 
-image= Image_TGA_alloc_load(nomsource);
+image = Image_TGA_alloc_load(nomsource);
 printf("image loaded %p\n", image);
 
 deuxieme = Image_clone(image, 0);
@@ -1025,18 +1104,17 @@ troisieme = Image_clone(image, 0);
 printf("image 3 cloned %p\n", troisieme);
 Image_egalise_RGB(image, troisieme, 0);
 
-for (x=0; x<image->width; x++)
-	{
-	if (x < image->width/3)
-		{
-		for (y=0; y<image->height; y++)
+for (x=0; x<image->width; x++) {
+	if (x < image->width/3) {
+		for (y=0; y<image->height; y++) {
 			Image_pixel_copy(image, x, y, troisieme, x, y);
+			}
 		}
 	else
-	if (x > image->width/3*2)
-		{
-		for (y=0; y<image->height; y++)
+	if (x > image->width/3*2) {
+		for (y=0; y<image->height; y++) {
 			Image_pixel_copy(deuxieme, x, y, troisieme, x, y);
+			}
 		}
 
 #if DEBUG_LEVEL > 2
@@ -1046,7 +1124,7 @@ for (x=0; x<image->width; x++)
 
 printf("saving resultat...\n");
 Image_marque_1(troisieme, "Egalisations", 0);
-Image_TGA_save("Pictures/aaaa_egal.tga", troisieme, 0);
+Image_TGA_save("aaaa_egal.tga", troisieme, 0);
 Image_DeAllocate(image);	free(image);
 Image_DeAllocate(deuxieme);	free(deuxieme);
 Image_DeAllocate(troisieme);	free(troisieme);
@@ -1054,30 +1132,30 @@ Image_DeAllocate(troisieme);	free(troisieme);
 return 42;
 }
 /*::------------------------------------------------------------------::*/
-int
-Test_Dithering(char *nomsource, int k)
+int Test_Dithering(char *nomsource, int k)
 {
 Image_Desc	*source, *image, *deuxieme, *finale;
 Image_Rect	rect;
-int		foo;
+int		foo, wf, hf;
 int		x2, y2;
 RGBA		ink, pap;
 
-fprintf(stderr, "========== Dithering on %s (%d) =======\n", nomsource, k);
+fprintf(stderr, "============== Dithering on %s (%d) =======\n", nomsource, k);
 
 source = Image_TGA_alloc_load(nomsource);
-if (NULL == source)
-	{
+if (NULL == source) {
 	fprintf(stderr, "%s:%s err load %s\n", __FILE__, __func__, nomsource);
 	exit(5);
 	}
+#if DEBUG_LEVEL
 Image_dump_descriptor(source, "just after load");
+#endif
 
 /*
  * est-ce bien necessaire ?
  */
 /* Image_egalise_RGB(source, source, 0); */
-
+wf = source->width;		hf = (source->height) * 3;
 x2 = source->width / 2;		y2 = source->height / 2;
 rect.w = x2;			rect.h = y2;
 rect.x = 0;			rect.y = 0;
@@ -1085,24 +1163,22 @@ rect.x = 0;			rect.y = 0;
 ink.r = 255, ink.g = 255, ink.b = 100;		ink.a = 255;
 pap.r =  30, pap.g =  30, pap.b = 155;		pap.a = 255;
 
-finale = Image_alloc(source->width, (source->height)*3, 3);
-if (NULL == finale)
-	{
+finale = Image_alloc(wf, hf, 3);
+if (NULL == finale) {
 	fprintf(stderr, "%s:%s:%d err alloc image\n",
 			__FILE__, __func__, __LINE__);
 	exit(5);
 	}
-printf("image finale allocated %p\n", finale);
+Image_clear(finale, 0, 200, 0);
+printf("image finale %dx%d allocated at %p\n", wf, hf, finale);
 
 image = Image_MakeHalfSize(source, 0);
-if (NULL == image)
-	{
+if (NULL == image) {
 	fprintf(stderr, "%s:%s:%d err halfsize image\n",
 			__FILE__, __func__, __LINE__);
 	exit(5);
 	}
-
-printf("image Half -> %p\n", image);
+printf("%s: image Half at %p\n", __func__, image);
 
 Image_DeAllocate(source);	free(source);
 Image_copy_rect(image, &rect, finale, 0, 0);
@@ -1148,17 +1224,20 @@ Image_txt1_box_0(finale, "3x3 2", x2, y2*3, 4, &pap, &ink, 0);
 foo = Image_dither_bayer8x8rnd(image, deuxieme, 5000, 0);
 printf("retour Dither bayer8x8rnd = %d\n", foo);
 Image_copy_rect(deuxieme, &rect, finale, x2, y2*4);
-Image_txt1_box_0(finale, "bayer 8x8 rnd rgb", x2, y2*4, 4, &pap, &ink, 0);
+Image_txt1_box_0(finale, "bayer8xrnd rgb", x2, y2*4, 4, &pap, &ink, 0);
 
 foo = Image_dither_bayer8x8rnd(image, deuxieme, 5000, 1);
 printf("retour Dither bayer8x8rnd = %d\n", foo);
 Image_copy_rect(deuxieme, &rect, finale, 0, y2*4);
-Image_txt1_box_0(finale, "bayer 8x8 rnd grey", 0, y2*4, 4, &pap, &ink, 0);
+Image_txt1_box_0(finale, "bayer8x8rndgrey", 0, y2*4, 4, &pap, &ink, 0);
 
-Image_TGA_save("Pictures/aaaa_dithering.tga", finale, 0);
+printf("++++++ test dither\n");
+Image_dump_descriptor(finale, "just before save");
+Image_TGA_save("aaaa_dithering.tga", finale, 0);
 Image_DeAllocate(image);	free(image);
 Image_DeAllocate(deuxieme);	free(deuxieme);
 Image_DeAllocate(finale);	free(finale);
+printf("++++++ fin essais dither\n");
 
 return 0;
 }
@@ -1177,8 +1256,7 @@ return -1;
 }
 /*::------------------------------------------------------------------::*/
 /* new 21 juillet 2007 - ave St Exupery */
-int
-Test_Effects_A(char *nomsource, int flag)
+int Test_Effects_A(char *nomsource, int flag)
 {
 Image_Desc *source, *image, *deuxieme, *finale;
 int	foo;
@@ -1187,8 +1265,7 @@ RGBA		ink, pap;
 
 printf("=== %s %s === %s === %d ===\n", __FILE__, __func__, nomsource, flag);
 
-if (flag)
-	{
+if (flag) {
 	fprintf(stderr, "%s: flag is %d ?\n", __func__, flag);
 	}
 
@@ -1196,8 +1273,7 @@ ink.r = 255, ink.g = 255, ink.b = 100;		ink.a = 255;
 pap.r =  30, pap.g =  30, pap.b = 155;		pap.a = 255;
 
 source = Image_TGA_alloc_load(nomsource);
-if (NULL==source)
-	{
+if (NULL==source) {
 	fprintf(stderr, "%s : il manque '%s'\n", __func__, nomsource);
 	exit(1);
 	}
@@ -1273,8 +1349,7 @@ Image_DeAllocate(finale);	free(finale);
 return 42;
 }
 /*::------------------------------------------------------------------::*/
-int
-Test_des_tamppools(char *imgname, int param)
+int Test_des_tamppools(char *imgname, int param)
 {
 void	*ptr;
 int	foo;
@@ -1297,30 +1372,31 @@ int Test_des_filtres(char *srcname, int k)
 Image_Desc	*src, *dst;
 int		foo;
 
-printf("======= LES FILTRES ===[ %s ]==[ %d ]====\n", srcname, k);
+printf("=============== Filtres =====[ %s ]====[ %d ]====\n", srcname, k);
 
 src = Image_TGA_alloc_load(srcname);
-if (NULL == src)
-	{
+if (NULL == src) {
 	fprintf(stderr, "%s can't load %s\n", __func__, srcname);
 	return 666;
 	}
 dst = Image_clone(src, 1);
-if (NULL == dst)
-	{
+if (NULL == dst) {
 	fprintf(stderr, "mem failure in %s\n", __func__);
 	abort();
 	}
 
 foo = Image_lissage_3x3(src, dst);
-Image_TGA_save("Pictures/filtre-liss3x3.tga", dst, 0);
-if (foo) { fprintf(stderr, "%s: liss3x3   -> %d\n", foo); }
+Image_TGA_save("filtre-liss3x3.tga", dst, 0);
+if (foo) { fprintf(stderr, "%s: liss3x3   -> %d\n", __func__, foo); }
 foo = Image_filtre_Prewitt(src, dst, 5);
-Image_TGA_save("Pictures/filtre-prewitt-5.tga", dst, 0);
+Image_TGA_save("filtre-prewitt-5.tga", dst, 0);
 foo = Image_filtre_passe_haut(src, dst);
-Image_TGA_save("Pictures/filtre-passe-haut.tga", dst, 0);
+Image_TGA_save("filtre-passe-haut.tga", dst, 0);
+
+/*
 foo = Image_filtre_Sobel_4(src, dst, 0);
-Image_TGA_save("Pictures/filtre-sobel-4.tga", dst, 0);
+Image_TGA_save("filtre-sobel-4.tga", dst, 0);
+*/
 
 Image_DeAllocate(src);	free(src);
 Image_DeAllocate(dst);	free(dst);
@@ -1416,3 +1492,17 @@ Image_DeAllocate(dst);	free(dst);
 return -1;
 }
 /*::------------------------------------------------------------------::*/
+/*		==============================				*/
+
+void essai_gradients(void)
+{
+int		foo;
+
+foo = Image_plot_H_gradient("foo.tga", 640, 200);
+fprintf(stderr, "plot h gradient -> %d\n", foo);
+foo = Image_plot_V_gradient("foo.tga", 900, 200);
+fprintf(stderr, "plot v gradient -> %d\n", foo);
+}
+/*		==============================				*/
+/*::------------------------------------------------------------------::*/
+

Lib/essais.h

@@ -27,6 +27,8 @@ int Essai_des_lut15bits(char *srcname, int k);
 int Essai_des_mires(char *, int, int);
 int Essai_des_zooms(char *srcname, int k);
 
+int Test_Classif(char *srcname, int k);
+
 int Essai_des_7_segments(char *srcname, int flag);
 int Essai_des_distances(char *srcname, int nbre, int flag);
 int Essai_des_cadres(char *srcname, int flags);
@@ -44,7 +46,7 @@ int Test_des_df3(char *txt, int k);
 int Test_vignettes(char *srcname, int k);
 
 int Test_classif(char *srcname, int k);
-int Test_rgbmask(char *srcname);
+int Test_RGBmask(char *srcname);
 void Test_rgb2xyz(void);
 
 int  Essai_des_marquages(char *srcname, int nombre, char *texte);
@@ -68,7 +70,7 @@ int Test_des_pixeliz(char *srcname, int flags);
 int Essai_des_bitblt(char *srcname, int k);
 int Essai_des_gadgrect(char *srcname, int k);
 
-int Essai_Television(char *source, int k);
+int Essai_Televisions(char *source, int k);
 
 /* dans essais2;c */
 int Essai_des_big_chars(char *fname, int k);

Lib/extractbits.c

@@ -0,0 +1,60 @@
+/*
+ *      extractbits.c
+ *				new 11 mars 2014
+ */
+
+#include  <stdio.h>
+
+#include  "../tthimage.h"
+
+/*::------------------------------------------------------------------::*/
+int Image_extrbits_0(Image_Desc  *src, Image_Desc *dst, int rs, int gs, int bs)
+{
+int		x, y, foo;
+int		mr, mg, mb, r, g, b;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "%s ( %p %p   %d %d %d )\n", __func__, src, dst, rs, gs, bs);
+#endif
+
+if ( rs<0 || gs<0 || bs<0 ) {
+	fprintf(stderr, "%s : no negativ shift\n", __func__);
+	return BAD_PARAMETER;
+	}
+
+if ( rs>8 || gs>8 || bs>8 ) {
+	fprintf(stderr, "%s : no shift > 7\n", __func__);
+	return BAD_PARAMETER;
+	}
+
+if ( (foo=Image_compare_desc(src, dst)) ) {
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
+    return foo;
+    }
+
+mr = 1 << rs;
+mg = 1 << gs;
+mb = 1 << bs;
+
+#if DEBUG_LEVEL
+fprintf(stderr, "%s masques = 0x%02x 0X%02x 0x%02x\n", __func__, mr, mg, mb);
+#endif
+
+for (y=0; y<dst->height; y++)
+	{
+	for (x=0; x<dst->width; x++)
+		{
+        	r = ((src->Rpix[y])[x] & mr) ? 255 : 0;
+		dst->Rpix[y][x] = r;
+        	g = ((src->Gpix[y])[x] & mg) ? 255 : 0;
+		dst->Gpix[y][x] = g;
+        	b = ((src->Bpix[y])[x] & mb) ? 255 : 0;
+		dst->Bpix[y][x] = b;
+		}
+	}
+
+return FUNC_IS_BETA;
+}
+/*::------------------------------------------------------------------::*/
+/*::------------------------------------------------------------------::*/
+/*::------------------------------------------------------------------::*/

Lib/falsecolors.c

@@ -0,0 +1,39 @@
+/*
+ *		FALSECOLORS.C
+ *
+ *	new: Wed Oct  4 07:32:36 UTC 2023
+ *
+ *	see also	calcluts.c
+ */
+
+#include  <stdio.h>
+#include  <stdlib.h>
+#include  <unistd.h>
+#include  <stdint.h>
+#include  <string.h>
+#include  <math.h>
+
+#include  "../tthimage.h"
+
+/*::------------------------------------------------------------------::*/
+/*::------------------------------------------------------------------::*/
+int Image_gen_fc_lut(float maxval, int nbslots, RGB_map *plut)
+{
+int		idx, ilut;
+float		fval;
+
+fprintf(stderr, ">>> %s ( %f %d %p )\n", __func__, maxval, nbslots, plut);
+
+/* RAZ de les luts */
+memset(plut, 0, sizeof(RGB_map));
+
+for (idx=0; idx<nbslots; idx++) {
+	fval = (float)idx / (float)nbslots;
+	ilut = (int)(fval*256.0);
+	fprintf(stderr, "    %3d   %8.6f   %3d\n", idx, fval, ilut);
+	}
+
+return FULL_NUCKED;
+}
+/*::------------------------------------------------------------------::*/
+/*::------------------------------------------------------------------::*/

Lib/filtadapt.c

@@ -6,7 +6,7 @@
 #include  <stdio.h>
 #include  <math.h>
 
-#include  "tthimage.h"
+#include  "../tthimage.h"
 
 /*::------------------------------------------------------------------::*/
 int

Lib/filtres.c

@@ -9,8 +9,7 @@
 #include  "../tthimage.h"
 
 /*::------------------------------------------------------------------::*/
-void
-Image_filtre_display(FILE *ou, int *mat)
+void Image_filtre_display(FILE *ou, int *mat)
 {
 int     cumul, foo;
 
@@ -28,8 +27,7 @@ fprintf(ou, "\t+--------------------+------------------+\n");
 fflush(ou);
 }
 /*::------------------------------------------------------------------::*/
-void
-Image_rotate_filtre(int *m)
+void Image_rotate_filtre(int *m)
 {
 register int     foo;
 
@@ -44,8 +42,7 @@ m[2]    =   m[1];
 m[1]    =   foo;
 }
 /*::------------------------------------------------------------------::*/
-int
-Image_convolueur3(Image_Desc *in, Image_Desc *out, int *mat)
+int Image_convolueur3(Image_Desc *in, Image_Desc *out, int *mat)
 {
 int	foo;
 
@@ -57,22 +54,19 @@ foo = Image_convolueur_2(in, out, mat, "rgb");
 return foo;
 }
 /*::------------------------------------------------------------------::*/
-int
-Image_convolueur_2(Image_Desc *in, Image_Desc *out, int *mat, char *planes)
+int Image_convolueur_2(Image_Desc *in, Image_Desc *out, int *mat, char *planes)
 {
 int         foo, x, y;
 long        lval;
 int         masque = 0;
 
-if (in == out)
-	{
-        fprintf(stderr, "convolueur 2: out overwrite in.\n");
+if (in == out) {
+        fprintf(stderr, "%s: out overwrite in.\n", __func__);
 	return IMG_OVERWRITE;
 	}
 
-if ( (foo=Image_compare_desc(in, out)) )
-    {
-    fprintf(stderr, "Convolueur: images are differents %d\n", foo);
+if ( (foo=Image_compare_desc(in, out)) ) {
+    fprintf(stderr, "%s: images are differents %d\n", __func__, foo);
     return foo;
     }
 
@@ -85,9 +79,8 @@ Image_dump_descriptor(out, "image de sortie convolueur");
 Image_filtre_display(stdout, mat);
 #endif
 
-if (mat[9] == 0)
-    {
-    fprintf(stderr, "Convolueur: fuck, divisor is ZERO !\n");
+if (mat[9] == 0) {
+    fprintf(stderr, "%s: fsck, divisor is ZERO !\n", __func__);
 			/*
 			 ! c'est sur, avec un message comme c,a je vais pas
 			 ! pouvoir transmettre mon code aux australiens
@@ -99,10 +92,8 @@ if (mat[9] == 0)
 /*
  *	preparation of the binary mask from the parameter string
  */
-for (foo=0; foo<(int)strlen(planes); foo++)
-	{
-	switch (planes[foo])
-		{
+for (foo=0; foo<(int)strlen(planes); foo++) {
+	switch (planes[foo]) {
 		case 'r':	case 'R':
 			masque |= 8;
 			break;
@@ -122,18 +113,14 @@ for (foo=0; foo<(int)strlen(planes); foo++)
 printf("masque convolueur = %02x\n", masque);
 #endif
 
-if ( (masque & 1) && (in->Apix == NULL) )
-	{
-	fprintf(stderr, "Convolueur2: filtering NULL alpha plane is _bad_\n");
+if ( (masque & 1) && (in->Apix == NULL) ) {
+	fprintf(stderr, "%s: filtering NULL alpha plane is _bad_\n", __func__);
 	return WRONG_CHANNEL;
 	}
 
-for (y=1; y<((in->height)-1); y++)
-    {
-    for (x=1; x<((in->width)-1); x++)
-        {
-	if (masque & 8)
-		{
+for (y=1; y<((in->height)-1); y++) {
+    for (x=1; x<((in->width)-1); x++) {
+	if (masque & 8) {
 	        lval  = mat[0] * in->Rpix[y-1][x-1] +
 			mat[1] * in->Rpix[y-1][x]   +
 			mat[2] * in->Rpix[y-1][x+1] +
@@ -150,8 +137,7 @@ for (y=1; y<((in->height)-1); y++)
         	out->Rpix[y][x] = (uint8_t)lval;
 		}
 
-	if (masque & 4)
-		{
+	if (masque & 4) {
         	lval  = mat[0] * in->Gpix[y-1][x-1] +
              		mat[1] * in->Gpix[y-1][x]   +
               		mat[2] * in->Gpix[y-1][x+1] +
@@ -168,8 +154,7 @@ for (y=1; y<((in->height)-1); y++)
         	out->Gpix[y][x] = (uint8_t)lval;
 		}
 
-	if (masque & 2)
-		{
+	if (masque & 2) {
         	lval  = mat[0] * in->Bpix[y-1][x-1] +
               		mat[1] * in->Bpix[y-1][x]   +
               		mat[2] * in->Bpix[y-1][x+1] +
@@ -186,8 +171,7 @@ for (y=1; y<((in->height)-1); y++)
         	out->Bpix[y][x] = (uint8_t)lval;
 		}
 
-	if (masque & 1)
-		{
+	if (masque & 1) {
         	lval  = mat[0] * in->Apix[y-1][x-1] +
               		mat[1] * in->Apix[y-1][x]   +
               		mat[2] * in->Apix[y-1][x+1] +
@@ -211,13 +195,11 @@ out->modified   = 1;
 return OLL_KORRECT;
 }
 /*::------------------------------------------------------------------::*/
-int
-Image_raz_sides(Image_Desc *im)
+int Image_raz_sides(Image_Desc *im)
 {
 int     foo;
 
-for (foo=0; foo<im->width; foo++)
-    {
+for (foo=0; foo<im->width; foo++) {
     (im->Rpix[0])[foo] = 0;
     (im->Gpix[0])[foo] = 0;
     (im->Bpix[0])[foo] = 0;
@@ -226,8 +208,7 @@ for (foo=0; foo<im->width; foo++)
     (im->Bpix[im->height-1])[foo] = 0;
     }
 
-for (foo=0; foo<im->height; foo++)
-    {
+for (foo=0; foo<im->height; foo++) {
     (im->Rpix[foo])[0] = 0;
     (im->Gpix[foo])[0] = 0;
     (im->Bpix[foo])[0] = 0;
@@ -243,27 +224,22 @@ return OLL_KORRECT;
 /* 
  *	Arf, le grand classique :)
  */
-int
-Image_lissage_3x3(Image_Desc *in, Image_Desc *out)
+int Image_lissage_3x3(Image_Desc *in, Image_Desc *out)
 {
 int         foo, x, y;
 
-if (in == out)
-	{
-        fprintf(stderr, "Lissage 3x3: out overwrite in\n");
+if (in == out) {
+        fprintf(stderr, "%s: out overwrite in\n", __func__);
 	return IMG_OVERWRITE;
 	}
 
-if ( (foo=Image_compare_desc(in, out)) )
-    {
-    fprintf(stderr, "Lissage 3x3: images have differents size, %d\n", foo);
+if ( (foo=Image_compare_desc(in, out)) ) {
+    fprintf(stderr, "%s: images have differents size, %d\n", __func__, foo);
     return foo;
     }
 
-for (y=1; y<((in->height)-1); y++)
-    {
-    for (x=1; x<((in->width)-1); x++)
-        {
+for (y=1; y<((in->height)-1); y++) {
+    for (x=1; x<((in->width)-1); x++) {
 
         foo = in->Rpix[y-1][x-1] + in->Rpix[y-1][x] + in->Rpix[y-1][x+1] +
               in->Rpix[y]  [x-1] + in->Rpix[y]  [x] + in->Rpix[y]  [x+1] +
@@ -292,11 +268,9 @@ return OLL_KORRECT;
 /*
  *	new 14 Jan 2000
  */
-int
-Image_filtre_Prewitt(Image_Desc *src, Image_Desc *dst, int rotation)
+int Image_filtre_Prewitt(Image_Desc *src, Image_Desc *dst, int rotation)
 {
-static	int	Prewitt[] =
-	{
+static	int	Prewitt[] = {
 	1,	1,	1,
 	0,	0,	0,
 	-1,	-1,	-1,
@@ -318,11 +292,9 @@ return OLL_KORRECT;
 /*
  *	XXX cette fonction est incorrecte XXX
  */
-int
-Image_filtre_Sobel(Image_Desc *src, Image_Desc *dst, int rotation)
+int Image_filtre_Sobel(Image_Desc *src, Image_Desc *dst, int rotation)
 {
-static	int	Sobel[] =
-	{
+static	int	Sobel[] = {
 	1,	2,	1,
 	0,	0,	0,
 	-1,	-2,	-1,
@@ -343,13 +315,11 @@ return OLL_KORRECT;
  * Voir aussi 'sobel4.c' */
 /*::------------------------------------------------------------------::*/
 /*	new 15 Jan 2000							*/
-int
-Image_filtre_passe_bas(Image_Desc *src, Image_Desc *dst)
+int Image_filtre_passe_bas(Image_Desc *src, Image_Desc *dst)
 {
 int	foo;
 
-static	int	PasseBas[] =
-	{
+static	int	PasseBas[] = {
 	1,	2,	1,
 	2,	4,	2,
 	1,	2,	1,
@@ -363,14 +333,12 @@ return foo;
 /*::------------------------------------------------------------------::*/
 /*	nouveau: 18 Janvier 2001
 		moral à zéro, il faut que je fasse pédaler le 486 !	*/
-int
-Image_filtre_random(Image_Desc *src, Image_Desc *dst, int p1, int p2)
+int Image_filtre_random(Image_Desc *src, Image_Desc *dst, int p1, int p2)
 {
 int	filtre[11];
 int	foo, somme, v, delta;
 
-if (p1 == p2)
-	{
+if (p1 == p2) {
 	fprintf(stderr, "%s: p1=%d must be different from p2=%d\n",
 			__func__, p1, p2);
 	return INVALID_PARAM;
@@ -383,8 +351,7 @@ delta = abs(p2 - p1);
 fprintf(stderr, "%s: delta is %d\n", __func__, delta);
 #endif
 
-for (foo=0; foo<9; foo++)
-	{
+for (foo=0; foo<9; foo++) {
 	v = (rand()%delta)+p1;
 	filtre[foo] = v;
 	somme += v;
@@ -405,15 +372,14 @@ return FUNC_IS_BETA;
 /*	nouveau: 3 Fevrier 2001 
 		on s'inspire de la precedente.
  */
-int
-Image_filtre_random_2(Image_Desc *src, Image_Desc *dst,
+int Image_filtre_random_2(Image_Desc *src, Image_Desc *dst,
 				int p1, int p2, int p3, int p4)
 {
 int	filtre[11];
 int	foo, somme, v, delta, deltb;
 
 #if DEBUG_LEVEL
-fprintf(stderr, "Filtre Random 2: %d %d  /  %d %d\n", p1, p2, p3, p4);
+fprintf(stderr, "%s: %d %d  /  %d %d\n", __func__, p1, p2, p3, p4);
 #endif
 
 delta = abs(p2 - p1);
@@ -423,22 +389,18 @@ fprintf(stderr, "Filtre Random 2: delta are %d %d\n", delta, deltb);
 #endif
 
 somme = 0;
-for (foo=0; foo<9; foo++)
-	{
-	if (foo != 4)
-		{
+for (foo=0; foo<9; foo++) {
+	if (foo != 4) {
 		v = (rand()%delta)+p1;
 		}
-	else
-		{
+	else {
 		v = (rand()%deltb)+p3;
 		}
 	filtre[foo] = v;
-
 	somme += v;
 	}
 
-filtre[9] = somme;
+filtre[9]  = somme;
 filtre[10] = 0;		/* XXX calcul automatique a faire ! */
 
 Image_filtre_display(stdout, filtre);    
@@ -448,12 +410,10 @@ foo = Image_convolueur_2(src, dst, filtre, "rgb");
 return FUNC_IS_BETA;
 }
 /*::------------------------------------------------------------------::*/
-int
-Image_filtre_passe_haut(Image_Desc *src, Image_Desc *dst)
+int Image_filtre_passe_haut(Image_Desc *src, Image_Desc *dst)
 {
 int	foo;
-static	int	PasseHaut[] =
-	{
+static	int	PasseHaut[] = {
 	-1,	-1,	-1,
 	-1,	 8,	-1,
 	-1,	-1,	-1,

Lib/foo.c

@@ -2,13 +2,103 @@
 #include  <stdlib.h>
 #include  <unistd.h>
 #include   <stdint.h>
+#include  <math.h>
 
 #include  "../tthimage.h"
 
+/*		==============================				*/
+
+/* new Wed Aug 14 19:17:20 UTC 2024
+ *
+ *	parameters :
+ *		ip: Image_Desc * of input picture
+ *		ix, iy:	coordinate of the pixel in this pic.
+ *		op, ox, oy : same things for output picture
+ */
+#define PIXEL_COPY(ip, ix, iy, op, ox, oy)			\
+			do {					\
+			(op->Rpix[oy])[ox] = (ip->Rpix[iy])[ix];	\
+			(op->Gpix[oy])[ox] = (ip->Gpix[iy])[ix];	\
+			(op->Bpix[oy])[ox] = (ip->Bpix[iy])[ix];	\
+			} while (0)
+
+#define SZPIC   4096
+
+void essai_pixcopy(int usemacro)
+{
+Image_Desc	*alice, *bob;
+int		x, y, foo;
+double		T0, T1, perpix;
+long		count;
+char		*fname;
+
+alice = Image_alloc(SZPIC, SZPIC, IMAGE_RGB);
+bob   = Image_alloc(SZPIC, SZPIC, IMAGE_RGB);
+
+Image_pattern_000(alice, 0);
+Image_TGA_save("alice.tga", alice, 0);
+
+T0 = tthi_dtime();
+count = 0L;
+
+if (usemacro) {
+	for (y=0; y<SZPIC; y++) {
+		for (x=0; x<SZPIC; x++) {
+			PIXEL_COPY(alice, x, y, bob, x, y);
+			count++;
+			}
+		}
+	fname = "bob1.tga";
+	}
+else {
+	for (y=0; y<SZPIC; y++) {
+		for (x=0; x<SZPIC; x++) {
+			Image_pixel_copy(alice, x, y, bob, x, y);
+			count++;
+			}
+		}
+	fname = "bob0.tga";
+	}
+
+T1 = tthi_dtime();
+
+foo = Image_TGA_save(fname, bob, 0);
+if (foo) {
+	fprintf(stderr, "%s: save -> %d\n", __func__, foo);
+	}
+
+perpix = ((T1-T0) / (double)count) * 1e6;
+fprintf(stderr, "%s : %10ld pixels, elapsed %9.6f seconds ==> %9.6f µs/pix\n",
+			usemacro ? "macro" : "func ",
+			count, T1-T0, perpix);
+
+/* end */
+}
+
+/*		==============================				*/
+
 int main(int argc, char *argv[])
 {
-Image_print_version(2);
-Image_print_sizeof_structs("foo");
+int	i;
+
+fprintf(stderr, "*********** %s ************\n", argv[0]);
+
+if (argc > 1) {
+	fprintf(stderr, "argument: %s\n", argv[1]);
+	Image_print_version(2);
+	Image_print_sizeof_structs("foo");
+	}
+else	{
+	for (i=0; i<5; i++) {
+		essai_pixcopy(0);
+		essai_pixcopy(1);
+		}
+	}
+
+/*
+foo = essai_show_t16x24(NULL);
+fprintf(stderr, "essai show t16x24 --> %d\n", foo);
+*/
 
 return 0;
 }

Lib/functions.c

@@ -0,0 +1,27 @@
+/*
+ *		miscellaneous functions
+ *		-----------------------
+ *
+ * new:  Thu Aug 15 09:55:36 UTC 2024
+ *
+ */
+
+#include  <stdio.h>
+#include  <sys/time.h>
+
+#include  "../tthimage.h"
+
+/* ------------------------------------------------------------------- */
+/*
+ *	for what FSCKING reason, this func is not in the stdlib ???
+ */
+double tthi_dtime(void)
+{
+struct timeval  t;
+double          d;
+(void)gettimeofday(&t, NULL);
+d = (double)t.tv_sec + (double)t.tv_usec / 1e6;
+return d;
+}
+/* ------------------------------------------------------------------- */
+/* ------------------------------------------------------------------- */

Lib/gadgrect.c

@@ -6,7 +6,7 @@
 #include  <string.h>
 #include  <stdlib.h>
 #include  <math.h>
-#include  "tthimage.h"
+#include  "../tthimage.h"
 
 /*::------------------------------------------------------------------::*/
 /*		private variables					*/
@@ -105,7 +105,7 @@ return FULL_NUCKED;
 }
 /*::------------------------------------------------------------------::*/
 /*
- * attr,yion parametres bizarres
+ *	attention parametres bizarres
  */
 int Image_gadrct_poke_from_tga(char *namesrc, Image_Rect *fromrect,
 			Image_Desc *dst, int xdst, int ydst, int flags)