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 Pontus Hagland, law@infovav.se
-
$Id: togif.c,v 1.
9
1997/05/
05
21
:
35
:
06
mirar
Exp $
+
$Id: togif.c,v 1.
10
1997/05/
07
23
:
07
:
14
per
Exp $
*/ /* **! module Image **! class image */ #include "global.h"
pike.git/src/modules/Image/togif.c:744:
low_my_putchar( '!', &buf ); /* extension block */ low_my_putchar( 0xf9, &buf ); /* graphics control */ low_my_putchar( 4, &buf ); /* block size */ low_my_putchar( 0, &buf ); /* disposal, transparency, blabla */ buf_word( delay, &buf ); /* delay in centiseconds */ low_my_putchar( 0, &buf ); /* (transparency index) */ low_my_putchar( 0, &buf ); /* terminate block */ }
+
if(!ct)
ct=colortable_quant(THIS,256); colors=4; bpp=2; while (colors<ct->numcol) { colors<<=1; bpp++; }
-
-
+
low_my_putchar( ',', &buf ); /* image separator */ buf_word(x,&buf); /* leftofs */ buf_word(y,&buf); /* topofs */ buf_word(THIS->xsize,&buf); /* width */ buf_word(THIS->ysize,&buf); /* height */ low_my_putchar((0x80*lm)|(bpp-1), &buf); /* not interlaced (interlaced == 0x40) */ /* local colormap ( == 0x80) */