tioga 1.6 → 1.7

data/split/Tioga/{pdfimage.c → shared/pdfimage.c}

@@ -99,14 +99,14 @@ static bool Is_monochrome(int obj_num)
    return false;
 }
 
-static void Write_Image_From_File(char *filename, int width, int height, char *out_info, int mask_obj_num)
+static void Write_Image_From_File(char *filename, int width, int height, char *out_info, int mask_obj_num, int *ierr)
 {
    FILE *jpg = fopen(filename, "r");
-   if (jpg == NULL) rb_raise(rb_eArgError, "Sorry: cannot open file for showing image (%s)\n", filename);
+   if (jpg == NULL) { RAISE_ERROR_s("Sorry: cannot open file for showing image (%s)\n", filename, ierr); return; }
    unsigned char *buff;
    int len, rd_len;
    int buff_len = 256000;
-   buff = ALLOC_N(unsigned char, buff_len);
+   buff = ALLOC_N_unsigned_char(buff_len);
    len = 0;
    while ((rd_len = fread(buff, 1, buff_len, jpg)) == buff_len) len += buff_len;
    len += rd_len;
@@ -129,13 +129,13 @@ static void Write_Image_From_File(char *filename, int width, int height, char *o
    fclose(jpg);
 }
 
-void Write_JPG(JPG_Info *xo)
+void Write_JPG(JPG_Info *xo, int *ierr)
 {
    Write_Image_From_File(xo->filename, xo->width, xo->height, 
-      "\t/Filter /DCTDecode\n\t/ColorSpace /DeviceRGB\n\t/BitsPerComponent 8\n", xo->mask_obj_num);
+      "\t/Filter /DCTDecode\n\t/ColorSpace /DeviceRGB\n\t/BitsPerComponent 8\n", xo->mask_obj_num, ierr);
 }
 
-void Write_Sampled(Sampled_Info *xo)
+void Write_Sampled(Sampled_Info *xo, int *ierr)
 {
    fprintf(OF, "\n\t/Subtype /Image\n");
    fprintf(OF, "\t/Filter /FlateDecode\n\t/Interpolate %s\n", (xo->interpolate)? "true":"false");
@@ -176,8 +176,8 @@ void Write_Sampled(Sampled_Info *xo)
          fprintf(OF, "\t/BitsPerComponent 8\n");
    }
    if (xo->mask_obj_num > 0) {
-      if (xo->image_type == MONO_IMAGE)
-         rb_raise(rb_eArgError, "Sorry: monochrome images must not have masks");
+      if (xo->image_type == MONO_IMAGE) {
+         RAISE_ERROR("Sorry: monochrome images must not have masks", ierr); return; }
       if (!Is_monochrome(xo->mask_obj_num)) fprintf(OF, "\t/SMask %i 0 R\n", xo->mask_obj_num);
       else fprintf(OF, "\t/Mask %i 0 R\n", xo->mask_obj_num);
    }
@@ -185,20 +185,21 @@ void Write_Sampled(Sampled_Info *xo)
       xo->value_mask_min <= 255 && xo->value_mask_max <= 255 && xo->value_mask_min <= xo->value_mask_max)
       fprintf(OF, "\t/Mask [%i %i]\n", xo->value_mask_min, xo->value_mask_max);
    new_len = (xo->length * 11)/10 + 100;
-   buffer = ALLOC_N(unsigned char, new_len);
-   if (flate_compress(buffer, &new_len, xo->image_data, xo->length) != FLATE_OK) {
+   buffer = ALLOC_N_unsigned_char(new_len);
+   if (do_flate_compress(buffer, &new_len, xo->image_data, xo->length) != FLATE_OK) {
       free(buffer);
-      rb_raise(rb_eArgError, "Error compressing image data");
+      RAISE_ERROR("Error compressing image data", ierr); 
+      return;
    }
    fprintf(OF, "\t/Length %li\n", new_len);
    fprintf(OF, "\t>>\nstream\n");
-   if (fwrite(buffer, 1, new_len, OF) < new_len)
-      rb_raise(rb_eArgError, "Error writing image data");
+   if (fwrite(buffer, 1, new_len, OF) < new_len) {
+      RAISE_ERROR("Error writing image data", ierr);  return; }
    free(buffer);
    fprintf(OF, "\nendstream\nendobj\n");
 }
 
-void Create_Transform_from_Points( // transform maps (0,0), (1,0), and (0,1) to the given points
+static void Create_Transform_from_Points( // transform maps (0,0), (1,0), and (0,1) to the given points
    double llx, double lly, double lrx, double lry, double ulx, double uly,
    double *a, double *b, double *c, double *d, double *e, double *f)
 {
@@ -206,25 +207,27 @@ void Create_Transform_from_Points( // transform maps (0,0), (1,0), and (0,1) to
    *a = lrx; *b = lry; *c = ulx; *d = uly;
 }
 
-void Get_Image_Dest(FM *p, VALUE image_destination, double *dest)
+static void Get_Image_Dest(FM *p, OBJ_PTR image_destination, double *dest, int *ierr)
 {
-   image_destination = rb_Array(image_destination);
-   if (RARRAY(image_destination)->len != 6)
-      rb_raise(rb_eArgError, "Sorry: invalid image destination array: must have 6 entries");
+   int len = Array_Len(image_destination,ierr);
+   if (*ierr != 0) return;
+   if (len != 6) {
+      RAISE_ERROR("Sorry: invalid image destination array: must have 6 entries", ierr); return; }
    int i;
    for (i = 0; i < 6; i++) {
-      VALUE entry = rb_ary_entry(image_destination, i);
-      entry = rb_Float(entry);
+      OBJ_PTR entry = Array_Entry(image_destination, i, ierr);
+      if (*ierr != 0) return;
       if (i % 2 == 0)
-         dest[i] = convert_figure_to_output_x(p,NUM2DBL(entry));
+         dest[i] = convert_figure_to_output_x(p,Number_to_double(entry, ierr));
       else
-         dest[i] = convert_figure_to_output_y(p,NUM2DBL(entry));
+         dest[i] = convert_figure_to_output_y(p,Number_to_double(entry, ierr));
+      if (*ierr != 0) return;
    }
 }
 
 static void Show_JPEG(FM *p, char *filename, int width, int height, double *dest, int subtype, int mask_obj_num)
 {
-   JPG_Info *xo = ALLOC(JPG_Info);
+   JPG_Info *xo = (JPG_Info *)calloc(1,sizeof(JPG_Info));
    xo->xobj_subtype = subtype;
    double llx = dest[0], lly = dest[1], lrx = dest[2], lry = dest[3], ulx = dest[4],  uly = dest[5];
    double a, b, c, d, e, f; // the transform to position the image
@@ -232,7 +235,7 @@ static void Show_JPEG(FM *p, char *filename, int width, int height, double *dest
    xobj_list = (XObject_Info *)xo;
    xo->xo_num = next_available_xo_number++;
    xo->obj_num = next_available_object_number++;
-   xo->filename = ALLOC_N(char, strlen(filename)+1);
+   xo->filename = ALLOC_N_char(strlen(filename)+1);
    strcpy(xo->filename, filename);
    xo->width = width;
    xo->height = height;
@@ -245,112 +248,91 @@ static void Show_JPEG(FM *p, char *filename, int width, int height, double *dest
    update_bbox(p, lrx+ulx-llx, lry+uly-lly);
 }
 
-void c_show_jpg(FM *p, char *filename, int width, int height, double *dest, int mask_obj_num)
-{
-   Show_JPEG(p, filename, width, height, dest, JPG_SUBTYPE, mask_obj_num);
-}
-
-VALUE FM_private_show_jpg(VALUE fmkr, VALUE filename, VALUE width, VALUE height, VALUE image_destination, VALUE mask_obj_num)
-{
+void c_private_show_jpg(OBJ_PTR fmkr, FM *p, char *filename, 
+   int width, int height, OBJ_PTR image_destination, int mask_obj_num, int *ierr) {
    double dest[6];
-   FM *p = Get_FM(fmkr);
-   if (constructing_path) rb_raise(rb_eArgError, "Sorry: must finish with current path before calling show_jpg");
-   Get_Image_Dest(p, image_destination, dest);
-   width = rb_Integer(width);
-   height = rb_Integer(height);
-   mask_obj_num = rb_Integer(mask_obj_num);
-   filename = rb_String(filename);
-   c_show_jpg(p, RSTRING_PTR(filename), NUM2INT(width), NUM2INT(height), dest, NUM2INT(mask_obj_num));
-   return fmkr;
+   if (constructing_path) {
+      RAISE_ERROR("Sorry: must finish with current path before calling show_jpg", ierr); return; }
+   Get_Image_Dest(p, image_destination, dest, ierr);
+   if (*ierr != 0) return;
+   Show_JPEG(p, filename, width, height, dest, JPG_SUBTYPE, mask_obj_num);
 }
 
-VALUE c_private_create_image_data(FM *p, double **data, long num_cols, long num_rows,
+OBJ_PTR c_private_create_image_data(OBJ_PTR fmkr, FM *p, OBJ_PTR table,
             int first_row, int last_row, int first_column, int last_column,
-            double min_value, double max_value, int max_code, int if_below_range, int if_above_range)
+            double min_val, double max_val, int max_code, int if_below_range, int if_above_range, int *ierr)
 {
+   long num_cols, num_rows;
+   double **data = Table_Data_for_Read(table, &num_cols, &num_rows, ierr);
+   if (*ierr != 0) RETURN_NIL;
    if (first_column < 0) first_column += num_cols;
    if (first_column < 0 || first_column >= num_cols)
-      rb_raise(rb_eArgError, "Sorry: invalid first_column specification (%i)", first_column);
+      RAISE_ERROR_i("Sorry: invalid first_column specification (%i)", first_column, ierr);
    if (last_column < 0) last_column += num_cols;
    if (last_column < 0 || last_column >= num_cols)
-      rb_raise(rb_eArgError, "Sorry: invalid last_column specification (%i)", last_column);
+      RAISE_ERROR_i("Sorry: invalid last_column specification (%i)", last_column, ierr);
    if (first_row < 0) first_row += num_rows;
    if (first_row < 0 || first_row >= num_rows)
-      rb_raise(rb_eArgError, "Sorry: invalid first_row specification (%i)", first_row);
+      RAISE_ERROR_i("Sorry: invalid first_row specification (%i)", first_row, ierr);
    if (last_row < 0) last_row += num_rows;
    if (last_row < 0 || last_row >= num_rows)
-      rb_raise(rb_eArgError, "Sorry: invalid last_row specification (%i)", last_row);
-   if (min_value >= max_value)
-      rb_raise(rb_eArgError, "Sorry: invalid range specification: min %g max %g", min_value, max_value);
+      RAISE_ERROR_i("Sorry: invalid last_row specification (%i)", last_row, ierr);
+   if (min_val >= max_val)
+      RAISE_ERROR_gg("Sorry: invalid range specification: min %g max %g", min_val, max_val, ierr);
    if (max_code <= 0 || max_code > 255)
-      rb_raise(rb_eArgError, "Sorry: invalid max_code specification (%i)", max_code);
+      RAISE_ERROR_i("Sorry: invalid max_code specification (%i)", max_code, ierr);
    if (if_below_range < 0 || if_below_range > 255)
-      rb_raise(rb_eArgError, "Sorry: invalid if_below_range specification (%i)", if_below_range);
+      RAISE_ERROR_i("Sorry: invalid if_below_range specification (%i)", if_below_range, ierr);
    if (if_above_range < 0 || if_above_range > 255)
-      rb_raise(rb_eArgError, "Sorry: invalid if_above_range specification (%i)", if_above_range);
+      RAISE_ERROR_i("Sorry: invalid if_above_range specification (%i)", if_above_range, ierr);
    int i, j, k, width = last_column - first_column + 1, height = last_row - first_row + 1;
    int sz = width * height;
-   if (sz <= 0) rb_raise(rb_eArgError, "Sorry: invalid data specification: width (%i) height (%i)", width, height);
-   char *buff = ALLOC_N(char, sz);
+   if (sz <= 0) RAISE_ERROR_ii("Sorry: invalid data specification: width (%i) height (%i)", width, height, ierr);
+   if (*ierr != 0) RETURN_NIL;
+   char *buff = ALLOC_N_char(sz);
    for (k = 0, i = first_row; i <= last_row; i++) {
       double *row = data[i];
       for (j = first_column; j <= last_column; j++) {
          double val = row[j];
-         if (val < min_value) buff[k++] = if_below_range;
-         else if (val > max_value) buff[k++] = if_above_range;
+         if (val < min_val) buff[k++] = if_below_range;
+         else if (val > max_val) buff[k++] = if_above_range;
          else {
-            val = max_code * (val - min_value)/(max_value - min_value);
+            val = max_code * (val - min_val)/(max_val - min_val);
             buff[k++] = ROUND(val);
          }
       }
    }
-   VALUE result = rb_str_new(buff, sz);
+   OBJ_PTR result = String_New(buff, sz);
    free(buff);
    return result;
 }
 
-VALUE FM_private_create_image_data(VALUE fmkr, VALUE data,
-            VALUE first_row, VALUE last_row, VALUE first_column, VALUE last_column,
-            VALUE min_value, VALUE max_value, VALUE max_code, VALUE if_below_range, VALUE if_above_range)
-{
-   FM *p = Get_FM(fmkr);
-   long num_cols, num_rows;
-   double **ary = Dtable_Ptr(data, &num_cols, &num_rows);
-   first_row = rb_Integer(first_row);
-   last_row = rb_Integer(last_row);
-   first_column = rb_Integer(first_column);
-   last_column = rb_Integer(last_column);
-   max_code = rb_Integer(max_code);
-   if_below_range = rb_Integer(if_below_range);
-   if_above_range = rb_Integer(if_above_range);
-   min_value = rb_Float(min_value);
-   max_value = rb_Float(max_value);
-   return c_private_create_image_data(p, ary, num_cols, num_rows, 
-      NUM2INT(first_row), NUM2INT(last_row), NUM2INT(first_column), NUM2INT(last_column),
-      NUM2DBL(min_value), NUM2DBL(max_value), NUM2INT(max_code), NUM2INT(if_below_range), NUM2INT(if_above_range));
-}
 
-static VALUE c_private_create_monochrome_image_data(FM *p, double **data, long num_cols, long num_rows,
+OBJ_PTR c_private_create_monochrome_image_data(OBJ_PTR fmkr, FM *p, OBJ_PTR table,
             int first_row, int last_row, int first_column, int last_column,
-            double boundary, bool reversed)
+            double boundary, bool reversed, int *ierr)
 {
+   long num_cols, num_rows;
+   double **data = Table_Data_for_Read(table, &num_cols, &num_rows, ierr);
+   if (*ierr != 0) RETURN_NIL;
    if (first_column < 0) first_column += num_cols;
    if (first_column < 0 || first_column >= num_cols)
-      rb_raise(rb_eArgError, "Sorry: invalid first_column specification (%i)", first_column);
+      RAISE_ERROR_i("Sorry: invalid first_column specification (%i)", first_column, ierr);
    if (last_column < 0) last_column += num_cols;
    if (last_column < 0 || last_column >= num_cols)
-      rb_raise(rb_eArgError, "Sorry: invalid last_column specification (%i)", last_column);
+      RAISE_ERROR_i("Sorry: invalid last_column specification (%i)", last_column, ierr);
    if (first_row < 0) first_row += num_rows;
    if (first_row < 0 || first_row >= num_rows)
-      rb_raise(rb_eArgError, "Sorry: invalid first_row specification (%i)", first_row);
+      RAISE_ERROR_i("Sorry: invalid first_row specification (%i)", first_row, ierr);
    if (last_row < 0) last_row += num_rows;
    if (last_row < 0 || last_row >= num_rows)
-      rb_raise(rb_eArgError, "Sorry: invalid last_row specification (%i)", last_row);
+      RAISE_ERROR_i("Sorry: invalid last_row specification (%i)", last_row, ierr);
    int i, j, k, width = last_column - first_column + 1, height = last_row - first_row + 1, bytes_per_row = (width+7)/8;
    int sz = bytes_per_row * 8 * height;
-   if (sz <= 0) rb_raise(rb_eArgError, "Sorry: invalid data specification: width (%i) height (%i)", width, height);
+   if (sz <= 0) RAISE_ERROR_ii("Sorry: invalid data specification: width (%i) height (%i)", width, height, ierr);
+   if (*ierr != 0) RETURN_NIL;
    // to simplify the process, do it in two stages: first get the values and then pack the bits
-   char *buff = ALLOC_N(char, sz);
+   char *buff = ALLOC_N_char(sz);
    for (k = 0, i = first_row; i <= last_row; i++) {
       double *row = data[i];
       for (j = first_column; j <= last_column; j++) {
@@ -362,7 +344,7 @@ static VALUE c_private_create_monochrome_image_data(FM *p, double **data, long n
       }
    }
    int num_bytes = (sz+7) >> 3;
-   char *bits = ALLOC_N(char, num_bytes), c = 0;
+   char *bits = ALLOC_N_char(num_bytes), c = 0;
    int num_bits = num_bytes << 3;
    for (i = 0, k = -1; i < num_bits; i++) {
       int bit = (i < sz)? buff[i] : 0;
@@ -374,163 +356,73 @@ static VALUE c_private_create_monochrome_image_data(FM *p, double **data, long n
       }
    }
    bits[k] = c;
-   VALUE result = rb_str_new(bits, num_bytes);
+   OBJ_PTR result = String_New(bits, num_bytes);
    free(bits); free(buff);
    return result;
 }
 
-VALUE FM_private_create_monochrome_image_data(VALUE fmkr, VALUE data,
-            VALUE first_row, VALUE last_row, VALUE first_column, VALUE last_column,
-            VALUE boundary, VALUE reverse)
-{
-   FM *p = Get_FM(fmkr);
-   long num_cols, num_rows;
-   double **ary = Dtable_Ptr(data, &num_cols, &num_rows);
-   first_row = rb_Integer(first_row);
-   last_row = rb_Integer(last_row);
-   first_column = rb_Integer(first_column);
-   last_column = rb_Integer(last_column);
-   boundary = rb_Float(boundary);
-   return c_private_create_monochrome_image_data(p, ary, num_cols, num_rows, 
-      NUM2INT(first_row), NUM2INT(last_row), NUM2INT(first_column), NUM2INT(last_column),
-      NUM2DBL(boundary), reverse != Qfalse);
-}
 
-int c_private_show_image(FM *p, int image_type, double *dest, bool interpolate, bool reversed, int w, int h, unsigned char* data, int len, 
-   int value_mask_min, int value_mask_max, int hival, unsigned char* lookup, int lookup_len, int mask_obj_num)
+OBJ_PTR c_private_show_image(OBJ_PTR fmkr, FM *p, int image_type, double llx, double lly, double lrx, double lry,
+    double ulx, double uly, bool interpolate, bool reversed, int w, int h, unsigned char* data, long len, 
+    OBJ_PTR mask_min, OBJ_PTR mask_max, OBJ_PTR hivalue, OBJ_PTR lookup_data, int mask_obj_num, int *ierr)
 {
-   Sampled_Info *xo = ALLOC(Sampled_Info);
+   unsigned char *lookup=NULL;
+   int value_mask_min = 256, value_mask_max = 256, lookup_len=0, hival=0;
+   if (constructing_path) { RAISE_ERROR("Sorry: must finish with current path before calling show_image", ierr); RETURN_NIL; }
+   if (image_type == COLORMAP_IMAGE) {
+      value_mask_min = Number_to_int(mask_min, ierr);
+      value_mask_max = Number_to_int(mask_max, ierr);
+      hival = Number_to_int(hivalue, ierr);
+      lookup = (unsigned char *)(String_Ptr(lookup_data, ierr));
+      lookup_len = String_Len(lookup_data, ierr);
+      if (*ierr != 0) RETURN_NIL;
+   }
+   
+   llx = convert_figure_to_output_x(p,llx);
+   lly = convert_figure_to_output_y(p,lly);
+   lrx = convert_figure_to_output_x(p,lrx);
+   lry = convert_figure_to_output_y(p,lry);
+   ulx = convert_figure_to_output_x(p,ulx);
+   uly = convert_figure_to_output_y(p,uly);
+
+   Sampled_Info *xo = (Sampled_Info *)calloc(1,sizeof(Sampled_Info));
    xo->xobj_subtype = SAMPLED_SUBTYPE;
-   double llx = dest[0], lly = dest[1], lrx = dest[2], lry = dest[3], ulx = dest[4],  uly = dest[5];
    double a, b, c, d, e, f; // the transform to position the image
    int ir, ic, id;
    xo->next = xobj_list;
    xobj_list = (XObject_Info *)xo;
    xo->xo_num = next_available_xo_number++;
    xo->obj_num = next_available_object_number++;
-   xo->image_data = ALLOC_N(unsigned char, len);
+   xo->image_data = ALLOC_N_unsigned_char(len);
    xo->length = len;
    xo->interpolate = interpolate;
    xo->reversed = reversed;
-   MEMCPY(xo->image_data, data, unsigned char, len);
+   memcpy(xo->image_data, data, len);
    xo->image_type = image_type;
    if (image_type != COLORMAP_IMAGE) xo->lookup = NULL;
    else {
-      if ((hival+1)*3 > lookup_len)
-         rb_raise(rb_eArgError, "Sorry: color space hival (%i) is too large for length of lookup table (%i)", hival, lookup_len);
+      if ((hival+1)*3 > lookup_len) {
+         RAISE_ERROR_ii("Sorry: color space hival (%i) is too large for length of lookup table (%i)", hival, lookup_len, ierr);
+         RETURN_NIL;
+      }
       xo->hival = hival;
       lookup_len = (hival+1) * 3;
-      xo->lookup = ALLOC_N(unsigned char, lookup_len);
+      xo->lookup = ALLOC_N_unsigned_char(lookup_len);
       xo->lookup_len = lookup_len;
-      MEMCPY(xo->lookup, lookup, unsigned char, lookup_len);
+      memcpy(xo->lookup, lookup, lookup_len);
    }
    xo->width = w;
-   xo->height = h;
-   
-   if (0) {
-    printf("len=%i  w=%i  h=%i\ndata\n\n", len, w, h);
-   for (ir=0; ir<h; ir++) {
-    for (ic=0; ic<w; ic++) {
-        id = (int)data[ir*h+ic];
-        printf("%3i ",id);
-    }
-    printf("\n");
-   }
-   
-   
-    printf("\n\nxo->image_data\n");
-   for (ir=0; ir<h; ir++) {
-    for (ic=0; ic<w; ic++) {
-        id = (int)xo->image_data[ir*h+ic];
-        printf("%3i ",id);
-    }
-    printf("\n\n");
-   }
-   }
-   
-   
+   xo->height = h;   
    xo->value_mask_min = value_mask_min;
    xo->value_mask_max = value_mask_max;
    xo->mask_obj_num = mask_obj_num;
-   if (mask_obj_num == -1) return xo->obj_num; // this image is being used as an opacity mask
+   if (mask_obj_num == -1) return Integer_New(xo->obj_num); // this image is being used as an opacity mask
    Create_Transform_from_Points(llx, lly, lrx, lry, ulx, uly, &a, &b, &c, &d, &e, &f);
    fprintf(TF, "q %0.2f %0.2f %0.2f %0.2f %0.2f %0.2f cm /XObj%i Do Q\n", a, b, c, d, e, f, xo->xo_num);
    update_bbox(p, llx, lly);
    update_bbox(p, lrx, lry);
    update_bbox(p, ulx, uly);
    update_bbox(p, lrx+ulx-llx, lry+uly-lly);
-   return xo->obj_num;
-}
-
-static VALUE private_show_image(int image_type, VALUE fmkr, VALUE llx, VALUE lly, VALUE lrx, VALUE lry,
-    VALUE ulx, VALUE uly, VALUE interpolate, VALUE reversed, VALUE w, VALUE h, VALUE data, VALUE value_mask_min, VALUE value_mask_max,
-    VALUE hival, VALUE lookup, VALUE mask_obj_num)
-{
-   double dest[6];
-   unsigned char *lookup_str=NULL;
-   int mask_min = 256, mask_max = 256, lookup_len=0, hivalue=0;
-   FM *p = Get_FM(fmkr);
-   if (constructing_path) rb_raise(rb_eArgError, "Sorry: must finish with current path before calling show_image");
-   data = rb_String(data);
-   llx = rb_Float(llx);
-   lly = rb_Float(lly);
-   lrx = rb_Float(lrx);
-   lry = rb_Float(lry);
-   ulx = rb_Float(ulx);
-   uly = rb_Float(uly);
-   w = rb_Integer(w);
-   h = rb_Integer(h);
-   mask_obj_num = rb_Integer(mask_obj_num);
-   if (image_type == COLORMAP_IMAGE) {
-      value_mask_min = rb_Integer(value_mask_min); mask_min = NUM2INT(value_mask_min);
-      value_mask_max = rb_Integer(value_mask_max); mask_max = NUM2INT(value_mask_max);
-      hival = rb_Integer(hival);
-      hivalue = NUM2INT(hival);
-      lookup = rb_String(lookup);
-      lookup_str = (unsigned char *)(RSTRING_PTR(lookup));
-      lookup_len = RSTRING_LEN(lookup);
-   }
-   dest[0] = convert_figure_to_output_x(p,NUM2DBL(llx));
-   dest[1] = convert_figure_to_output_y(p,NUM2DBL(lly));
-   dest[2] = convert_figure_to_output_x(p,NUM2DBL(lrx));
-   dest[3] = convert_figure_to_output_y(p,NUM2DBL(lry));
-   dest[4] = convert_figure_to_output_x(p,NUM2DBL(ulx));
-   dest[5] = convert_figure_to_output_y(p,NUM2DBL(uly));
-   int obj_num = c_private_show_image(p, image_type, dest, (interpolate != Qfalse), (reversed == Qtrue), NUM2INT(w), NUM2INT(h), 
-      (unsigned char *)RSTRING_PTR(data), RSTRING_LEN(data), mask_min, mask_max, hivalue, lookup_str, lookup_len, NUM2INT(mask_obj_num));
-   return INT2FIX(obj_num);
-}
-
-VALUE FM_private_show_rgb_image(VALUE fmkr, VALUE llx, VALUE lly, VALUE lrx, VALUE lry,
-    VALUE ulx, VALUE uly, VALUE interpolate, VALUE w, VALUE h, VALUE data, VALUE mask_obj_num)
-{
-   return private_show_image(RGB_IMAGE, fmkr, llx, lly, lrx, lry, ulx, uly, interpolate, Qfalse, w, h, data, Qnil, Qnil, Qnil, Qnil, mask_obj_num);
-}
-
-VALUE FM_private_show_cmyk_image(VALUE fmkr, VALUE llx, VALUE lly, VALUE lrx, VALUE lry,
-    VALUE ulx, VALUE uly, VALUE interpolate, VALUE w, VALUE h, VALUE data, VALUE mask_obj_num)
-{
-   return private_show_image(CMYK_IMAGE, fmkr, llx, lly, lrx, lry, ulx, uly, interpolate, Qfalse, w, h, data, Qnil, Qnil, Qnil, Qnil, mask_obj_num);
-}
-
-VALUE FM_private_show_grayscale_image(VALUE fmkr, VALUE llx, VALUE lly, VALUE lrx, VALUE lry,
-    VALUE ulx, VALUE uly, VALUE interpolate, VALUE w, VALUE h, VALUE data, VALUE mask_obj_num)
-{
-   return private_show_image(GRAY_IMAGE, fmkr, llx, lly, lrx, lry, ulx, uly, interpolate, Qfalse, w, h, data, Qnil, Qnil, Qnil, Qnil, mask_obj_num);
-}
-
-VALUE FM_private_show_monochrome_image(VALUE fmkr, VALUE llx, VALUE lly, VALUE lrx, VALUE lry,
-    VALUE ulx, VALUE uly, VALUE interpolate, VALUE reversed, VALUE w, VALUE h, VALUE data, VALUE mask_obj_num)
-{
-   return private_show_image(MONO_IMAGE, fmkr, llx, lly, lrx, lry, ulx, uly, interpolate, reversed, 
-         w, h, data, Qnil, Qnil, Qnil, Qnil, mask_obj_num);
-}
-
-VALUE FM_private_show_image(VALUE fmkr, VALUE llx, VALUE lly, VALUE lrx, VALUE lry,
-    VALUE ulx, VALUE uly, VALUE interpolate, VALUE w, VALUE h, VALUE data,
-    VALUE value_mask_min, VALUE value_mask_max, VALUE hival, VALUE lookup, VALUE mask_obj_num)
-{
-   return private_show_image(COLORMAP_IMAGE, fmkr, llx, lly, lrx, lry, ulx, uly, interpolate, Qfalse, w, h, data, 
-      value_mask_min, value_mask_max, hival, lookup, mask_obj_num);
+   return Integer_New(xo->obj_num);
 }