ruby-opencv 0.0.8-mswin32

data/ext/opencv/window.h

@@ -0,0 +1,66 @@
+/************************************************************
+
+   window.h -
+
+   $Author: lsxi $
+
+   Copyright (C) 2005-2006 Masakazu Yonekura
+
+************************************************************/
+#ifndef RUBY_OPENCV_GUI_H
+#include "gui.h"
+#endif
+
+#ifndef RUBY_OPENCV_GUI_WINDOW_H
+#define RUBY_OPENCV_GUI_WINDOW_H
+
+#include "opencv.h"
+#define __NAMESPACE_BEGIN_WINDOW namespace cWindow {
+#define __NAMESPACE_END_WINDOW }
+
+__NAMESPACE_BEGIN_OPENCV
+__NAMESPACE_BEGIN_GUI
+
+typedef struct Window {
+  VALUE name;
+  VALUE image;
+  VALUE trackbars;
+  VALUE blocks;
+} Window;
+
+__NAMESPACE_BEGIN_WINDOW
+
+void define_ruby_class();
+
+VALUE rb_allocate(VALUE klass);
+
+void window_mark(void *ptr);
+void window_free(void *ptr);
+VALUE rb_alive_q(VALUE self);
+VALUE rb_initialize(int argc, VALUE *argv, VALUE self);
+VALUE rb_destroy(VALUE self);
+VALUE rb_destroy_all(VALUE klass);
+VALUE rb_resize(int argc, VALUE *argv, VALUE self);
+VALUE rb_move(int argc, VALUE *argv, VALUE self);
+VALUE rb_show_image(VALUE self, VALUE img);
+VALUE rb_set_trackbar(int argc, VALUE *argv, VALUE self);
+VALUE rb_set_mouse_callback(int argc, VALUE* argv, VALUE self);
+
+inline Window*
+WINDOW(VALUE object) {
+  Window *ptr;
+  Data_Get_Struct(object, Window, ptr);
+  return ptr;
+}
+
+inline const char*
+GET_WINDOW_NAME(VALUE object) {
+  return StringValueCStr(WINDOW(object)->name);
+}
+
+__NAMESPACE_END_WINDOW
+__NAMESPACE_END_GUI
+__NAMESPACE_END_OPENCV
+
+#endif // RUBY_OPENCV_GUI_WINDOW_H
+

data/extconf.rb

@@ -0,0 +1,75 @@
+#!/usr/bin/env ruby
+require "mkmf"
+
+def cv_version_suffix(incdir)
+  major, minor, subminor = nil, nil, nil
+  open("#{incdir}/opencv2/core/version.hpp", 'r') { |f|
+    f.read.lines.each { |line|
+      major = $1.to_s if line =~ /\A#define\s+CV_MAJOR_VERSION\s+(\d+)\s*\Z/
+      minor = $1.to_s if line =~ /\A#define\s+CV_MINOR_VERSION\s+(\d+)\s*\Z/
+      subminor = $1.to_s if line =~ /\A#define\s+CV_SUBMINOR_VERSION\s+(\d+)\s*\Z/
+    }
+  }
+  major + minor + subminor
+end
+
+incdir, libdir = dir_config("opencv", "/usr/local/include", "/usr/local/lib")
+dir_config("libxml2", "/usr/include", "/usr/lib")
+
+opencv_headers = ["opencv2/core/core_c.h", "opencv2/core/core.hpp", "opencv2/imgproc/imgproc_c.h",
+                  "opencv2/imgproc/imgproc.hpp", "opencv2/video/tracking.hpp", "opencv2/features2d/features2d.hpp",
+                  "opencv2/flann/flann.hpp", "opencv2/calib3d/calib3d.hpp", "opencv2/objdetect/objdetect.hpp",
+                  "opencv2/legacy/compat.hpp", "opencv2/legacy/legacy.hpp", "opencv2/highgui/highgui_c.h",
+                  "opencv2/highgui/highgui.hpp", "opencv2/photo/photo.hpp", "opencv2/nonfree/nonfree.hpp"]
+
+opencv_libraries = ["opencv_calib3d", "opencv_contrib", "opencv_core", "opencv_features2d",
+                    "opencv_flann", "opencv_gpu", "opencv_highgui", "opencv_imgproc",
+                    "opencv_legacy", "opencv_ml", "opencv_objdetect", "opencv_video",
+                    "opencv_photo", "opencv_nonfree"]
+
+
+puts ">> Check the required libraries..."
+case CONFIG["arch"]
+when /mswin32/
+  suffix = cv_version_suffix(incdir)
+  opencv_libraries.map! {|lib| lib + suffix }
+  have_library("msvcrt")
+  opencv_libraries.each {|lib|
+    raise "#{lib}.lib not found." unless have_library(lib)
+  }
+  $CFLAGS << ' /EHsc'
+when /mingw32/
+  suffix = cv_version_suffix(incdir)
+  opencv_libraries.map! {|lib| lib + suffix }
+  have_library("msvcrt")
+  opencv_libraries.each {|lib|
+    raise "lib#{lib} not found." unless have_library(lib)
+  }
+else
+  opencv_libraries.each {|lib|
+    raise "lib#{lib} not found." unless have_library(lib)
+  }
+  have_library("stdc++")
+end
+
+# Check the required headers
+puts ">> Check the required headers..."
+opencv_headers.each {|header|
+  unless have_header(header)
+    if CONFIG["arch"] =~ /mswin32/ and File.exists? "#{incdir}/#{header}"
+      # In mswin32, have_header('opencv2/nonfree/nonfree.hpp') fails because of a syntax problem.
+      warn "warning: #{header} found but `have_header` failed."
+      $defs << "-DHAVE_#{header.tr_cpp}"
+    else
+      raise "#{header} not found."
+    end
+  end
+}
+have_header("stdarg.h")
+
+# Quick fix for 1.8.7
+$CFLAGS << " -I#{File.dirname(__FILE__)}/ext/opencv"
+
+# Create Makefile
+create_makefile("opencv", "./ext/opencv")
+

data/lib/opencv.rb

@@ -0,0 +1,3 @@
+require (File.dirname(__FILE__) + '/opencv/version')
+require 'opencv.so'
+

data/lib/opencv/psyched_yaml.rb

@@ -0,0 +1,22 @@
+# -*- mode: ruby; coding: utf-8-unix -*- 
+# Psych loader for avoiding loading problem
+# (borrowed from Bundler 1.1.rc.7 https://github.com/carlhuda/bundler/blob/v1.1.rc.7/lib/bundler/psyched_yaml.rb )
+#
+# See: https://github.com/ruby-opencv/ruby-opencv/pull/6
+
+# Psych could be a gem
+begin
+  gem 'psych'
+rescue Gem::LoadError
+end if defined?(Gem)
+
+# Psych could be a stdlib
+begin
+  # it's too late if Syck is already loaded
+  require 'psych' unless defined?(Syck)
+rescue LoadError
+end
+
+# Psych might NOT EXIST AT ALL
+require 'yaml'
+

data/lib/opencv/version.rb

@@ -0,0 +1,3 @@
+module OpenCV
+  VERSION = '0.0.8'
+end

data/ruby-opencv.gemspec

@@ -0,0 +1,43 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = "ruby-opencv"
+  s.version = "0.0.8.20130127124736"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["lsxi", "ser1zw", "pcting"]
+  s.date = "2013-01-27"
+  s.description = ""
+  s.email = ["masakazu.yonekura@gmail.com", "azariahsawtikes@gmail.com", "pcting@gmail.com"]
+  s.extensions = ["extconf.rb"]
+  s.extra_rdoc_files = ["History.txt", "License.txt", "Manifest.txt", "examples/matching_to_many_images/train/trainImages.txt"]
+  s.files = [".gitignore", "DEVELOPERS_NOTE.md", "Gemfile", "History.txt", "License.txt", "Manifest.txt", "README.md", "Rakefile", "examples/alpha_blend.rb", "examples/box.png", "examples/box_in_scene.png", "examples/contours/bitmap-contours-with-labels.png", "examples/contours/bitmap-contours.png", "examples/contours/bounding-box-detect-canny.rb", "examples/contours/contour_retrieval_modes.rb", "examples/contours/rotated-boxes.jpg", "examples/convexhull.rb", "examples/face_detect.rb", "examples/find_obj.rb", "examples/houghcircle.rb", "examples/inpaint.png", "examples/inpaint.rb", "examples/lenna-rotated.jpg", "examples/lenna.jpg", "examples/match_kdtree.rb", "examples/matching_to_many_images.rb", "examples/matching_to_many_images/query.png", "examples/matching_to_many_images/train/1.png", "examples/matching_to_many_images/train/2.png", "examples/matching_to_many_images/train/3.png", "examples/matching_to_many_images/train/trainImages.txt", "examples/paint.rb", "examples/snake.rb", "examples/stuff.jpg", "examples/tiffany.jpg", "ext/opencv/curve.cpp", "ext/opencv/curve.h", "ext/opencv/cvavgcomp.cpp", "ext/opencv/cvavgcomp.h", "ext/opencv/cvbox2d.cpp", "ext/opencv/cvbox2d.h", "ext/opencv/cvcapture.cpp", "ext/opencv/cvcapture.h", "ext/opencv/cvchain.cpp", "ext/opencv/cvchain.h", "ext/opencv/cvcircle32f.cpp", "ext/opencv/cvcircle32f.h", "ext/opencv/cvcondensation.cpp", "ext/opencv/cvcondensation.h", "ext/opencv/cvconnectedcomp.cpp", "ext/opencv/cvconnectedcomp.h", "ext/opencv/cvcontour.cpp", "ext/opencv/cvcontour.h", "ext/opencv/cvcontourtree.cpp", "ext/opencv/cvcontourtree.h", "ext/opencv/cvconvexitydefect.cpp", "ext/opencv/cvconvexitydefect.h", "ext/opencv/cverror.cpp", "ext/opencv/cverror.h", "ext/opencv/cvfeaturetree.cpp", "ext/opencv/cvfeaturetree.h", "ext/opencv/cvfont.cpp", "ext/opencv/cvfont.h", "ext/opencv/cvhaarclassifiercascade.cpp", "ext/opencv/cvhaarclassifiercascade.h", "ext/opencv/cvhistogram.cpp", "ext/opencv/cvhistogram.h", "ext/opencv/cvhumoments.cpp", "ext/opencv/cvhumoments.h", "ext/opencv/cvline.cpp", "ext/opencv/cvline.h", "ext/opencv/cvmat.cpp", "ext/opencv/cvmat.h", "ext/opencv/cvmatnd.cpp", "ext/opencv/cvmatnd.h", "ext/opencv/cvmemstorage.cpp", "ext/opencv/cvmemstorage.h", "ext/opencv/cvmoments.cpp", "ext/opencv/cvmoments.h", "ext/opencv/cvpoint.cpp", "ext/opencv/cvpoint.h", "ext/opencv/cvpoint2d32f.cpp", "ext/opencv/cvpoint2d32f.h", "ext/opencv/cvpoint3d32f.cpp", "ext/opencv/cvpoint3d32f.h", "ext/opencv/cvrect.cpp", "ext/opencv/cvrect.h", "ext/opencv/cvscalar.cpp", "ext/opencv/cvscalar.h", "ext/opencv/cvseq.cpp", "ext/opencv/cvseq.h", "ext/opencv/cvsize.cpp", "ext/opencv/cvsize.h", "ext/opencv/cvsize2d32f.cpp", "ext/opencv/cvsize2d32f.h", "ext/opencv/cvslice.cpp", "ext/opencv/cvslice.h", "ext/opencv/cvsparsemat.cpp", "ext/opencv/cvsparsemat.h", "ext/opencv/cvsurfparams.cpp", "ext/opencv/cvsurfparams.h", "ext/opencv/cvsurfpoint.cpp", "ext/opencv/cvsurfpoint.h", "ext/opencv/cvtermcriteria.cpp", "ext/opencv/cvtermcriteria.h", "ext/opencv/cvtwopoints.cpp", "ext/opencv/cvtwopoints.h", "ext/opencv/cvutils.cpp", "ext/opencv/cvutils.h", "ext/opencv/cvvideowriter.cpp", "ext/opencv/cvvideowriter.h", "ext/opencv/gui.cpp", "ext/opencv/gui.h", "ext/opencv/iplconvkernel.cpp", "ext/opencv/iplconvkernel.h", "ext/opencv/iplimage.cpp", "ext/opencv/iplimage.h", "ext/opencv/lib/opencv.rb", "ext/opencv/lib/opencv/psyched_yaml.rb", "ext/opencv/lib/opencv/version.rb", "ext/opencv/mouseevent.cpp", "ext/opencv/mouseevent.h", "ext/opencv/opencv.cpp", "ext/opencv/opencv.h", "ext/opencv/pointset.cpp", "ext/opencv/pointset.h", "ext/opencv/trackbar.cpp", "ext/opencv/trackbar.h", "ext/opencv/window.cpp", "ext/opencv/window.h", "extconf.rb", "images/CvMat_sobel.png", "images/CvMat_sub_rect.png", "images/CvSeq_relationmap.png", "images/face_detect_from_lena.jpg", "ruby-opencv.gemspec", "test/helper.rb", "test/runner.rb", "test/samples/airplane.jpg", "test/samples/baboon.jpg", "test/samples/baboon200.jpg", "test/samples/baboon200_rotated.jpg", "test/samples/blank0.jpg", "test/samples/blank1.jpg", "test/samples/blank2.jpg", "test/samples/blank3.jpg", "test/samples/blank4.jpg", "test/samples/blank5.jpg", "test/samples/blank6.jpg", "test/samples/blank7.jpg", "test/samples/blank8.jpg", "test/samples/blank9.jpg", "test/samples/cat.jpg", "test/samples/chessboard.jpg", "test/samples/contours.jpg", "test/samples/fruits.jpg", "test/samples/haarcascade_frontalface_alt.xml.gz", "test/samples/inpaint-mask.bmp", "test/samples/lena-256x256.jpg", "test/samples/lena-32x32.jpg", "test/samples/lena-eyes.jpg", "test/samples/lena-inpaint.jpg", "test/samples/lena.jpg", "test/samples/lines.jpg", "test/samples/messy0.jpg", "test/samples/messy1.jpg", "test/samples/movie_sample.avi", "test/samples/one_way_train_0000.jpg", "test/samples/one_way_train_0001.jpg", "test/samples/partially_blank0.jpg", "test/samples/partially_blank1.jpg", "test/samples/smooth0.jpg", "test/samples/smooth1.jpg", "test/samples/smooth2.jpg", "test/samples/smooth3.jpg", "test/samples/smooth4.jpg", "test/samples/smooth5.jpg", "test/samples/smooth6.jpg", "test/samples/str-cv-rotated.jpg", "test/samples/str-cv.jpg", "test/samples/str-ov.jpg", "test/samples/stuff.jpg", "test/test_curve.rb", "test/test_cvavgcomp.rb", "test/test_cvbox2d.rb", "test/test_cvcapture.rb", "test/test_cvchain.rb", "test/test_cvcircle32f.rb", "test/test_cvconnectedcomp.rb", "test/test_cvcontour.rb", "test/test_cvcontourtree.rb", "test/test_cverror.rb", "test/test_cvfeaturetree.rb", "test/test_cvfont.rb", "test/test_cvhaarclassifiercascade.rb", "test/test_cvhistogram.rb", "test/test_cvhumoments.rb", "test/test_cvline.rb", "test/test_cvmat.rb", "test/test_cvmat_drawing.rb", "test/test_cvmat_dxt.rb", "test/test_cvmat_imageprocessing.rb", "test/test_cvmat_matching.rb", "test/test_cvmoments.rb", "test/test_cvpoint.rb", "test/test_cvpoint2d32f.rb", "test/test_cvpoint3d32f.rb", "test/test_cvrect.rb", "test/test_cvscalar.rb", "test/test_cvseq.rb", "test/test_cvsize.rb", "test/test_cvsize2d32f.rb", "test/test_cvslice.rb", "test/test_cvsurfparams.rb", "test/test_cvsurfpoint.rb", "test/test_cvtermcriteria.rb", "test/test_cvtwopoints.rb", "test/test_cvvideowriter.rb", "test/test_iplconvkernel.rb", "test/test_iplimage.rb", "test/test_mouseevent.rb", "test/test_opencv.rb", "test/test_pointset.rb", "test/test_preliminary.rb", "test/test_trackbar.rb", "test/test_window.rb"]
+  s.homepage = "https://github.com/ruby-opencv/ruby-opencv/"
+  s.rdoc_options = ["--main", "README.md"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = "ruby-opencv"
+  s.rubygems_version = "1.8.24"
+  s.summary = "OpenCV wrapper for Ruby"
+  s.test_files = ["test/test_cvcontourtree.rb", "test/test_iplconvkernel.rb", "test/test_cvsize2d32f.rb", "test/test_cvconnectedcomp.rb", "test/test_cvcontour.rb", "test/test_cvslice.rb", "test/test_cvmat_matching.rb", "test/test_trackbar.rb", "test/test_cvpoint3d32f.rb", "test/test_cvpoint2d32f.rb", "test/test_cvcapture.rb", "test/test_cvfont.rb", "test/test_cvhumoments.rb", "test/test_cvmat_dxt.rb", "test/test_cvbox2d.rb", "test/test_iplimage.rb", "test/test_preliminary.rb", "test/test_cvmat_drawing.rb", "test/test_cvsurfparams.rb", "test/test_cvcircle32f.rb", "test/test_pointset.rb", "test/test_cvmat.rb", "test/test_cvhistogram.rb", "test/test_cverror.rb", "test/test_cvtermcriteria.rb", "test/test_cvmoments.rb", "test/test_cvchain.rb", "test/test_cvpoint.rb", "test/test_cvavgcomp.rb", "test/test_cvrect.rb", "test/test_cvvideowriter.rb", "test/test_curve.rb", "test/test_window.rb", "test/test_cvline.rb", "test/test_opencv.rb", "test/test_cvfeaturetree.rb", "test/test_cvseq.rb", "test/test_cvsize.rb", "test/test_mouseevent.rb", "test/test_cvmat_imageprocessing.rb", "test/test_cvtwopoints.rb", "test/test_cvscalar.rb", "test/test_cvsurfpoint.rb", "test/test_cvhaarclassifiercascade.rb"]
+
+  if s.respond_to? :specification_version then
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::VERSION) >= Gem::Version.new('1.2.0') then
+      s.add_development_dependency(%q<rdoc>, ["~> 3.10"])
+      s.add_development_dependency(%q<rake-compiler>, [">= 0"])
+      s.add_development_dependency(%q<hoe-gemspec>, [">= 0"])
+      s.add_development_dependency(%q<hoe>, ["~> 3.5"])
+    else
+      s.add_dependency(%q<rdoc>, ["~> 3.10"])
+      s.add_dependency(%q<rake-compiler>, [">= 0"])
+      s.add_dependency(%q<hoe-gemspec>, [">= 0"])
+      s.add_dependency(%q<hoe>, ["~> 3.5"])
+    end
+  else
+    s.add_dependency(%q<rdoc>, ["~> 3.10"])
+    s.add_dependency(%q<rake-compiler>, [">= 0"])
+    s.add_dependency(%q<hoe-gemspec>, [">= 0"])
+    s.add_dependency(%q<hoe>, ["~> 3.5"])
+  end
+end

data/test/helper.rb

@@ -0,0 +1,166 @@
+#!/usr/bin/env ruby
+# -*- mode: ruby; coding: utf-8-unix -*- 
+require 'test/unit'
+require 'digest/md5'
+require 'opencv'
+include OpenCV
+
+class OpenCVTestCase < Test::Unit::TestCase
+  SAMPLE_DIR = File.expand_path(File.dirname(__FILE__)) + '/samples/'
+  FILENAME_CAT = SAMPLE_DIR + 'cat.jpg'
+  FILENAME_LENA256x256 = SAMPLE_DIR + 'lena-256x256.jpg'
+  FILENAME_LENA32x32 = SAMPLE_DIR + 'lena-32x32.jpg'
+  FILENAME_LENA_EYES = File.expand_path(File.dirname(__FILE__)) + '/samples/lena-eyes.jpg'
+  FILENAME_FRUITS = SAMPLE_DIR + 'fruits.jpg'
+  FILENAME_CONTOURS = File.expand_path(File.dirname(__FILE__)) + '/samples/contours.jpg'
+  FILENAME_CHESSBOARD = SAMPLE_DIR + 'chessboard.jpg'
+  HAARCASCADE_FRONTALFACE_ALT = SAMPLE_DIR + 'haarcascade_frontalface_alt.xml.gz'
+  AVI_SAMPLE = SAMPLE_DIR + 'movie_sample.avi'
+
+  DUMMY_OBJ = Digest::MD5.new # dummy object for argument type check test
+
+  def snap(*images)
+    n = -1
+    images.map! { |val|
+      n += 1
+      if val.is_a? Hash
+        val
+      elsif val.is_a? Array
+        {:title => val[0], :image => val[1] }
+      else
+        {:title => "snap-#{n}", :image => val }
+      end
+    }
+
+    pos = CvPoint.new(0, 0)
+    images.each { |img|
+      w = GUI::Window.new(img[:title])
+      w.show(img[:image])
+      w.move(pos)
+      pos.x += img[:image].width
+      if pos.x > 800
+        pos.y += img[:image].height
+        pos.x = 0
+      end
+    }
+    
+    GUI::wait_key
+    GUI::Window::destroy_all
+  end
+
+  def hash_img(img)
+    # Compute a hash for an image, useful for image comparisons
+    Digest::MD5.hexdigest(img.data)
+  end
+
+  unless Test::Unit::TestCase.instance_methods.map {|m| m.to_sym }.include? :assert_false
+    def assert_false(actual, message = nil)
+      assert_equal(false, actual, message)
+    end
+  end
+
+  alias original_assert_in_delta assert_in_delta
+
+  def assert_cvscalar_equal(expected, actual, message = nil)
+    assert_equal(CvScalar, actual.class, message)
+    assert_array_equal(expected.to_ary, actual.to_ary, message)
+  end
+
+  def assert_array_equal(expected, actual, message = nil)
+    assert_equal(expected.size, actual.size, message)
+    expected.zip(actual) { |e, a|
+      assert_equal(e, a, message)
+    }
+  end
+  
+  def assert_in_delta(expected, actual, delta)
+    if expected.is_a? CvScalar or actual.is_a? CvScalar
+      expected = expected.to_ary if expected.is_a? CvScalar
+      actual = actual.to_ary if actual.is_a? CvScalar
+      assert_in_delta(expected, actual ,delta)
+    elsif expected.is_a? Array and actual.is_a? Array
+      assert_equal(expected.size, actual.size)
+      expected.zip(actual) { |e, a|
+        original_assert_in_delta(e, a, delta)
+      }
+    else
+      original_assert_in_delta(expected, actual, delta)
+    end
+  end
+
+  def create_cvmat(height, width, depth = :cv8u, channel = 4, &block)
+    m = CvMat.new(height, width, depth, channel)
+    block = lambda { |j, i, c| CvScalar.new(*([c + 1] * channel)) } unless block_given?
+    count = 0
+    height.times { |j|
+      width.times { |i|
+        m[j, i] = block.call(j, i, count)
+        count += 1
+      }
+    }
+    m
+  end
+
+  def create_iplimage(width, height, depth = :cv8u, channel = 4, &block)
+    m = IplImage.new(width, height, depth, channel)
+    block = lambda { |j, i, c| CvScalar.new(*([c + 1] * channel)) } unless block_given?
+    count = 0
+    height.times { |j|
+      width.times { |i|
+        m[j, i] = block.call(j, i, count)
+        count += 1
+      }
+    }
+    m
+  end
+
+  def assert_each_cvscalar(actual, delta = 0, &block)
+    raise unless block_given?
+    count = 0
+    actual.height.times { |j|
+      actual.width.times { |i|
+        expected = block.call(j, i, count)
+        if delta == 0
+          expected = expected.to_ary if expected.is_a? CvScalar
+          assert_array_equal(expected, actual[j, i].to_ary)
+        else
+          assert_in_delta(expected, actual[j, i], delta)
+        end
+        count += 1
+      }
+    }
+  end
+
+  def print_cvmat(mat)
+    s = []
+    mat.height.times { |j|
+      a = []
+      mat.width.times { |i|
+        tmp = mat[j, i].to_ary.map {|m| m.to_f.round(2) }.join(',')
+        a << "[#{tmp}]"
+      }
+      s << a.join(' ')
+    }
+    puts s.join("\n")
+  end
+
+  def count_threshold(mat, threshold, &block)
+    n = 0
+    block = lambda { |a, b| a > b } unless block_given?
+    (mat.rows * mat.cols).times { |i|
+      n += 1 if block.call(mat[i][0], threshold)
+    }
+    n
+  end
+
+  def color_hists(mat)
+    hists = [0] * mat.channel
+    (mat.rows * mat.cols).times { |i|
+      hists.size.times { |c|
+        hists[c] += mat[i][c]
+      }
+    }
+    hists
+  end
+end
+

data/test/runner.rb

@@ -0,0 +1,30 @@
+#!/usr/bin/env ruby
+# -*- mode: ruby; coding: utf-8-unix -*- 
+require 'test/unit'
+
+src_testdir = File.dirname(File.expand_path(__FILE__))
+if Test::Unit.methods.include? :setup_argv
+  srcdir = File.dirname(src_testdir)
+  Test::Unit.setup_argv {|files|
+    if files.empty?
+      [src_testdir]
+    else
+      files.map {|f|
+        if File.exist? "#{src_testdir}/#{f}"
+          "#{src_testdir}/#{f}"
+        elsif File.exist? "#{srcdir}/#{f}"
+          "#{srcdir}/#{f}"
+        elsif File.exist? f
+          f
+        else
+          raise ArgumentError, "not found: #{f}"
+        end
+      }
+    end
+  }
+elsif Test::Unit.constants.map {|c| c.to_sym }.include? :AutoRunner
+  Test::Unit::AutoRunner.run(true, src_testdir)
+else
+  raise 'Test runner not found'
+end
+