chipmunk 5.3.4.0-x86-mingw32

data/ext/chipmunk/rb_cpConstraint.c

@@ -0,0 +1,336 @@
+/* Copyright (c) 2007 Scott Lembcke
+* 
+* Permission is hereby granted, free of charge, to any person obtaining a copy
+* of this software and associated documentation files (the "Software"), to deal
+* in the Software without restriction, including without limitation the rights
+* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+* copies of the Software, and to permit persons to whom the Software is
+* furnished to do so, subject to the following conditions:
+* 
+* The above copyright notice and this permission notice shall be included in
+* all copies or substantial portions of the Software.
+* 
+* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+* SOFTWARE.
+*/
+
+#include <stdlib.h>
+#include "chipmunk.h"
+
+#include "ruby.h"
+#include "rb_chipmunk.h"
+
+VALUE m_cpConstraint;
+
+#define CONSTRAINT_GETSET_FUNCS(member) \
+static VALUE rb_cpConstraint_get_##member(VALUE self) \
+{return rb_float_new(CONSTRAINT(self)->member);} \
+static VALUE rb_cpConstraint_set_##member(VALUE self, VALUE value) \
+{CONSTRAINT(self)->member = NUM2DBL(value); return value;}
+
+CONSTRAINT_GETSET_FUNCS(maxForce)
+CONSTRAINT_GETSET_FUNCS(biasCoef)
+CONSTRAINT_GETSET_FUNCS(maxBias)
+
+
+#define MAKE_FLT_GETTER(func) \
+static VALUE rb_##func(VALUE self) \
+{return rb_float_new(func(CONSTRAINT(self)));}
+
+#define MAKE_FLT_SETTER(func) \
+static VALUE rb_##func(VALUE self, VALUE value) \
+{func(CONSTRAINT(self), NUM2DBL(value)); return value;} \
+
+#define MAKE_FLT_ACCESSORS(s, m) \
+MAKE_FLT_GETTER(s##Get##m) \
+MAKE_FLT_SETTER(s##Set##m)
+
+#define MAKE_VEC_GETTER(func) \
+static VALUE rb_##func(VALUE self) \
+{return VNEW(func(CONSTRAINT(self)));}
+
+#define MAKE_VEC_SETTER(func) \
+static VALUE rb_##func(VALUE self, VALUE value) \
+{func(CONSTRAINT(self), *VGET(value)); return value;} \
+
+#define MAKE_VEC_ACCESSORS(s, m) \
+MAKE_VEC_GETTER(s##Get##m) \
+MAKE_VEC_SETTER(s##Set##m)
+
+
+#define ALLOC_TEMPLATE(s, alloc) \
+static VALUE rb_##s##_alloc(VALUE klass) \
+{return Data_Wrap_Struct(klass, NULL, cpConstraintFree, alloc);}
+
+ALLOC_TEMPLATE(cpPinJoint, cpPinJointAlloc())
+
+static VALUE
+rb_cpPinJoint_init(VALUE self, VALUE a, VALUE b, VALUE anchr1, VALUE anchr2)
+{
+	cpPinJoint *joint = (cpPinJoint *)CONSTRAINT(self);
+	cpPinJointInit(joint, BODY(a), BODY(b), *VGET(anchr1), *VGET(anchr2));
+	rb_iv_set(self, "@body_a", a);
+	rb_iv_set(self, "@body_b", b);
+	
+	return self;
+}
+
+MAKE_FLT_ACCESSORS(cpPinJoint, Dist)
+MAKE_VEC_ACCESSORS(cpPinJoint, Anchr1)
+MAKE_VEC_ACCESSORS(cpPinJoint, Anchr2)
+
+
+ALLOC_TEMPLATE(cpDampedRotarySpring, cpDampedRotarySpringAlloc())
+
+static VALUE
+rb_cpDampedRotarySpring_init(VALUE self, VALUE a, VALUE b, VALUE restAngle, VALUE stiffness, VALUE damping)
+{
+	cpDampedRotarySpring *spring = (cpDampedRotarySpring *)CONSTRAINT(self);
+	cpDampedRotarySpringInit(spring, BODY(a), BODY(b), NUM2DBL(restAngle), NUM2DBL(stiffness), NUM2DBL(damping));
+	rb_iv_set(self, "@body_a", a);
+	rb_iv_set(self, "@body_b", b);
+	
+	return self;
+}
+
+MAKE_FLT_ACCESSORS(cpDampedRotarySpring, RestAngle);
+MAKE_FLT_ACCESSORS(cpDampedRotarySpring, Stiffness);
+MAKE_FLT_ACCESSORS(cpDampedRotarySpring, Damping);
+
+
+ALLOC_TEMPLATE(cpDampedSpring, cpDampedSpringAlloc())
+
+static VALUE
+rb_cpDampedSpring_init(VALUE self, VALUE a, VALUE b, VALUE anchr1, VALUE anchr2, VALUE restLength, VALUE stiffness, VALUE damping)
+{
+	cpDampedSpring *spring = (cpDampedSpring *)CONSTRAINT(self);
+	cpDampedSpringInit(spring, BODY(a), BODY(b), *VGET(anchr1), *VGET(anchr2), NUM2DBL(restLength), NUM2DBL(stiffness), NUM2DBL(damping));
+	rb_iv_set(self, "@body_a", a);
+	rb_iv_set(self, "@body_b", b);
+	
+	return self;
+}
+
+MAKE_VEC_ACCESSORS(cpDampedSpring, Anchr1)
+MAKE_VEC_ACCESSORS(cpDampedSpring, Anchr2)
+MAKE_FLT_ACCESSORS(cpDampedSpring, RestLength);
+MAKE_FLT_ACCESSORS(cpDampedSpring, Stiffness);
+MAKE_FLT_ACCESSORS(cpDampedSpring, Damping);
+
+
+ALLOC_TEMPLATE(cpGearJoint, cpGearJointAlloc())
+
+static VALUE
+rb_cpGearJoint_init(VALUE self, VALUE a, VALUE b, VALUE phase, VALUE ratio)
+{
+	cpGearJoint *joint = (cpGearJoint *)CONSTRAINT(self);
+	cpGearJointInit(joint, BODY(a), BODY(b), NUM2DBL(phase), NUM2DBL(ratio));
+	rb_iv_set(self, "@body_a", a);
+	rb_iv_set(self, "@body_b", b);
+	
+	return self;
+}
+
+MAKE_FLT_ACCESSORS(cpGearJoint, Phase);
+MAKE_FLT_ACCESSORS(cpGearJoint, Ratio);
+
+
+ALLOC_TEMPLATE(cpPivotJoint, cpPivotJointAlloc())
+
+static VALUE
+rb_cpPivotJoint_init(VALUE self, VALUE a, VALUE b, VALUE anchr1, VALUE anchr2)
+{
+	cpPivotJoint *joint = (cpPivotJoint *)CONSTRAINT(self);
+	cpPivotJointInit(joint, BODY(a), BODY(b), *VGET(anchr1), *VGET(anchr2));
+	rb_iv_set(self, "@body_a", a);
+	rb_iv_set(self, "@body_b", b);
+	
+	return self;
+}
+
+MAKE_VEC_ACCESSORS(cpPivotJoint, Anchr1);
+MAKE_VEC_ACCESSORS(cpPivotJoint, Anchr2);
+
+
+ALLOC_TEMPLATE(cpRotaryLimitJoint, cpRotaryLimitJointAlloc())
+
+static VALUE
+rb_cpRotaryLimitJoint_init(VALUE self, VALUE a, VALUE b, VALUE min, VALUE max)
+{
+	cpRotaryLimitJoint *joint = (cpRotaryLimitJoint *)CONSTRAINT(self);
+	cpRotaryLimitJointInit(joint, BODY(a), BODY(b), NUM2DBL(min), NUM2DBL(max));
+	rb_iv_set(self, "@body_a", a);
+	rb_iv_set(self, "@body_b", b);
+	
+	return self;
+}
+
+MAKE_FLT_ACCESSORS(cpRotaryLimitJoint, Min);
+MAKE_FLT_ACCESSORS(cpRotaryLimitJoint, Max);
+
+
+ALLOC_TEMPLATE(cpSimpleMotor, cpSimpleMotorAlloc())
+
+static VALUE
+rb_cpSimpleMotor_init(VALUE self, VALUE a, VALUE b, VALUE rate)
+{
+	cpSimpleMotor *motor = (cpSimpleMotor *)CONSTRAINT(self);
+	cpSimpleMotorInit(motor, BODY(a), BODY(b), NUM2DBL(rate));
+	rb_iv_set(self, "@body_a", a);
+	rb_iv_set(self, "@body_b", b);
+	
+	return self;
+}
+
+MAKE_FLT_ACCESSORS(cpSimpleMotor, Rate);
+
+
+ALLOC_TEMPLATE(cpSlideJoint, cpSlideJointAlloc())
+
+static VALUE
+rb_cpSlideJoint_init(VALUE self, VALUE a, VALUE b, VALUE anchr1, VALUE anchr2, VALUE min, VALUE max)
+{
+	cpSlideJoint *joint = (cpSlideJoint *)CONSTRAINT(self);
+	cpSlideJointInit(joint, BODY(a), BODY(b), *VGET(anchr1), *VGET(anchr2), NUM2DBL(min), NUM2DBL(max));
+	rb_iv_set(self, "@body_a", a);
+	rb_iv_set(self, "@body_b", b);
+	
+	return self;
+}
+
+MAKE_VEC_ACCESSORS(cpSlideJoint, Anchr1)
+MAKE_VEC_ACCESSORS(cpSlideJoint, Anchr2)
+MAKE_FLT_ACCESSORS(cpSlideJoint, Min);
+MAKE_FLT_ACCESSORS(cpSlideJoint, Max);
+
+
+ALLOC_TEMPLATE(cpGrooveJoint, cpGrooveJointAlloc())
+
+static VALUE
+rb_cpGrooveJoint_init(VALUE self, VALUE a, VALUE b, VALUE grv_a, VALUE grv_b, VALUE anchr2)
+{
+	cpGrooveJoint *joint = (cpGrooveJoint *)CONSTRAINT(self);
+	cpGrooveJointInit(joint, BODY(a), BODY(b), *VGET(grv_a), *VGET(grv_b), *VGET(anchr2));
+	rb_iv_set(self, "@body_a", a);
+	rb_iv_set(self, "@body_b", b);
+	
+	return self;
+}
+
+MAKE_VEC_ACCESSORS(cpGrooveJoint, GrooveA)
+MAKE_VEC_ACCESSORS(cpGrooveJoint, GrooveB)
+MAKE_VEC_ACCESSORS(cpGrooveJoint, Anchr2)
+
+
+ALLOC_TEMPLATE(cpRatchetJoint, cpRatchetJointAlloc())
+
+static VALUE
+rb_cpRatchetJoint_init(VALUE self, VALUE a, VALUE b, VALUE phase, VALUE ratchet)
+{
+  cpRatchetJoint * joint = (cpRatchetJoint *)CONSTRAINT(self);
+  cpRatchetJointInit(joint, BODY(a), BODY(b), NUM2DBL(phase), NUM2DBL(ratchet));
+  rb_iv_set(self, "@body_a", a);
+  rb_iv_set(self, "@body_b", b);
+  
+  return self;
+}
+
+MAKE_FLT_ACCESSORS(cpRatchetJoint, Angle);
+MAKE_FLT_ACCESSORS(cpRatchetJoint, Phase);
+MAKE_FLT_ACCESSORS(cpRatchetJoint, Ratchet);
+
+static VALUE
+rb_cpConstraintGetImpulse(VALUE self) {
+  return rb_float_new(cpConstraintGetImpulse(CONSTRAINT(self)));
+} 
+
+
+#define STRINGIFY(v) #v
+#define ACCESSOR_METHODS(s, m, name) \
+rb_define_method(c_##s, STRINGIFY(name), rb_##s##Get##m, 0); \
+rb_define_method(c_##s, STRINGIFY(name=), rb_##s##Set##m, 1);
+
+static VALUE
+make_class(const char *name, void *alloc_func, void *init_func, int init_params)
+{
+	VALUE klass = rb_define_class_under(m_cpConstraint, name, rb_cObject);
+	rb_include_module(klass, m_cpConstraint);
+	rb_define_alloc_func(klass, alloc_func);
+	rb_define_method(klass, "initialize", init_func, init_params);
+  	
+	return klass;
+}
+
+void
+Init_cpConstraint(void)
+{
+	m_cpConstraint = rb_define_module_under(m_Chipmunk, "Constraint");
+	rb_define_attr(m_cpConstraint, "body_a", 1, 0);
+	rb_define_attr(m_cpConstraint, "body_b", 1, 0);
+	rb_define_method(m_cpConstraint, "max_force", rb_cpConstraint_get_maxForce, 0);
+	rb_define_method(m_cpConstraint, "max_force=", rb_cpConstraint_set_maxForce, 1);
+	rb_define_method(m_cpConstraint, "bias_coef", rb_cpConstraint_get_biasCoef, 0);
+	rb_define_method(m_cpConstraint, "bias_coef=", rb_cpConstraint_set_biasCoef, 1);
+	rb_define_method(m_cpConstraint, "max_bias", rb_cpConstraint_get_maxBias, 0);
+	rb_define_method(m_cpConstraint, "max_bias=" , rb_cpConstraint_set_maxBias, 1);
+	rb_define_method(m_cpConstraint, "impulse"   , rb_cpConstraintGetImpulse, 0);
+  
+	
+	VALUE c_cpDampedRotarySpring = make_class("DampedRotarySpring", rb_cpDampedRotarySpring_alloc, rb_cpDampedRotarySpring_init, 5);
+	ACCESSOR_METHODS(cpDampedRotarySpring, RestAngle, rest_angle)
+	ACCESSOR_METHODS(cpDampedRotarySpring, Stiffness, stiffness)
+	ACCESSOR_METHODS(cpDampedRotarySpring, Damping, damping)
+	
+	VALUE c_cpDampedSpring = make_class("DampedSpring", rb_cpDampedSpring_alloc, rb_cpDampedSpring_init, 7);
+	ACCESSOR_METHODS(cpDampedSpring, Anchr1, anchr1)
+	ACCESSOR_METHODS(cpDampedSpring, Anchr2, anchr2)
+	ACCESSOR_METHODS(cpDampedSpring, RestLength, rest_length)
+	ACCESSOR_METHODS(cpDampedSpring, Stiffness, stiffness)
+	ACCESSOR_METHODS(cpDampedSpring, Damping, damping)
+  
+  VALUE c_cpGearJoint = make_class("GearJoint", rb_cpGearJoint_alloc, rb_cpGearJoint_init, 4);
+  ACCESSOR_METHODS(cpGearJoint, Phase, phase)
+  ACCESSOR_METHODS(cpGearJoint, Ratio, ratio)
+  
+  VALUE c_cpGrooveJoint = make_class("GrooveJoint", rb_cpGrooveJoint_alloc, rb_cpGrooveJoint_init, 5);
+  ACCESSOR_METHODS(cpGrooveJoint, Anchr2, anchr2)
+  
+
+  VALUE c_cpPinJoint = make_class("PinJoint", rb_cpPinJoint_alloc, rb_cpPinJoint_init, 4);
+  ACCESSOR_METHODS(cpPinJoint, Anchr1, anchr1)
+  ACCESSOR_METHODS(cpPinJoint, Anchr2, anchr2)
+  ACCESSOR_METHODS(cpPinJoint, Dist, dist)
+
+	
+	VALUE c_cpPivotJoint = make_class("PivotJoint", rb_cpPivotJoint_alloc, rb_cpPivotJoint_init, 4);
+	ACCESSOR_METHODS(cpPivotJoint, Anchr1, anchr1)
+	ACCESSOR_METHODS(cpPivotJoint, Anchr2, anchr2)
+	
+	VALUE c_cpRotaryLimitJoint = make_class("RotaryLimitJoint", rb_cpRotaryLimitJoint_alloc, rb_cpRotaryLimitJoint_init, 4);
+	ACCESSOR_METHODS(cpRotaryLimitJoint, Min, min)
+	ACCESSOR_METHODS(cpRotaryLimitJoint, Max, max)
+	
+	VALUE c_cpSimpleMotor = make_class("SimpleMotor", rb_cpSimpleMotor_alloc, rb_cpSimpleMotor_init, 3);
+	ACCESSOR_METHODS(cpSimpleMotor, Rate, rate);
+	
+	VALUE c_cpSlideJoint = make_class("SlideJoint", rb_cpSlideJoint_alloc, rb_cpSlideJoint_init, 6);
+	ACCESSOR_METHODS(cpSlideJoint, Anchr1, anchr1)
+	ACCESSOR_METHODS(cpSlideJoint, Anchr2, anchr2)
+	ACCESSOR_METHODS(cpSlideJoint, Min, min)
+	ACCESSOR_METHODS(cpSlideJoint, Max, max)
+  
+  
+  VALUE c_cpRatchetJoint = make_class("RatchetJoint", rb_cpRatchetJoint_alloc, rb_cpRatchetJoint_init, 4);
+  ACCESSOR_METHODS(cpRatchetJoint, Angle, angle)
+  ACCESSOR_METHODS(cpRatchetJoint, Phase, phase)
+  ACCESSOR_METHODS(cpRatchetJoint, Ratchet, ratchet)
+  
+	
+  // TODO: breakable joints. Seems to be missing in chipmunk 5.4.3.
+  
+}

data/ext/chipmunk/rb_cpShape.c

@@ -0,0 +1,450 @@
+/* Copyright (c) 2007 Scott Lembcke
+ * 
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ * 
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ * 
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+ 
+#include <stdlib.h>
+#include "chipmunk.h"
+
+#include "ruby.h"
+#include "rb_chipmunk.h"
+
+ID id_body;
+
+VALUE m_cpShape;
+VALUE c_cpCircleShape;
+VALUE c_cpSegmentShape;
+VALUE c_cpPolyShape;
+
+VALUE c_cpSegmentQueryInfo;
+
+//Helper that allocates and initializes a SegmenQueryInfo struct
+VALUE
+rb_cpSegmentQueryInfoNew(VALUE shape, VALUE t, VALUE n) {
+  return rb_struct_new(c_cpSegmentQueryInfo, shape, t, n);
+}
+
+
+
+static VALUE
+rb_cpShapeGetBody(VALUE self)
+{
+	return rb_ivar_get(self, id_body);
+}
+
+static VALUE
+rb_cpShapeSensorP(VALUE self)
+{
+  return SHAPE(self)->sensor ? Qtrue : Qfalse; 
+}
+
+static VALUE
+rb_cpShapeSetSensor(VALUE self, VALUE sensor)
+{
+  int sens = (NIL_P(sensor) || (!sensor)) ? 0 : 1; 
+  SHAPE(self)->sensor =  sens;  
+  return sensor;
+}
+
+static VALUE
+rb_cpShapeSetBody(VALUE self, VALUE body)
+{
+	SHAPE(self)->body = BODY(body);
+	rb_ivar_set(self, id_body, body);
+	
+	return body;
+}
+
+static VALUE
+rb_cpShapeGetCollType(VALUE self)
+{
+	return rb_iv_get(self, "collType");
+}
+
+static VALUE
+rb_cpShapeSetCollType(VALUE self, VALUE val)
+{
+	VALUE col_type = rb_obj_id(val);
+	rb_iv_set(self, "collType", val);
+	SHAPE(self)->collision_type = NUM2UINT(col_type);
+	
+	return val;
+}
+
+static VALUE
+rb_cpShapeGetData(VALUE self)
+{
+  return rb_iv_get(self, "data");
+}
+
+static VALUE
+rb_cpShapeSetData(VALUE self, VALUE val)
+{
+  rb_iv_set(self, "data", val);
+  return val;
+}
+
+static VALUE
+rb_cpShapeGetSelf(VALUE self)
+{
+  return self;
+}
+
+
+static VALUE
+rb_cpShapeGetGroup(VALUE self)
+{
+	return rb_iv_get(self, "group");
+}
+
+static VALUE
+rb_cpShapeSetGroup(VALUE self, VALUE val)
+{
+	VALUE col_type = rb_obj_id(val);
+	rb_iv_set(self, "group", val);
+	SHAPE(self)->group = NUM2UINT(col_type);
+	
+	return val;
+}
+
+static VALUE
+rb_cpShapeGetLayers(VALUE self)
+{
+	return UINT2NUM(SHAPE(self)->layers);
+}
+
+static VALUE
+rb_cpShapeSetLayers(VALUE self, VALUE layers)
+{
+	SHAPE(self)->layers = NUM2UINT(layers);
+	
+	return layers;
+}
+
+static VALUE
+rb_cpShapeGetBB(VALUE self)
+{
+	cpBB *bb = malloc(sizeof(cpBB));
+	*bb = SHAPE(self)->bb;
+	return Data_Wrap_Struct(c_cpBB, NULL, free, bb);
+}
+
+static VALUE
+rb_cpShapeCacheBB(VALUE self)
+{
+	cpShape *shape = SHAPE(self);
+	cpShapeCacheBB(shape);
+	
+	return rb_cpShapeGetBB(self);
+}
+
+static VALUE
+rb_cpShapeGetElasticity(VALUE self)
+{
+	return rb_float_new(SHAPE(self)->e);
+}
+
+static VALUE
+rb_cpShapeGetFriction(VALUE self)
+{
+	return rb_float_new(SHAPE(self)->u);
+}
+
+static VALUE
+rb_cpShapeSetElasticity(VALUE self, VALUE val)
+{
+	SHAPE(self)->e = NUM2DBL(val);
+	return val;
+}
+
+static VALUE
+rb_cpShapeSetFriction(VALUE self, VALUE val)
+{
+	SHAPE(self)->u = NUM2DBL(val);
+	return val;
+}
+
+static VALUE
+rb_cpShapeGetSurfaceV(VALUE self)
+{
+	return VWRAP(self, &SHAPE(self)->surface_v);
+}
+
+static VALUE
+rb_cpShapeSetSurfaceV(VALUE self, VALUE val)
+{
+	SHAPE(self)->surface_v = *VGET(val);
+	return val;
+}
+
+static VALUE
+rb_cpShapeResetIdCounter(VALUE self)
+{
+	cpResetShapeIdCounter();
+	return Qnil;
+}
+
+// Test if a point lies within a shape.
+static VALUE rb_cpShapePointQuery(VALUE self, VALUE point) {
+  cpBool res = cpShapePointQuery(SHAPE(self), *VGET(point));  
+  return  res ? Qtrue : Qfalse;
+}  
+
+
+static VALUE rb_cpShapeSegmentQuery(VALUE self, VALUE a, VALUE b) { 
+  cpSegmentQueryInfo info;
+  cpShapeSegmentQuery(SHAPE(self), *VGET(a), *VGET(b), &info);
+  if(info.shape) { 
+    return rb_cpSegmentQueryInfoNew((VALUE)info.shape->data, rb_float_new(info.t), VNEW(info.n)); 
+  }
+  return Qnil;
+}
+
+
+
+//cpCircle
+static VALUE
+rb_cpCircleAlloc(VALUE klass)
+{
+	cpCircleShape *circle = cpCircleShapeAlloc();
+	return Data_Wrap_Struct(klass, NULL, cpShapeFree, circle);
+}
+
+static VALUE
+rb_cpCircleInitialize(VALUE self, VALUE body, VALUE radius, VALUE offset)
+{
+	cpCircleShape *circle = (cpCircleShape *)SHAPE(self);
+	
+	cpCircleShapeInit(circle, BODY(body), NUM2DBL(radius), *VGET(offset));
+	circle->shape.data = (void *)self;
+	circle->shape.collision_type = Qnil;
+
+	rb_ivar_set(self, id_body, body);
+	
+	return self;
+}
+
+
+
+
+
+//cpSegment
+static VALUE
+rb_cpSegmentAlloc(VALUE klass)
+{
+	cpSegmentShape *seg = cpSegmentShapeAlloc();
+	return Data_Wrap_Struct(klass, NULL, cpShapeFree, seg);
+}
+
+static VALUE
+rb_cpSegmentInitialize(VALUE self, VALUE body, VALUE a, VALUE b, VALUE r)
+{
+	cpSegmentShape *seg = (cpSegmentShape *)SHAPE(self);
+	
+	cpSegmentShapeInit(seg, BODY(body), *VGET(a), *VGET(b), NUM2DBL(r));
+	seg->shape.data = (void *)self;
+	seg->shape.collision_type = Qnil;
+
+	rb_ivar_set(self, id_body, body);
+	
+	return self;
+}
+
+
+
+//cpPoly
+#define RBCP_ARRAY_POINTS(ARR, NUM, VERTS)        \
+        Check_Type(ARR, T_ARRAY);                 \
+        VALUE *__rbcp_ptr = RARRAY_PTR(ARR);      \
+        int NUM           = RARRAY_LEN(ARR);      \
+        cpVect VERTS[NUM];                        \
+        for(int i=0; i<NUM; i++)             \
+          VERTS[i] = *VGET(__rbcp_ptr[i]);
+
+
+static VALUE rb_cpPolyValidate(VALUE arr) {
+  RBCP_ARRAY_POINTS(arr, num, verts)
+  return CP_INT_BOOL(cpPolyValidate(verts, num));
+}
+
+
+static VALUE
+rb_cpPolyAlloc(VALUE klass)
+{
+	cpPolyShape *poly = cpPolyShapeAlloc();
+	return Data_Wrap_Struct(klass, NULL, cpShapeFree, poly);
+}
+
+static VALUE
+rb_cpPolyInitialize(VALUE self, VALUE body, VALUE arr, VALUE offset)
+{
+	cpPolyShape *poly = (cpPolyShape *)SHAPE(self);
+	
+	Check_Type(arr, T_ARRAY);
+	int numVerts = RARRAY_LEN(arr);
+	VALUE *ary_ptr = RARRAY_PTR(arr);
+	cpVect verts[numVerts];
+	
+	for(int i=0; i<numVerts; i++)
+		verts[i] = *VGET(ary_ptr[i]);
+	
+	cpPolyShapeInit(poly, BODY(body), numVerts, verts, *VGET(offset));
+	poly->shape.data = (void *)self;
+	poly->shape.collision_type = Qnil;
+
+	rb_ivar_set(self, id_body, body);
+	
+	return self;
+}
+
+// some getters
+static VALUE rb_cpCircleShapeGetOffset(VALUE self) {
+  return VNEW(cpCircleShapeGetOffset(SHAPE(self)));
+}
+
+static VALUE rb_cpCircleShapeGetRadius(VALUE self) {  
+  return rb_float_new(cpCircleShapeGetRadius(SHAPE(self)));
+}
+
+static VALUE rb_cpSegmentShapeGetA(VALUE self) {
+  return VNEW(cpSegmentShapeGetA(SHAPE(self)));
+}
+
+static VALUE rb_cpSegmentShapeGetB(VALUE self) {  
+  return VNEW(cpSegmentShapeGetB(SHAPE(self)));
+}
+
+static VALUE rb_cpSegmentShapeGetRadius(VALUE self) {
+  return rb_float_new(cpSegmentShapeGetRadius(SHAPE(self)));
+}
+
+static VALUE rb_cpSegmentShapeGetNormal(VALUE self) {
+  return VNEW(cpSegmentShapeGetNormal(SHAPE(self)));
+}
+
+static VALUE rb_cpPolyShapeGetNumVerts(VALUE self) {
+  return INT2NUM(cpPolyShapeGetNumVerts(SHAPE(self)));
+}
+
+static VALUE rb_cpPolyShapeGetVert(VALUE self, VALUE vindex) {
+  cpShape *shape     = SHAPE(self);
+  int index          = NUM2INT(vindex);  
+  if ((index < 0) || (index >= cpPolyShapeGetNumVerts(shape))) {  
+    return Qnil;
+  }  
+  return VNEW(cpPolyShapeGetVert(shape, index));
+}
+
+
+void
+Init_cpShape(void)
+{
+	id_body = rb_intern("body");
+	
+	m_cpShape = rb_define_module_under(m_Chipmunk, "Shape");
+	rb_define_attr(m_cpShape, "obj", 1, 1);
+	
+	rb_define_method(m_cpShape, "body", rb_cpShapeGetBody, 0);
+	rb_define_method(m_cpShape, "body=", rb_cpShapeSetBody, 1);
+  
+  rb_define_method(m_cpShape, "sensor?", rb_cpShapeSensorP, 0);
+  rb_define_method(m_cpShape, "sensor=", rb_cpShapeSetSensor, 1);
+  
+	
+	rb_define_method(m_cpShape, "collision_type", rb_cpShapeGetCollType, 0);
+	rb_define_method(m_cpShape, "collision_type=", rb_cpShapeSetCollType, 1);
+	
+  // this method only exists for Chipmunk-FFI compatibility as it seems useless 
+  // to me. 
+  rb_define_method(m_cpShape, "data", rb_cpShapeGetSelf, 0);
+  // So we use this as the object setter
+  rb_define_method(m_cpShape, "object" , rb_cpShapeGetData, 0);
+  rb_define_method(m_cpShape, "object=", rb_cpShapeSetData, 1);
+   
+	rb_define_method(m_cpShape, "group", rb_cpShapeGetGroup, 0);
+	rb_define_method(m_cpShape, "group=", rb_cpShapeSetGroup, 1);
+	
+	rb_define_method(m_cpShape, "layers", rb_cpShapeGetLayers, 0);
+	rb_define_method(m_cpShape, "layers=", rb_cpShapeSetLayers, 1);
+	
+	rb_define_method(m_cpShape, "bb"         , rb_cpShapeCacheBB, 0);
+	rb_define_method(m_cpShape, "cache_bb"   , rb_cpShapeCacheBB, 0);
+  rb_define_method(m_cpShape, "raw_bb"     , rb_cpShapeGetBB, 0); 
+	
+	rb_define_method(m_cpShape, "e", rb_cpShapeGetElasticity, 0);
+	rb_define_method(m_cpShape, "u", rb_cpShapeGetFriction, 0);
+	
+	rb_define_method(m_cpShape, "e=", rb_cpShapeSetElasticity, 1);
+	rb_define_method(m_cpShape, "u=", rb_cpShapeSetFriction, 1);
+	
+	rb_define_method(m_cpShape, "surface_v", rb_cpShapeGetSurfaceV, 0);
+	rb_define_method(m_cpShape, "surface_v=", rb_cpShapeSetSurfaceV, 1);
+  
+  rb_define_method(m_cpShape, "point_query", rb_cpShapePointQuery, 1);
+  rb_define_method(m_cpShape, "segment_query", rb_cpShapeSegmentQuery, 2);
+  
+   
+	
+	rb_define_singleton_method(m_cpShape, "reset_id_counter", rb_cpShapeResetIdCounter, 0);
+ 
+	
+	c_cpCircleShape = rb_define_class_under(m_cpShape, "Circle", rb_cObject);
+	rb_include_module(c_cpCircleShape, m_cpShape);
+	rb_define_alloc_func(c_cpCircleShape, rb_cpCircleAlloc);
+	rb_define_method(c_cpCircleShape, "initialize", rb_cpCircleInitialize, 3);
+	
+	
+	c_cpSegmentShape = rb_define_class_under(m_cpShape, "Segment", rb_cObject);
+	rb_include_module(c_cpSegmentShape, m_cpShape);
+	rb_define_alloc_func(c_cpSegmentShape, rb_cpSegmentAlloc);
+	rb_define_method(c_cpSegmentShape, "initialize", rb_cpSegmentInitialize, 4);
+
+
+	c_cpPolyShape = rb_define_class_under(m_cpShape, "Poly", rb_cObject);
+	rb_include_module(c_cpPolyShape, m_cpShape);
+	rb_define_alloc_func(c_cpPolyShape, rb_cpPolyAlloc);
+	rb_define_singleton_method(c_cpPolyShape, "valid?", rb_cpPolyValidate, 1);
+	
+	rb_define_method(c_cpPolyShape, "initialize", rb_cpPolyInitialize, 3);
+  
+  rb_define_method(c_cpCircleShape, "offset", rb_cpCircleShapeGetOffset, 0);
+  rb_define_method(c_cpCircleShape, "radius", rb_cpCircleShapeGetRadius, 0);
+  rb_define_method(c_cpCircleShape, "r"     , rb_cpCircleShapeGetRadius, 0);
+  
+  rb_define_method(c_cpSegmentShape, "a"      , rb_cpSegmentShapeGetA, 0);
+  rb_define_method(c_cpSegmentShape, "b"      , rb_cpSegmentShapeGetB, 0);
+  rb_define_method(c_cpSegmentShape, "radius" , rb_cpSegmentShapeGetRadius, 0);
+  rb_define_method(c_cpSegmentShape, "r"      , rb_cpSegmentShapeGetRadius, 0);
+  rb_define_method(c_cpSegmentShape, "normal" , rb_cpSegmentShapeGetNormal, 0);
+  rb_define_method(c_cpSegmentShape, "n"      , rb_cpSegmentShapeGetNormal, 0);
+  
+  rb_define_method(c_cpPolyShape   , "num_verts" , rb_cpPolyShapeGetNumVerts, 0);  
+  rb_define_method(c_cpPolyShape   , "vert"      , rb_cpPolyShapeGetVert, 1);
+  // also include an array-ish interface
+  rb_define_method(c_cpPolyShape   , "length"    , rb_cpPolyShapeGetNumVerts, 0);
+  rb_define_method(c_cpPolyShape   , "size"      , rb_cpPolyShapeGetNumVerts, 0);
+  rb_define_method(c_cpPolyShape   , "[]"        , rb_cpPolyShapeGetVert, 1);
+	
+  /* Use a struct for this small class. More efficient. */
+  c_cpSegmentQueryInfo = rb_struct_define("SegmentQueryInfo",
+                         "shape", "t", "n", NULL);
+  rb_define_const(m_Chipmunk, "SegmentQueryInfo", c_cpSegmentQueryInfo);   
+  
+}
+//