comparison src/image.c @ 109857:d7a20b755b64

configure support for MagickExportImagePixels and README

109856:4baaa8ac0f74

   Interface :index is same as for GIF.  */
  Lisp_Object image;
  long ino;
  image = image_spec_value (img->spec, QCindex, NULL);
  ino = INTEGERP (image) ? XFASTINT (image) : 0;
  
  /* if (ino >= ) */
  /*   { */
  /*     image_error ("Invalid image number `%s' in image `%s'", */
  /*       	   image, img->spec); */
  /*     UNGCPRO; */
  /*     return 0; */
  /*   } */

  if(ino==0)
    MagickSetFirstIterator(image_wand);
  else
    MagickSetIteratorIndex(image_wand, ino);

      seems about 3 times as fast as pixel pushing(not carefully measured)
      with color djvu, the bitplanes are mapped to wrong color(seems fixed).

    */
    pixelwidth=CharPixel;/*??? TODO figure out*/
    MagickExportImagePixels(image_wand,
                            0,0,
                            width,height,
                            exportdepth,
                            pixelwidth, 
                            /*&(img->pixmap));*/
                            ximg->data);
  }
  

  //TODO figure out imagecount here!
  if (MagickGetNumberImages(image_wand) > 1)
    img->data.lisp_val = Fcons (Qcount,
				Fcons (make_number (MagickGetNumberImages(image_wand)),
				       img->data.lisp_val));


#ifdef COLOR_TABLE_SUPPORT
  /* Remember colors allocated for this image.  */
  img->colors = colors_in_color_table (&img->ncolors);
  free_color_table ();

109857:d7a20b755b64

   Interface :index is same as for GIF.  */
  Lisp_Object image;
  long ino;
  image = image_spec_value (img->spec, QCindex, NULL);
  ino = INTEGERP (image) ? XFASTINT (image) : 0;



  if (ino >= MagickGetNumberImages(image_wand)) 
    { 
      image_error ("Invalid image number `%s' in image `%s'", 
         	   image, img->spec); 
      UNGCPRO; 
      return 0; 
    } 

 
  if (MagickGetNumberImages(image_wand) > 1)
    img->data.lisp_val = Fcons (Qcount,
                                Fcons (make_number (MagickGetNumberImages(image_wand)),
                                       img->data.lisp_val));
  if(ino==0)
    MagickSetFirstIterator(image_wand);
  else
    MagickSetIteratorIndex(image_wand, ino);

      seems about 3 times as fast as pixel pushing(not carefully measured)
      with color djvu, the bitplanes are mapped to wrong color(seems fixed).

    */
    pixelwidth=CharPixel;/*??? TODO figure out*/
#ifdef HAVE_MAGICKEXPORTIMAGEPIXELS    
    MagickExportImagePixels(image_wand,
                            0,0,
                            width,height,
                            exportdepth,
                            pixelwidth, 
                            /*&(img->pixmap));*/
                            ximg->data);
#else
    image_error("You dont have MagickExportImagePixels, upgrade ImageMagick if you want to try it!",Qnil,Qnil);
#endif    
  }
  

#ifdef COLOR_TABLE_SUPPORT
  /* Remember colors allocated for this image.  */
  img->colors = colors_in_color_table (&img->ncolors);
  free_color_table ();