carray-rmagick 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: dfffcd1dc6cdda77cc5a3089c45ca836268f45ca
+  data.tar.gz: e9a804e2d79801be3c96eb04b014f90b480bc9d3
+SHA512:
+  metadata.gz: 8c557df77610e1616e9faf53457dec1c5421ff42fb9756d2ef52c0ff0098516837a01dc2ba7d12962810cea29e655dc354ba86ab7c22e67dac5c848388f22349
+  data.tar.gz: 8d5031a7552de0eacaa1d2d5f84b508af3a34c7f1c697c66e527f4bc95d1b1ca6a400f7cdde6be77c482e3bdc34db1059f14928b770c73ecf35b0e4966588899

data/README.md

@@ -0,0 +1,14 @@
+carray-rmagick
+==============
+
+Extension For Converting Magick::Image To/From CArray.
+
+Author
+------
+
+Hiroki Motoyoshi 
+
+
+
+
+

data/carray-rmagick.gemspec

@@ -0,0 +1,23 @@
+
+Gem::Specification::new do |s|
+  version = "1.0.0"
+
+  files = Dir.glob("**/*") - [ 
+                               Dir.glob("carray*.gem"), 
+                             ].flatten
+
+  s.platform    = Gem::Platform::RUBY
+  s.name        = "carray-rmagick"
+  s.summary     = "Extension for converting Magick::Image to/from CArray"
+  s.description = <<-HERE
+    Extension for converting Magick::Image to/from CArray
+  HERE
+  s.version     = version
+  s.author      = "Hiroki Motoyoshi"
+  s.email       = ""
+  s.homepage    = 'https://github.com/himotoyoshi/carray_rmagick'
+  s.files       = files
+  s.extensions  = [ "extconf.rb" ]
+  s.has_rdoc    = false
+  s.required_ruby_version = ">= 1.8.1"
+end

data/carray_rmagick.c

@@ -0,0 +1,353 @@
+/* ---------------------------------------------------------------------------
+
+  carray/rmagick/carray_rmagick.c
+
+  This file is part of Ruby/CArray extension library.
+  You can redistribute it and/or modify it under the terms of
+  the Ruby Licence.
+
+  Copyright (C) 2005-2008  Hiroki Motoyoshi
+
+---------------------------------------------------------------------------- */
+
+#include "magick/api.h"
+
+#undef PACKAGE_VERSION
+#undef PACKAGE_NAME
+#undef PACKAGE_STRING
+#undef PACKAGE_BUGREPORT
+#undef PACKAGE_TARNAME
+
+#include "carray.h"
+
+static VALUE
+Image_fetch_index (VALUE self, VALUE vidx)
+{
+  volatile VALUE out;
+  Image *image;
+  PixelPacket *pixel;
+  int32_t irow, icol, imem;
+
+  Data_Get_Struct(self, Image, image);
+
+  Check_Type(vidx, T_ARRAY);
+  irow    = NUM2INT(rb_ary_entry(vidx, 0));
+  icol    = NUM2INT(rb_ary_entry(vidx, 1));
+  imem    = NUM2INT(rb_ary_entry(vidx, 2));
+
+  pixel = (PixelPacket *) GetVirtualPixels(image, 
+                                     icol, irow, 1, 1, &image->exception);
+
+  switch ( imem ) {
+  case 0: out = ULONG2NUM(pixel->red); break;
+  case 1: out = ULONG2NUM(pixel->green); break;
+  case 2: out = ULONG2NUM(pixel->blue); break;
+  case 3: out = ULONG2NUM(pixel->opacity); break;
+  }
+
+  return out;
+}
+
+static VALUE
+Image_store_index (VALUE self, VALUE vidx, VALUE vval)
+{
+  Image *image;
+  PixelPacket *pixel;
+  int32_t irow, icol, imem;
+
+  Data_Get_Struct(self, Image, image);
+
+  Check_Type(vidx, T_ARRAY);
+  irow    = NUM2INT(rb_ary_entry(vidx, 0));
+  icol    = NUM2INT(rb_ary_entry(vidx, 1));
+  imem    = NUM2INT(rb_ary_entry(vidx, 2));
+
+  pixel = (PixelPacket *) GetVirtualPixels(image, 
+                                     icol, irow, 1, 1, &image->exception);
+
+  switch ( imem ) {
+  case 0: pixel->red     = NUM2ULONG(vval); break;
+  case 1: pixel->green   = NUM2ULONG(vval); break;
+  case 2: pixel->blue    = NUM2ULONG(vval); break;
+  case 3: pixel->opacity = NUM2ULONG(vval); break;
+  }
+
+  SyncAuthenticPixels(image, &image->exception);  
+
+  return vval;
+}
+
+
+static VALUE
+Image_copy_data_to_ca (VALUE self, VALUE vca)
+{
+  Image *image;
+  PixelPacket *pixels;
+  long columns, rows;
+  long size, n;
+  CArray  *ca;
+  int32_t  dim[3];
+
+  Data_Get_Struct(self, Image, image);
+  columns = image->columns;
+  rows    = image->rows;
+  size    = columns * rows;
+  dim[0] = rows;
+  dim[1] = columns;
+  dim[2] = 4;
+
+  rb_check_carray_object(vca);
+  Data_Get_Struct(vca, CArray, ca);
+  ca_check_shape(ca, 3, dim);
+
+  switch ( sizeof(Quantum) ) {
+  case 1: 
+    ca_check_data_type(ca, CA_UINT8);  
+    break;
+  case 2: 
+    ca_check_data_type(ca, CA_UINT16);  
+    break;
+  case 4: 
+    ca_check_data_type(ca, CA_UINT32);  
+    break;
+  default:
+    rb_raise(rb_eRuntimeError, "invalid data_type of given carray");
+  }
+
+  SetImageType(image, TrueColorType); 
+
+  pixels = (PixelPacket *) GetVirtualPixels(image, 
+                                            0, 0, columns, rows, &image->exception);
+
+  if ( ! pixels ) {
+    rb_raise(rb_eRuntimeError, "failed to get image pixels");
+  }
+
+  ca_attach(ca);
+
+  switch ( sizeof(Quantum) ) {
+  case 1: {
+    PixelPacket *p;
+    u_int8_t *q;
+    p = pixels;
+    q = (u_int8_t *)ca->ptr;
+    for (n=0; n<size; n++) {
+      *q++ = p->red;
+      *q++ = p->green;
+      *q++ = p->blue;
+      *q++ = p->opacity;
+      p++;
+    }
+    break;
+  }
+  case 2: {
+    PixelPacket *p;
+    u_int16_t *q;
+    p = pixels;
+    q = (u_int16_t *)ca->ptr;
+    for (n=0; n<size; n++) {
+      *q++ = p->red;
+      *q++ = p->green;
+      *q++ = p->blue;
+      *q++ = p->opacity;
+      p++;
+    }
+    break;
+  }
+  case 4: {
+    PixelPacket *p;
+    u_int32_t *q;
+    p = pixels;
+    q = (u_int32_t *)ca->ptr;
+    for (n=0; n<size; n++) {
+      *q++ = p->red;
+      *q++ = p->green;
+      *q++ = p->blue;
+      *q++ = p->opacity;
+      p++;
+    }
+    break;
+  }
+  }
+
+  ca_sync(ca);
+  ca_detach(ca);
+
+  return vca;
+}
+
+static VALUE
+Image_sync_data_from_ca (VALUE self, VALUE vca)
+{
+  Image *image;
+  PixelPacket *pixels;
+  long columns, rows;
+  long size, n;
+  int okay;
+  CArray  *ca;
+  int32_t  dim[3];
+
+  Data_Get_Struct(self, Image, image);
+  columns = image->columns;
+  rows    = image->rows;
+  size    = columns * rows;
+  dim[0]  = rows;
+  dim[1]  = columns;
+  dim[2]  = 4;
+
+  rb_check_carray_object(vca);
+  Data_Get_Struct(vca, CArray, ca);
+  ca_check_shape(ca, 3, dim);
+
+  switch ( sizeof(Quantum) ) {
+  case 1: 
+    ca_check_data_type(ca, CA_UINT8);  
+    break;
+  case 2: 
+    ca_check_data_type(ca, CA_UINT16);  
+    break;
+  case 4: 
+    ca_check_data_type(ca, CA_UINT32);  
+    break;
+  default:
+    rb_raise(rb_eRuntimeError, "invalid data_type of given carray");
+  }
+
+  SetImageType(image, TrueColorType); 
+
+  pixels = (PixelPacket *) GetVirtualPixels(image, 
+                                              0, 0, columns, rows, &image->exception);
+
+  if ( pixels ) {
+    PixelPacket *p = pixels;
+    ca_attach(ca);
+    switch ( sizeof(Quantum) ) {
+    case 1: {
+      u_int8_t *q = (u_int8_t *) ca->ptr;
+      for (n=0; n<size; n++) {
+        p->red     = *q++;
+        p->green   = *q++;
+        p->blue    = *q++;
+        p->opacity = *q++;
+        p++;
+      }
+      break;
+    }
+    case 2: {
+      u_int16_t *q = (u_int16_t *) ca->ptr;
+      for (n=0; n<size; n++) {
+        p->red     = *q++;
+        p->green   = *q++;
+        p->blue    = *q++;
+        p->opacity = *q++;
+        p++;
+      }
+      break;
+    }
+    case 4: {
+      u_int32_t *q = (u_int32_t *) ca->ptr;
+      for (n=0; n<size; n++) {
+        p->red     = *q++;
+        p->green   = *q++;
+        p->blue    = *q++;
+        p->opacity = *q++;
+        p++;
+      }
+      break;
+    }
+    }
+
+    ca_detach(ca);    
+
+    okay = SyncAuthenticPixels(image, &image->exception);  
+
+    if ( ! okay ) {
+      rb_raise(rb_eRuntimeError, "image pixels could not be synced");
+    }
+    
+  }
+
+  return self;
+}
+
+
+static VALUE
+Image_fill_data (VALUE self, VALUE vval)
+{
+  Image *image;
+  PixelPacket *pixels;
+  unsigned long val;
+  long columns, rows;
+  long size, n;
+  int okay;
+
+  Data_Get_Struct(self, Image, image);
+  columns = image->columns;
+  rows    = image->rows;
+  size    = columns * rows;
+
+  val     = NUM2ULONG(vval);
+
+  SetImageType(image, TrueColorType); 
+
+  pixels = (PixelPacket *) GetAuthenticPixels(image, 0, 0, columns, rows, &image->exception);
+
+  if ( pixels ) {
+    PixelPacket *p = pixels;
+    switch ( sizeof(Quantum) ) {
+    case 1: {
+      for (n=0; n<size; n++) {
+        p->red     = val;
+        p->green   = val;
+        p->blue    = val;
+        p->opacity = val;
+        p++;
+      }
+      break;
+    }
+    case 2: {
+      for (n=0; n<size; n++) {
+        p->red     = val;
+        p->green   = val;
+        p->blue    = val;
+        p->opacity = val;
+        p++;
+      }
+      break;
+    }
+    case 4: {
+      for (n=0; n<size; n++) {
+        p->red     = val;
+        p->green   = val;
+        p->blue    = val;
+        p->opacity = val;
+        p++;
+      }
+      break;
+    }
+    }
+
+    okay = SyncAuthenticPixels(image, &image->exception);  
+
+    if ( ! okay ) {
+      rb_raise(rb_eRuntimeError, "image pixels could not be synced");
+    }
+    
+  }
+
+  return self;
+}
+
+void
+Init_carray_rmagick ()
+{
+  VALUE mMagick = rb_const_get(rb_cObject, rb_intern("Magick")); 
+  VALUE cImage  = rb_const_get(mMagick, rb_intern("Image"));
+
+  rb_define_method(cImage, "_fetch_index",   Image_fetch_index, 1);
+  rb_define_method(cImage, "_store_index",   Image_store_index, 2);
+  rb_define_method(cImage, "_copy_data_to_ca",   Image_copy_data_to_ca, 1);
+  rb_define_method(cImage, "_sync_data_from_ca", Image_sync_data_from_ca, 1);
+  rb_define_method(cImage, "_fill_data", Image_fill_data, 1);
+}
+

data/extconf.rb

@@ -0,0 +1,37 @@
+require 'mkmf'
+require 'carray/mkmf'
+
+begin
+  have_image_magick = true
+  $CPPFLAGS << " " << `Magick-config --cflags --cppflags`.split("\n").join(" ")
+  `Magick-config --libs`.chomp.split(/\s+/).uniq.each do |opt|
+    case opt
+    when /\-L(.*)/
+      $LDFLAGS << " " << opt
+    end
+  end
+  `Magick-config --libs`.chomp.split(/\s+/).uniq.each do |opt|
+    case opt
+    when /\-l(.*)/
+      unless have_library($1)
+        have_image_magick = false
+        break
+      end
+    end
+  end
+rescue
+end
+
+if have_carray()
+  if have_header("magick/api.h") and have_image_magick
+    create_makefile("carray/carray_rmagick")
+  else
+    open("Makefile", "w") { |io|
+      io << "all:" << "\n"
+      io << "install:" << "\n"        
+      io << "clean:" << "\n"
+      io << "distclean:" << "\n"     
+      io << "\trm -rf mkmf.log Makefile" << "\n"     
+    }
+  end
+end

data/lib/autoload/autoload_io_rmagick.rb

@@ -0,0 +1,17 @@
+module Magick
+  class Image
+    rmagick_rb = "carray/io/rmagick"
+    autoload_method "export_pixels_to_ca", rmagick_rb
+    autoload_method "import_pixels_from_ca", rmagick_rb
+  end
+end
+
+class CArray
+  rmagick_rb = "carray/io/rmagick"  
+  autoload_method "self.load_image", rmagick_rb
+  autoload_method "save_image", rmagick_rb
+  autoload_method "display_image", rmagick_rb
+  autoload_method "to_image", rmagick_rb
+end
+  
+  

data/lib/autoload/autoload_object_magick_image.rb

@@ -0,0 +1,9 @@
+autoload :CAMagickImage, "carray/object/ca_obj_magick_image"
+
+module Magick
+  class Image
+    magick_image_rb = "carray/object/ca_obj_magick_image"
+    autoload_method "ca", magick_image_rb
+    autoload_method "to_ca", magick_image_rb
+  end
+end

data/lib/carray-rmagick.rb

@@ -0,0 +1,5 @@
+require "carray"
+require "rmagick"
+require "carray/carray_rmagick"
+require "carray/io/rmagick"
+require "carray/object/ca_obj_magick_image"

data/lib/io/rmagick.rb

@@ -0,0 +1,147 @@
+# ----------------------------------------------------------------------------
+#
+#  carray/io/rmagick.rb
+#
+#  This file is part of Ruby/CArray extension library.
+#  You can redistribute it and/or modify it under the terms of
+#  the Ruby Licence.
+#
+#  Copyright (C) 2005-2008  Hiroki Motoyoshi
+#
+# ----------------------------------------------------------------------------
+
+require "RMagick"
+require "carray/carray_rmagick"
+
+class Magick::Image
+
+  def export_pixels_to_ca (ca, map="RGB",x=0,y=0)
+    case ca.data_type
+    when CA_FIXLEN
+      case ca.bytes 
+      when map.size
+        stype = Magick::CharPixel
+      when 2*map.size
+        stype = Magick::ShortPixel        
+      when 4*map.size
+        stype = Magick::IntegerPixel        
+      else
+        raise
+      end
+    when CA_UINT8, CA_INT8
+      stype = Magick::CharPixel
+    when CA_UINT16, CA_INT16
+      stype = Magick::ShortPixel
+    when CA_UINT32, CA_INT32
+      stype = Magick::IntegerPixel
+    when CA_FLOAT32
+      stype = Magick::FloatPixel
+    when CA_FLOAT64
+      stype = Magick::DoublePixel
+    else
+      raise "invalid strage type"
+    end
+    case ca.rank 
+    when 2
+      if map.size != 1
+        raise
+      end
+    when 3
+      if map.size != ca.dim.last
+        raise
+      end
+    else  
+      raise "invalid rank"
+    end
+    ca.load_binary(export_pixels_to_str(x,y,ca.dim1,ca.dim0,map,stype))
+    return ca
+  end
+
+  def import_pixels_from_ca (ca,map="RGBO",x=0,y=0)
+    case ca.data_type
+    when CA_FIXLEN
+      case ca.bytes 
+      when map.size
+        stype = Magick::CharPixel
+      when 2*map.size
+        stype = Magick::ShortPixel        
+      when 4*map.size
+        stype = Magick::IntegerPixel        
+      else
+        raise
+      end
+    when CA_UINT8, CA_INT8
+      stype = Magick::CharPixel
+    when CA_UINT16, CA_INT16
+      stype = Magick::ShortPixel
+    when CA_UINT32, CA_INT32
+      stype = Magick::IntegerPixel
+    when CA_FLOAT32
+      stype = Magick::FloatPixel
+    when CA_FLOAT64
+      stype = Magick::DoublePixel
+    else
+      raise "invalid strage type"
+    end
+    import_pixels(x,y,ca.dim1,ca.dim0,map,ca.dump_binary,stype)
+    return self
+  end
+  
+end
+
+class CArray
+
+  def self.load_image (file, map="RGBO", data_type = nil)
+    img = Magick::Image.read(file).first
+    rows, cols = img.rows, img.columns
+    unless data_type
+      case img.quantum_depth
+      when 8
+        data_type = CA_UINT8
+      when 16
+        data_type = CA_UINT16
+      when 32
+        data_type = CA_UINT32
+      end
+    end
+    case map.size
+    when 1
+      out = CArray.new(data_type, [rows, cols])
+    else
+      out = CArray.new(data_type, [rows, cols, map.size])
+    end
+    img.export_pixels_to_ca(out, map)
+    return out
+  end
+
+  def to_image (map="RGBO", ch=nil)
+    img = Magick::Image.new(dim1, dim0)
+    case data_type
+    when CA_FIXLEN
+      img.import_pixels_from_ca(self, map)
+    else
+      case rank
+      when 2
+        map = "I"
+        ca = self[:%, :%, 1]
+      when 3
+        unless ch
+          ch = Array.new(map.size){|i| i}
+        end
+        ca = self[nil,nil,CA_INT(ch)]
+      end
+      img.import_pixels_from_ca(ca, map)
+    end
+    return img
+  end
+
+  def save_image (file, map="RGBO", ch=nil)
+    to_image(map, ch).write(file)
+    return nil
+  end
+
+  def display_image (map="RGBO", ch=nil)
+    to_image(map, ch).display
+  end
+end
+

data/lib/object/ca_obj_magick_image.rb

@@ -0,0 +1,84 @@
+# ----------------------------------------------------------------------------
+#
+#  carray/object/ca_obj_magick_image.rb
+#
+#  This file is part of Ruby/CArray extension library.
+#  You can redistribute it and/or modify it under the terms of
+#  the Ruby Licence.
+#
+#  Copyright (C) 2005-2008  Hiroki Motoyoshi
+#
+# ----------------------------------------------------------------------------
+
+require "RMagick"
+require "carray/carray_rmagick"
+
+class CAMagickImage < CAObject
+
+  DEPTH_TO_TYPE = { 
+    8 => CA_UINT8,
+    16 => CA_UINT16,
+    32 => CA_UINT32
+  }
+
+  def initialize (image)
+    @image = image
+    if Magick.const_defined?(:QuantumDepth)
+      magick_quantum_depth = Magick::QuantumDepth
+    else
+      magick_quantum_depth = Magick::MAGICKCORE_QUANTUM_DEPTH      
+    end
+    @qtype = DEPTH_TO_TYPE[magick_quantum_depth]
+    type   = DEPTH_TO_TYPE[@image.quantum_depth]
+    @scale = 0
+    (magick_quantum_depth / @image.quantum_depth).times do |i|
+      @scale += 1 << @image.quantum_depth * i
+    end
+    super(type, [@image.rows, @image.columns, 4])
+  end
+  
+  def fetch_index (idx)
+    return @image._fetch_index(idx)/@scale
+  end
+
+  def store_index (idx, val)
+    return @image._store_index(idx, val*@scale)
+  end
+  
+  def copy_data (data)
+    qdata = CArray.wrap_writable(data, @qtype)
+    qdata.attach! {
+      @image._copy_data_to_ca(qdata)
+      if @scale != 1
+        qdata.div!(@scale)
+      end
+    }
+  end
+
+  def sync_data (data)
+    qdata = CArray.wrap_readonly(data, @qtype)
+    qdata.attach {
+      if @scale != 1
+        qdata.mul!(@scale)
+      end 
+      @image._sync_data_from_ca(qdata)
+    }
+  end
+  
+  def fill_data (val)
+    return @image._fill_data(val*@scale)
+  end
+  
+end
+
+class Magick::Image
+
+  def ca
+    return CAMagickImage.new(self)
+  end
+
+  def to_ca
+    return ca.to_ca
+  end
+
+end

metadata

@@ -0,0 +1,54 @@
+--- !ruby/object:Gem::Specification
+name: carray-rmagick
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+platform: ruby
+authors:
+- Hiroki Motoyoshi
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2016-05-06 00:00:00.000000000 Z
+dependencies: []
+description: |2
+      Extension for converting Magick::Image to/from CArray
+email: ''
+executables: []
+extensions:
+- extconf.rb
+extra_rdoc_files: []
+files:
+- README.md
+- carray-rmagick.gemspec
+- carray_rmagick.c
+- extconf.rb
+- lib/autoload/autoload_io_rmagick.rb
+- lib/autoload/autoload_object_magick_image.rb
+- lib/carray-rmagick.rb
+- lib/io/rmagick.rb
+- lib/object/ca_obj_magick_image.rb
+homepage: https://github.com/himotoyoshi/carray_rmagick
+licenses: []
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: 1.8.1
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.6.4
+signing_key: 
+specification_version: 4
+summary: Extension for converting Magick::Image to/from CArray
+test_files: []
+has_rdoc: false