rmagick 3.2.0 → 4.3.0

data/ext/RMagick/rmdraw.c

@@ -18,19 +18,19 @@ static void destroy_Draw(void *);
 static VALUE new_DrawOptions(void);
 
 /** Method that gets type metrics */
-typedef MagickBooleanType (get_type_metrics_func_t)(Image *, const DrawInfo *, TypeMetric *);
+#if defined(IMAGEMAGICK_7)
+    typedef MagickBooleanType (get_type_metrics_func_t)(Image *, const DrawInfo *, TypeMetric *, ExceptionInfo *);
+#else
+    typedef MagickBooleanType (get_type_metrics_func_t)(Image *, const DrawInfo *, TypeMetric *);
+#endif
 static VALUE get_type_metrics(int, VALUE *, VALUE, get_type_metrics_func_t);
 
 
 /**
- * Set the affine matrix from an Magick::AffineMatrix.
+ * Set the affine matrix from an {Magick::AffineMatrix}.
  *
- * Ruby usage:
- *   - @verbatim Draw#affine= @endverbatim
- *
- * @param self this object
- * @param matrix the affine matrix to set
- * @return matrix
+ * @param matrix [Magick::AffineMatrix] the affine matrix
+ * @return [Magick::AffineMatrix] the given matrix
  */
 VALUE
 Draw_affine_eq(VALUE self, VALUE matrix)
@@ -45,14 +45,10 @@ Draw_affine_eq(VALUE self, VALUE matrix)
 
 
 /**
- * Set the text alignment.
- *
- * Ruby usage:
- *   - @verbatim Draw#align= @endverbatim
+ * Set the text alignment from an {Magick::AlignType}.
  *
- * @param self this object
- * @param align the alignment
- * @return align
+ * @param align [Magick::AlignType] the text alignment
+ * @return [Magick::AlignType] the given align
  */
 VALUE
 Draw_align_eq(VALUE self, VALUE align)
@@ -67,14 +63,10 @@ Draw_align_eq(VALUE self, VALUE align)
 
 
 /**
- * Decorate attribute writer.
- *
- * Ruby usage:
- *   - @verbatim Draw#decorate= @endverbatim
+ * Set text decorate from an {Magick::DecorationType}.
  *
- * @param self this object
- * @param decorate the decorate
- * @return decorate
+ * @param decorate [Magick::DecorationType] the decorate type
+ * @return [Magick::DecorationType] the given decorate
  */
 VALUE
 Draw_decorate_eq(VALUE self, VALUE decorate)
@@ -89,14 +81,10 @@ Draw_decorate_eq(VALUE self, VALUE decorate)
 
 
 /**
- * Density attribute writer.
+ * Set density.
  *
- * Ruby usage:
- *   - @verbatim Draw#density= @endverbatim
- *
- * @param self this object
- * @param density the density
- * @return density
+ * @param density [String] the density
+ * @return [String] the given density
  */
 VALUE
 Draw_density_eq(VALUE self, VALUE density)
@@ -105,21 +93,17 @@ Draw_density_eq(VALUE self, VALUE density)
 
     rb_check_frozen(self);
     Data_Get_Struct(self, Draw, draw);
-    magick_clone_string(&draw->info->density, StringValuePtr(density));
+    magick_clone_string(&draw->info->density, StringValueCStr(density));
 
     return density;
 }
 
 
 /**
- * Encoding attribute writer.
- *
- * Ruby usage:
- *   - @verbatim Draw#encoding= @endverbatim
+ * Set text encoding.
  *
- * @param self this object
- * @param encoding the encoding
- * @return encoding
+ * @param encoding [String] the encoding name
+ * @return [String] the given encoding name
  */
 VALUE
 Draw_encoding_eq(VALUE self, VALUE encoding)
@@ -128,21 +112,17 @@ Draw_encoding_eq(VALUE self, VALUE encoding)
 
     rb_check_frozen(self);
     Data_Get_Struct(self, Draw, draw);
-    magick_clone_string(&draw->info->encoding, StringValuePtr(encoding));
+    magick_clone_string(&draw->info->encoding, StringValueCStr(encoding));
 
     return encoding;
 }
 
 
 /**
- * Fill attribute writer.
- *
- * Ruby usage:
- *   - @verbatim Draw#fill= @endverbatim
+ * Set fill color.
  *
- * @param self this object
- * @param fill the fill
- * @return fill
+ * @param fill [Magick::Pixel, String] the fill color
+ * @return [Magick::Pixel, String] the given fill color
  */
 VALUE
 Draw_fill_eq(VALUE self, VALUE fill)
@@ -159,20 +139,16 @@ Draw_fill_eq(VALUE self, VALUE fill)
 /**
  * Accept an image as a fill pattern.
  *
- * Ruby usage:
- *   - @verbatim Draw#fill_pattern= @endverbatim
- *
- * @param self this object
- * @param pattern the fill pattern
- * @return pattern
- * @see Draw_stroke_pattern_eq
- * @see Draw_tile_eq
+ * @param pattern [Magick::Image, Magick::ImageList] Either an imagelist or an image. If an
+ *   imagelist, uses the current image.
+ * @return [Magick::Image] the given pattern image
+ * @see #stroke_pattern=
+ * @see #tile=
  */
 VALUE
 Draw_fill_pattern_eq(VALUE self, VALUE pattern)
 {
     Draw *draw;
-    Image *image;
 
     rb_check_frozen(self);
     Data_Get_Struct(self, Draw, draw);
@@ -186,6 +162,8 @@ Draw_fill_pattern_eq(VALUE self, VALUE pattern)
 
     if (!NIL_P(pattern))
     {
+        Image *image;
+
         pattern = rm_cur_image(pattern);
         image = rm_check_destroyed(pattern);
         // Do not trace creation
@@ -197,14 +175,10 @@ Draw_fill_pattern_eq(VALUE self, VALUE pattern)
 
 
 /**
- * Font attribute writer.
- *
- * Ruby usage:
- *   - @verbatim Draw#font= @endverbatim
+ * Set the font name.
  *
- * @param self this object
- * @param font the font
- * @return font
+ * @param font [String] the font name
+ * @return [String] the given font name
  */
 VALUE
 Draw_font_eq(VALUE self, VALUE font)
@@ -213,21 +187,17 @@ Draw_font_eq(VALUE self, VALUE font)
 
     rb_check_frozen(self);
     Data_Get_Struct(self, Draw, draw);
-    magick_clone_string(&draw->info->font, StringValuePtr(font));
+    magick_clone_string(&draw->info->font, StringValueCStr(font));
 
     return font;
 }
 
 
 /**
- * Font family attribute writer.
- *
- * Ruby usage:
- *   - @verbatim Draw#family= @endverbatim
+ * Set the font family name.
  *
- * @param self this object
- * @param family the family
- * @return family
+ * @param family [String] the font family name
+ * @return [String] the given family name
  */
 VALUE
 Draw_font_family_eq(VALUE self, VALUE family)
@@ -236,21 +206,17 @@ Draw_font_family_eq(VALUE self, VALUE family)
 
     rb_check_frozen(self);
     Data_Get_Struct(self, Draw, draw);
-    magick_clone_string(&draw->info->family, StringValuePtr(family));
+    magick_clone_string(&draw->info->family, StringValueCStr(family));
 
     return family;
 }
 
 
 /**
- * Font_stretch attribute writer.
+ * Set the stretch as spacing between text characters.
  *
- * Ruby usage:
- *   - @verbatim Draw#font_stretch= @endverbatim
- *
- * @param self this object
- * @param stretch the font_stretch
- * @return stretch
+ * @param stretch [Magick::StretchType] the stretch type
+ * @return [Magick::StretchType] the given stretch type
  */
 VALUE
 Draw_font_stretch_eq(VALUE self, VALUE stretch)
@@ -265,14 +231,10 @@ Draw_font_stretch_eq(VALUE self, VALUE stretch)
 
 
 /**
- * Font_style attribute writer.
+ * Set font style.
  *
- * Ruby usage:
- *   - @verbatim Draw#font_style= @endverbatim
- *
- * @param self this object
- * @param style the font_style
- * @return style
+ * @param style [Magick::StyleType] the font style
+ * @return [Magick::StyleType] the given font style
  */
 VALUE
 Draw_font_style_eq(VALUE self, VALUE style)
@@ -287,18 +249,11 @@ Draw_font_style_eq(VALUE self, VALUE style)
 
 
 /**
- * Font_weight attribute writer.
- *
- * Ruby usage:
- *   - @verbatim Draw#font_weight= @endverbatim
+ * Set font weight.
  *
- * Notes:
- *   - The font weight can be one of the font weight constants or a number
- *     between 100 and 900
- *
- * @param self this object
- * @param weight the font_weight
- * @return weight
+ * @param weight [Magick::WeightType, Numeric] the font weight
+ * @return [Magick::WeightType, Numeric] the given font weight
+ * @note The font weight can be one of the font weight constants or a number between 100 and 900
  */
 VALUE
 Draw_font_weight_eq(VALUE self, VALUE weight)
@@ -314,7 +269,7 @@ Draw_font_weight_eq(VALUE self, VALUE weight)
         w = FIX2INT(weight);
         if (w < 100 || w > 900)
         {
-            rb_raise(rb_eArgError, "invalid font weight (%ld given)", w);
+            rb_raise(rb_eArgError, "invalid font weight (%"RMIuSIZE" given)", w);
         }
         draw->info->weight = w;
     }
@@ -351,27 +306,21 @@ Draw_font_weight_eq(VALUE self, VALUE weight)
 
 
 /**
- * Gravity attribute writer.
- *
- * Ruby usage:
- *   - @verbatim Draw#gravity= @endverbatim
- *
- * Notes:
- *   - From Magick++'s Image.h header file:
- *     Gravity affects text placement in bounding area according to rules:
- *     - NorthWestGravity  text bottom-left corner placed at top-left
- *     - NorthGravity      text bottom-center placed at top-center
- *     - NorthEastGravity  text bottom-right corner placed at top-right
- *     - WestGravity       text left-center placed at left-center
- *     - CenterGravity     text center placed at center
- *     - EastGravity       text right-center placed at right-center
- *     - SouthWestGravity  text top-left placed at bottom-left
- *     - SouthGravity      text top-center placed at bottom-center
- *     - SouthEastGravity  text top-right placed at bottom-right
- *
- * @param self this object
- * @param grav the gravity
- * @return grav
+ * Set gravity to draw text.
+ * Gravity affects text placement in bounding area according to rules:
+ *
+ * - +NorthWestGravity+  - text bottom-left corner placed at top-left
+ * - +NorthGravity+      - text bottom-center placed at top-center
+ * - +NorthEastGravity+  - text bottom-right corner placed at top-right
+ * - +WestGravity+       - text left-center placed at left-center
+ * - +CenterGravity+     - text center placed at center
+ * - +EastGravity+       - text right-center placed at right-center
+ * - +SouthWestGravity+  - text top-left placed at bottom-left
+ * - +SouthGravity+      - text top-center placed at bottom-center
+ * - +SouthEastGravity+  - text top-right placed at bottom-right
+ *
+ * @param grav [Magick::GravityType] this gravity type
+ * @return [Magick::GravityType] the given gravity type
  */
 VALUE
 Draw_gravity_eq(VALUE self, VALUE grav)
@@ -387,17 +336,10 @@ Draw_gravity_eq(VALUE self, VALUE grav)
 
 
 /**
- * Space between two letters.
+ * Set kerning as spacing between two letters.
  *
- * Ruby usage:
- *   - @verbatim Draw#gravity=float @endverbatim
- *
- * Notes:
- *   - New for ImageMagick 6.4.7-8
- *
- * @param self this object
- * @param kerning the kerning
- * @return kerning
+ * @param kerning [Float] the kerning
+ * @return [Float] the given kerning
  */
 VALUE
 Draw_kerning_eq(VALUE self, VALUE kerning)
@@ -412,17 +354,10 @@ Draw_kerning_eq(VALUE self, VALUE kerning)
 
 
 /**
- * Space between two lines.
- *
- * Ruby usage:
- *   - @verbatim Draw#interline_spacing= @endverbatim
+ * Set spacing between two lines.
  *
- * Notes:
- *   - New for ImageMagick 6.5.5-8
- *
- * @param self this object
- * @param spacing the spacing
- * @return spacing
+ * @param spacing [Float] the spacing
+ * @return [Float] the given spacing
  */
 VALUE
 Draw_interline_spacing_eq(VALUE self, VALUE spacing)
@@ -437,17 +372,10 @@ Draw_interline_spacing_eq(VALUE self, VALUE spacing)
 
 
 /**
- * Space between two words.
- *
- * Ruby usage:
- *   - @verbatim Draw#interword_spacing= @endverbatim
- *
- * Notes:
- *   - New for ImageMagick 6.4.8-0
+ * Set spacing between two words.
  *
- * @param self this object
- * @param spacing the spacing
- * @return spacing
+ * @param spacing [Float] the spacing
+ * @return [Float] the given spacing
  */
 VALUE
 Draw_interword_spacing_eq(VALUE self, VALUE spacing)
@@ -477,13 +405,14 @@ static VALUE
 image_to_str(Image *image)
 {
     VALUE dimg = Qnil;
-    unsigned char *blob;
-    size_t length;
-    Info *info;
-    ExceptionInfo *exception;
 
     if (image)
     {
+        unsigned char *blob;
+        size_t length;
+        Info *info;
+        ExceptionInfo *exception;
+
         info = CloneImageInfo(NULL);
         exception = AcquireExceptionInfo();
         blob = ImageToBlob(info, image, &length, exception);
@@ -516,11 +445,12 @@ static
 Image *str_to_image(VALUE str)
 {
     Image *image = NULL;
-    Info *info;
-    ExceptionInfo *exception;
 
     if (str != Qnil)
     {
+        Info *info;
+        ExceptionInfo *exception;
+
         info = CloneImageInfo(NULL);
         exception = AcquireExceptionInfo();
         image = BlobToImage(info, RSTRING_PTR(str), RSTRING_LEN(str), exception);
@@ -534,21 +464,16 @@ Image *str_to_image(VALUE str)
 
 
 /**
- * Custom marshal for Draw objects.
+ * Dump custom marshal for Draw objects.
  *
- * Ruby usage:
- *   - @verbatim Draw#marshal_dump @endverbatim
+ * - 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.
  *
- * 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.
- *
- * @param self this object
- * @return the marshalled object (as a Ruby hash)
+ * @return [Hash] the marshalled object
  * @todo Handle gradients when christy gets the new gradient support added (23Dec08)
  */
 VALUE
@@ -608,7 +533,11 @@ Draw_marshal_dump(VALUE self)
     // 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));
+#if defined(IMAGEMAGICK_7)
+    rb_hash_aset(ddraw, CSTR2SYM("alpha"), QUANTUM2NUM(draw->info->alpha));
+#else
     rb_hash_aset(ddraw, CSTR2SYM("opacity"), QUANTUM2NUM(draw->info->opacity));
+#endif
     // 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);
@@ -624,17 +553,10 @@ Draw_marshal_dump(VALUE self)
 
 
 /**
- * Support Marsal.load.
- *
- * Ruby usage:
- *   - @verbatim Draw#marshal_load @endverbatim
- *
- * Notes:
- *   - On entry all fields are all-bits-0
+ * Load the marshalled object
  *
- * @param self this object
- * @param ddraw the marshalled object
- * @return self, once marshalled
+ * @param ddraw [Hash] the marshalled object
+ * @return [Magick::Draw] self, once marshalled
  */
 VALUE
 Draw_marshal_load(VALUE self, VALUE ddraw)
@@ -643,7 +565,15 @@ Draw_marshal_load(VALUE self, VALUE ddraw)
     VALUE val;
 
     Data_Get_Struct(self, Draw, draw);
+    
+    if (draw->info == NULL)
+    {
+        ImageInfo *image_info;
 
+        image_info = CloneImageInfo(NULL);
+        draw->info = CloneDrawInfo(image_info, (DrawInfo *) NULL);
+        DestroyImageInfo(image_info);        
+    }
     OBJ_TO_MAGICK_STRING(draw->info->geometry, rb_hash_aref(ddraw, CSTR2SYM("geometry")));
 
     //val = rb_hash_aref(ddraw, CSTR2SYM("viewbox"));
@@ -681,7 +611,11 @@ Draw_marshal_load(VALUE self, VALUE ddraw)
     Color_to_PixelColor(&draw->info->undercolor, val);
 
     draw->info->clip_units = FIX2INT(rb_hash_aref(ddraw, CSTR2SYM("clip_units")));
+#if defined(IMAGEMAGICK_7)
+    draw->info->alpha = NUM2QUANTUM(rb_hash_aref(ddraw, CSTR2SYM("alpha")));
+#else
     draw->info->opacity = NUM2QUANTUM(rb_hash_aref(ddraw, CSTR2SYM("opacity")));
+#endif
     draw->info->kerning = NUM2DBL(rb_hash_aref(ddraw, CSTR2SYM("kerning")));
     draw->info->interword_spacing = NUM2DBL(rb_hash_aref(ddraw, CSTR2SYM("interword_spacing")));
 
@@ -694,14 +628,10 @@ Draw_marshal_load(VALUE self, VALUE ddraw)
 
 
 /**
- * Pointsize attribute writer.
+ * Set point size to draw text.
  *
- * Ruby usage:
- *   - @verbatim Draw#pointsize= @endverbatim
- *
- * @param self this object
- * @param pointsize the pointsize
- * @return pointsize
+ * @param pointsize [Float] the pointsize
+ * @return [Float] the given pointsize
  */
 VALUE
 Draw_pointsize_eq(VALUE self, VALUE pointsize)
@@ -716,19 +646,10 @@ Draw_pointsize_eq(VALUE self, VALUE pointsize)
 
 
 /**
- * Set rotation attribute value.
- *
- * Ruby usage:
- *   - @verbatim Magick::Draw#rotation= @endverbatim
+ * Set rotation. The argument should be in degrees.
  *
- * Notes:
- *   - Argument should be in degrees
- *   - Taken from Magick++'s Magick::Image::annotate method.
- *     Copyright Bob Friesenhahn, 1999, 2000, 2001, 2002
- *
- * @param self this object
- * @param deg the number of degrees
- * @return deg
+ * @param deg [Float] the number of degrees
+ * @return [Float] the given degrees
  */
 VALUE
 Draw_rotation_eq(VALUE self, VALUE deg)
@@ -743,24 +664,19 @@ Draw_rotation_eq(VALUE self, VALUE deg)
     degrees = NUM2DBL(deg);
     if (fabs(degrees) > DBL_EPSILON)
     {
-        affine.sx=1.0;
-        affine.rx=0.0;
-        affine.ry=0.0;
-        affine.sy=1.0;
-        affine.tx=0.0;
-        affine.ty=0.0;
-
-        current = draw->info->affine;
-        affine.sx=cos(DegreesToRadians(fmod(degrees,360.0)));
-        affine.rx=sin(DegreesToRadians(fmod(degrees,360.0)));
-        affine.ry=(-sin(DegreesToRadians(fmod(degrees,360.0))));
-        affine.sy=cos(DegreesToRadians(fmod(degrees,360.0)));
-
-        draw->info->affine.sx=current.sx*affine.sx+current.ry*affine.rx;
-        draw->info->affine.rx=current.rx*affine.sx+current.sy*affine.rx;
-        draw->info->affine.ry=current.sx*affine.ry+current.ry*affine.sy;
-        draw->info->affine.sy=current.rx*affine.ry+current.sy*affine.sy;
-        draw->info->affine.tx=current.sx*affine.tx+current.ry*affine.ty+current.tx;
+        current   = draw->info->affine;
+        affine.sx = cos(DegreesToRadians(fmod(degrees, 360.0)));
+        affine.rx = sin(DegreesToRadians(fmod(degrees, 360.0)));
+        affine.tx = 0.0;
+        affine.ry = (-sin(DegreesToRadians(fmod(degrees, 360.0))));
+        affine.sy = cos(DegreesToRadians(fmod(degrees, 360.0)));
+        affine.ty = 0.0;
+
+        draw->info->affine.sx = current.sx*affine.sx+current.ry*affine.rx;
+        draw->info->affine.rx = current.rx*affine.sx+current.sy*affine.rx;
+        draw->info->affine.ry = current.sx*affine.ry+current.ry*affine.sy;
+        draw->info->affine.sy = current.rx*affine.ry+current.sy*affine.sy;
+        draw->info->affine.tx = current.sx*affine.tx+current.ry*affine.ty+current.tx;
     }
 
     return deg;
@@ -768,14 +684,10 @@ Draw_rotation_eq(VALUE self, VALUE deg)
 
 
 /**
- * Stroke attribute writer.
+ * Set stroke.
  *
- * Ruby usage:
- *   - @verbatim Draw#stroke= @endverbatim
- *
- * @param self this object
- * @param stroke the stroke
- * @return stroke
+ * @param stroke [Magick::Pixel, String] the stroke
+ * @return [Magick::Pixel, String] the given stroke
  */
 VALUE
 Draw_stroke_eq(VALUE self, VALUE stroke)
@@ -792,19 +704,15 @@ Draw_stroke_eq(VALUE self, VALUE stroke)
 /**
  * Accept an image as a stroke pattern.
  *
- * Ruby usage:
- *   - @verbatim Draw#stroke_pattern= @endverbatim
- *
- * @param self this object
- * @param pattern the pattern
- * @return pattern
- * @see Draw_fill_pattern_eq
+ * @param pattern [Magick::Image, Magick::ImageList] Either an imagelist or an image. If an
+ *   imagelist, uses the current image.
+ * @return [Magick::Image] the given pattern
+ * @see #fill_pattern
  */
 VALUE
 Draw_stroke_pattern_eq(VALUE self, VALUE pattern)
 {
     Draw *draw;
-    Image *image;
 
     rb_check_frozen(self);
     Data_Get_Struct(self, Draw, draw);
@@ -818,6 +726,8 @@ Draw_stroke_pattern_eq(VALUE self, VALUE pattern)
 
     if (!NIL_P(pattern))
     {
+        Image *image;
+
         // DestroyDrawInfo destroys the clone
         pattern = rm_cur_image(pattern);
         image = rm_check_destroyed(pattern);
@@ -830,14 +740,10 @@ Draw_stroke_pattern_eq(VALUE self, VALUE pattern)
 
 
 /**
- * Stroke_width attribute writer.
- *
- * Ruby usage:
- *   - @verbatim Draw#stroke_width= @endverbatim
+ * Set stroke width.
  *
- * @param self this object
- * @param stroke_width the stroke_width
- * @return stroke_width
+ * @param stroke_width [Float] the stroke width
+ * @return [Float] the given stroke width
  */
 VALUE
 Draw_stroke_width_eq(VALUE self, VALUE stroke_width)
@@ -852,14 +758,10 @@ Draw_stroke_width_eq(VALUE self, VALUE stroke_width)
 
 
 /**
- * Text_antialias attribute writer.
+ * Set whether to enable text antialias.
  *
- * Ruby usage:
- *   - @verbatim Draw#text_antialias= @endverbatim
- *
- * @param self this object
- * @param text_antialias the text_antialias
- * @return text_antialias
+ * @param text_antialias [Boolean] true if enable text antialias
+ * @return [Boolean] the given value
  */
 VALUE
 Draw_text_antialias_eq(VALUE self, VALUE text_antialias)
@@ -874,14 +776,10 @@ Draw_text_antialias_eq(VALUE self, VALUE text_antialias)
 
 
 /**
- * Tile attribute writer.
- *
- * Ruby usage:
- *   - @verbatim Draw#tile= @endverbatim
+ * Accept an image as a fill pattern. This is alias of {Draw#fill_pattern=}.
  *
- * @param self this object
- * @param image the image to tile
- * @return image
+ * @param image [Magick::Image] the image to tile
+ * @return [Magick::Image] the given image
  */
 VALUE
 Draw_tile_eq(VALUE self, VALUE image)
@@ -891,14 +789,10 @@ Draw_tile_eq(VALUE self, VALUE image)
 
 
 /**
- * Undercolor attribute writer.
- *
- * Ruby usage:
- *   - @verbatim Draw#undercolor= @endverbatim
+ * Set undercolor.
  *
- * @param self this object
- * @param undercolor the undercolor
- * @return undercolor
+ * @param undercolor [Magick::Pixel, String] the undercolor
+ * @return [Magick::Pixel, String] the given undercolor
  */
 VALUE
 Draw_undercolor_eq(VALUE self, VALUE undercolor)
@@ -915,21 +809,17 @@ Draw_undercolor_eq(VALUE self, VALUE undercolor)
 /**
  * Annotates an image with text.
  *
- * Ruby usage:
- *   - @verbatim Draw#annotate(img, w, h, x, y, text) <{optional parms}> @endverbatim
- *
- * Notes:
- *   - Additional Draw attribute methods may be called in the optional block,
- *     which is executed in the context of an Draw object.
- *
- * @param self this object
- * @param image_arg the image
- * @param width_arg the width
- * @param height_arg the height
- * @param x_arg x position
- * @param y_arg y position
- * @param text the annotation text
- * @return self
+ * - Additional Draw attribute methods may be called in the optional block,
+ *   which is executed in the context of an Draw object.
+ *
+ * @param image_arg [Magick::Image, Magick::ImageList] Either an imagelist or an image. If an
+ *   imagelist, uses the current image.
+ * @param width_arg [Numeric] the width
+ * @param height_arg [Numeric] the height
+ * @param x_arg [Numeric] x position
+ * @param y_arg [Numeric] y position
+ * @param text [String] the annotation text
+ * @return [Magick::Draw] self
  */
 VALUE Draw_annotate(
                    VALUE self,
@@ -946,6 +836,10 @@ VALUE Draw_annotate(
     long x, y;
     AffineMatrix keep;
     char geometry_str[100];
+    char *embed_text;
+#if defined(IMAGEMAGICK_7)
+    ExceptionInfo *exception;
+#endif
 
     // Save the affine matrix in case it is modified by
     // Draw#rotation=
@@ -959,13 +853,39 @@ VALUE Draw_annotate(
     // allowing the app a chance to modify the object's attributes
     if (rb_block_given_p())
     {
-        (void)rb_obj_instance_eval(0, NULL, self);
+        if (rb_proc_arity(rb_block_proc()) == 0)
+        {
+            // Run the block in self's context
+            rb_warn("passing a block without an image argument is deprecated");
+            rb_obj_instance_eval(0, NULL, self);
+        }
+        else
+        {
+            rb_yield(self);
+        }
     }
 
     // Translate & store in Draw structure
-    draw->info->text = InterpretImageProperties(NULL, image, StringValuePtr(text));
+    embed_text = StringValueCStr(text);
+#if defined(IMAGEMAGICK_7)
+    exception = AcquireExceptionInfo();
+    draw->info->text = InterpretImageProperties(NULL, image, embed_text, exception);
+    if (rm_should_raise_exception(exception, RetainExceptionRetention))
+    {
+        if (draw->info->text)
+        {
+            magick_free(draw->info->text);
+        }
+        rm_raise_exception(exception);
+    }
+#else
+    draw->info->text = InterpretImageProperties(NULL, image, embed_text);
+#endif
     if (!draw->info->text)
     {
+#if defined(IMAGEMAGICK_7)
+        DestroyExceptionInfo(exception);
+#endif
         rb_raise(rb_eArgError, "no text");
     }
 
@@ -978,24 +898,33 @@ VALUE Draw_annotate(
 
     if (width == 0 && height == 0)
     {
-        sprintf(geometry_str, "%+ld%+ld", x, y);
+        snprintf(geometry_str, sizeof(geometry_str), "%+ld%+ld", x, y);
     }
 
     // WxH is non-zero
     else
     {
-        sprintf(geometry_str, "%lux%lu%+ld%+ld", width, height, x, y);
+        snprintf(geometry_str, sizeof(geometry_str), "%lux%lu%+ld%+ld", width, height, x, y);
     }
 
     magick_clone_string(&draw->info->geometry, geometry_str);
 
-    (void) AnnotateImage(image, draw->info);
+#if defined(IMAGEMAGICK_7)
+    AnnotateImage(image, draw->info, exception);
+#else
+    AnnotateImage(image, draw->info);
+#endif
 
     magick_free(draw->info->text);
     draw->info->text = NULL;
     draw->info->affine = keep;
 
+#if defined(IMAGEMAGICK_7)
+    CHECK_EXCEPTION();
+    DestroyExceptionInfo(exception);
+#else
     rm_check_image_exception(image, RetainOnError);
+#endif
 
     return self;
 }
@@ -1004,13 +933,7 @@ VALUE Draw_annotate(
 /**
  * Clones this object.
  *
- * Ruby usage:
- *   - @verbatim Draw#clone @endverbatim
- *
- * @param self this object
- * @return the clone
- * @see Draw_dup
- * @see Draw_init_copy
+ * @return [Magick::Draw] the cloned object
  */
 VALUE
 Draw_clone(VALUE self)
@@ -1030,21 +953,28 @@ Draw_clone(VALUE self)
 
 
 /**
- * Implement the "image" drawing primitive.
- *
- * Ruby usage:
- *   - @verbatim Draw#composite(x,y,width,height,img) @endverbatim
- *   - @verbatim Draw#composite(x,y,width,height,img,operator) @endverbatim
- *
- * Notes:
- *   - Default operator is overComposite
- *   - The "img" argument can be either an ImageList object or an Image
+ * Draw the image.
+ *
+ * @overload composite(x, y, width, height, image)
+ *   @param x [Float] x position
+ *   @param y [Float] y position
+ *   @param width [Float] the width
+ *   @param height [Float] the height
+ *   @param image [Magick::Image, Magick::ImageList] Either an imagelist or an image. If an
+ *     imagelist, uses the current image.
+ *
+ * @overload composite(x, y, width, height, image, operator = Magick::OverCompositeOp)
+ *   - The "image" argument can be either an ImageList object or an Image
  *     argument.
- *
- * @param argc number of input arguments
- * @param argv array of input arguments
- * @param self this object
- * @return self
+ *   @param x [Float] x position
+ *   @param y [Float] y position
+ *   @param width [Float] the width
+ *   @param height [Float] the height
+ *   @param image [Magick::Image, Magick::ImageList] Either an imagelist or an image. If an
+ *     imagelist, uses the current image.
+ *   @param operator [Magick::CompositeOperator] the operator
+ * 
+ * @return [Magick::Draw] self
  */
 VALUE
 Draw_composite(int argc, VALUE *argv, VALUE self)
@@ -1089,22 +1019,22 @@ Draw_composite(int argc, VALUE *argv, VALUE self)
     Data_Get_Struct(self, Draw, draw);
 
     // Create a temp copy of the composite image
-    rm_write_temp_image(comp_img, name);
+    rm_write_temp_image(comp_img, name, sizeof(name));
 
     // Add the temp filename to the filename array.
     // Use Magick storage since we need to keep the list around
     // until destroy_Draw is called.
-    tmpfile_name = magick_malloc(sizeof(struct TmpFile_Name)+strlen(name));
+    tmpfile_name = magick_malloc(sizeof(struct TmpFile_Name) + rm_strnlen_s(name, sizeof(name)));
     strcpy(tmpfile_name->name, name);
     tmpfile_name->next = draw->tmpfile_ary;
     draw->tmpfile_ary = tmpfile_name;
 
     // Form the drawing primitive
-    (void) snprintf(primitive, sizeof(primitive), "image %s %g,%g,%g,%g '%s'", op, x, y, width, height, name);
+    snprintf(primitive, sizeof(primitive), "image %s %g,%g,%g,%g '%s'", op, x, y, width, height, name);
 
 
     // Send "primitive" to self.
-    (void) rb_funcall(self, rb_intern("primitive"), 1, rb_str_new2(primitive));
+    rb_funcall(self, rb_intern("primitive"), 1, rb_str_new2(primitive));
 
     RB_GC_GUARD(image);
 
@@ -1115,18 +1045,18 @@ Draw_composite(int argc, VALUE *argv, VALUE self)
 /**
  * Execute the stored drawing primitives on the current image.
  *
- * Ruby usage:
- *   - @verbatim Draw#draw(i) @endverbatim
- *
- * @param self this object
- * @param image_arg the image argument
- * @return self
+ * @param image_arg [Magick::Image, Magick::ImageList] Either an imagelist or an image. If an
+ *   imagelist, uses the current image.
+ * @return [Magick::Draw] self
  */
 VALUE
 Draw_draw(VALUE self, VALUE image_arg)
 {
     Draw *draw;
     Image *image;
+#if defined(IMAGEMAGICK_7)
+    ExceptionInfo *exception;
+#endif
 
     image_arg = rm_cur_image(image_arg);
     image = rm_check_frozen(image_arg);
@@ -1138,31 +1068,35 @@ Draw_draw(VALUE self, VALUE image_arg)
     }
 
     // Point the DrawInfo structure at the current set of primitives.
-    magick_clone_string(&(draw->info->primitive), StringValuePtr(draw->primitives));
+    magick_clone_string(&(draw->info->primitive), StringValueCStr(draw->primitives));
 
-    (void) DrawImage(image, draw->info);
-    rm_check_image_exception(image, RetainOnError);
+#if defined(IMAGEMAGICK_7)
+    exception = AcquireExceptionInfo();
+    DrawImage(image, draw->info, exception);
+#else
+    DrawImage(image, draw->info);
+#endif
 
     magick_free(draw->info->primitive);
     draw->info->primitive = NULL;
 
+#if defined(IMAGEMAGICK_7)
+    CHECK_EXCEPTION();
+    DestroyExceptionInfo(exception);
+#else
+    rm_check_image_exception(image, RetainOnError);
+#endif
+
     return self;
 }
 
 
 /**
- * Copy a Draw object.
- *
- * Ruby usage:
- *   - @verbatim Draw#dup @endverbatim
+ * Duplicate a Draw object.
  *
- * Notes:
- *   - Constructs a new Draw object, then calls initialize_copy.
+ * - Constructs a new Draw object, then calls initialize_copy.
  *
- * @param self this object
- * @return the duplicate
- * @see Draw_clone
- * @see Draw_init_copy
+ * @return [Magick::Draw] the duplicated object
  */
 VALUE
 Draw_dup(VALUE self)
@@ -1173,11 +1107,6 @@ Draw_dup(VALUE self)
     draw = ALLOC(Draw);
     memset(draw, 0, sizeof(Draw));
     dup = Data_Wrap_Struct(CLASS_OF(self), mark_Draw, destroy_Draw, draw);
-    if (rb_obj_tainted(self))
-    {
-        (void)rb_obj_taint(dup);
-    }
-
     RB_GC_GUARD(dup);
 
     return rb_funcall(dup, rm_ID_initialize_copy, 1, self);
@@ -1187,19 +1116,19 @@ Draw_dup(VALUE self)
 /**
  * Returns measurements for a given font and text string.
  *
- * Ruby usage:
- *   - @verbatim Draw#get_type_metrics(text) @endverbatim
- *   - @verbatim Draw#get_type_metrics(image, text) @endverbatim
+ * - If the image argument has been omitted, use a dummy image, but make sure
+ *   the text has none of the special characters that refer to image
+ *   attributes.
  *
- * Notes:
- *   - If the image argument has been omitted, use a dummy image, but make sure
- *     the text has none of the special characters that refer to image
- *     attributes.
+ * @overload get_type_metrics(text)
+ *   @param text [String] The string to be rendered.
  *
- * @param argc number of input arguments
- * @param argv array of input arguments
- * @param self this object
- * @return the duplicate
+ * @overload get_type_metrics(image, text)
+ *   @param image [Magick::Image, Magick::ImageList] Either an imagelist or an image. If an
+ *     imagelist, uses the current image.
+ *   @param text [String] The string to be rendered.
+ *
+ * @return [Magick::TypeMetric] The information for a specific string if rendered on a image.
  */
 VALUE
 Draw_get_type_metrics(
@@ -1214,19 +1143,19 @@ Draw_get_type_metrics(
 /**
  * Returns measurements for a given font and text string.
  *
- * Ruby usage:
- *   - @verbatim Draw#get_multiline_type_metrics(text) @endverbatim
- *   - @verbatim Draw#get_multiline_type_metrics(image, text) @endverbatim
+ * - If the image argument has been omitted, use a dummy image, but make sure
+ *   the text has none of the special characters that refer to image
+ *   attributes.
  *
- * Notes:
- *   - If the image argument has been omitted, use a dummy image, but make sure
- *     the text has none of the special characters that refer to image
- *     attributes.
+ * @overload get_multiline_type_metrics(text)
+ *   @param text [String] The string to be rendered.
  *
- * @param argc number of input arguments
- * @param argv array of input arguments
- * @param self this object
- * @return the duplicate
+ * @overload Draw#get_multiline_type_metrics(image, text)
+ *   @param image [Magick::Image, Magick::ImageList] Either an imagelist or an image. If an
+ *     imagelist, uses the current image.
+ *   @param text [String] The string to be rendered.
+ *
+ * @return [Magick::TypeMetric] The information for a specific string if rendered on a image.
  */
 VALUE
 Draw_get_multiline_type_metrics(
@@ -1241,14 +1170,8 @@ Draw_get_multiline_type_metrics(
 /**
  * Initialize clone, dup methods.
  *
- * Ruby usage:
- *   - @verbatim Draw#initialize_copy @endverbatim
- *
- * @param self this object
  * @param orig the original object
- * @return self
- * @see Draw_clone
- * @see Draw_dup
+ * @return [Magick::Draw] self
  */
 VALUE Draw_init_copy(VALUE self, VALUE orig)
 {
@@ -1275,11 +1198,7 @@ VALUE Draw_init_copy(VALUE self, VALUE orig)
 /**
  * Initialize Draw object.
  *
- * Ruby usage:
- *   - @verbatim Draw#initialize <{ info initializers }> @endverbatim
- *
- * @param self this object
- * @return self
+ * @return [Magick::Draw] self
  */
 VALUE
 Draw_initialize(VALUE self)
@@ -1303,12 +1222,8 @@ Draw_initialize(VALUE self)
 /**
  * Display the primitives.
  *
- * Ruby usage:
- *   - @verbatim Draw#inspect @endverbatim
- *
- * @param self this object
- * @return the draw primitives or the Ruby string "(no primitives defined)" if
- * they are not defined
+ * @return [String] the draw primitives or the Ruby string "(no primitives defined)"
+ *   if they are not defined
  */
 VALUE
 Draw_inspect(VALUE self)
@@ -1323,13 +1238,7 @@ Draw_inspect(VALUE self)
 /**
  * Create a new Draw object.
  *
- * Ruby usage:
- *   - @verbatim Draw.new @endverbatim
- *   - @verbatim Draw.allocate @endverbatim
- *
- * @param class the Ruby Draw class
- * @return a new Draw object
- * @throw ImageMagickError if no memory
+ * @return [Magick::Draw] a new Draw object
  */
 VALUE Draw_alloc(VALUE class)
 {
@@ -1349,12 +1258,8 @@ VALUE Draw_alloc(VALUE class)
 /**
  * Add a drawing primitive to the list of primitives in the Draw object.
  *
- * Ruby usage:
- *   - @verbatim Draw#primitive @endverbatim
- *
- * @param self this object
- * @param primitive the primitive to add
- * @return self
+ * @param primitive [String] the primitive to add
+ * @return [Magick::Draw] self
  */
 VALUE
 Draw_primitive(VALUE self, VALUE primitive)
@@ -1408,17 +1313,18 @@ static void
 destroy_Draw(void *drawptr)
 {
     Draw *draw = (Draw *)drawptr;
-    struct TmpFile_Name *tmpfile_name;
 
     if (draw->info)
     {
-        (void) DestroyDrawInfo(draw->info);
+        DestroyDrawInfo(draw->info);
         draw->info = NULL;
     }
 
     // Erase any temporary image files.
     while (draw->tmpfile_ary)
     {
+        struct TmpFile_Name *tmpfile_name;
+
         tmpfile_name = draw->tmpfile_ary;
         draw->tmpfile_ary = draw->tmpfile_ary->next;
         rm_delete_temp_image(tmpfile_name->name);
@@ -1446,16 +1352,10 @@ new_DrawOptions(void)
 /**
  * Create a DrawOptions object.
  *
- * Ruby usage:
- *   - @verbatim DrawOptions#allocate @endverbatim
- *   - @verbatim DrawOptions#new @endverbatim
+ * - The DrawOptions class is the same as the Draw class except is has only
+ *   the attribute writer functions
  *
- * Notes:
- *   - The DrawOptions class is the same as the Draw class except is has only
- *     the attribute writer functions
- *
- * @param class the Ruby DrawOptions class
- * @return a new DrawOptions object
+ * @return [Magick::Image::DrawOptions] a new DrawOptions object
  */
 VALUE
 DrawOptions_alloc(VALUE class)
@@ -1476,11 +1376,7 @@ DrawOptions_alloc(VALUE class)
 /**
  * Initialize a DrawOptions object.
  *
- * Ruby usage:
- *   - @verbatim DrawOptions#initialize @endverbatim
- *
- * @param self this object
- * @return self
+ * @return [Magick::Image::DrawOptions] self
  */
 VALUE
 DrawOptions_initialize(VALUE self)
@@ -1498,8 +1394,16 @@ DrawOptions_initialize(VALUE self)
 
     if (rb_block_given_p())
     {
-        // Run the block in self's context
-        (void) rb_obj_instance_eval(0, NULL, self);
+        if (rb_proc_arity(rb_block_proc()) == 0)
+        {
+            // Run the block in self's context
+            rb_warn("passing a block without an image argument is deprecated");
+            rb_obj_instance_eval(0, NULL, self);
+        }
+        else
+        {
+            rb_yield(self);
+        }
     }
 
     return self;
@@ -1507,18 +1411,12 @@ DrawOptions_initialize(VALUE self)
 
 
 /**
- * Allocate a new Magick::PolaroidOptions object.
+ * Allocate a new Magick::Image::PolaroidOptions object.
  *
- * Ruby usage:
- *   - @verbatim Magick::PolaroidOptions#allocate @endverbatim
- *   - @verbatim Magick::PolaroidOptions#new @endverbatim
+ * - Internally a PolaroidOptions object is the same as a Draw object. The
+ *   methods are implemented by Draw methods in rmdraw.c.
  *
- * Notes:
- *   - Internally a PolaroidOptions object is the same as a Draw object. The
- *     methods are implemented by Draw methods in rmdraw.c.
- *
- * @param class the Ruby PoloradoidOptions class
- * @return a new DrawOptions object
+ * @return [Magick::Image::PolaroidOptions] a new PolaroidOptions object
  */
 VALUE
 PolaroidOptions_alloc(VALUE class)
@@ -1532,8 +1430,8 @@ PolaroidOptions_alloc(VALUE class)
     draw = ALLOC(Draw);
     memset(draw, 0, sizeof(*draw));
 
-    draw->info=CloneDrawInfo(image_info,(DrawInfo *) NULL);
-    (void)(void) DestroyImageInfo(image_info);
+    draw->info = CloneDrawInfo(image_info, (DrawInfo *) NULL);
+    (void) DestroyImageInfo(image_info);
 
     polaroid_obj = Data_Wrap_Struct(class, NULL, destroy_Draw, draw);
 
@@ -1544,13 +1442,11 @@ PolaroidOptions_alloc(VALUE class)
 
 
 /**
- * Yield to an optional block.
+ * Initialize a PolaroidOptions object.
  *
- * Ruby usage:
- *   - @verbatim Magick::PolaroidOptions#initialize @endverbatim
- *
- * @param self this object
- * @return self
+ * @yield [self]
+ * @yieldparam self [Magick::Image::PolaroidOptions] self
+ * @return [Magick::Image::PolaroidOptions] self
  */
 VALUE
 PolaroidOptions_initialize(VALUE self)
@@ -1562,17 +1458,26 @@ PolaroidOptions_initialize(VALUE self)
     Data_Get_Struct(self, Draw, draw);
 
     exception = AcquireExceptionInfo();
-    (void) QueryColorCompliance("gray75", AllCompliance, &draw->shadow_color, exception);
-    CHECK_EXCEPTION()
-    (void) QueryColorCompliance("#dfdfdf", AllCompliance, &draw->info->border_color, exception);
-    CHECK_EXCEPTION()
+    QueryColorCompliance("gray75", AllCompliance, &draw->shadow_color, exception);
+    CHECK_EXCEPTION();
+    QueryColorCompliance("#dfdfdf", AllCompliance, &draw->info->border_color, exception);
+    CHECK_EXCEPTION();
     DestroyExceptionInfo(exception);
 
     if (rb_block_given_p())
     {
-        // Run the block in self's context
-        (void) rb_obj_instance_eval(0, NULL, self);
+        if (rb_proc_arity(rb_block_proc()) == 0)
+        {
+            // Run the block in self's context
+            rb_warn("passing a block without an image argument is deprecated");
+            rb_obj_instance_eval(0, NULL, self);
+        }
+        else
+        {
+            rb_yield(self);
+        }
     }
+
     return self;
 }
 
@@ -1594,12 +1499,8 @@ rm_polaroid_new(void)
 /**
  * Set the shadow color attribute.
  *
- * Ruby usage:
- *   - @verbatim PolaroidOptions#shadow_color= @endverbatim
- *
- * @param self this object
- * @param shadow the shadow color
- * @return shadow
+ * @param shadow [Magick::Pixel, String] the shadow color
+ * @return [Magick::Pixel, String] the given shadow color
  */
 VALUE
 PolaroidOptions_shadow_color_eq(VALUE self, VALUE shadow)
@@ -1614,14 +1515,10 @@ PolaroidOptions_shadow_color_eq(VALUE self, VALUE shadow)
 
 
 /**
- * Set the border color attribute.
- *
- * Ruby usage:
- *   - @verbatim PolaroidOptions#border_color= @endverbatim
+ * Set the border color.
  *
- * @param self this object
- * @param border the border color
- * @return border
+ * @param border [Magick::Pixel, String] the border color
+ * @return [Magick::Pixel, String] the given border color
  */
 VALUE
 PolaroidOptions_border_color_eq(VALUE self, VALUE border)
@@ -1648,11 +1545,11 @@ get_dummy_tm_img(VALUE klass)
 {
 #define DUMMY_IMG_CLASS_VAR "@@_dummy_img_"
     VALUE dummy_img = 0;
-    Info *info;
-    Image *image;
 
     if (rb_cvar_defined(klass, rb_intern(DUMMY_IMG_CLASS_VAR)) != Qtrue)
     {
+        Info *info;
+        Image *image;
 
         info = CloneImageInfo(NULL);
         if (!info)
@@ -1660,7 +1557,7 @@ get_dummy_tm_img(VALUE klass)
             rb_raise(rb_eNoMemError, "not enough memory to continue");
         }
         image = rm_acquire_image(info);
-        (void) DestroyImageInfo(info);
+        DestroyImageInfo(info);
 
         if (!image)
         {
@@ -1708,6 +1605,9 @@ get_type_metrics(
     char *text = NULL;
     long text_l;
     unsigned int okay;
+#if defined(IMAGEMAGICK_7)
+    ExceptionInfo *exception;
+#endif
 
     switch (argc)
     {
@@ -1731,25 +1631,53 @@ get_type_metrics(
     }
 
     Data_Get_Struct(self, Draw, draw);
+#if defined(IMAGEMAGICK_7)
+    exception = AcquireExceptionInfo();
+    draw->info->text = InterpretImageProperties(NULL, image, text, exception);
+    if (rm_should_raise_exception(exception, RetainExceptionRetention))
+    {
+        if (draw->info->text)
+        {
+            magick_free(draw->info->text);
+        }
+        rm_raise_exception(exception);
+    }
+#else
     draw->info->text = InterpretImageProperties(NULL, image, text);
+#endif
     if (!draw->info->text)
     {
+#if defined(IMAGEMAGICK_7)
+        DestroyExceptionInfo(exception);
+#endif
         rb_raise(rb_eArgError, "no text to measure");
     }
 
+#if defined(IMAGEMAGICK_7)
+    okay = (*getter)(image, draw->info, &metrics, exception);
+#else
     okay = (*getter)(image, draw->info, &metrics);
+#endif
 
     magick_free(draw->info->text);
     draw->info->text = NULL;
 
     if (!okay)
     {
+#if defined(IMAGEMAGICK_7)
+        CHECK_EXCEPTION();
+        DestroyExceptionInfo(exception);
+#else
         rm_check_image_exception(image, RetainOnError);
+#endif
 
         // Shouldn't get here...
         rb_raise(rb_eRuntimeError, "Can't measure text. Are the fonts installed? "
                  "Is the FreeType library installed?");
     }
+#if defined(IMAGEMAGICK_7)
+    DestroyExceptionInfo(exception);
+#endif
 
     RB_GC_GUARD(t);