libtthimage/Lib/mircol.c

322 lines
7.1 KiB
C
Raw Normal View History

2022-06-26 11:06:35 +02:00
/*
* mircol.c
* ========
*/
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <math.h>
2022-06-26 22:55:56 +02:00
#include "../tthimage.h"
2022-06-26 11:06:35 +02:00
/*::------------------------------------------------------------------::*/
int
Image_mircol_0(Image_Desc *dst, char *txt, int flag)
{
int x, y;
RGBA fond, encre;
if (dst->width < 512 || dst->height < 512)
{
fprintf(stderr, "Image mircol 0: image %p < 512x512\n", dst);
return IMAGE_TOO_SMALL;
}
if (0 != flag)
{
fprintf(stderr, "%s -> flag is %d and must be 0\n", __func__, flag);
}
if (NULL != txt)
{
fprintf(stderr, "%s : txt is '%s'\n", __func__, txt);
}
for (x=0; x<256; x++)
{
for (y=0; y<256; y++)
{
Image_plotRGB(dst, x, y, x, y, 0);
Image_plotRGB(dst, x+256, y, x, 0, y);
Image_plotRGB(dst, x, y+256, 0, x, y);
}
}
for (x=0; x<256; x++)
for (y=300; y<342; y++)
Image_plotRGB(dst, x+256, y, x, x, x);
fond.r = 0; fond.g = 0; fond.b = 0; fond.a = 255;
encre.r = 220; encre.g = 255; encre.b = 255; encre.a = 255;
if (txt != NULL)
Image_trace_chaine_1(dst, txt, 270, 270, "libimage.fonte",
&fond, &encre);
2022-06-26 22:55:56 +02:00
Image_trace_chaine_1(dst, "Libtthimage de tTh", 270, 370, "libimage.fonte",
2022-06-26 11:06:35 +02:00
&fond, &encre);
Image_trace_chaine_1(dst, IMAGE_VERSION_STRING, 270, 385, NULL, &fond, &encre);
Image_trace_chaine_1(dst, __DATE__, 270, 400, NULL, &fond, &encre);
for (x=1; x<256; x++)
for (y=420; y<462; y++)
Image_plotRGB(dst, x+256, y,
rand()%x, rand()%x, rand()%x);
return FUNC_IS_BETA;
}
/*::------------------------------------------------------------------::*/
/* a quoi sert ce flag */
int
Image_mircol_1(Image_Desc *dst, char *txt, int flag)
{
RGBA fond, encre;
int x, y, r, g, b;
if (dst->width < 512 || dst->height < 512)
{
fprintf(stderr, "Image mircol 1: image %p < 512x512\n", dst);
return IMAGE_TOO_SMALL;
}
for (x=0; x<512; x++)
{
for (y=0; y<512; y++)
{
r = x;
g = (x + y) / 2;
b = y;
Image_plotRGB(dst, x, y, r, g, b);
}
}
fond.r = 0; fond.g = 0; fond.b = 0; fond.a = 255;
encre.r = 255; encre.g = 255; encre.b = 255; encre.a = 255;
/* ya pas moyen de mettre ces textes dans des jolies boites ? */
Image_trace_chaine_1(dst, txt, 270, 270, "libimage.fonte", &fond, &encre);
2022-06-26 22:55:56 +02:00
Image_trace_chaine_1(dst, "Libtthimage de tTh", 270, 370, NULL, &fond, &encre);
2022-06-26 11:06:35 +02:00
Image_trace_chaine_1(dst, IMAGE_VERSION_STRING, 270, 390, NULL, &fond, &encre);
return FUNC_IS_ALPHA;
}
/*::------------------------------------------------------------------::*/
/* new 31 aout 2009 - ave StEx */
/* 5 fev 2010 : hacked for "BETA tech" */
int Image_mircol_2(Image_Desc *dst, char *txt, int mode)
{
int x, y, r, g, b, kx, ky;
float fx, fy, fd;
#if DEBUG_LEVEL
fprintf(stderr, ">>>> %s ( %p '%s' %d )\n", __func__, dst, txt, mode);
#endif
for (y=0; y<dst->height; y++)
{
fy = (float)y / (float)dst->height;
ky = (int)(fy * 256.0);
for (x=0; x<dst->width; x++)
{
fx = (float)x / (float)dst->width;
kx = (int)(fx * 256.0);
r = kx;
g = ky;
fd = sqrt((fx*fx)+(fy*fy));
b = (int)(fd * 256.0);
#if DEBUG_LEVEL > 1
if (x==y)
printf("%4d %4d %7.3f %7.3f %f\n",
x, y, fx, fy, fd);
#endif
Image_plotRGB(dst, x, y, r, g, b);
}
}
return FULL_NUCKED;
}
/*::------------------------------------------------------------------::*/
/* nouveau 6 fevrier 2010 */
int Image_mircol_3(Image_Desc *dst, char *txt, int mode)
{
int x, y, r, g, b;
int *p1, *p2, *p3;
float fx, fx2, fy, dist;
float mystk;
#if DEBUG_LEVEL
fprintf(stderr, ">>>> %s ( %p '%s' %d )\n", __func__, dst, txt, mode);
#endif
switch (mode) {
case 0: p1 = &r, p2 = &g, p3 = &b; break;
case 1: p1 = &g, p2 = &b, p3 = &r; break;
case 2: p1 = &b, p2 = &r, p3 = &g; break;
default:
fprintf(stderr, "switch/case error in %s:%d\n",
__func__, __LINE__);
#if FORCE_ABORT
abort();
#endif
break;
}
mystk = 0.90; /* FIXME */
for (y=0; y<dst->height; y++)
{
fy = (float)y / (float)dst->height;
for (x=0; x<dst->width; x++)
{
fx = (float)x / (float)dst->width;
*p1 = (int)((fx*fy) * 255);
*p2 = (int)(((1.0-fx)*fy) * 255);
fx2 = fx - 0.5;
dist = sqrt((fx2*fx2)+(fy*fy)) * 255.0 * mystk;
*p3 = (int)(256.0-dist);
#if DEBUG_LEVEL
if ((dst->width < 42)&&(dst->height < 42))
printf("%3d %3d %3d %3d %3d\n", x, y, r, g, b);
#endif
/* XXX Image_plotRGB(dst, x, y, r, g, b); */
(dst->Rpix[y])[x] = r;
(dst->Gpix[y])[x] = g;
(dst->Bpix[y])[x] = b;
}
}
#if DEBUG_LEVEL > 1
fprintf(stderr, "%s : verifier le resultat, svp.\n", __func__);
#endif
return FUNC_IS_BETA;
}
/*::------------------------------------------------------------------::*/
/* nouveau 10 fevrier 2010 */
int Image_mircol_4(Image_Desc *dst, char *txt, int mode)
{
int x, y, r, g, b;
int *p1, *p2, *p3;
float fx, fx2, fy, dist;
#if DEBUG_LEVEL
fprintf(stderr, ">>>> %s ( %p '%s' %d )\n", __func__, dst, txt, mode);
#endif
switch (mode)
{
case 0: p1 = &r, p2 = &g, p3 = &b; break;
case 1: p1 = &g, p2 = &b, p3 = &r; break;
case 2: p1 = &b, p2 = &r, p3 = &g; break;
default:
fprintf(stderr, "switch/case error in %s:%d\n",
__func__, __LINE__);
abort();
break;
}
for (y=0; y<dst->height; y++)
{
fy = (float)y / (float)dst->height;
for (x=0; x<dst->width; x++)
{
fx = (float)x / (float)dst->width;
/* FIXME TODO */
}
}
return FULL_NUCKED;
}
/*::------------------------------------------------------------------::*/
int Image_mirRGB_0(Image_Desc *dst, int flag)
{
int x, y;
#if DEBUG_LEVEL
fprintf(stderr, "%s : %p %d\n", __func__, dst, flag);
#endif
if (dst->width != 256 || dst->height != 256)
{
fprintf(stderr, "Image mire RGB 0: image is not 256x256\n");
return IMAGE_BAD_DIMS;
}
for (x=0; x<256; x++)
{
for (y=0; y<256; y++)
{
(dst->Rpix[y])[x] = x;
(dst->Gpix[y])[x] = y;
(dst->Bpix[y])[x] = (y+x)/2;
}
}
return FUNC_IS_BETA;
}
/*::------------------------------------------------------------------::*/
/* le bit 0 du flag controle l'ecriture des noms de composantes */
int
Image_decompose(Image_Desc *src, Image_Desc *dst, int flag)
{
int foo, x, y, hx, hy;
Image_Desc *moitie;
int r, g, b;
if ( (foo=Image_compare_desc(src, dst)) )
{
fprintf(stderr, "%s: bad dimensions %d\n", __func__, foo);
return foo;
}
moitie = Image_MakeHalfSize(src, 1);
if (moitie == NULL)
{
fprintf(stderr, "Image Decompose: NO MEM\n");
exit(5);
}
if (0 != flag)
fprintf(stderr, "%s : flag is 0x%X\n", __func__, flag);
hx = moitie->width;
hy = moitie->height;
for (x=0; x<moitie->width; x++)
{
for (y=0; y<moitie->height; y++)
{
Image_getRGB(moitie, x, y, &r, &g, &b);
Image_plotRGB(dst, x, y, r, r, r);
Image_plotRGB(dst, x+hx, y, g, g, g);
Image_plotRGB(dst, x, y+hy, b, b, b);
Image_plotRGB(dst, x+hx, y+hy, r, g, b);
}
}
/* faire le menage */
Image_DeAllocate(moitie); free(moitie);
if (flag & 1)
{
RGBA ink, pap; /* hu ho ? local vars here ? */
Image_load_fnt8x8("libimage.fonte", NULL, 0);
pap.a = 0; ink.a = 255;
ink.r = 255; ink.b = 0; ink.g = 0;
Image_trace_chaine_1(dst, "RED", 2, 2, NULL, &pap, &ink);
ink.r = 0; ink.g = 255; ink.b = 0;
Image_trace_chaine_1(dst, "GREEN", 2+hx, 2, NULL, &pap, &ink);
ink.r = 10; ink.g = 10; ink.b = 255;
Image_trace_chaine_1(dst, "BLUE", 2, 2+hy, NULL, &pap, &ink);
}
return FUNC_IS_ALPHA;
}
/*::------------------------------------------------------------------::*/