[q-lang-cvs] q/modules/magick magick.c,1.35,1.36

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

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

Modified Files:
	magick.c 
Log Message:
Windows port

Index: magick.c
===================================================================
RCS file: /cvsroot/q-lang/q/modules/magick/magick.c,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** magick.c	1 Jan 2004 02:03:06 -0000	1.35
--- magick.c	2 Jan 2004 04:30:52 -0000	1.36
***************
*** 910,914 ****
    Image *img;
    if (argc == 1 && isobj(argv[0], type(Image), (void**)&img))
!     return mkint(img->fuzz);
    else
      return __FAIL;
--- 910,914 ----
    Image *img;
    if (argc == 1 && isobj(argv[0], type(Image), (void**)&img))
!     return mkfloat(img->fuzz);
    else
      return __FAIL;
***************
*** 918,924 ****
  {
    Image *img;
!   long fuzz;
    if (argc == 2 && isobj(argv[0], type(Image), (void**)&img) &&
!       isint(argv[1], &fuzz)) {
      img->fuzz = fuzz;
      return mkvoid;
--- 918,924 ----
  {
    Image *img;
!   double fuzz;
    if (argc == 2 && isobj(argv[0], type(Image), (void**)&img) &&
!       (isfloat(argv[1], &fuzz) || ismpz_float(argv[1], &fuzz))) {
      img->fuzz = fuzz;
      return mkvoid;
***************
*** 2375,2380 ****
    double radius;
    if (argc == 2 && isobj(argv[0], type(Image), (void**)&img) &&
!       (isfloat(argv[1], &radius) || ismpz_float(argv[1], &radius))) {
!     img = SpreadImage(img, radius, &exception);
      if (check_exception(&exception))
        return mkapp(mksym(sym(magick_error)), mkstr(strdup(msg)));
--- 2375,2381 ----
    double radius;
    if (argc == 2 && isobj(argv[0], type(Image), (void**)&img) &&
!       (isfloat(argv[1], &radius) || ismpz_float(argv[1], &radius)) &&
!       radius >= 0.0) {
!     img = SpreadImage(img, (unsigned)radius, &exception);
      if (check_exception(&exception))
        return mkapp(mksym(sym(magick_error)), mkstr(strdup(msg)));