afeld-opencv 0.0.8

data/ext/opencv/cvseq.h

@@ -0,0 +1,72 @@
+/************************************************************
+
+   cvseq.h -
+
+   $Author: lsxi $
+
+   Copyright (C) 2005-2006 Masakazu Yonekura
+
+************************************************************/
+#ifndef RUBY_OPENCV_CVSEQ_H
+#define RUBY_OPENCV_CVSEQ_H
+
+#include "opencv.h"
+
+#define __NAMESPACE_BEGIN_CVSEQ namespace cCvSeq {
+#define __NAMESPACE_END_CVSEQ }
+
+__NAMESPACE_BEGIN_OPENCV
+__NAMESPACE_BEGIN_CVSEQ
+
+VALUE rb_class();
+void define_ruby_class();
+
+VALUE seqblock_class(void *ptr);
+
+VALUE rb_allocate(VALUE klass);
+
+VALUE rb_initialize(int argc, VALUE *argv, VALUE self);
+VALUE rb_total(VALUE self);
+VALUE rb_empty_q(VALUE self);
+VALUE rb_aref(VALUE self, VALUE index);
+VALUE rb_first(VALUE self);
+VALUE rb_last(VALUE self);
+VALUE rb_h_prev(VALUE self);
+VALUE rb_h_next(VALUE self);
+VALUE rb_v_prev(VALUE self);
+VALUE rb_v_next(VALUE self);
+VALUE rb_push(VALUE self, VALUE args);
+VALUE rb_pop(VALUE self);
+VALUE rb_unshift(VALUE self, VALUE args);
+VALUE rb_shift(VALUE self);
+VALUE rb_each(VALUE self);
+VALUE rb_each_index(VALUE self);
+VALUE rb_insert(VALUE self, VALUE index, VALUE object);
+VALUE rb_remove(VALUE self, VALUE index);
+VALUE rb_clear(VALUE self);
+
+VALUE new_object(CvSeq *seq, VALUE klass);
+VALUE new_object(CvSeq *seq, VALUE klass, VALUE storage);
+VALUE new_sequence(VALUE klass, CvSeq *seq, VALUE element_klass, VALUE storage);
+
+__NAMESPACE_END_CVSEQ
+
+inline CvSeq*
+CVSEQ(VALUE object)
+{
+  CvSeq *ptr;
+  Data_Get_Struct(object, CvSeq, ptr);
+  return ptr;
+}
+
+inline CvSeq*
+CVSEQ_WITH_CHECK(VALUE object)
+{
+  if (!rb_obj_is_kind_of(object, cCvSeq::rb_class()))
+    raise_typeerror(object, cCvSeq::rb_class());
+  return CVSEQ(object);
+}
+
+__NAMESPACE_END_OPENCV
+
+#endif // RUBY_OPENCV_CVSEQ_H

data/ext/opencv/cvsize.cpp

@@ -0,0 +1,221 @@
+/************************************************************
+
+   cvsize.cpp -
+
+   $Author: lsxi $
+
+   Copyright (C) 2005 Masakazu Yonekura
+
+************************************************************/
+#include "cvsize.h"
+/*
+ * Document-class: OpenCV::CvSize
+ *
+ * This class means one size on X axis Y axis. 
+ * X and Y takes the value of the Fixnum.
+ * 
+ * C structure is here, very simple.
+ *   typdef struct CvSize {
+ *     int width;
+ *     int height;
+ *   }
+ */
+__NAMESPACE_BEGIN_OPENCV
+__NAMESPACE_BEGIN_CVSIZE
+
+VALUE rb_klass;
+
+VALUE
+rb_class()
+{
+  return rb_klass;
+}
+
+void
+define_ruby_class()
+{
+  if (rb_klass)
+    return;
+  /* 
+   * opencv = rb_define_module("OpenCV");
+   * 
+   * note: this comment is used by rdoc.
+   */
+  VALUE opencv = rb_module_opencv();
+  
+  rb_klass = rb_define_class_under(opencv, "CvSize", rb_cObject);
+  rb_define_alloc_func(rb_klass, rb_allocate);
+  rb_define_singleton_method(rb_klass, "compatible?", RUBY_METHOD_FUNC(rb_compatible_q), 1);
+  rb_define_private_method(rb_klass, "initialize", RUBY_METHOD_FUNC(rb_initialize), -1);
+  rb_define_method(rb_klass, "width", RUBY_METHOD_FUNC(rb_width), 0);
+  rb_define_method(rb_klass, "width=", RUBY_METHOD_FUNC(rb_set_width), 1);
+  rb_define_method(rb_klass, "height", RUBY_METHOD_FUNC(rb_height), 0);
+  rb_define_method(rb_klass, "height=", RUBY_METHOD_FUNC(rb_set_height), 1);
+  
+  rb_define_method(rb_klass, "to_s", RUBY_METHOD_FUNC(rb_to_s), 0);
+  rb_define_method(rb_klass, "to_ary", RUBY_METHOD_FUNC(rb_to_ary), 0);
+  rb_define_alias(rb_klass, "to_a", "to_ary");
+}
+
+/*
+ * call-seq:
+ *   compatible?(obj)
+ *
+ * Return compatibility to CvSize. Return true if object have method #width and #height.
+ *
+ * For example.
+ *   class MySize
+ *     def width
+ *       10
+ *     end
+ *     def height
+ *       20
+ *     end
+ *   end
+ *   mp = MySize.new
+ *   CvSize.compatible?(mp)  #=> true
+ *   CvSize.new(mp)          #=> same as CvSize(10, 20)
+ */
+VALUE
+rb_compatible_q(VALUE klass, VALUE object)
+{
+  return (rb_respond_to(object, rb_intern("width")) && rb_respond_to(object, rb_intern("height"))) ? Qtrue : Qfalse;
+}
+
+VALUE
+rb_allocate(VALUE klass)
+{
+  CvSize *ptr;
+  return Data_Make_Struct(klass, CvSize, 0, -1, ptr);
+}
+
+/*
+ * call-seq:
+ *   new
+ *   new(obj)
+ *   new(width, height)
+ *
+ * Create new size of 2D, (width, height). It is dropped below the decimal point.
+ *
+ * new() is same as new(0, 0)
+ *
+ * new(obj) is same as new(obj.x.to_i, obj.y.to_i)
+ */
+VALUE
+rb_initialize(int argc, VALUE *argv, VALUE self)
+{
+  CvSize *self_ptr = CVSIZE(self);
+  switch (argc) {
+  case 0:
+    break;
+  case 1: {
+    CvSize size = VALUE_TO_CVSIZE(argv[0]);
+    self_ptr->width = size.width;
+    self_ptr->height = size.height;
+    break;
+  }
+  case 2:
+    self_ptr->width = NUM2INT(argv[0]);
+    self_ptr->height = NUM2INT(argv[1]);
+    break;
+  default:
+    rb_raise(rb_eArgError, "wrong number of arguments (%d for 0..2)", argc);
+    break;
+  }
+  return self;
+}
+
+/*
+ * Return size of x-axis.
+ */
+VALUE
+rb_width(VALUE self)
+{
+  return INT2NUM(CVSIZE(self)->width);
+}
+
+/*
+ * call-seq:
+ *   width = val
+ *
+ * Set x-axis size, return self.
+ * It is dropped below the decimal point.
+ */
+VALUE
+rb_set_width(VALUE self, VALUE x)
+{
+  CVSIZE(self)->width = NUM2INT(x);
+  return self;
+}
+
+/*
+ * Return size of yaxis.
+ */
+VALUE
+rb_height(VALUE self)
+{
+  return INT2NUM(CVSIZE(self)->height);
+}
+
+/*
+ * call-seq:
+ *   height = val
+ *
+ * Set y-axis size, return self.
+ * It is dropped below the decimal point.
+ */
+VALUE
+rb_set_height(VALUE self, VALUE y)
+{
+  CVSIZE(self)->height = NUM2INT(y);
+  return self;
+}
+
+/*
+ * call-seq:
+ *   to_s -> "<OpenCV::CvSize:widthxheight>"
+ *
+ * Return width and height by String.
+ */
+VALUE
+rb_to_s(VALUE self)
+{
+  const int i = 4;
+  VALUE str[i];
+  str[0] = rb_str_new2("<%s:%dx%d>");
+  str[1] = rb_str_new2(rb_class2name(CLASS_OF(self)));
+  str[2] = rb_width(self);
+  str[3] = rb_height(self);
+  return rb_f_sprintf(i, str);
+}
+
+/*
+ * call-seq:
+ *   to_ary -> [width, height]
+ *
+ * Return width and height by Array.
+ */
+VALUE
+rb_to_ary(VALUE self)
+{
+  return rb_ary_new3(2, rb_width(self), rb_height(self));
+}
+
+VALUE
+new_object()
+{
+  VALUE object = rb_allocate(rb_klass);
+  *CVSIZE(object) = cvSize(0, 0);
+  return object;
+}
+
+VALUE
+new_object(CvSize size)
+{
+  VALUE object = rb_allocate(rb_klass);
+  *CVSIZE(object) = size;
+  return object;
+}
+
+__NAMESPACE_END_CVSIZE
+__NAMESPACE_END_OPENCV

data/ext/opencv/cvsize.h

@@ -0,0 +1,65 @@
+/************************************************************
+
+   cvsize.h -
+
+   $Author: lsxi $
+
+   Copyright (C) 2005-2006 Masakazu Yonekura
+
+************************************************************/
+#ifndef RUBY_OPENCV_CVSIZE_H
+#define RUBY_OPENCV_CVSIZE_H
+
+#include "opencv.h"
+
+#define __NAMESPACE_BEGIN_CVSIZE namespace cCvSize {
+#define __NAMESPACE_END_CVSIZE }
+
+__NAMESPACE_BEGIN_OPENCV
+__NAMESPACE_BEGIN_CVSIZE
+
+VALUE rb_class();
+
+void define_ruby_class();
+
+VALUE rb_compatible_q(VALUE klass, VALUE object);
+
+VALUE rb_allocate(VALUE klass);
+VALUE rb_initialize(int argc, VALUE *argv, VALUE self);
+VALUE rb_width(VALUE self);
+VALUE rb_set_width(VALUE self, VALUE width);
+VALUE rb_height(VALUE self);
+VALUE rb_set_height(VALUE self, VALUE height);
+
+VALUE rb_to_s(VALUE self);
+VALUE rb_to_ary(VALUE self);
+
+VALUE new_object();
+VALUE new_object(CvSize size);
+
+__NAMESPACE_END_CVSIZE
+
+inline CvSize*
+CVSIZE(VALUE object)
+{
+  CvSize *ptr;
+  Data_Get_Struct(object, CvSize, ptr);
+  return ptr;
+}
+
+inline CvSize
+VALUE_TO_CVSIZE(VALUE object)
+{
+  if (cCvSize::rb_compatible_q(cCvSize::rb_class(), object)) {
+    return cvSize(NUM2INT(rb_funcall(object, rb_intern("width"), 0)),
+                  NUM2INT(rb_funcall(object, rb_intern("height"), 0)));
+  }
+  else {
+    raise_compatible_typeerror(object, cCvSize::rb_class());
+  }
+  throw "Should never reach here";
+}
+
+__NAMESPACE_END_OPENCV
+
+#endif // RUBY_OPENCV_CVSIZE_H

data/ext/opencv/cvsize2d32f.cpp

@@ -0,0 +1,209 @@
+/************************************************************
+
+   cvsize2d32f.cpp -
+
+   $Author: lsxi $
+
+   Copyright (C) 2005-2006 Masakazu Yonekura
+
+************************************************************/
+#include "cvsize2d32f.h"
+/*
+ * Document-class: OpenCV::CvSize2D32f
+ *
+ * This class means one size on X axis Y axis. 
+ * X and Y takes the value of the Float.
+ * 
+ * C structure is here, very simple.
+ *   typdef struct CvSize2D32f {
+ *     float width;
+ *     float height;
+ *   } CvSize2D32f;
+ */
+__NAMESPACE_BEGIN_OPENCV
+__NAMESPACE_BEGIN_CVSIZE2D32F
+
+VALUE rb_klass;
+
+VALUE
+rb_class()
+{
+  return rb_klass;
+}
+
+void
+define_ruby_class()
+{
+  if (rb_klass)
+    return;
+  /* 
+   * opencv = rb_define_module("OpenCV");
+   *
+   * note: this comment is used by rdoc.
+   */
+  VALUE opencv = rb_module_opencv();
+  
+  rb_klass = rb_define_class_under(opencv, "CvSize2D32f", rb_cObject);
+  rb_define_alloc_func(rb_klass, rb_allocate);
+  rb_define_singleton_method(rb_klass, "compatible?", RUBY_METHOD_FUNC(rb_compatible_q), 1);
+  rb_define_private_method(rb_klass, "initialize", RUBY_METHOD_FUNC(rb_initialize), -1);
+  rb_define_method(rb_klass, "width", RUBY_METHOD_FUNC(rb_width), 0);
+  rb_define_method(rb_klass, "width=", RUBY_METHOD_FUNC(rb_set_width), 1);
+  rb_define_method(rb_klass, "height", RUBY_METHOD_FUNC(rb_height), 0);
+  rb_define_method(rb_klass, "height=", RUBY_METHOD_FUNC(rb_set_height), 1);
+  rb_define_method(rb_klass, "to_s", RUBY_METHOD_FUNC(rb_to_s), 0);
+  rb_define_method(rb_klass, "to_ary", RUBY_METHOD_FUNC(rb_to_ary), 0);
+  rb_define_alias(rb_klass, "to_a", "to_ary");
+}
+
+/*
+ * call-seq:
+ *   compatible?(obj)
+ *
+ * Return compatibility to CvSize2D32f. Return true if object have method #width and #height.
+ *
+ * For example.
+ *   class MySize
+ *     def width
+ *       10.1
+ *     end
+ *     def height
+ *       20.2
+ *     end
+ *   end
+ *   mp = MySize.new
+ *   CvSize2D32f.compatible?(mp)  #=> true
+ *   CvSize2D32f.new(mp)          #=> same as CvSize2D32f.new(10.1, 20.2)
+ */
+VALUE
+rb_compatible_q(VALUE klass, VALUE object)
+{
+  return (rb_respond_to(object, rb_intern("width")) && rb_respond_to(object, rb_intern("height"))) ? Qtrue : Qfalse;
+}
+
+VALUE
+rb_allocate(VALUE klass)
+{
+  CvSize2D32f *ptr;
+  return Data_Make_Struct(klass, CvSize2D32f, 0, -1, ptr);
+}
+
+/*
+ * call-seq:
+ *   new
+ *   new(obj)
+ *   new(width, height)
+ *
+ * Create new size of 2D, (width, height).
+ *
+ * new() is same as new(0.0, 0.0)
+ *
+ * new(obj) is same as new(obj.x.to_f, obj.y.to_f)
+ */
+VALUE
+rb_initialize(int argc, VALUE *argv, VALUE self)
+{
+  CvSize2D32f *self_ptr = CVSIZE2D32F(self);
+  switch(argc){
+  case 0:
+    break;
+  case 1: {
+    CvSize2D32f size = VALUE_TO_CVSIZE2D32F(argv[0]);
+    self_ptr->width = size.width;
+    self_ptr->height = size.height;
+    break;
+  }
+  case 2:
+    self_ptr->width = NUM2DBL(argv[0]);
+    self_ptr->height = NUM2DBL(argv[1]);
+    break;
+  default:
+    rb_raise(rb_eArgError, "wrong number of arguments (%d for 0..2)", argc);
+  }
+  return self;      
+}
+
+/*
+ * Return size of x-axis.
+ */
+VALUE
+rb_width(VALUE self)
+{
+  return rb_float_new(CVSIZE2D32F(self)->width);
+}
+
+/*
+ * call-seq:
+ *   width = val
+ *
+ * Set x-axis size, return self.     
+ */
+VALUE
+rb_set_width(VALUE self, VALUE x)
+{
+  CVSIZE2D32F(self)->width = NUM2DBL(x);
+  return self;
+}
+
+/*
+ * Return size of yaxis.
+ */
+VALUE
+rb_height(VALUE self)
+{
+  return rb_float_new(CVSIZE2D32F(self)->height);
+}
+
+/*
+ * call-seq:
+ *   height = val
+ *
+ * Set y-axis size, return self.
+ */
+VALUE
+rb_set_height(VALUE self, VALUE y)
+{
+  CVSIZE2D32F(self)->height = NUM2DBL(y);
+  return self;
+}
+
+/*
+ * call-seq:
+ *   to_s -> "<OpenCV::CvSize2D32f:widthxheight>"
+ *
+ * Return width and height by String.
+ */
+VALUE
+rb_to_s(VALUE self)
+{
+  const int i = 4;
+  VALUE str[i];
+  str[0] = rb_str_new2("<%s:%gx%g>");
+  str[1] = rb_str_new2(rb_class2name(CLASS_OF(self)));
+  str[2] = rb_width(self);
+  str[3] = rb_height(self);
+  return rb_f_sprintf(i, str);
+}
+
+/*
+ * call-seq:
+ *   to_ary -> [width, height]
+ *
+ * Return width and height by Array.
+ */
+VALUE
+rb_to_ary(VALUE self)
+{
+  return rb_ary_new3(2, rb_width(self), rb_height(self));
+}
+
+VALUE
+new_object(CvSize2D32f size)
+{
+  VALUE object = rb_allocate(rb_klass);
+  *CVSIZE2D32F(object) = size;
+  return object;
+}
+
+__NAMESPACE_END_CVSIZE2D32F
+__NAMESPACE_END_OPENCV