chipmunk 4.1.0 → 5.2.0

data/ext/chipmunk/rb_cpConstraint.c

@@ -0,0 +1,346 @@
+/* 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, Anchr2)
+
+/*
+These are for later, when Chipmunk C supports them. 
+MAKE_VEC_ACCESSORS(cpGrooveJoint, Grv_a)
+MAKE_VEC_ACCESSORS(cpGrooveJoint, Grv_b)
+MAKE_VEC_ACCESSORS(cpGrooveJoint, Grv_n)
+MAKE_VEC_ACCESSORS(cpGrooveJoint, R1)
+MAKE_VEC_ACCESSORS(cpGrooveJoint, R2)
+MAKE_VEC_ACCESSORS(cpGrooveJoint, K1)
+MAKE_VEC_ACCESSORS(cpGrooveJoint, K2)
+MAKE_VEC_ACCESSORS(cpGrooveJoint, Bias)
+MAKE_VEC_ACCESSORS(cpGrooveJoint, JAcc)
+MAKE_FLT_ACCESSORS(cpGrooveJoint, Clamp)
+MAKE_FLT_ACCESSORS(cpGrooveJoint, JMaxLen)
+*/
+
+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)
+
+
+#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(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);
+	
+	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_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_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_cpGrooveJoint = make_class("GrooveJoint", rb_cpGrooveJoint_alloc, rb_cpGrooveJoint_init, 5);
+	ACCESSOR_METHODS(cpGrooveJoint, Anchr2, anchr2)
+  
+ /* 
+  ACCESSOR_METHODS(cpGrooveJoint, Clamp, clamp)
+  ACCESSOR_METHODS(cpGrooveJoint, JMaxLen, 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 groove joint accessors
+	
+	// TODO breakable joint
+}

data/ext/chipmunk/rb_cpShape.c

@@ -1,292 +1,455 @@
-/* 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 "chipmunk.h"
-
-#include "ruby.h"
-#include "rb_chipmunk.h"
-
-ID id_body;
-
-VALUE m_cpShape;
-VALUE c_cpCircleShape;
-VALUE c_cpSegmentShape;
-VALUE c_cpPolyShape;
-
-
-
-static VALUE
-rb_cpShapeGetBody(VALUE self)
-{
-	return rb_ivar_get(self, id_body);
-}
-
-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_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;
-}
-
-
-
-//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
-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);
-	cpVect verts[numVerts];
-	
-	for(int i=0; i<numVerts; i++)
-		verts[i] = *VGET(RARRAY_PTR(arr)[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;
-}
-
-
-
-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, "collision_type", rb_cpShapeGetCollType, 0);
-	rb_define_method(m_cpShape, "collision_type=", rb_cpShapeSetCollType, 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_cpShapeGetBB, 0);
-	rb_define_method(m_cpShape, "cache_bb", rb_cpShapeCacheBB, 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_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_method(c_cpPolyShape, "initialize", rb_cpPolyInitialize, 3);
-}
+/* 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;
+
+//c_cpSegmentQueryInfo
+GETTER_TEMPLATE(SQINFO, c_cpSegmentQueryInfo, cpSegmentQueryInfo)
+
+static cpSegmentQueryInfo * cpSegmentQueryInfoAlloc() 
+{
+  return malloc(sizeof(cpSegmentQueryInfo));
+}
+
+static cpSegmentQueryInfo * cpSegmentQueryInfoInit(cpSegmentQueryInfo * self, 
+  cpShape * shape, cpFloat t, cpVect n) 
+{
+  self->shape = shape;
+  self->t     = t;
+  self->n     = n;
+  return self;
+}
+
+static VALUE
+rb_cpSegmentQueryInfoAlloc(VALUE klass)
+{
+  struct cpSegmentQueryInfo * info = cpSegmentQueryInfoAlloc();  
+  return Data_Wrap_Struct(klass, NULL, free, info);
+}
+
+static VALUE
+rb_cpSeqmentQueryInfoInitialize(VALUE self, VALUE shape, VALUE t, VALUE n)
+{
+  struct cpSegmentQueryInfo * info;
+  info        = SQINFO(self);
+  cpSegmentQueryInfoInit(info, SHAPE(shape), NUM2DBL(t), *VGET(n));
+  return self;
+}
+
+static VALUE
+rb_cpSeqmentQueryInfoGetShape(VALUE self) 
+{
+  cpShape * shape = SQINFO(self)->shape;
+  if (!shape) return Qnil;  
+  //XXX: technically speaking, this is wrong... :p. 
+  // It's hard to wrap, though...
+  return (VALUE) SQINFO(self)->shape->data;
+  // return Qtrue;
+  // return Data_Wrap_Struct(c_cpShape, 0, cpShapeFree, SQINFO(self)->shape);
+}
+
+static VALUE
+rb_cpSeqmentQueryInfoGetT(VALUE self) 
+{
+  return rb_float_new(SQINFO(self)->t);
+}
+
+static VALUE
+rb_cpSeqmentQueryInfoGetN(VALUE self) 
+{  
+  return VNEW(SQINFO(self)->n);
+}
+
+static VALUE
+rb_cpSeqmentQueryInfoHitPoint(VALUE self, VALUE start, VALUE end)
+{
+  return VNEW(cpSegmentQueryHitPoint(*VGET(start), *VGET(end), *SQINFO(self)));
+}
+
+static VALUE
+rb_cpSeqmentQueryInfoHitDist(VALUE self, VALUE start, VALUE end)
+{
+  return rb_float_new(cpSegmentQueryHitDist(*VGET(start), *VGET(end), *SQINFO(self)));
+}
+
+
+//c_cpShape
+static VALUE
+rb_cpShapeGetBody(VALUE self)
+{
+	return rb_ivar_get(self, id_body);
+}
+
+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_cpShapeGetGroup(VALUE self)
+{
+	return rb_iv_get(self, "group");
+}
+
+static VALUE
+rb_cpShapeSetGroup(VALUE self, VALUE val)
+{
+  VALUE group_type = rb_obj_id(val);
+  rb_iv_set(self, "group", val);
+  
+  if (val == rb_intern("no_group")) {
+    SHAPE(self)->group = CP_NO_GROUP;
+  } else {   
+    SHAPE(self)->group = NUM2UINT(group_type);
+  } 
+	
+  return val;
+}
+
+static VALUE
+rb_cpShapeGetLayers(VALUE self)
+{
+  if(SHAPE(self)->layers == CP_ALL_LAYERS) { 
+    return rb_intern("all_layers");
+  }  
+  return UINT2NUM(SHAPE(self)->layers);
+}
+
+static VALUE
+rb_cpShapeSetLayers(VALUE self, VALUE layers)
+{
+  if (layers == rb_intern("all_layers")) { 
+    SHAPE(self)->layers = CP_ALL_LAYERS;
+	} else { 
+    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;
+}
+
+static VALUE
+rb_cpShapeGetData(VALUE self)
+{
+  return (VALUE) (SHAPE(self)->data);
+}
+
+
+static VALUE
+rb_cpShapeGetSensor(VALUE self)
+{
+  int bool = (SHAPE(self)->sensor);  
+  return bool ? Qtrue : Qfalse;
+}
+
+static VALUE
+rb_cpShapeSetSensor(VALUE self, VALUE val)
+{
+  int bool = ((val == Qnil) || (val == Qfalse)) ? 0 :  1;
+  SHAPE(self)->sensor = bool;    
+  return val;
+}
+
+static VALUE 
+rb_cpShapePointQuery(VALUE self, VALUE point) {  
+  int bool = cpShapePointQuery(SHAPE(self), *VGET(point));
+  return bool ? Qtrue : Qfalse;
+}
+
+// Shape/segment query
+static VALUE
+rb_cpShapeSegmentQuery(VALUE self, VALUE a, VALUE b) 
+{
+  cpSegmentQueryInfo * info = cpSegmentQueryInfoAlloc();
+  int bool = cpShapeSegmentQuery(SHAPE(self), *VGET(a), *VGET(b), info);
+  if (bool) {  
+    return Data_Wrap_Struct(c_cpSegmentQueryInfo, NULL, free, info);
+  } else {
+    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
+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;
+}
+
+
+
+
+
+
+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, "collision_type", rb_cpShapeGetCollType, 0);
+	rb_define_method(m_cpShape, "collision_type=", rb_cpShapeSetCollType, 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_cpShapeGetBB, 0);
+	rb_define_method(m_cpShape, "cache_bb", rb_cpShapeCacheBB, 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, "data"       , rb_cpShapeGetData, 0);  
+  /* 
+  XXX: do we need data= ? Data is used internally, so perhaps what 
+  chipmunk-ffi isdoing doesn't make sense here?
+  */   
+  rb_define_method(m_cpShape, "sensor"  , rb_cpShapeGetSensor, 0);
+  rb_define_method(m_cpShape, "sensor?" , rb_cpShapeGetSensor, 0);
+  rb_define_method(m_cpShape, "sensor=" , rb_cpShapeSetSensor, 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_method(c_cpPolyShape, "initialize", rb_cpPolyInitialize, 3);
+  
+  
+  c_cpSegmentQueryInfo = rb_define_class_under(m_cpShape, 
+    "SegmentQueryInfo", rb_cObject);
+  rb_define_alloc_func(c_cpSegmentQueryInfo, rb_cpSegmentQueryInfoAlloc);
+  rb_define_method(c_cpSegmentQueryInfo, "initialize",
+    rb_cpSeqmentQueryInfoInitialize, 3);
+    
+  rb_define_method(c_cpSegmentQueryInfo, "shape", 
+    rb_cpSeqmentQueryInfoGetShape, 0);
+  rb_define_method(c_cpSegmentQueryInfo, "hit", 
+    rb_cpSeqmentQueryInfoGetShape, 0);  
+  rb_define_method(c_cpSegmentQueryInfo, "t", 
+    rb_cpSeqmentQueryInfoGetT, 0);
+  rb_define_method(c_cpSegmentQueryInfo, "n", 
+    rb_cpSeqmentQueryInfoGetN, 0);
+  rb_define_method(c_cpSegmentQueryInfo, "hit_point", 
+    rb_cpSeqmentQueryInfoHitPoint, 2);    
+  rb_define_method(c_cpSegmentQueryInfo, "hit_distance", 
+    rb_cpSeqmentQueryInfoHitDist, 2);
+  
+}
+