pike.git
/
src
/
modules
/
Image
/
togif.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/modules/Image/togif.c:1:
/* togif
-
$Id: togif.c,v 1.
27
1997/11/
11
22
:
17
:
52
mirar Exp $
+
$Id: togif.c,v 1.
28
1997/11/
26
15
:
41
:
35
mirar Exp $
old GIF API compat stuff */ /* **! module Image **! note
-
**! $Id: togif.c,v 1.
27
1997/11/
11
22
:
17
:
52
mirar Exp $
+
**! $Id: togif.c,v 1.
28
1997/11/
26
15
:
41
:
35
mirar Exp $
**! class image */ #include "global.h" #include <math.h> #include <ctype.h> #include "stralloc.h" #include "global.h"
pike.git/src/modules/Image/togif.c:136:
image_gif_netscape_loop_block(args); } static void img_gif_add(INT32 args,int fs,int lm, rgb_group *transparent) { INT32 x=0,y=0; int delay=0; struct object *ncto=NULL;
+
struct svalue *msp=sp;
+
if (args==0) x=y=0; else if (args<2 || sp[-args].type!=T_INT || sp[1-args].type!=T_INT) error("Illegal argument(s) to image->gif_add()\n"); else { x=sp[-args].u.integer; y=sp[1-args].u.integer; } if (args>2 && sp[2-args].type==T_ARRAY) { struct svalue *sv=sp+2-args; push_svalue(sv);
-
ncto=clone_object(image_colortable_program,
2
);
+
ncto=clone_object(image_colortable_program,
1
);
} else if (args>3 && sp[2-args].type==T_INT) { INT32 i=sp[2-args].u.integer; THISOBJ->refs++; push_object(THISOBJ); push_int(i); ncto=clone_object(image_colortable_program,2); }