pike.git
/
src
/
modules
/
Image
/
orient.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/modules/Image/orient.c:1:
-
/* $Id: orient.c,v 1.
3
1998/02/
15
15
:
53
:
00
mirar
Exp $ */
+
/* $Id: orient.c,v 1.
4
1998/02/
17
19
:
47
:
44
hubbe
Exp $ */
/* **! module Image **! note
-
**! $Id: orient.c,v 1.
3
1998/02/
15
15
:
53
:
00
mirar
Exp $
+
**! $Id: orient.c,v 1.
4
1998/02/
17
19
:
47
:
44
hubbe
Exp $
**! class image */ #include "global.h" #include <math.h> #include <ctype.h> #include "stralloc.h" #include "global.h"
pike.git/src/modules/Image/orient.c:114:
#define FOOBAR(CO,xd,yd) \ A->img[x+y*B->xsize].CO= \ sqrt((sq((B->img[(x-xd)+(y-yd)*B->xsize].CO-B-> \ img[x+y*B->xsize].CO ))+ \ sq((B->img[x+y*B->xsize].CO- \ B->img[(x+xd)+(y+yd)*B->xsize].CO)) \ )/2.0);
-
/
/
Create image 1
+
/
*
Create image 1
*/
for(x=1; x<A->xsize-1; x++) for(y=1; y<A->ysize-1; y++) { FOOBAR(r,1,0); FOOBAR(g,1,0); FOOBAR(b,1,0); } #undef A #define A o2img
-
/
/
Create image 2
+
/
*
Create image 2
*/
for(x=1; x<A->xsize-1; x++) for(y=1; y<A->ysize-1; y++) { FOOBAR(r,1,1); FOOBAR(g,1,1); FOOBAR(b,1,1); } #undef A #define A o3img
-
/
/
Create image 3
+
/
*
Create image 3
*/
for(x=1; x<A->xsize-1; x++) for(y=1; y<A->ysize-1; y++) { FOOBAR(r,0,1); FOOBAR(g,0,1); FOOBAR(b,0,1); } #undef A #define A o4img
-
/
/
Create image 4
+
/
*
Create image 4
*/
for(x=1; x<A->xsize-1; x++) for(y=1; y<A->ysize-1; y++) { FOOBAR(r,-1,1); FOOBAR(g,-1,1); FOOBAR(b,-1,1); } #undef A #define A o5img
-
/
/
Create image 5, the hsv-thing...
+
/
*
Create image 5, the hsv-thing...
*/
for(x=1; x<A->xsize-1; x++) for(y=1; y<A->ysize-1; y++) {
-
/
/
Första färg, sista mörkhet
+
/
*
Första färg, sista mörkhet
*/
j=o1img->img[x+y*B->xsize].r+ o1img->img[x+y*B->xsize].g+ o1img->img[x+y*B->xsize].b- o3img->img[x+y*B->xsize].r- o3img->img[x+y*B->xsize].g- o3img->img[x+y*B->xsize].b; h=o2img->img[x+y*B->xsize].r+ o2img->img[x+y*B->xsize].g+ o2img->img[x+y*B->xsize].b-
pike.git/src/modules/Image/orient.c:219:
A->img[x+y*B->xsize].g=255; A->img[x+y*B->xsize].b=MINIMUM(255, sqrt((sq(j)+sq(h)))); }
-
/
/
Och så fylla ut de andra bilderna med lite junk.
+
/
*
Och så fylla ut de andra bilderna med lite junk.
*/
pop_n_elems(args); push_object(o1); push_object(o2); push_object(o3); push_object(o4); push_object(o5); f_aggregate(5); }