ruby-opencv 0.0.9-x86-mswin32 → 0.0.10.pre-x86-mswin32

data/ext/opencv/cvvideowriter.h

@@ -1,43 +1,43 @@
-/************************************************************
-
-   cvvideowriter.h -
-
-   $Author: lsxi $
-
-   Copyright (C) 2005-2006 Masakazu Yonekura
-
-************************************************************/
-#ifndef RUBY_OPENCV_CVVIDEOWRITER_H
-#define RUBY_OPENCV_CVVIDEOWRITER_H
-
-#include "opencv.h"
-
-#define __NAMESPACE_BEGIN_CVVIDEOWRITER namespace cCvVideoWriter {
-#define __NAMESPACE_END_CVVIDEOWRITER }
-
-__NAMESPACE_BEGIN_OPENCV
-__NAMESPACE_BEGIN_CVVIDEOWRITER
-
-VALUE rb_class();
-
-void define_ruby_class();
-
-VALUE rb_initialize(int argc, VALUE *argv, VALUE self);
-VALUE rb_write(VALUE self, VALUE frame);
-VALUE rb_close(VALUE self);
-
-__NAMESPACE_END_CVVIDEOWRITER
-
-inline CvVideoWriter*
-CVVIDEOWRITER(VALUE object)
-{
-  // CvVideoWriter is 
-  // CvVideoWriter *ptr;
-  // Data_Get_Struct(object, CvVideoWriter, ptr);
-  // return ptr;
-  return (CvVideoWriter*)DATA_PTR(object);
-}
-
-__NAMESPACE_END_OPENCV
-
-#endif // RUBY_OPENCV_CVVIDEOWRITER_H
+/************************************************************
+
+   cvvideowriter.h -
+
+   $Author: lsxi $
+
+   Copyright (C) 2005-2006 Masakazu Yonekura
+
+************************************************************/
+#ifndef RUBY_OPENCV_CVVIDEOWRITER_H
+#define RUBY_OPENCV_CVVIDEOWRITER_H
+
+#include "opencv.h"
+
+#define __NAMESPACE_BEGIN_CVVIDEOWRITER namespace cCvVideoWriter {
+#define __NAMESPACE_END_CVVIDEOWRITER }
+
+__NAMESPACE_BEGIN_OPENCV
+__NAMESPACE_BEGIN_CVVIDEOWRITER
+
+VALUE rb_class();
+
+void define_ruby_class();
+
+VALUE rb_initialize(int argc, VALUE *argv, VALUE self);
+VALUE rb_write(VALUE self, VALUE frame);
+VALUE rb_close(VALUE self);
+
+__NAMESPACE_END_CVVIDEOWRITER
+
+inline CvVideoWriter*
+CVVIDEOWRITER(VALUE object)
+{
+  // CvVideoWriter is 
+  // CvVideoWriter *ptr;
+  // Data_Get_Struct(object, CvVideoWriter, ptr);
+  // return ptr;
+  return (CvVideoWriter*)DATA_PTR(object);
+}
+
+__NAMESPACE_END_OPENCV
+
+#endif // RUBY_OPENCV_CVVIDEOWRITER_H

data/ext/opencv/gui.cpp

@@ -1,68 +1,68 @@
-/************************************************************
-
-  gui.cpp -
-
-  $Author: lsxi $
-
-  Copyright (C) 2005-2006 Masakazu Yonekura
-
-************************************************************/
-#include "gui.h"
-/*
- * Document-module: OpenCV::GUI
- *
- * OpenCV simple GUI interface. Provides Window, Trackbar.
- * This GUI work on GTK or Microsoft Windows native GUI.
- */
-__NAMESPACE_BEGIN_OPENCV
-__NAMESPACE_BEGIN_GUI
-    
-VALUE rb_module;
-
-VALUE
-rb_module_GUI()
-{
-  return rb_module;
-}
-
-void
-define_ruby_module()
-{
-  if (rb_module)
-    return;
-  /* 
-   * opencv = rb_define_module("OpenCV");      
-   *
-   * note: this comment is used by rdoc.
-   */
-  VALUE opencv = rb_module_opencv();
-  rb_module = rb_define_module_under(opencv, "GUI");
-  rb_define_singleton_method(rb_module, "wait_key", RUBY_METHOD_FUNC(rb_wait_key), -1);
-}
-
-/*
- * call-seq:
- *   wait_key(<i>[delay]</i>) -> int or nil
- *
- * Waits for a pressed key each GUI wedget.
- * Return the code of the pressed key or nil if no key were pressed until the specified timeout has elapsed.
- * <i>delay</i> should be Fixnum. Wait <i>delay</i> millisecond.
- */
-VALUE
-rb_wait_key(int argc, VALUE *argv, VALUE self)
-{
-  VALUE delay;
-  rb_scan_args(argc, argv, "01", &delay);
-  int keycode = 0;
-  try {
-    keycode = cvWaitKey(IF_INT(delay, 0));
-  }
-  catch (cv::Exception& e) {
-    raise_cverror(e);
-  }
-  return (keycode < 0) ? Qnil : INT2NUM(keycode);
-}
-
-__NAMESPACE_END_GUI
-__NAMESPACE_END_OPENCV
-
+/************************************************************
+
+  gui.cpp -
+
+  $Author: lsxi $
+
+  Copyright (C) 2005-2006 Masakazu Yonekura
+
+************************************************************/
+#include "gui.h"
+/*
+ * Document-module: OpenCV::GUI
+ *
+ * OpenCV simple GUI interface. Provides Window, Trackbar.
+ * This GUI work on GTK or Microsoft Windows native GUI.
+ */
+__NAMESPACE_BEGIN_OPENCV
+__NAMESPACE_BEGIN_GUI
+    
+VALUE rb_module;
+
+VALUE
+rb_module_GUI()
+{
+  return rb_module;
+}
+
+void
+define_ruby_module()
+{
+  if (rb_module)
+    return;
+  /* 
+   * opencv = rb_define_module("OpenCV");      
+   *
+   * note: this comment is used by rdoc.
+   */
+  VALUE opencv = rb_module_opencv();
+  rb_module = rb_define_module_under(opencv, "GUI");
+  rb_define_singleton_method(rb_module, "wait_key", RUBY_METHOD_FUNC(rb_wait_key), -1);
+}
+
+/*
+ * call-seq:
+ *   wait_key(<i>[delay]</i>) -> int or nil
+ *
+ * Waits for a pressed key each GUI wedget.
+ * Return the code of the pressed key or nil if no key were pressed until the specified timeout has elapsed.
+ * <i>delay</i> should be Fixnum. Wait <i>delay</i> millisecond.
+ */
+VALUE
+rb_wait_key(int argc, VALUE *argv, VALUE self)
+{
+  VALUE delay;
+  rb_scan_args(argc, argv, "01", &delay);
+  int keycode = 0;
+  try {
+    keycode = cvWaitKey(IF_INT(delay, 0));
+  }
+  catch (cv::Exception& e) {
+    raise_cverror(e);
+  }
+  return (keycode < 0) ? Qnil : INT2NUM(keycode);
+}
+
+__NAMESPACE_END_GUI
+__NAMESPACE_END_OPENCV
+

data/ext/opencv/gui.h

@@ -1,30 +1,30 @@
-/************************************************************
-
-   gui.h -
-
-   $Author: lsxi $
-
-   Copyright (C) 2005-2006 Masakazu Yonekura
-
-************************************************************/
-#ifndef RUBY_OPENCV_GUI_H
-#define RUBY_OPENCV_GUI_H
-
-#define __NAMESPACE_BEGIN_GUI namespace mGUI {
-#define __NAMESPACE_END_GUI }
-
-#include "opencv.h"
-
-__NAMESPACE_BEGIN_OPENCV
-__NAMESPACE_BEGIN_GUI
-
-VALUE rb_module_GUI();
-void define_ruby_module();
-
-VALUE rb_wait_key(int argc, VALUE *argv, VALUE self);
-
-__NAMESPACE_END_GUI
-__NAMESPACE_END_OPENCV
-
-#endif // RUBY_OPENCV_GUI_H
-
+/************************************************************
+
+   gui.h -
+
+   $Author: lsxi $
+
+   Copyright (C) 2005-2006 Masakazu Yonekura
+
+************************************************************/
+#ifndef RUBY_OPENCV_GUI_H
+#define RUBY_OPENCV_GUI_H
+
+#define __NAMESPACE_BEGIN_GUI namespace mGUI {
+#define __NAMESPACE_END_GUI }
+
+#include "opencv.h"
+
+__NAMESPACE_BEGIN_OPENCV
+__NAMESPACE_BEGIN_GUI
+
+VALUE rb_module_GUI();
+void define_ruby_module();
+
+VALUE rb_wait_key(int argc, VALUE *argv, VALUE self);
+
+__NAMESPACE_END_GUI
+__NAMESPACE_END_OPENCV
+
+#endif // RUBY_OPENCV_GUI_H
+

data/ext/opencv/iplconvkernel.h

@@ -1,71 +1,71 @@
-/************************************************************
-
-   iplconvkernel.h -
-
-   $Author: lsxi $
-
-   Copyright (C) 2005-2006 Masakazu Yonekura
-
-************************************************************/
-#ifndef RUBY_OPENCV_IPLCONVKERNEL_H
-#define RUBY_OPENCV_IPLCONVKERNEL_H
-
-#include "opencv.h"
-
-#define __NAMESPACE_BEGIN_IPLCONVKERNEL namespace cIplConvKernel {
-#define __NAMESPACE_END_IPLCONVKERNEL }
-
-__NAMESPACE_BEGIN_OPENCV
-__NAMESPACE_BEGIN_IPLCONVKERNEL
-
-VALUE rb_class();
-VALUE rb_allocate(VALUE klass);
-
-void define_ruby_class();
-VALUE rb_initialize(int argc, VALUE *argv, VALUE self);
-VALUE rb_size(VALUE self);
-VALUE rb_cols(VALUE self);
-VALUE rb_rows(VALUE self);
-VALUE rb_anchor(VALUE self);
-VALUE rb_anchor_x(VALUE self);
-VALUE rb_anchor_y(VALUE self);
-
-__NAMESPACE_END_IPLCONVKERNEL
-
-inline IplConvKernel*
-IPLCONVKERNEL(VALUE object)
-{
-  IplConvKernel *ptr;
-  Data_Get_Struct(object, IplConvKernel, ptr);
-  return ptr;
-}
-
-inline IplConvKernel*
-IPLCONVKERNEL_WITH_CHECK(VALUE object)
-{
-  if (!rb_obj_is_kind_of(object, cIplConvKernel::rb_class()))
-    raise_typeerror(object, cIplConvKernel::rb_class());
-  return IPLCONVKERNEL(object);
-}
-
-/*
-inline IplConvKernel*
-IPLCONVKERNEL(VALUE object)
-{
-  IplConvKernel *ptr;
-  if (NIL_P(object))
-    return NULL;
-  else if (rb_obj_is_kind_of(object, cIplConvKernel::rb_class())) {
-    Data_Get_Struct(object, IplConvKernel, ptr);
-    return ptr;
-  }
-  else {
-    rb_warn("invalid kernel. use default kernel (3x3 rectangle).");
-    return NULL;
-  }
-}
-*/
-
-__NAMESPACE_END_OPENCV
-
-#endif // RUBY_OPENCV_IPLCONVKERNEL_H
+/************************************************************
+
+   iplconvkernel.h -
+
+   $Author: lsxi $
+
+   Copyright (C) 2005-2006 Masakazu Yonekura
+
+************************************************************/
+#ifndef RUBY_OPENCV_IPLCONVKERNEL_H
+#define RUBY_OPENCV_IPLCONVKERNEL_H
+
+#include "opencv.h"
+
+#define __NAMESPACE_BEGIN_IPLCONVKERNEL namespace cIplConvKernel {
+#define __NAMESPACE_END_IPLCONVKERNEL }
+
+__NAMESPACE_BEGIN_OPENCV
+__NAMESPACE_BEGIN_IPLCONVKERNEL
+
+VALUE rb_class();
+VALUE rb_allocate(VALUE klass);
+
+void define_ruby_class();
+VALUE rb_initialize(int argc, VALUE *argv, VALUE self);
+VALUE rb_size(VALUE self);
+VALUE rb_cols(VALUE self);
+VALUE rb_rows(VALUE self);
+VALUE rb_anchor(VALUE self);
+VALUE rb_anchor_x(VALUE self);
+VALUE rb_anchor_y(VALUE self);
+
+__NAMESPACE_END_IPLCONVKERNEL
+
+inline IplConvKernel*
+IPLCONVKERNEL(VALUE object)
+{
+  IplConvKernel *ptr;
+  Data_Get_Struct(object, IplConvKernel, ptr);
+  return ptr;
+}
+
+inline IplConvKernel*
+IPLCONVKERNEL_WITH_CHECK(VALUE object)
+{
+  if (!rb_obj_is_kind_of(object, cIplConvKernel::rb_class()))
+    raise_typeerror(object, cIplConvKernel::rb_class());
+  return IPLCONVKERNEL(object);
+}
+
+/*
+inline IplConvKernel*
+IPLCONVKERNEL(VALUE object)
+{
+  IplConvKernel *ptr;
+  if (NIL_P(object))
+    return NULL;
+  else if (rb_obj_is_kind_of(object, cIplConvKernel::rb_class())) {
+    Data_Get_Struct(object, IplConvKernel, ptr);
+    return ptr;
+  }
+  else {
+    rb_warn("invalid kernel. use default kernel (3x3 rectangle).");
+    return NULL;
+  }
+}
+*/
+
+__NAMESPACE_END_OPENCV
+
+#endif // RUBY_OPENCV_IPLCONVKERNEL_H

data/ext/opencv/mouseevent.cpp

@@ -1,181 +1,181 @@
-/************************************************************
-
-   mouseevent.cpp -
-
-   $Author: lsxi $
-
-   Copyright (C) 2005-2007 Masakazu Yonekura
-
-************************************************************/
-#include "mouseevent.h"
-/*
- * Document-module: OpenCV::GUI::MouseEvent
- *
- * MouseEvent object.
- * have
- * see OpenCV::GUI::Window#set_mouse_callback.
- */
-__NAMESPACE_BEGIN_OPENCV
-__NAMESPACE_BEGIN_GUI
-__NAMESPACE_BEGIN_MOUSEEVENT
-
-VALUE rb_klass;
-
-VALUE
-rb_class()
-{
-  return rb_klass;
-}
-
-void
-define_ruby_class()
-{
-  if (rb_klass)
-    return;
-  /* 
-   * opencv = rb_define_module("OpenCV");
-   * GUI = rb_define_module_under(opencv, "GUI");
-   * cvpoint = rb_define_class_under(opencv, "CvPoint", rb_cObject);
-   */
-  VALUE GUI = rb_module_GUI();
-  VALUE cvpoint = cCvPoint::rb_class();
-  rb_klass = rb_define_class_under(GUI, "MouseEvent", cvpoint);
-  rb_define_alloc_func(rb_klass, rb_allocate);
-  rb_define_method(rb_klass, "event", RUBY_METHOD_FUNC(rb_event), 0);
-  rb_define_method(rb_klass, "left_button?", RUBY_METHOD_FUNC(rb_left_button_q), 0);
-  rb_define_method(rb_klass, "right_button?", RUBY_METHOD_FUNC(rb_right_button_q), 0);
-  rb_define_method(rb_klass, "middle_button?", RUBY_METHOD_FUNC(rb_middle_button_q), 0);
-  rb_define_method(rb_klass, "ctrl_key?", RUBY_METHOD_FUNC(rb_ctrl_key_q), 0);
-  rb_define_method(rb_klass, "shift_key?", RUBY_METHOD_FUNC(rb_shift_key_q), 0);
-  rb_define_method(rb_klass, "alt_key?", RUBY_METHOD_FUNC(rb_alt_key_q), 0);
-}
-
-VALUE
-rb_allocate(VALUE klass)
-{
-  MouseEvent *ptr;
-  return Data_Make_Struct(klass, MouseEvent, 0, 0, ptr);
-}
-
-/*
- * call-seq:
- *   event -> symbol
- *
- * Return Symbol about mouse event.
- *
- * Currently, return these symbol:
- *   :move
- *     When mouse move.
- *   :right_button_down
- *     When mouse right button down.
- *   :left_button_down
- *     When mosue left button down.
- *   :middle_button_down
- *     When mosue middle button down.
- *   :left_button_up
- *     When mouse left button down.
- *   :right_button_up
- *     When mouse right button down.
- *   :middle_button_up
- *     When mouse middle button down.
- *
- * note: original OpenCV define "double-click" event(e.g. CV_EVENT_LBUTTONDBLCLK).
- * But never call these event. Is it bug?
- */
-VALUE rb_event(VALUE self)
-{
-  switch(MOUSEEVENT(self)->event) {
-  case CV_EVENT_MOUSEMOVE:
-    return ID2SYM(rb_intern("move"));
-  case CV_EVENT_LBUTTONDOWN:
-    return ID2SYM(rb_intern("left_button_down"));
-  case CV_EVENT_RBUTTONDOWN:
-    return ID2SYM(rb_intern("right_button_down"));
-  case CV_EVENT_MBUTTONDOWN:
-    return ID2SYM(rb_intern("middle_button_down"));
-  case CV_EVENT_LBUTTONUP:
-    return ID2SYM(rb_intern("left_button_up"));
-  case CV_EVENT_RBUTTONUP:
-    return ID2SYM(rb_intern("right_button_up"));
-  case CV_EVENT_MBUTTONUP:
-    return ID2SYM(rb_intern("middle_button_up"));
-  case CV_EVENT_LBUTTONDBLCLK:
-    return ID2SYM(rb_intern("left_button_double_click"));
-  case CV_EVENT_RBUTTONDBLCLK:
-    return ID2SYM(rb_intern("right_button_double_click"));
-  case CV_EVENT_MBUTTONDBLCLK:
-    return ID2SYM(rb_intern("middle_button_double_click"));
-  }
-  return Qnil;
-}
-
-/*
- * Return true when mouse left button is pushed. Otherwise return false.
- */
-VALUE
-rb_left_button_q(VALUE self)
-{
-  return MOUSEEVENT(self)->flags & CV_EVENT_FLAG_LBUTTON ? Qtrue : Qfalse;
-}
-
-/*
- * Return true when mouse right button is pushed. Otherwise return false.
- */
-VALUE
-rb_right_button_q(VALUE self)
-{
-  return MOUSEEVENT(self)->flags & CV_EVENT_FLAG_RBUTTON ? Qtrue : Qfalse;
-}
-
-/*
- * Return true when mouse middle button is pushed. Otherwise return false.
- */
-VALUE
-rb_middle_button_q(VALUE self)
-{
-  return MOUSEEVENT(self)->flags & CV_EVENT_FLAG_MBUTTON ? Qtrue : Qfalse;
-}
-
-/*
- * Return true when CTRL key is pushed. Otherwise return false.
- */
-VALUE
-rb_ctrl_key_q(VALUE self)
-{
-  return MOUSEEVENT(self)->flags & CV_EVENT_FLAG_CTRLKEY ? Qtrue : Qfalse;
-}
-
-/*
- * Return true when shift key is pushed. Otherwise return false.
- */
-VALUE
-rb_shift_key_q(VALUE self)
-{
-  return MOUSEEVENT(self)->flags & CV_EVENT_FLAG_SHIFTKEY ? Qtrue : Qfalse;
-}
-
-/*
- * Return true when ALT key is pushed. Otherwise return false.
- */
-VALUE
-rb_alt_key_q(VALUE self)
-{
-  return MOUSEEVENT(self)->flags & CV_EVENT_FLAG_ALTKEY ? Qtrue : Qfalse;
-}
-
-VALUE
-new_object(int event, int x, int y, int flags)
-{
-  VALUE object = rb_allocate(rb_class());
-  MouseEvent *mouseevent = MOUSEEVENT(object);
-  mouseevent->point.x = x;
-  mouseevent->point.y = y;
-  mouseevent->event = event;
-  mouseevent->flags = flags;
-  return object;
-}
-
-__NAMESPACE_END_MOUSEEVENT
-__NAMESPACE_END_GUI
-__NAMESPACE_END_OPENCV
-
+/************************************************************
+
+   mouseevent.cpp -
+
+   $Author: lsxi $
+
+   Copyright (C) 2005-2007 Masakazu Yonekura
+
+************************************************************/
+#include "mouseevent.h"
+/*
+ * Document-module: OpenCV::GUI::MouseEvent
+ *
+ * MouseEvent object.
+ * have
+ * see OpenCV::GUI::Window#set_mouse_callback.
+ */
+__NAMESPACE_BEGIN_OPENCV
+__NAMESPACE_BEGIN_GUI
+__NAMESPACE_BEGIN_MOUSEEVENT
+
+VALUE rb_klass;
+
+VALUE
+rb_class()
+{
+  return rb_klass;
+}
+
+void
+define_ruby_class()
+{
+  if (rb_klass)
+    return;
+  /* 
+   * opencv = rb_define_module("OpenCV");
+   * GUI = rb_define_module_under(opencv, "GUI");
+   * cvpoint = rb_define_class_under(opencv, "CvPoint", rb_cObject);
+   */
+  VALUE GUI = rb_module_GUI();
+  VALUE cvpoint = cCvPoint::rb_class();
+  rb_klass = rb_define_class_under(GUI, "MouseEvent", cvpoint);
+  rb_define_alloc_func(rb_klass, rb_allocate);
+  rb_define_method(rb_klass, "event", RUBY_METHOD_FUNC(rb_event), 0);
+  rb_define_method(rb_klass, "left_button?", RUBY_METHOD_FUNC(rb_left_button_q), 0);
+  rb_define_method(rb_klass, "right_button?", RUBY_METHOD_FUNC(rb_right_button_q), 0);
+  rb_define_method(rb_klass, "middle_button?", RUBY_METHOD_FUNC(rb_middle_button_q), 0);
+  rb_define_method(rb_klass, "ctrl_key?", RUBY_METHOD_FUNC(rb_ctrl_key_q), 0);
+  rb_define_method(rb_klass, "shift_key?", RUBY_METHOD_FUNC(rb_shift_key_q), 0);
+  rb_define_method(rb_klass, "alt_key?", RUBY_METHOD_FUNC(rb_alt_key_q), 0);
+}
+
+VALUE
+rb_allocate(VALUE klass)
+{
+  MouseEvent *ptr;
+  return Data_Make_Struct(klass, MouseEvent, 0, 0, ptr);
+}
+
+/*
+ * call-seq:
+ *   event -> symbol
+ *
+ * Return Symbol about mouse event.
+ *
+ * Currently, return these symbol:
+ *   :move
+ *     When mouse move.
+ *   :right_button_down
+ *     When mouse right button down.
+ *   :left_button_down
+ *     When mosue left button down.
+ *   :middle_button_down
+ *     When mosue middle button down.
+ *   :left_button_up
+ *     When mouse left button down.
+ *   :right_button_up
+ *     When mouse right button down.
+ *   :middle_button_up
+ *     When mouse middle button down.
+ *
+ * note: original OpenCV define "double-click" event(e.g. CV_EVENT_LBUTTONDBLCLK).
+ * But never call these event. Is it bug?
+ */
+VALUE rb_event(VALUE self)
+{
+  switch(MOUSEEVENT(self)->event) {
+  case CV_EVENT_MOUSEMOVE:
+    return ID2SYM(rb_intern("move"));
+  case CV_EVENT_LBUTTONDOWN:
+    return ID2SYM(rb_intern("left_button_down"));
+  case CV_EVENT_RBUTTONDOWN:
+    return ID2SYM(rb_intern("right_button_down"));
+  case CV_EVENT_MBUTTONDOWN:
+    return ID2SYM(rb_intern("middle_button_down"));
+  case CV_EVENT_LBUTTONUP:
+    return ID2SYM(rb_intern("left_button_up"));
+  case CV_EVENT_RBUTTONUP:
+    return ID2SYM(rb_intern("right_button_up"));
+  case CV_EVENT_MBUTTONUP:
+    return ID2SYM(rb_intern("middle_button_up"));
+  case CV_EVENT_LBUTTONDBLCLK:
+    return ID2SYM(rb_intern("left_button_double_click"));
+  case CV_EVENT_RBUTTONDBLCLK:
+    return ID2SYM(rb_intern("right_button_double_click"));
+  case CV_EVENT_MBUTTONDBLCLK:
+    return ID2SYM(rb_intern("middle_button_double_click"));
+  }
+  return Qnil;
+}
+
+/*
+ * Return true when mouse left button is pushed. Otherwise return false.
+ */
+VALUE
+rb_left_button_q(VALUE self)
+{
+  return MOUSEEVENT(self)->flags & CV_EVENT_FLAG_LBUTTON ? Qtrue : Qfalse;
+}
+
+/*
+ * Return true when mouse right button is pushed. Otherwise return false.
+ */
+VALUE
+rb_right_button_q(VALUE self)
+{
+  return MOUSEEVENT(self)->flags & CV_EVENT_FLAG_RBUTTON ? Qtrue : Qfalse;
+}
+
+/*
+ * Return true when mouse middle button is pushed. Otherwise return false.
+ */
+VALUE
+rb_middle_button_q(VALUE self)
+{
+  return MOUSEEVENT(self)->flags & CV_EVENT_FLAG_MBUTTON ? Qtrue : Qfalse;
+}
+
+/*
+ * Return true when CTRL key is pushed. Otherwise return false.
+ */
+VALUE
+rb_ctrl_key_q(VALUE self)
+{
+  return MOUSEEVENT(self)->flags & CV_EVENT_FLAG_CTRLKEY ? Qtrue : Qfalse;
+}
+
+/*
+ * Return true when shift key is pushed. Otherwise return false.
+ */
+VALUE
+rb_shift_key_q(VALUE self)
+{
+  return MOUSEEVENT(self)->flags & CV_EVENT_FLAG_SHIFTKEY ? Qtrue : Qfalse;
+}
+
+/*
+ * Return true when ALT key is pushed. Otherwise return false.
+ */
+VALUE
+rb_alt_key_q(VALUE self)
+{
+  return MOUSEEVENT(self)->flags & CV_EVENT_FLAG_ALTKEY ? Qtrue : Qfalse;
+}
+
+VALUE
+new_object(int event, int x, int y, int flags)
+{
+  VALUE object = rb_allocate(rb_class());
+  MouseEvent *mouseevent = MOUSEEVENT(object);
+  mouseevent->point.x = x;
+  mouseevent->point.y = y;
+  mouseevent->event = event;
+  mouseevent->flags = flags;
+  return object;
+}
+
+__NAMESPACE_END_MOUSEEVENT
+__NAMESPACE_END_GUI
+__NAMESPACE_END_OPENCV
+