magickwand 0.1.0

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Timothy Paul Hunter
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+

data/README

@@ -0,0 +1,2 @@
+The documentation for MagickWand for Ruby can be found [here](http://magickwand.rubyforge.org).
+

data/Rakefile

@@ -0,0 +1,28 @@
+require "rake/extensiontask"
+
+spec = Gem::Specification.new do |s|
+  s.name = "magickwand"
+  s.version = "0.1.0"
+  s.platform = Gem::Platform::RUBY
+  s.extensions = FileList["ext/magickwand/extconf.rb"]
+  s.authors = ["Tim Hunter"]
+  s.files = ["README", "LICENSE", "Rakefile", "lib/magickwand.rb" ] + Dir["ext/magickwand/*"]
+  s.test_files = Dir["test/*"]
+  s.date = Date.today.to_s
+  s.licenses = "MIT License" if s.respond_to? :licences
+  s.summary = "A binding to ImageMagick"
+  s.email = "rmagick@rubyforge.org"
+  s.homepage = "http://magickwand.rubyforge.org/"
+  s.rubyforge_project = "magickwand"
+  s.description = "MagickWand for Ruby is a binding to the ImageMagick image processing library."
+  s.required_ruby_version = Gem::Requirement.new(">= 1.8.6")
+  s.rdoc_options = %w{--exclude lib --exclude ext}
+  s.extra_rdoc_files = %w{README}
+  s.specification_version = 1 if s.respond_to? :specification_version
+end
+
+Rake::GemPackageTask.new(spec) do |pkg|
+end
+
+Rake::ExtensionTask.new("magickwand", spec)
+

data/ext/magickwand/extconf.rb

@@ -0,0 +1,81 @@
+require 'mkmf'
+
+MAGICKWAND_VERSION = "0.1.0"
+MIN_IM_VERS = "6.5.0"
+MIN_IM_VERS_NO = MIN_IM_VERS.tr(".","").to_i
+
+
+
+def exit_failure(reason)
+  msg = "\n*** Can't install MagickWand #{MAGICKWAND_VERSION}. #{reason} ***\n\n"
+  Logging::message msg
+  message msg
+  exit(1)
+end
+
+
+
+
+unless find_executable("Magick-config")
+   exit_failure "Can't find Magick-config in #{ENV['PATH']}"
+end
+
+
+# Ensure minimum ImageMagick version
+unless checking_for("ImageMagick version >= #{MIN_IM_VERS}")  do
+   version = `Magick-config --version`.chomp.tr(".","").to_i
+   version >= MIN_IM_VERS_NO
+end
+   exit_failure "You must have ImageMagick #{MIN_IM_VERS} or later."
+end
+
+
+$CFLAGS = ENV['CFLAGS'].to_s + " " + `Magick-config --cflags`.chomp
+$CPPFLAGS = ENV['CPPFLAGS'].to_s + " " + `Magick-config --cppflags`.chomp
+$LDLAGS = ENV['LDFLAGS'].to_s + " " + `Magick-config --ldflags`.chomp
+$LOCAL_LIBS = ENV['LIBS'].to_s + " " + `Magick-config --libs`.chomp
+
+# MagickWand.h dependencies
+headers = %w{stdio.h stdlib.h math.h}
+
+unless have_header("wand/MagickWand.h")
+   exit_failure "Can't install MagickWand. Can't find MagickWand.h."
+end
+
+headers += %w{wand/MagickWand.h assert.h ctype.h math.h time.h}
+
+
+unless have_library("MagickWand", "MagickWandGenesis", headers)
+   exit_failure "Can't find libMagickWand or one of its dependent libraries. Check the mkmf.log file for more information."
+end
+
+# ImageMagick features                                Release added
+["MagickSetColorspace",                               # 6.5.1
+ "MagickSetImageFuzz"                                 # 6.5.1
+].each do |func|
+    have_func(func, headers)
+end
+
+
+
+
+# Ruby version
+headers = %w{ruby.h}
+if have_header("ruby/io.h")
+   headers << "ruby/io.h"
+else
+   headers << "rubyio.h"
+end
+
+
+have_func("rb_frame_this_func", headers)
+have_func("rb_enumeratorize", headers)
+have_func("rb_obj_type", headers)
+
+$defs.push('-DMAGICKWAND_VERSION="\"' + MAGICKWAND_VERSION + '\""')
+create_header()
+
+# Force re-compilation if the generated Makefile changed
+$config_h = "Makefile magickwand.h"
+create_makefile("magickwand")
+

data/ext/magickwand/gc.c

@@ -0,0 +1,464 @@
+
+/*
+ *  gc.c
+ *  $Id: gc.c 118 2009-05-30 20:11:39Z rmagick $
+ *  Copyright (C) 2009 Timothy Paul Hunter
+ */
+
+#include "magickwand.h"
+
+
+static void gc_destroy(void *);
+
+
+
+static VALUE gc_allocate(VALUE klass)
+{
+    GC *gc;
+    return  Data_Make_Struct(klass, GC, NULL, gc_destroy, gc);
+}
+
+
+
+
+static void gc_destroy(void *p)
+{
+    GC *gc = (GC *)p;
+
+    if (gc->drawingwand)
+    {
+        gc->drawingwand = DestroyDrawingWand(gc->drawingwand);
+    }
+}
+
+
+
+
+/*
+ *  Construct a new GC object
+ */
+VALUE mwr_gc_new(void)
+{
+    VALUE obj;
+    GC *gc;
+
+    obj = Data_Make_Struct(mwr_cGC, GC, NULL, gc_destroy, gc);
+    gc->drawingwand = NewDrawingWand();
+    return obj;
+}
+
+
+
+
+/*
+ *  :align => string
+ *  set text alignment
+ */
+static VALUE gc_set_align(VALUE obj, VALUE align)
+{
+    GC *gc;
+    AlignType type;
+
+    rb_check_frozen(obj);
+    type = mwr_string_to_aligntype(align, LeftAlign, RaiseUndefinedOption);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetTextAlignment(gc->drawingwand, type);
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+
+/*
+ *  :antialias => boolean
+ *  turn text antialias on or off
+ */
+static VALUE gc_set_antialias(VALUE obj, VALUE antialias)
+{
+    GC *gc;
+
+    rb_check_frozen(obj);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetTextAntialias(gc->drawingwand, RTEST(antialias) ? MagickTrue : MagickFalse);
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  :decoration => string
+ */
+static VALUE gc_set_decoration(VALUE obj, VALUE decoration)
+{
+    GC *gc;
+    DecorationType type;
+
+    rb_check_frozen(obj);
+    type = mwr_string_to_decorationtype(decoration, NoDecoration, RaiseUndefinedOption);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetTextDecoration(gc->drawingwand, type);
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  :encoding => string
+ */
+static VALUE gc_set_encoding(VALUE obj, VALUE encoding)
+{
+    GC *gc;
+
+    rb_check_frozen(obj);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetTextEncoding(gc->drawingwand, StringValuePtr(encoding));
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+/*
+ *  :family => string
+ */
+static VALUE gc_set_family(VALUE obj, VALUE family)
+{
+    GC *gc;
+
+    rb_check_frozen(obj);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetFontFamily(gc->drawingwand, StringValuePtr(family));
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  :fill => string
+ */
+static VALUE gc_set_fill(VALUE obj, VALUE fill)
+{
+    GC *gc;
+    PixelWand *pixelwand;
+
+    rb_check_frozen(obj);
+    pixelwand = NewPixelWand();
+
+    PixelSetColor(pixelwand, StringValuePtr(fill));
+    mwr_check_pixelwand_error(pixelwand);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetFillColor(gc->drawingwand, pixelwand);
+    pixelwand = DestroyPixelWand(pixelwand);
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  :fill_opacity => float
+ */
+static VALUE gc_set_fill_opacity(VALUE obj, VALUE fill_opacity)
+{
+    GC *gc;
+    double opacity;
+
+    rb_check_frozen(obj);
+    opacity = NUM2DBL(fill_opacity);
+    if (opacity < 0.0)
+    {
+        opacity = 0.0;
+    }
+    else if (opacity > 1.0)
+    {
+        opacity = 1.0;
+    }
+
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetFillOpacity(gc->drawingwand, opacity);
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  :font => string
+ */
+static VALUE gc_set_font(VALUE obj, VALUE font)
+{
+    GC *gc;
+
+    rb_check_frozen(obj);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetFont(gc->drawingwand, StringValuePtr(font));
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  :gravity => string
+ */
+static VALUE gc_set_gravity(VALUE obj, VALUE gravity)
+{
+    GC *gc;
+    GravityType type;
+
+    rb_check_frozen(obj);
+    type = mwr_string_to_gravitytype(gravity, NorthWestGravity, RaiseUndefinedOption);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetGravity(gc->drawingwand, type);
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  :interword_spacing => float
+ */
+static VALUE gc_set_interword_spacing(VALUE obj, VALUE interword_spacing)
+{
+    GC *gc;
+
+    rb_check_frozen(obj);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetTextInterwordSpacing(gc->drawingwand, NUM2DBL(interword_spacing));
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  :kerning => float
+ */
+static VALUE gc_set_kerning(VALUE obj, VALUE kerning)
+{
+    GC *gc;
+
+    rb_check_frozen(obj);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetTextKerning(gc->drawingwand, NUM2DBL(kerning));
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  :pointsize => float
+ */
+static VALUE gc_set_pointsize(VALUE obj, VALUE pointsize)
+{
+    GC *gc;
+
+    rb_check_frozen(obj);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetFontSize(gc->drawingwand, NUM2DBL(pointsize));
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  :stretch => string
+ */
+static VALUE gc_set_stretch(VALUE obj, VALUE stretch)
+{
+    GC *gc;
+    StretchType type;
+
+    rb_check_frozen(obj);
+    type = mwr_string_to_stretchtype(stretch, AnyStretch, RaiseUndefinedOption);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetFontStretch(gc->drawingwand, type);
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+/*
+ *  :stroke => string
+ */
+static VALUE gc_set_stroke(VALUE obj, VALUE stroke)
+{
+    GC *gc;
+    PixelWand *pixelwand;
+
+    rb_check_frozen(obj);
+    pixelwand = NewPixelWand();
+
+    PixelSetColor(pixelwand, StringValuePtr(stroke));
+    mwr_check_pixelwand_error(pixelwand);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetStrokeColor(gc->drawingwand, pixelwand);
+    pixelwand = DestroyPixelWand(pixelwand);
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  :stroke_opacity => float
+ */
+static VALUE gc_set_stroke_opacity(VALUE obj, VALUE stroke_opacity)
+{
+    GC *gc;
+    double opacity;
+
+    rb_check_frozen(obj);
+    opacity = NUM2DBL(stroke_opacity);
+    if (opacity < 0.0)
+    {
+        opacity = 0.0;
+    }
+    else if (opacity > 1.0)
+    {
+        opacity = 1.0;
+    }
+
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetStrokeOpacity(gc->drawingwand, opacity);
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  :strokewidth => float
+ */
+static VALUE gc_set_strokewidth(VALUE obj, VALUE strokewidth)
+{
+    GC *gc;
+
+    rb_check_frozen(obj);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetStrokeWidth(gc->drawingwand, NUM2DBL(strokewidth));
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  :style => string
+ */
+static VALUE gc_set_style(VALUE obj, VALUE style)
+{
+    GC *gc;
+    StyleType type;
+
+    rb_check_frozen(obj);
+    type = mwr_string_to_styletype(style, NormalStyle, RaiseUndefinedOption);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetFontStyle(gc->drawingwand, type);
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  :undercolor => string
+ */
+static VALUE gc_set_undercolor(VALUE obj, VALUE undercolor)
+{
+    GC *gc;
+    PixelWand *pixelwand;
+
+    rb_check_frozen(obj);
+    pixelwand = NewPixelWand();
+
+    PixelSetColor(pixelwand, StringValuePtr(undercolor));
+    mwr_check_pixelwand_error(pixelwand);
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetTextUnderColor(gc->drawingwand, pixelwand);
+    pixelwand = DestroyPixelWand(pixelwand);
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  :weight => fixnum
+ */
+static VALUE gc_set_weight(VALUE obj, VALUE weight)
+{
+    GC *gc;
+    unsigned long w;
+
+    rb_check_frozen(obj);
+    if (TYPE(weight) == T_STRING)
+    {
+        w = mwr_string_to_weight(weight, 0, RaiseUndefinedOption);
+    }
+    else
+    {
+        w = FIX2ULONG(weight);
+    }
+    Data_Get_Struct(obj, GC, gc);
+    DrawSetFontWeight(gc->drawingwand, w);
+    mwr_check_drawingwand_error(gc->drawingwand);
+    return obj;
+}
+
+
+
+
+/*
+ *  MagickWand::GC class
+ */
+void mwr_init_GC(void)
+{
+    mwr_cGC = rb_define_class_under(mwr_mMagickWand, "GC", rb_cObject);
+    rb_define_alloc_func(mwr_cGC, gc_allocate);
+
+    // Private property setters are called during option processing.
+    rb_define_private_method(mwr_cGC, "set_align", gc_set_align, 1);
+    rb_define_private_method(mwr_cGC, "set_antialias", gc_set_antialias, 1);
+    rb_define_private_method(mwr_cGC, "set_decoration", gc_set_decoration, 1);
+    rb_define_private_method(mwr_cGC, "set_encoding", gc_set_encoding, 1);
+    rb_define_private_method(mwr_cGC, "set_family", gc_set_family, 1);
+    rb_define_private_method(mwr_cGC, "set_fill", gc_set_fill, 1);
+    rb_define_private_method(mwr_cGC, "set_fill_opacity", gc_set_fill_opacity, 1);
+    rb_define_private_method(mwr_cGC, "set_font", gc_set_font, 1);
+    rb_define_private_method(mwr_cGC, "set_gravity", gc_set_gravity, 1);
+    rb_define_private_method(mwr_cGC, "set_interword_spacing", gc_set_interword_spacing, 1);
+    rb_define_private_method(mwr_cGC, "set_kerning", gc_set_kerning, 1);
+    rb_define_private_method(mwr_cGC, "set_pointsize", gc_set_pointsize, 1);
+    rb_define_private_method(mwr_cGC, "set_stretch", gc_set_stretch, 1);
+    rb_define_private_method(mwr_cGC, "set_stroke", gc_set_stroke, 1);
+    rb_define_private_method(mwr_cGC, "set_stroke_opacity", gc_set_stroke_opacity, 1);
+    rb_define_private_method(mwr_cGC, "set_strokewidth", gc_set_strokewidth, 1);
+    rb_define_private_method(mwr_cGC, "set_style", gc_set_style, 1);
+    rb_define_private_method(mwr_cGC, "set_undercolor", gc_set_undercolor, 1);
+    rb_define_private_method(mwr_cGC, "set_weight", gc_set_weight, 1);
+}