opencv 0.0.6

data/ext/cvpoint.h

@@ -0,0 +1,59 @@
+/************************************************************
+
+   cvpoint.h -
+
+   $Author: lsxi $
+
+   Copyright (C) 2005-2006 Masakazu Yonekura
+
+************************************************************/
+#ifndef RUBY_OPENCV_CVPOINT_H
+#define RUBY_OPENCV_CVPOINT_H
+
+#include "opencv.h"
+
+#define __NAMESPACE_BEGIN_CVPOINT namespace cCvPoint{
+#define __NAMESPACE_END_CVPOINT }
+
+__NAMESPACE_BEGIN_OPENCV
+__NAMESPACE_BEGIN_CVPOINT
+
+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_x(VALUE self);
+VALUE rb_set_x(VALUE self, VALUE x);
+VALUE rb_y(VALUE self);
+VALUE rb_set_y(VALUE self, VALUE y);
+
+VALUE rb_to_s(VALUE self);
+VALUE rb_to_ary(VALUE self);
+
+VALUE new_object();
+VALUE new_object(CvPoint point);
+
+__NAMESPACE_END_CVPOINT
+
+inline CvPoint *CVPOINT(VALUE object){
+  CvPoint *ptr;
+  Data_Get_Struct(object, CvPoint, ptr);
+  return ptr;
+}
+
+inline CvPoint VALUE_TO_CVPOINT(VALUE object){
+  if(cCvPoint::rb_compatible_q(cCvPoint::rb_class(), object)){
+    return cvPoint(NUM2INT(rb_funcall(object, rb_intern("x"), 0)),
+                   NUM2INT(rb_funcall(object, rb_intern("y"), 0)));
+  }else{
+    rb_raise(rb_eTypeError, "require %s or compatible object.", rb_class2name(cCvPoint::rb_class()));
+  }
+}
+
+__NAMESPACE_END_OPENCV
+
+#endif // RUBY_OPENCV_CVPOINT_H

data/ext/cvpoint2d32f.cpp

@@ -0,0 +1,213 @@
+/************************************************************
+
+   cvpoint2d32f.cpp -
+
+   $Author: lsxi $
+
+   Copyright (C) 2005 Masakazu Yonekura
+
+************************************************************/
+#include"cvpoint2d32f.h"
+/*
+ * Document-class: OpenCV::CvPoint2D32f
+ *
+ * This class means one point on X axis Y axis. 
+ * X and Y takes the value of the Float. see also CvPoint
+ * 
+ * C structure is here, very simple.
+ *   typdef struct CvPoint2D32f{
+ *     float x;
+ *     float y;
+ *   }
+ */
+__NAMESPACE_BEGIN_OPENCV
+__NAMESPACE_BEGIN_CVPOINT2D32F
+
+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, "CvPoint2D32f", 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, "x", RUBY_METHOD_FUNC(rb_x), 0);
+  rb_define_method(rb_klass, "x=", RUBY_METHOD_FUNC(rb_set_x), 1);
+  rb_define_method(rb_klass, "y", RUBY_METHOD_FUNC(rb_y), 0);
+  rb_define_method(rb_klass, "y=", RUBY_METHOD_FUNC(rb_set_y), 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);
+}
+
+/*
+ * call-seq:
+ *   combatible?(obj)
+ *
+ * Return compatibility to CvPoint2D32f. Return true if object have method #x and #y.
+ *
+ * For example.
+ *   class MyPoint2D32f
+ *     def x
+ *       95.7
+ *     end
+ *     def y
+ *       70.2
+ *     end
+ *   end
+ *   mp = MyPoint2D32f.new
+ *   CvPoint2D32f.compatible?(mp)  #=> true
+ *   CvPoint2D32f.new(mp)          #=> same as CvPoint2D32f(95.7, 70.2)
+ */
+VALUE
+rb_compatible_q(VALUE klass, VALUE object)
+{
+  return (rb_respond_to(object, rb_intern("x")) && rb_respond_to(object, rb_intern("y"))) ? Qtrue : Qfalse;
+}
+
+VALUE
+rb_allocate(VALUE klass)
+{
+  CvPoint2D32f *ptr;
+  return Data_Make_Struct(klass, CvPoint2D32f, 0, -1, ptr);
+}
+
+/*
+ * call-seq:
+ *   new
+ *   new(obj)
+ *   new(x, y)
+ *
+ * Create new 2D-coordinate, (x, y).
+ *
+ * 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)
+{
+  VALUE obj, x, y;
+  switch (argc) {
+  case 0:
+    break;
+  case 1:
+    obj = argv[0];
+    if(rb_compatible_q(rb_klass, obj)) {
+      CVPOINT2D32F(self)->x = NUM2DBL(rb_funcall(rb_funcall(obj, rb_intern("x"), 0), rb_intern("to_f"), 0));
+      CVPOINT2D32F(self)->y = NUM2DBL(rb_funcall(rb_funcall(obj, rb_intern("y"), 0), rb_intern("to_f"), 0));
+    }else{
+      rb_raise(rb_eArgError, "object is not compatible %s.", rb_class2name(rb_klass));
+    }
+    break;
+  case 2:
+    x = argv[0], y = argv[1];
+    CVPOINT2D32F(self)->x = NUM2DBL(x);
+    CVPOINT2D32F(self)->y = NUM2DBL(y);
+    break;
+  default:
+    rb_raise(rb_eArgError, "wrong number of arguments (%d for 0..2)", argc);
+  }
+  return Qnil;
+}
+
+/*
+ * Return parameter on x-axis.
+ */
+VALUE
+rb_x(VALUE self)
+{
+  return rb_float_new(CVPOINT2D32F(self)->x);
+}
+
+/*
+ * call-seq:
+ *   x = val
+ *
+ * Set x-axis parameter, return self.
+ */
+VALUE
+rb_set_x(VALUE self, VALUE x)
+{
+  CVPOINT2D32F(self)->x = NUM2DBL(x);
+  return self;
+}
+
+/*
+ * Return parameter on y-axis.
+ */
+VALUE
+rb_y(VALUE self)
+{
+  return rb_float_new(CVPOINT2D32F(self)->y);
+}
+
+/*
+ * call-seq:
+ *   y = val
+ *
+ * Set y-axis parameter, return self.
+ */
+VALUE
+rb_set_y(VALUE self, VALUE y)
+{
+  CVPOINT2D32F(self)->y = NUM2DBL(y);
+  return self;
+}
+
+/*
+ * call-seq:
+ *   to_s -> "<OpenCV::CvSize2D32f:(self.x,self.y)>"
+ *
+ * Return x and y by String.
+ */
+VALUE
+rb_to_s(VALUE self)
+{
+  const int i = 4;
+  VALUE str[i];
+  str[0] = rb_str_new2("<%s:(%f,%f)>");
+  str[1] = rb_str_new2(rb_class2name(CLASS_OF(self)));
+  str[2] = rb_x(self);
+  str[3] = rb_y(self);
+  return rb_f_sprintf(i, str);
+}
+
+/*
+ * call-seq:
+ *   to_ary -> [x, y]
+ *
+ * Return x and y by Array.
+ */
+VALUE
+rb_to_ary(VALUE self)
+{
+  return rb_ary_new3(2, rb_x(self), rb_y(self));
+}
+
+VALUE
+new_object(CvPoint2D32f point)
+{
+  VALUE object = rb_allocate(rb_klass);
+  *CVPOINT2D32F(object) = point;
+  return object;
+}
+
+__NAMESPACE_END_CVPOINT2D32F
+__NAMESPACE_END_OPENCV

data/ext/cvpoint2d32f.h

@@ -0,0 +1,61 @@
+/************************************************************
+
+   cvpoint2d32f.h -
+
+   $Author: lsxi $
+
+   Copyright (C) 2005 Masakazu Yonekura
+
+************************************************************/
+#ifndef RUBY_OPENCV_CVPOINT2D32F_H
+#define RUBY_OPENCV_CVPOINT2D32F_H
+
+#define __NAMESPACE_BEGIN_CVPOINT2D32F namespace cCvPoint2D32f{
+#define __NAMESPACE_END_CVPOINT2D32F }
+
+#include"opencv.h"
+
+__NAMESPACE_BEGIN_OPENCV
+__NAMESPACE_BEGIN_CVPOINT2D32F
+    
+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_x(VALUE self);
+VALUE rb_set_x(VALUE self, VALUE x);
+VALUE rb_y(VALUE self);
+VALUE rb_set_y(VALUE self, VALUE y);
+
+VALUE rb_to_s(VALUE self);
+VALUE rb_to_ary(VALUE self);
+
+VALUE new_object(CvPoint2D32f point);
+
+__NAMESPACE_END_CVPOINT2D32F
+
+inline CvPoint2D32f*
+CVPOINT2D32F(VALUE object)
+{
+  CvPoint2D32f *ptr;
+  Data_Get_Struct(object, CvPoint2D32f, ptr);
+  return ptr;
+}
+
+inline CvPoint2D32f
+VALUE_TO_CVPOINT2D32F(VALUE object)
+{
+  if(cCvPoint2D32f::rb_compatible_q(cCvPoint2D32f::rb_class(), object)){
+    return cvPoint2D32f(NUM2DBL(rb_funcall(object, rb_intern("x"), 0)),
+                        NUM2DBL(rb_funcall(object, rb_intern("y"), 0)));
+  }else{
+    rb_raise(rb_eTypeError, "require %s or compatible object.", rb_class2name(cCvPoint2D32f::rb_class()));
+  }
+}
+
+__NAMESPACE_END_OPENCV
+#endif // RUBY_OPENCV_CVPOINT2D32F_H

data/ext/cvpoint3d32f.cpp

@@ -0,0 +1,245 @@
+/************************************************************
+
+   cvpoint3d32f.cpp -
+
+   $Author: lsxi $
+
+   Copyright (C) 2005-2008 Masakazu Yonekura
+
+************************************************************/
+#include"cvpoint3d32f.h"
+/*
+ * Document-class: OpenCV::CvPoint3D32f
+ *
+ * This class means one point on X axis Y axis. 
+ * X and Y takes the value of the Float. see also CvPoint
+ * 
+ * C structure is here, very simple.
+ *   typdef struct CvPoint3D32f{
+ *     float x;
+ *     float y;
+ *     float z;
+ *   }
+ */
+__NAMESPACE_BEGIN_OPENCV
+__NAMESPACE_BEGIN_CVPOINT3D32F
+
+VALUE rb_klass;
+
+VALUE
+rb_class()
+{
+  return rb_klass;
+}
+
+void
+define_ruby_class()
+{
+  if(rb_klass)
+    return;
+  /* 
+   * opencv = rb_define_module("OpenCV");
+   * cvpoint2d32f = rb_define_class_under(opencv, "CvPoint2D32f", rb_cObject);
+   *
+   * note: this comment is used by rdoc.
+   */
+  VALUE opencv = rb_module_opencv();
+  VALUE cvpoint2d32f = cCvPoint2D32f::rb_class();
+  rb_klass = rb_define_class_under(opencv, "CvPoint3D32f", cvpoint2d32f);
+  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, "x", RUBY_METHOD_FUNC(rb_x), 0);
+  rb_define_method(rb_klass, "x=", RUBY_METHOD_FUNC(rb_set_x), 1);
+  rb_define_method(rb_klass, "y", RUBY_METHOD_FUNC(rb_y), 0);
+  rb_define_method(rb_klass, "y=", RUBY_METHOD_FUNC(rb_set_y), 1);
+  rb_define_method(rb_klass, "z", RUBY_METHOD_FUNC(rb_z), 0);
+  rb_define_method(rb_klass, "z=", RUBY_METHOD_FUNC(rb_set_z), 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);
+}
+
+/*
+ * call-seq:
+ *   combatible?(obj)
+ *
+ * Return compatibility to CvPoint3D32f. Return true if object have method #x and #y and #z.
+ *
+ * For example.
+ *   class MyPoint3D32f
+ *     def x
+ *       95.7
+ *     end
+ *     def y
+ *       70.2
+ *     end
+ *     def z
+ *       10.0
+ *     end
+ *   end
+ *   mp = MyPoint3D32f.new
+ *   CvPoint3D32f.compatible?(mp)  #=> true
+ *   CvPoint3D32f.new(mp)          #=> same as CvPoint3D32f(95.7, 70.2)
+ */
+VALUE
+rb_compatible_q(VALUE klass, VALUE object)
+{
+  return (rb_respond_to(object, rb_intern("x")) && rb_respond_to(object, rb_intern("y"))) ? Qtrue : Qfalse;
+}
+
+VALUE
+rb_allocate(VALUE klass)
+{
+  CvPoint3D32f *ptr;
+  return Data_Make_Struct(klass, CvPoint3D32f, 0, -1, ptr);
+}
+
+/*
+ * call-seq:
+ *   new
+ *   new(obj)
+ *   new(x, y, z)
+ *
+ * Create new 3D-coordinate, (x, y, z).
+ *
+ * new() is same as new(0.0, 0.0, 0.0)
+ *
+ * new(obj) is same as new(obj.x.to_f, obj.y.to_f, obj.z.to_f)
+ */
+VALUE
+rb_initialize(int argc, VALUE *argv, VALUE self)
+{
+  VALUE obj, x, y, z;
+  switch (argc) {
+  case 0:
+    break;
+  case 1:
+    obj = argv[0];
+    if(rb_compatible_q(rb_klass, obj)) {
+      CVPOINT3D32F(self)->x = NUM2DBL(rb_funcall(rb_funcall(obj, rb_intern("x"), 0), rb_intern("to_f"), 0));
+      CVPOINT3D32F(self)->y = NUM2DBL(rb_funcall(rb_funcall(obj, rb_intern("y"), 0), rb_intern("to_f"), 0));
+      CVPOINT3D32F(self)->z = NUM2DBL(rb_funcall(rb_funcall(obj, rb_intern("z"), 0), rb_intern("to_f"), 0));
+    }else{
+      rb_raise(rb_eArgError, "object is not compatible %s.", rb_class2name(rb_klass));
+    }
+    break;
+  case 3:
+    x = argv[0], y = argv[1], z = argv[2];
+    CVPOINT3D32F(self)->x = NUM2DBL(x);
+    CVPOINT3D32F(self)->y = NUM2DBL(y);
+    CVPOINT3D32F(self)->z = NUM2DBL(z);
+    break;
+  default:
+    rb_raise(rb_eArgError, "wrong number of arguments (%d for 0..2)", argc);
+  }
+  return Qnil;
+}
+
+/*
+ * Return parameter on x-axis.
+ */
+VALUE
+rb_x(VALUE self)
+{
+  return rb_float_new(CVPOINT2D32F(self)->x);
+}
+
+/*
+ * call-seq:
+ *   x = val
+ *
+ * Set x-axis parameter, return self.
+ */
+VALUE
+rb_set_x(VALUE self, VALUE x)
+{
+  CVPOINT2D32F(self)->x = NUM2DBL(x);
+  return self;
+}
+
+/*
+ * Return parameter on y-axis.
+ */
+VALUE
+rb_y(VALUE self)
+{
+  return rb_float_new(CVPOINT2D32F(self)->y);
+}
+
+/*
+ * call-seq:
+ *   y = val
+ *
+ * Set y-axis parameter, return self.
+ */
+VALUE
+rb_set_y(VALUE self, VALUE y)
+{
+  CVPOINT2D32F(self)->y = NUM2DBL(y);
+  return self;
+}
+
+/*
+ * Return parameter on z-axis.
+ */
+VALUE
+rb_z(VALUE self)
+{
+  return rb_float_new(CVPOINT3D32F(self)->z);
+}
+
+/*
+ * call-seq:
+ *   z = val
+ *
+ * Set z-axis parameter, return self.
+ */
+VALUE
+rb_set_z(VALUE self, VALUE z)
+{
+  CVPOINT3D32F(self)->z = NUM2DBL(z);
+  return self;
+}
+
+/*
+ * call-seq:
+ *   to_s -> "<OpenCV::CvSize3D32f:(self.x,self.y,self.z)>"
+ *
+ * Return x and y by String.
+ */
+VALUE
+rb_to_s(VALUE self)
+{
+  const int i = 5;
+  VALUE str[i];
+  str[0] = rb_str_new2("<%s:(%f,%f,%f)>");
+  str[1] = rb_str_new2(rb_class2name(CLASS_OF(self)));
+  str[2] = rb_x(self);
+  str[3] = rb_y(self);
+  str[4] = rb_z(self);
+  return rb_f_sprintf(i, str);
+}
+
+/*
+ * call-seq:
+ *   to_ary -> [x, y, z]
+ *
+ * Return x and y by Array.
+ */
+VALUE
+rb_to_ary(VALUE self)
+{
+  return rb_ary_new3(3, rb_x(self), rb_y(self), rb_z(self));
+}
+
+VALUE
+new_object(CvPoint3D32f point)
+{
+  VALUE object = rb_allocate(rb_klass);
+  *CVPOINT3D32F(object) = point;
+  return object;
+}
+
+__NAMESPACE_END_CVPOINT3D32F
+__NAMESPACE_END_OPENCV