Branch: Tag:

1997-10-12

1997-10-12 21:11:12 by Mirar (Pontus Hagland) <pike@sort.mirar.org>

some fix with closest map default

Rev: src/modules/Image/togif.c:1.18

4:      Pontus Hagland, law@infovav.se    - $Id: togif.c,v 1.17 1997/10/07 03:33:33 grubba Exp $ + $Id: togif.c,v 1.18 1997/10/12 21:11:12 mirar Exp $      */      /*   **! module Image   **! note - **! $Id: togif.c,v 1.17 1997/10/07 03:33:33 grubba Exp $<br> + **! $Id: togif.c,v 1.18 1997/10/12 21:11:12 mirar Exp $<br>   **! class image   */   
549:    if (args>2 && sp[2-args].type==T_ARRAY)    {    ct=colortable_from_array(sp[2-args].u.array,"image->gif_add()\n"); -  closest=1; +  if (ct->numcol<128) closest=1;    }    else if (args>3 && sp[2-args].type==T_INT)    ct=colortable_quant(THIS,max(256,min(2,sp[2-args].u.integer)));
620:    THREADS_ALLOW();    lzw_init(&lzw,bpp);    if (!fs) +  { +  if (closest) +  while (i--) lzw_add(&lzw,colortable_rgb_nearest(ct,*(rgb++))); +  else    while (i--) lzw_add(&lzw,colortable_rgb(ct,*(rgb++))); -  +  }    else    {    rgbl_group *errb; -  rgb_group corgb; +     int w,*cres,j;    errb=(rgbl_group*)xalloc(sizeof(rgbl_group)*xs);    cres=(int*)xalloc(sizeof(int)*xs);