| e576bb | 2002-10-11 | Martin Nilsson | | |
| 50ea68 | 2003-03-14 | Henrik Grubbström (Grubba) | | || $Id: phase.h,v 1.6 2003/03/14 15:57:48 grubba Exp $
|
| e576bb | 2002-10-11 | Martin Nilsson | | */
|
| c43fc1 | 1999-03-01 | Henrik Wallin | |
void IMAGE_PHASE(INT32 args)
{
struct object *o;
struct image *img,
*this;
rgb_group *imgi=0,*thisi=0;
int y, x;
int yz, xz;
int ys, xs;
|
| b2d3e4 | 2000-12-01 | Fredrik Hübinette (Hubbe) | | if (!THIS->img) { Pike_error("no image\n"); return; }
|
| c43fc1 | 1999-03-01 | Henrik Wallin | | this=THIS;
thisi=this->img;
push_int(this->xsize);
push_int(this->ysize);
o=clone_object(image_program,2);
img=(struct image*)get_storage(o,image_program);
imgi=img->img;
pop_n_elems(args);
THREADS_ALLOW();
xz=this->xsize;
yz=this->ysize;
xs=this->xsize-1;
ys=this->ysize-1;
#define DALOOP(R) \
for(y=1; y<ys; y++) \
for(x=1; x<xs; x++) \
{\
int i;\
int V,H;\
i=y*xs+x;\
V=thisi[i-(NEIG)].R-thisi[i].R;\
H=thisi[i+(NEIG)].R-thisi[i].R;\
if ((V==0)&&(H==0))\
{\
/*\
In this case a check to see what there are at the sides \
should be done\
*/\
imgi[i].R=0;\
}\
else \
{\
if (V==0) imgi[i].R=32;\
else if (H==0) imgi[i].R=256-32;\
else\
{\
if (abs(V)>abs(H))\
if (V<0)\
|
| 73eccf | 2000-08-07 | Henrik Grubbström (Grubba) | | imgi[i].R=DOUBLE_TO_CHAR(0.5+224+(((float)H)/\
(0-V))*32.0);\
|
| c43fc1 | 1999-03-01 | Henrik Wallin | | else\
|
| 73eccf | 2000-08-07 | Henrik Grubbström (Grubba) | | imgi[i].R=DOUBLE_TO_CHAR(0.5+96+(((float)H)/\
(V))*32.0);\
|
| c43fc1 | 1999-03-01 | Henrik Wallin | | else\
if (H<0)\
|
| 73eccf | 2000-08-07 | Henrik Grubbström (Grubba) | | imgi[i].R=DOUBLE_TO_CHAR(0.5+32+(((float)V)/\
(0-H))*32.0);\
|
| c43fc1 | 1999-03-01 | Henrik Wallin | | else\
|
| 73eccf | 2000-08-07 | Henrik Grubbström (Grubba) | | imgi[i].R=DOUBLE_TO_CHAR(0.5+160+(((float)V)/\
(H))*32.0);\
|
| c43fc1 | 1999-03-01 | Henrik Wallin | | }\
}\
}
DALOOP(r)
DALOOP(g)
DALOOP(b)
#undef DALOOP
THREADS_DISALLOW();
|
| 50ea68 | 2003-03-14 | Henrik Grubbström (Grubba) | | ref_push_object(o);
|
| c43fc1 | 1999-03-01 | Henrik Wallin | | }
|