[q-lang-cvs] q/modules/magick magick.c,1.39,1.40

[<ag...@us...>]

Update of /cvsroot/q-lang/q/modules/magick
In directory sc8-pr-cvs1:/tmp/cvs-serv2044

Modified Files:
	magick.c 
Log Message:
negate opacity values

Index: magick.c
===================================================================
RCS file: /cvsroot/q-lang/q/modules/magick/magick.c,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -d -r1.39 -r1.40
*** magick.c	3 Jan 2004 04:02:07 -0000	1.39
--- magick.c	5 Jan 2004 05:28:35 -0000	1.40
***************
*** 2817,2821 ****
  	return mkapp(mksym(sym(magick_error)), mkstr(strdup(msg)));
      }
!     res = MatteFloodfillImage(img, target, opacity, x, y,
  			      m2?FillToBorderMethod:FloodfillMethod);
      if (!res)
--- 2817,2821 ----
  	return mkapp(mksym(sym(magick_error)), mkstr(strdup(msg)));
      }
!     res = MatteFloodfillImage(img, target, 0xffff-opacity, x, y,
  			      m2?FillToBorderMethod:FloodfillMethod);
      if (!res)
***************
*** 2858,2862 ****
      PixelPacket target;
      set_pixels(&target, m1->v, 1, 1);
!     res = TransparentImage(img, target, opacity);
      if (!res)
        return __FAIL;
--- 2858,2862 ----
      PixelPacket target;
      set_pixels(&target, m1->v, 1, 1);
!     res = TransparentImage(img, target, 0xffff-opacity);
      if (!res)
        return __FAIL;