rmagick 2.8.0 → 2.9.0

data/ext/RMagick/rmdraw.c

@@ -1,10 +1,9 @@
-/* $Id: rmdraw.c,v 1.68 2008/09/29 22:15:16 rmagick Exp $ */
+/* $Id: rmdraw.c,v 1.75 2008/12/31 00:46:45 rmagick Exp $ */
 /*============================================================================\
 |                Copyright (C) 2008 by Timothy P. Hunter
 | Name:     rmdraw.c
 | Author:   Tim Hunter
 | Purpose:  Contains Draw class methods.
-|           Contains Montage class methods.
 \============================================================================*/
 
 #include "rmagick.h"
@@ -12,7 +11,6 @@
 
 static void mark_Draw(void *);
 static void destroy_Draw(void *);
-static void destroy_Montage(void *);
 static VALUE new_DrawOptions(void);
 
 typedef MagickBooleanType (get_type_metrics_func_t)(Image *, const DrawInfo *, TypeMetric *);
@@ -30,7 +28,7 @@ Draw_affine_eq(VALUE self, VALUE matrix)
 
     rb_check_frozen(self);
     Data_Get_Struct(self, Draw, draw);
-    AffineMatrix_to_AffineMatrix(&draw->info->affine, matrix);
+    Export_AffineMatrix(&draw->info->affine, matrix);
     return self;
 }
 
@@ -300,6 +298,274 @@ Draw_gravity_eq(VALUE self, VALUE grav)
 }
 
 
+/*
+    Method:     Draw#kerning=float
+    Purpose:    space between two letters
+    Notes:      new for 6.4.7-8
+*/
+VALUE
+Draw_kerning_eq(VALUE self, VALUE kerning)
+{
+#if defined(HAVE_ST_KERNING)
+    Draw *draw;
+
+    rb_check_frozen(self);
+    Data_Get_Struct(self, Draw, draw);
+    draw->info->kerning = NUM2DBL(kerning);
+    return self;
+#else
+    rm_not_implemented();
+    return (VALUE)0;
+    self = self;
+    kerning = kerning;
+#endif
+}
+
+
+/*
+    Method:     Draw#interword_spacing
+    Purpose:    space between two words
+    Notes:      new for 6.4.8-0
+*/
+VALUE
+Draw_interword_spacing_eq(VALUE self, VALUE spacing)
+{
+#if defined(HAVE_ST_INTERWORD_SPACING)
+    Draw *draw;
+
+    rb_check_frozen(self);
+    Data_Get_Struct(self, Draw, draw);
+    draw->info->interword_spacing = NUM2DBL(spacing);
+    return self;
+#else
+    rm_not_implemented();
+    return (VALUE)0;
+    self = self;
+    spacing = spacing;
+#endif
+}
+
+
+/*
+    Static:     image_to_str
+    Purpose:    Convert an image to a blob and the blob to a String
+    Notes:      Returns Qnil if there is no image
+*/
+static VALUE
+image_to_str(Image *image)
+{
+    volatile VALUE dimg = Qnil;
+    unsigned char *blob;
+    size_t length;
+    Info *info;
+    ExceptionInfo exception;
+
+    if (image)
+    {
+        info = CloneImageInfo(NULL);
+        GetExceptionInfo(&exception);
+        blob = ImageToBlob(info, image, &length, &exception);
+        DestroyImageInfo(info);
+        CHECK_EXCEPTION();
+        DestroyExceptionInfo(&exception);
+        dimg = rb_str_new((char *)blob, (long)length);
+        magick_free((void*)blob);
+    }
+
+    return dimg;
+}
+
+
+/*
+    Static:     str_to_image
+    Purpose:    Undo the image_to_str, above.
+    Notes:      Returns NULL if the argument is Qnil
+*/
+static
+Image *str_to_image(VALUE str)
+{
+    Image *image = NULL;
+    Info *info;
+    ExceptionInfo exception;
+
+    if (str != Qnil)
+    {
+        info = CloneImageInfo(NULL);
+        GetExceptionInfo(&exception);
+        image = BlobToImage(info, RSTRING_PTR(str), RSTRING_LEN(str), &exception);
+        DestroyImageInfo(info);
+        CHECK_EXCEPTION();
+        DestroyExceptionInfo(&exception);
+    }
+
+    return image;
+}
+
+
+/*
+    Method:     Draw#marshal_dump
+    Purpose:    Custom marshal for Draw objects
+    Notes:      Instead of trying to replicate Ruby's support for cross-system
+                marshalling, exploit it. Convert the Draw fields to Ruby objects
+                and store them in a hash. Let Ruby marshal the hash.
+
+                Commented out code that dumps/loads fields that are used internally
+                by ImageMagick and shouldn't be marshaled. I left the code as
+                placeholders so I'll know which fields have been deliberately
+                omitted.
+    To do:      Handle gradients when christy gets the new gradient support added (23Dec08)
+*/
+VALUE
+Draw_marshal_dump(VALUE self)
+{
+    Draw *draw;
+    VALUE ddraw;
+
+    Data_Get_Struct(self, Draw, draw);
+
+    // Raise an exception if the Draw has a non-NULL gradient or element_reference field
+    if (draw->info->element_reference.type != UndefinedReference
+        || draw->info->gradient.type != UndefinedGradient)
+    {
+        rb_raise(rb_eTypeError, "can't dump gradient definition");
+    }
+
+    ddraw = rb_hash_new();
+
+    // rb_hash_aset(ddraw, CSTR2SYM("primitive"), MAGICK_STRING_TO_OBJ(draw->info->primitive)); internal
+    // rb_hash_aset(ddraw, CSTR2SYM("geometry"), MAGICK_STRING_TO_OBJ(draw->info->geometry)); set by "text" primitive
+    // rb_hash_aset(ddraw, CSTR2SYM("viewbox"), Import_RectangleInfo(&draw->info->viewbox)); internal
+    rb_hash_aset(ddraw, CSTR2SYM("affine"), Import_AffineMatrix(&draw->info->affine));
+    rb_hash_aset(ddraw, CSTR2SYM("gravity"), INT2FIX(draw->info->gravity));
+    rb_hash_aset(ddraw, CSTR2SYM("fill"), Pixel_from_PixelPacket(&draw->info->fill));
+    rb_hash_aset(ddraw, CSTR2SYM("stroke"), Pixel_from_PixelPacket(&draw->info->stroke));
+    rb_hash_aset(ddraw, CSTR2SYM("stroke_width"), rb_float_new(draw->info->stroke_width));
+    // rb_hash_aset(ddraw, CSTR2SYM("gradient"), Qnil);  // not used yet
+    rb_hash_aset(ddraw, CSTR2SYM("fill_pattern"), image_to_str(draw->info->fill_pattern));
+    rb_hash_aset(ddraw, CSTR2SYM("tile"), Qnil); // deprecated
+    rb_hash_aset(ddraw, CSTR2SYM("stroke_pattern"), image_to_str(draw->info->stroke_pattern));
+    rb_hash_aset(ddraw, CSTR2SYM("stroke_antialias"), draw->info->stroke_antialias ? Qtrue : Qfalse);
+    rb_hash_aset(ddraw, CSTR2SYM("text_antialias"), draw->info->text_antialias ? Qtrue : Qfalse);
+    // rb_hash_aset(ddraw, CSTR2SYM("fill_rule"), INT2FIX(draw->info->fill_rule)); internal
+    // rb_hash_aset(ddraw, CSTR2SYM("linecap"), INT2FIX(draw->info->linecap));
+    // rb_hash_aset(ddraw, CSTR2SYM("linejoin"), INT2FIX(draw->info->linejoin));
+    // rb_hash_aset(ddraw, CSTR2SYM("miterlimit"), ULONG2NUM(draw->info->miterlimit));
+    // rb_hash_aset(ddraw, CSTR2SYM("dash_offset"), rb_float_new(draw->info->dash_offset));
+    rb_hash_aset(ddraw, CSTR2SYM("decorate"), INT2FIX(draw->info->decorate));
+    // rb_hash_aset(ddraw, CSTR2SYM("compose"), INT2FIX(draw->info->compose)); set via "image" primitive
+    // rb_hash_aset(ddraw, CSTR2SYM("text"), MAGICK_STRING_TO_OBJ(draw->info->text)); set via "text" primitive
+    // rb_hash_aset(ddraw, CSTR2SYM("face"), Qnil);  internal
+    rb_hash_aset(ddraw, CSTR2SYM("font"), MAGICK_STRING_TO_OBJ(draw->info->font));
+    // rb_hash_aset(ddraw, CSTR2SYM("metrics"), Qnil);   internal
+    rb_hash_aset(ddraw, CSTR2SYM("family"), MAGICK_STRING_TO_OBJ(draw->info->family));
+    rb_hash_aset(ddraw, CSTR2SYM("style"), INT2FIX(draw->info->style));
+    rb_hash_aset(ddraw, CSTR2SYM("stretch"), INT2FIX(draw->info->stretch));
+    rb_hash_aset(ddraw, CSTR2SYM("weight"), ULONG2NUM(draw->info->weight));
+    rb_hash_aset(ddraw, CSTR2SYM("encoding"), MAGICK_STRING_TO_OBJ(draw->info->encoding));
+    rb_hash_aset(ddraw, CSTR2SYM("pointsize"), rb_float_new(draw->info->pointsize));
+    rb_hash_aset(ddraw, CSTR2SYM("density"), MAGICK_STRING_TO_OBJ(draw->info->density));
+    rb_hash_aset(ddraw, CSTR2SYM("align"), INT2FIX(draw->info->align));
+    rb_hash_aset(ddraw, CSTR2SYM("undercolor"), Pixel_from_PixelPacket(&draw->info->undercolor));
+    // rb_hash_aset(ddraw, CSTR2SYM("border_color"), Pixel_from_PixelPacket(&draw->info->border_color)); Montage and Polaroid
+    // rb_hash_aset(ddraw, CSTR2SYM("server_name"), MAGICK_STRING_TO_OBJ(draw->info->server_name));
+    // rb_hash_aset(ddraw, CSTR2SYM("dash_pattern"), dash_pattern_to_array(draw->info->dash_pattern)); internal
+    // rb_hash_aset(ddraw, CSTR2SYM("clip_mask"), MAGICK_STRING_TO_OBJ(draw->info->clip_mask)); internal
+    // rb_hash_aset(ddraw, CSTR2SYM("bounds"), Import_SegmentInfo(&draw->info->bounds)); internal
+    rb_hash_aset(ddraw, CSTR2SYM("clip_units"), INT2FIX(draw->info->clip_units));
+    rb_hash_aset(ddraw, CSTR2SYM("opacity"), QUANTUM2NUM(draw->info->opacity));
+    // rb_hash_aset(ddraw, CSTR2SYM("render"), draw->info->render ? Qtrue : Qfalse); internal
+    // rb_hash_aset(ddraw, CSTR2SYM("element_reference"), Qnil);     // not used yet
+    // rb_hash_aset(ddraw, CSTR2SYM("debug"), draw->info->debug ? Qtrue : Qfalse);
+#if defined(HAVE_ST_KERNING)
+    rb_hash_aset(ddraw, CSTR2SYM("kerning"), rb_float_new(draw->info->kerning));
+#endif
+#if defined(HAVE_ST_INTERWORD_SPACING)
+    rb_hash_aset(ddraw, CSTR2SYM("interword_spacing"), rb_float_new(draw->info->interword_spacing));
+#endif
+
+    // Non-DrawInfo fields
+    rb_hash_aset(ddraw, CSTR2SYM("primitives"), draw->primitives);
+    // rb_hash_aset(ddraw, CSTR2SYM("shadow_color"), Pixel_from_PixelPacket(&draw->shadow_color)); Polaroid-only
+
+    return ddraw;
+}
+
+
+/*
+    Method:     Draw#marshal_load
+    Purpose:    Support Marsal.load
+    Notes:      On entry all fields are all-bits-0
+*/
+VALUE
+Draw_marshal_load(VALUE self, VALUE ddraw)
+{
+    Draw *draw;
+    Pixel *pixel;
+    volatile VALUE val;
+
+    Data_Get_Struct(self, Draw, draw);
+
+    draw->info = magick_malloc(sizeof(DrawInfo));
+    if (!draw->info)
+    {
+        rb_raise(rb_eNoMemError, "not enough memory to continue");
+    }
+    GetDrawInfo(NULL, draw->info);
+
+    OBJ_TO_MAGICK_STRING(draw->info->geometry, rb_hash_aref(ddraw, CSTR2SYM("geometry")));
+
+    //val = rb_hash_aref(ddraw, CSTR2SYM("viewbox"));
+    //Export_RectangleInfo(&draw->info->viewbox, val);
+
+    val = rb_hash_aref(ddraw, CSTR2SYM("affine"));
+    Export_AffineMatrix(&draw->info->affine, val);
+
+    draw->info->gravity = (GravityType) FIX2INT(rb_hash_aref(ddraw, CSTR2SYM("gravity")));
+
+    val = rb_hash_aref(ddraw, CSTR2SYM("fill"));
+    Data_Get_Struct(val, Pixel, pixel);
+    draw->info->fill =  *pixel;
+
+    val = rb_hash_aref(ddraw, CSTR2SYM("stroke"));
+    Data_Get_Struct(val, Pixel, pixel);
+    draw->info->stroke = *pixel;
+
+    draw->info->stroke_width = NUM2DBL(rb_hash_aref(ddraw, CSTR2SYM("stroke_width")));
+    draw->info->fill_pattern = str_to_image(rb_hash_aref(ddraw, CSTR2SYM("fill_pattern")));
+    draw->info->stroke_pattern = str_to_image(rb_hash_aref(ddraw, CSTR2SYM("stroke_pattern")));
+    draw->info->stroke_antialias = RTEST(rb_hash_aref(ddraw, CSTR2SYM("stroke_antialias")));
+    draw->info->text_antialias = RTEST(rb_hash_aref(ddraw, CSTR2SYM("text_antialias")));
+    draw->info->decorate = (DecorationType) FIX2INT(rb_hash_aref(ddraw, CSTR2SYM("decorate")));
+    OBJ_TO_MAGICK_STRING(draw->info->font, rb_hash_aref(ddraw, CSTR2SYM("font")));
+    OBJ_TO_MAGICK_STRING(draw->info->family, rb_hash_aref(ddraw, CSTR2SYM("family")));
+
+    draw->info->style = (StyleType) FIX2INT(rb_hash_aref(ddraw, CSTR2SYM("style")));
+    draw->info->stretch = (StretchType) FIX2INT(rb_hash_aref(ddraw, CSTR2SYM("stretch")));
+    draw->info->weight = NUM2ULONG(rb_hash_aref(ddraw, CSTR2SYM("weight")));
+    OBJ_TO_MAGICK_STRING(draw->info->encoding, rb_hash_aref(ddraw, CSTR2SYM("encoding")));
+    draw->info->pointsize = NUM2DBL(rb_hash_aref(ddraw, CSTR2SYM("pointsize")));
+    OBJ_TO_MAGICK_STRING(draw->info->density, rb_hash_aref(ddraw, CSTR2SYM("density")));
+    draw->info->align = (AlignType) FIX2INT(rb_hash_aref(ddraw, CSTR2SYM("align")));
+
+    val = rb_hash_aref(ddraw, CSTR2SYM("undercolor"));
+    Data_Get_Struct(val, Pixel, pixel);
+    draw->info->undercolor = *pixel;
+
+    draw->info->clip_units = FIX2INT(rb_hash_aref(ddraw, CSTR2SYM("clip_units")));
+    draw->info->opacity = NUM2QUANTUM(rb_hash_aref(ddraw, CSTR2SYM("opacity")));
+#if defined(HAVE_ST_KERNING)
+    draw->info->kerning = NUM2DBL(rb_hash_aref(ddraw, CSTR2SYM("kerning")));
+#endif
+#if defined(HAVE_ST_INTERWORD_SPACING)
+    draw->info->interword_spacing = NUM2DBL(rb_hash_aref(ddraw, CSTR2SYM("interword_spacing")));
+#endif
+
+    draw->primitives = rb_hash_aref(ddraw, CSTR2SYM("primitives"));
+
+    return self;
+}
+
+
 /*
     Method:     Draw#pointsize=
     Purpose:    pointsize attribute writer
@@ -989,378 +1255,6 @@ DrawOptions_initialize(VALUE self)
 }
 
 
-/*
-    Method:     Magick::Montage#background_color(color-name)
-    Purpose:    set background_color value
-*/
-VALUE
-Montage_background_color_eq(VALUE self, VALUE color)
-{
-    Montage *montage;
-
-    Data_Get_Struct(self, Montage, montage);
-    Color_to_PixelPacket(&montage->info->background_color, color);
-    return self;
-}
-
-
-/*
-    Method:     Magick::Montage#border_color(color-name)
-    Purpose:    set border_color value
-*/
-VALUE
-Montage_border_color_eq(VALUE self, VALUE color)
-{
-    Montage *montage;
-
-    Data_Get_Struct(self, Montage, montage);
-    Color_to_PixelPacket(&montage->info->border_color, color);
-    return self;
-}
-
-
-/*
-    Method:     Magick::Montage#border_width(width)
-    Purpose:    set border_width value
-*/
-VALUE
-Montage_border_width_eq(VALUE self, VALUE width)
-{
-    Montage *montage;
-
-    Data_Get_Struct(self, Montage, montage);
-    montage->info->border_width = NUM2ULONG(width);
-    return self;
-}
-
-
-/*
-    Method:     Magick::Montage#compose(width)
-    Purpose:    set a composition operator
-*/
-VALUE
-Montage_compose_eq(VALUE self, VALUE compose)
-{
-    Montage *montage;
-
-    Data_Get_Struct(self, Montage, montage);
-    VALUE_TO_ENUM(compose, montage->compose, CompositeOperator);
-    return self;
-}
-
-
-/*
-    Method:     Magick::Montage#filename(name)
-    Purpose:    set filename value
-*/
-VALUE
-Montage_filename_eq(VALUE self, VALUE filename)
-{
-    Montage *montage;
-
-    Data_Get_Struct(self, Montage, montage);
-    strncpy(montage->info->filename, StringValuePtr(filename), MaxTextExtent-1);
-    return self;
-}
-
-
-/*
-    Method:     Magick::Montage#fill(color-name)
-    Purpose:    set fill value
-*/
-VALUE
-Montage_fill_eq(VALUE self, VALUE color)
-{
-    Montage *montage;
-
-    Data_Get_Struct(self, Montage, montage);
-    Color_to_PixelPacket(&montage->info->fill, color);
-    return self;
-}
-
-
-/*
-    Method:     Magick::Montage#font(font-name)
-    Purpose:    set font value
-*/
-VALUE
-Montage_font_eq(VALUE self, VALUE font)
-{
-    Montage *montage;
-
-    Data_Get_Struct(self, Montage, montage);
-    magick_clone_string(&montage->info->font, StringValuePtr(font));
-
-    return self;
-}
-
-
-/*
-    Method:     Magick::Montage#frame(frame-geometry)
-    Purpose:    set frame value
-    Notes:      The geometry is a string in the form:
-                <width>x<height>+<outer-bevel-width>+<inner-bevel-width>
-                or a Geometry object
-*/
-VALUE
-Montage_frame_eq(VALUE self, VALUE frame_arg)
-{
-    Montage *montage;
-    volatile VALUE frame;
-
-    Data_Get_Struct(self, Montage, montage);
-    frame = rm_to_s(frame_arg);
-    magick_clone_string(&montage->info->frame, StringValuePtr(frame));
-
-    return self;
-}
-
-
-/*
-    Method:     Magick::Montage#geometry(geometry)
-    Purpose:    set geometry value
-*/
-VALUE
-Montage_geometry_eq(VALUE self, VALUE geometry_arg)
-{
-    Montage *montage;
-    volatile VALUE geometry;
-
-    Data_Get_Struct(self, Montage, montage);
-    geometry = rm_to_s(geometry_arg);
-    magick_clone_string(&montage->info->geometry, StringValuePtr(geometry));
-
-    return self;
-}
-
-
-/*
-    Method:     Magick::Montage#gravity(gravity-type)
-    Purpose:    set gravity value
-*/
-VALUE
-Montage_gravity_eq(VALUE self, VALUE gravity)
-{
-    Montage *montage;
-
-    Data_Get_Struct(self, Montage, montage);
-    VALUE_TO_ENUM(gravity, montage->info->gravity, GravityType);
-    return self;
-}
-
-
-/*
-    Method:     Magick::Montage#initialize
-    Purpose:    Place-holder
-*/
-VALUE
-Montage_initialize(VALUE self)
-{
-    // Nothing to do!
-    return self;
-}
-
-
-/*
-    Method:     Magick::Montage#matte_color(color-name)
-    Purpose:    set matte_color value
-*/
-VALUE
-Montage_matte_color_eq(VALUE self, VALUE color)
-{
-    Montage *montage;
-
-    Data_Get_Struct(self, Montage, montage);
-    Color_to_PixelPacket(&montage->info->matte_color, color);
-    return self;
-}
-
-
-/*
-    Method:     Montage.new
-    Purpose:    Create a new Montage object
-*/
-VALUE
-Montage_alloc(VALUE class)
-{
-    MontageInfo *montage_info;
-    Montage *montage;
-    Info *image_info;
-    volatile VALUE montage_obj;
-
-    // DO NOT call rm_info_new - we don't want to support an Info parm block.
-    image_info = CloneImageInfo(NULL);
-    if (!image_info)
-    {
-        rb_raise(rb_eNoMemError, "not enough memory to initialize Info object");
-    }
-
-    montage_info = CloneMontageInfo(image_info, NULL);
-    (void) (void) DestroyImageInfo(image_info);
-
-    if (!montage_info)
-    {
-        rb_raise(rb_eNoMemError, "not enough memory to initialize Magick::Montage object");
-    }
-
-    montage = ALLOC(Montage);
-    montage->info = montage_info;
-    montage->compose = OverCompositeOp;
-    montage_obj = Data_Wrap_Struct(class, NULL, destroy_Montage, montage);
-
-    return montage_obj;
-}
-
-
-/*
-    Extern:     rm_montage_new()
-    Purpose:    Return a new Magick::Montage object
-*/
-
-VALUE
-rm_montage_new(void)
-{
-    return Montage_initialize(Montage_alloc(Class_Montage));
-}
-
-/*
-    Static:     destroy_Montage
-    Purpose:    destory the MontageInfo struct and free the Montage struct
-    Notes:      if the Magick::Montage#texture method wrote a texture file,
-                the file is deleted here.
-*/
-static void
-destroy_Montage(void *obj)
-{
-    Montage *montage = obj;
-
-    // If we saved a temporary texture image, delete it now.
-    if (montage->info && montage->info->texture != NULL)
-    {
-        rm_delete_temp_image(montage->info->texture);
-        magick_free(montage->info->texture);
-        montage->info->texture = NULL;
-    }
-    if (montage->info)
-    {
-        (void) DestroyMontageInfo(montage->info);
-        montage->info = NULL;
-    }
-    xfree(montage);
-}
-
-
-/*
-    Method:     Magick::Montage#pointsize=size
-    Purpose:    set pointsize value
-*/
-VALUE
-Montage_pointsize_eq(VALUE self, VALUE size)
-{
-    Montage *montage;
-
-    Data_Get_Struct(self, Montage, montage);
-    montage->info->pointsize = NUM2DBL(size);
-    return self;
-}
-
-
-/*
-    Method:     Magick::Montage#shadow=shadow
-    Purpose:    set shadow value
-*/
-VALUE
-Montage_shadow_eq(VALUE self, VALUE shadow)
-{
-    Montage *montage;
-
-    Data_Get_Struct(self, Montage, montage);
-    montage->info->shadow = (MagickBooleanType) RTEST(shadow);
-    return self;
-}
-
-
-/*
-    Method:     Magick::Montage#stroke(color-name)
-    Purpose:    set stroke value
-*/
-VALUE
-Montage_stroke_eq(VALUE self, VALUE color)
-{
-    Montage *montage;
-
-    Data_Get_Struct(self, Montage, montage);
-    Color_to_PixelPacket(&montage->info->stroke, color);
-    return self;
-}
-
-
-/*
-    Method:     Montage#texture(texture-image)
-    Purpose:    set texture value
-*/
-VALUE
-Montage_texture_eq(VALUE self, VALUE texture)
-{
-    Montage *montage;
-    Image *texture_image;
-    char temp_name[MaxTextExtent];
-
-    Data_Get_Struct(self, Montage, montage);
-
-    // If we had a previously defined temp texture image,
-    // remove it now in preparation for this new one.
-    if (montage->info->texture)
-    {
-        rm_delete_temp_image(montage->info->texture);
-        magick_free(montage->info->texture);
-        montage->info->texture = NULL;
-    }
-
-    texture = rm_cur_image(texture);
-    texture_image = rm_check_destroyed(texture);
-
-    // Write a temp copy of the image & save its name.
-    rm_write_temp_image(texture_image, temp_name);
-    magick_clone_string(&montage->info->texture, temp_name);
-
-    return self;
-}
-
-
-/*
-    Method:     Magick::Montage#tile(tile)
-    Purpose:    set tile value
-*/
-VALUE
-Montage_tile_eq(VALUE self, VALUE tile_arg)
-{
-    Montage *montage;
-    volatile VALUE tile;
-
-    Data_Get_Struct(self, Montage, montage);
-    tile = rm_to_s(tile_arg);
-    magick_clone_string(&montage->info->tile, StringValuePtr(tile));
-
-    return self;
-}
-
-
-/*
-    Method:     Magick::Montage#title(title)
-    Purpose:    set title value
-*/
-VALUE
-Montage_title_eq(VALUE self, VALUE title)
-{
-    Montage *montage;
-
-    Data_Get_Struct(self, Montage, montage);
-    magick_clone_string(&montage->info->title, StringValuePtr(title));
-    return self;
-}
-
-
 /*
     Extern:     PolaroidOptions_alloc()
     Purpose:    Allocate a new Magick::PolaroidOptions object
@@ -1579,5 +1473,5 @@ get_type_metrics(
         rb_raise(rb_eRuntimeError, "Can't measure text. Are the fonts installed? "
                  "Is the FreeType library installed?");
     }
-    return TypeMetric_from_TypeMetric(&metrics);
+    return Import_TypeMetric(&metrics);
 }