adamb-ruby-opencv 0.0.7

data/CHANGELOG

@@ -0,0 +1,2 @@
+v0.0.7. Moving to Echoe and github
+v0.0.6. Some OpenCV function wrapped.

data/License.txt

@@ -0,0 +1,30 @@
+The BSD Liscense
+
+Copyright (c) 2008, Masakazu Yonekura
+All rights reserved.
+
+Redistribution and use of this software in source and binary forms, with or without modification, are
+permitted provided that the following conditions are met:
+
+* Redistributions of source code must retain the above
+  copyright notice, this list of conditions and the
+  following disclaimer.
+
+* Redistributions in binary form must reproduce the above
+  copyright notice, this list of conditions and the
+  following disclaimer in the documentation and/or other
+  materials provided with the distribution.
+
+* Neither the name of Masakazu Yonekura. nor the names of its
+  contributors may be used to endorse or promote products
+  derived from this software without specific prior
+  written permission of Masakazu Yonekura.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED
+WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
+ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
+TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

data/README.rdoc

@@ -0,0 +1,47 @@
+= opencv
+
+OpenCV Sourceforge Project
+http://sourceforge.net/projects/opencvlibrary/
+
+Ruby/OpenCV Author's Web Page
+http://blueruby.mydns.jp/opencv
+
+== DESCRIPTION:
+
+OpenCV Ruby Wrapper
+
+== FEATURES/PROBLEMS:
+
+* First release rubygems, Some OpenCV function wrapped.
+
+== SYNOPSIS:
+
+# Show image via GUI Window.
+
+require "rubygems"
+gem "opencv"
+require "opencv"
+
+image = OpenCV::IplImage.load("sample.jpg")
+window = OpenCV::GUI::Window.new("preview")
+window.show(image)
+OpenCV::GUI::wait_key
+
+# other sample code, see examples/*.rb
+
+== REQUIREMENTS:
+
+* OpenCV 1.0 or later.
+  http://sourceforge.net/projects/opencvlibrary/
+* ffcall (optional)
+  http://www.haible.de/bruno/packages-ffcall.html
+
+== INSTALL:
+
+gem install opencv
+
+== LICENSE:
+
+The BSD Liscense
+
+see LICENSE.txt

data/Rakefile

@@ -0,0 +1,15 @@
+# Rakefile
+require 'rubygems'
+require 'rake'
+require 'echoe'
+
+Echoe.new('ruby-opencv', '0.0.7') do |p|
+  p.description    = "OpenCV wrapper for Ruby."
+  p.url            = "http://github.com/adamb/ruby-opencv"
+  p.author         = "Masakazu Yonekura"
+  p.email          = "masakazu.yonekura@gmail.com"
+  p.ignore_pattern = ["tmp/*", "script/*", "ext/*.o"]
+  p.development_dependencies = []
+end
+
+Dir["#{File.dirname(__FILE__)}/tasks/*.rake"].sort.each { |ext| load ext }

data/examples/convexhull.rb

@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby
+# convexhull.rb
+gem "opencv"
+require "opencv"
+require "pp"
+include OpenCV
+
+window = GUI::Window.new("convexhull")
+pp CvCapture::INTERFACE
+capture = CvCapture::open
+
+accuracy = 0.1
+t = window.set_trackbar("accuracy", 100, 1){|v|
+  accuracy = 0.1 * v
+}
+
+while true
+  key = GUI::wait_key(1)
+  image = capture.query
+  gray = image.BGR2GRAY
+  bin = gray.threshold_binary(0x44, 0xFF)
+  contours = bin.find_contours  
+  while contours    
+    image.poly_line! contours.approx(:accuracy => accuracy), :color => CvScalar::Red
+    contours.convexity_defects.each{|cd|
+      image.circle! cd.start, 1, :color => CvScalar::Blue
+      image.circle! cd.end, 1, :color => CvScalar::Blue
+      image.circle! cd.depth_point, 1, :color => CvScalar::Blue
+    }
+
+    contours = contours.h_next
+  end
+  #pts = gray.good_features_to_track(0.01, 10)
+  #puts pts.length
+  window.show image  
+  next unless key
+  case key.chr
+  when "\e"
+    exit
+  end
+end

data/examples/face_detect.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+# face_detect.rb
+require "rubygems"
+gem "opencv"
+require "opencv"
+
+include OpenCV
+
+window = GUI::Window.new("face detect")
+capture = CvCapture.open
+detector = CvHaarClassifierCascade::load("C:/Program Files/OpenCV/data/haarcascades/haarcascade_frontalface_alt.xml")
+
+while true
+  key = GUI::wait_key(1)
+  image = capture.query
+  detector.detect_objects(image){|i|
+    image.rectangle! i.top_left, i.bottom_right, :color => CvColor::Red
+  }
+  window.show image
+  next unless key
+  case key.chr
+  when "\e"
+    exit
+  end
+end

data/examples/houghcircle.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+# houghcircle.rb
+require "rubygems"
+gem "opencv"
+require "opencv"
+include OpenCV
+
+original_window = GUI::Window.new "original"
+hough_window = GUI::Window.new "hough circles"
+
+image = IplImage::load "stuff.jpg"
+gray = image.BGR2GRAY
+
+result = image.clone
+original_window.show image
+detect = gray.hough_circles_gradient(2.0, 10, 200, 50)
+puts detect.size
+detect.each{|circle|
+  puts "#{circle.center.x},#{circle.center.y} - #{circle.radius}"
+  result.circle! circle.center, circle.radius, :color => CvColor::Red, :thickness => 3
+}
+hough_window.show result
+GUI::wait_key

data/examples/inpaint.rb

@@ -0,0 +1,43 @@
+#!/usr/bin/env ruby
+# inpaint.rb
+require "rubygems"
+gem "opencv"
+require "opencv"
+
+include OpenCV
+
+owindow = GUI::Window.new "original"
+mwindow = GUI::Window.new "mask"
+iwindow = GUI::Window.new "inpaint"
+
+image = IplImage::load "inpaint.png"
+b, g, r = image.split
+original_mask = r.threshold_binary_inverse(0x00, 0xFF) & b.threshold_binary_inverse(0x00, 0xFF)
+mask = original_mask.copy
+
+num_dilate = 3
+radius = 5
+dilate_bar = mwindow.set_trackbar("dilate", 10, num_dilate){|v|
+  num_dilate = v
+  mask = original_mask.dilate(nil, num_dilate)
+  mwindow.show mask  
+}
+
+radius_bar = mwindow.set_trackbar("radius", 30, radius){|v|
+  radius = v
+}
+
+owindow.show image
+mwindow.show mask
+
+while key = GUI::wait_key
+  case key.chr
+  when "\e" # esc
+    exit
+  when "n"
+    iwindow.show image.inpaint_ns(mask, radius)
+  when "t"
+    iwindow.show image.inpaint_telea(mask, radius)
+  end
+end
+

data/examples/paint.rb

@@ -0,0 +1,72 @@
+#!/usr/bin/env ruby
+# paint.rb
+require "rubygems"
+gem "opencv"
+require "opencv"
+
+include OpenCV
+
+window = GUI::Window.new("free canvas")
+canvas = CvMat.new(500, 500, 0, 3).fill!(0xFF) # create white canvas
+window.show canvas
+
+colors = CvColor::constants.collect{|i| i.to_s }
+
+usage =<<USAGE
+[mouse]
+drag            - draw
+right button    - fill by color
+[keyborad]
+1 to 9          - change thickness of line
+type color name - change color
+esc             - exit
+USAGE
+puts usage
+
+point = nil
+
+# drawing option
+opt = {
+  :color => CvColor::Black,
+  :tickness => 1
+}
+
+window.on_mouse{|m|
+  case m.event
+  when :move
+    if m.left_button?
+      canvas.line!(point, m, opt) if point
+      point = m
+    end
+  when :left_button_down
+    canvas.line!(m, m, opt)
+    point = m
+  when :left_button_up
+    point = nil
+  when :right_button_down
+    mask = canvas.flood_fill!(m, opt[:color])    
+  end
+  window.show canvas
+}
+
+color_name = ''
+while key = GUI.wait_key
+  next if key < 0
+  case key.chr
+  when "\e" # [esc] - exit
+    exit
+  when '1'..'9'
+    puts "change thickness to #{key.chr.to_i}."
+    opt[:thickness] = key.chr.to_i
+  else
+    color_name << key.chr
+    choice = colors.find_all{|i| i =~ /\A#{color_name}/i}
+    if choice.size == 1
+      color,= choice
+      puts "change color to #{color}."
+      opt[:color] = CvColor::const_get(color)
+    end
+    color_name = '' if choice.length < 2
+  end
+end
+

data/examples/snake.rb

@@ -0,0 +1,43 @@
+#!/usr/bin/env ruby
+# snake.rb
+require "rubygems"
+gem "opencv"
+require "opencv"
+include OpenCV
+
+puts <<USAGE
+usage:
+  left-click: set point
+  right-click: do snake
+USAGE
+
+window = GUI::Window.new "snake demo"
+image = CvMat.new(256, 256, :cv8u, 1).clear!
+image.circle!(CvPoint.new(128,128), 40, :color => CvColor::White, :thickness =>  -1)
+display = image.GRAY2BGR
+
+window.show display
+
+points = []
+
+window.on_mouse{|mouse|
+  case mouse.event
+  when :left_button_down
+    display[mouse.x, mouse.y] = CvColor::Red
+    puts "set point (#{mouse.x},#{mouse.y})"
+    points << CvPoint.new(mouse.x, mouse.y)
+    window.show display
+  when :right_button_down
+    if points.length < 3
+      puts "please set more point!"
+      next
+    end
+    points = image.snake_image(points, 1.0, 0.5, 1.5, CvSize.new(3, 3), 100)
+    display = image.GRAY2BGR
+    display.poly_line! points, :color => CvColor::Red, :is_closed => true
+    window.show display
+  end
+}
+
+GUI::wait_key
+

data/ext/curve.cpp

@@ -0,0 +1,103 @@
+/************************************************************
+
+   curve.cpp -
+
+   $Author: lsxi $
+
+   Copyright (C) 2005 Masakazu Yonekura
+
+************************************************************/
+#include"curve.h"
+/*
+ * Document-class: OpenCV::Curve
+ *
+ * Curve sequence.
+ */
+__NAMESPACE_BEGIN_OPENCV
+__NAMESPACE_BEGIN_CURVE
+
+VALUE module;
+    
+VALUE
+rb_module()
+{
+  return module;
+}
+
+void
+define_ruby_module()
+{
+  if(module)
+    return;
+  /* 
+   * opencv = rb_define_module("OpenCV");
+   *
+   * note: this comment is used by rdoc.
+   */
+  VALUE opencv = rb_module_opencv();
+  module = rb_define_module_under(opencv, "Curve");
+  rb_define_method(module, "close?", RUBY_METHOD_FUNC(rb_closed_q), 0);
+  rb_define_method(module, "convex?", RUBY_METHOD_FUNC(rb_convex_q), 0);
+  rb_define_method(module, "hole?", RUBY_METHOD_FUNC(rb_hole_q), 0);
+  rb_define_method(module, "simple?", RUBY_METHOD_FUNC(rb_simple_q), 0);
+  rb_define_method(module, "arc_length", RUBY_METHOD_FUNC(rb_arc_length), -1);
+}
+
+/*
+ * If curve is closed, return true. Otherwise return false.
+ */
+VALUE
+rb_closed_q(VALUE self)
+{
+  return CV_IS_SEQ_CLOSED(CVSEQ(self)) ? Qtrue : Qfalse;
+}
+
+/*
+ * If curve is convex, return true. Otherwise return false.
+ */
+VALUE
+rb_convex_q(VALUE self)
+{
+  return CV_IS_SEQ_CONVEX(CVSEQ(self)) ? Qtrue : Qfalse;
+}
+
+/*
+ * If curve is hole(inner contour), return true. Otherwise return false.
+ */
+VALUE
+rb_hole_q(VALUE self)
+{  
+  return CV_IS_SEQ_HOLE(CVSEQ(self)) ? Qtrue : Qfalse;
+}
+
+/*
+ * no idia.
+ */
+VALUE
+rb_simple_q(VALUE self)
+{
+  return CV_IS_SEQ_SIMPLE(CVSEQ(self)) ? Qtrue : Qfalse;
+}
+
+/*
+ * call-seq:
+ *   arc_length(<i>[slice = nil][,is_closed = nil]</i>) -> float
+ *
+ * Calculates contour perimeter or curve length.
+ * <i>slice</i> is starting and ending points of the curve.
+ * <i>is_closed</i> is indicates whether the curve is closed or not. There are 3 cases:
+ * * is_closed = true  - the curve is assumed to be unclosed.
+ * * is_closed = false - the curve is assumed to be closed.
+ * * is_closed = nil (default) use self#close?
+ */
+VALUE
+rb_arc_length(int argc, VALUE *argv, VALUE self)
+{
+  VALUE slice, is_closed;
+  rb_scan_args(argc, argv, "02", &slice, &is_closed);
+  return rb_float_new(cvArcLength(CVARR(self), NIL_P(slice) ? CV_WHOLE_SEQ : VALUE_TO_CVSLICE(slice), TRUE_OR_FALSE(is_closed, -1)));
+}
+
+__NAMESPACE_END_CURVE
+__NAMESPACE_END_OPENCV
+