chipmunk 4.1.0

data/ext/chipmunk/rb_cpJoint.c

@@ -0,0 +1,136 @@
+/* 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"
+
+VALUE m_cpJoint;
+
+static VALUE
+rb_cpPinJointAlloc(VALUE klass)
+{
+	cpPinJoint *joint = cpPinJointAlloc();
+	VALUE self = Data_Wrap_Struct(klass, NULL, cpJointFree, joint);
+	
+	return self;
+}
+
+static VALUE
+rb_cpPinJointInit(VALUE self, VALUE a, VALUE b, VALUE anchr1, VALUE anchr2)
+{
+	cpPinJoint *joint = (cpPinJoint *)JOINT(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;
+}
+
+
+static VALUE
+rb_cpSlideJointAlloc(VALUE klass)
+{
+	cpSlideJoint *joint = cpSlideJointAlloc();
+	VALUE self = Data_Wrap_Struct(klass, NULL, cpJointFree, joint);
+	
+	return self;
+}
+
+static VALUE
+rb_cpSlideJointInit(VALUE self, VALUE a, VALUE b, VALUE anchr1, VALUE anchr2, VALUE min, VALUE max)
+{
+	cpSlideJoint *joint = (cpSlideJoint *)JOINT(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;
+}
+
+
+static VALUE
+rb_cpPivotJointAlloc(VALUE klass)
+{
+	cpPivotJoint *joint = cpPivotJointAlloc();
+	VALUE self = Data_Wrap_Struct(klass, NULL, cpJointFree, joint);
+	
+	return self;
+}
+
+static VALUE
+rb_cpPivotJointInit(VALUE self, VALUE a, VALUE b, VALUE pivot)
+{
+	cpPivotJoint *joint = (cpPivotJoint *)JOINT(self);
+	cpPivotJointInit(joint, BODY(a), BODY(b), *VGET(pivot));
+	rb_iv_set(self, "body_a", a);
+	rb_iv_set(self, "body_b", b);
+	
+	return self;
+}
+
+
+static VALUE
+rb_cpGrooveJointAlloc(VALUE klass)
+{
+	cpGrooveJoint *joint = cpGrooveJointAlloc();
+	VALUE self = Data_Wrap_Struct(klass, NULL, cpJointFree, joint);
+	
+	return self;
+}
+
+static VALUE
+rb_cpGrooveJointInit(VALUE self, VALUE a, VALUE b, VALUE grv_a, VALUE grv_b, VALUE anchr2)
+{
+	cpGrooveJoint *joint = (cpGrooveJoint *)JOINT(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;
+}
+
+void
+Init_cpJoint(void)
+{
+	m_cpJoint = rb_define_module_under(m_Chipmunk, "Joint");	
+	
+	VALUE c_cpPinJoint = rb_define_class_under(m_cpJoint, "Pin", rb_cObject);
+	rb_include_module(c_cpPinJoint, m_cpJoint);
+	rb_define_alloc_func(c_cpPinJoint, rb_cpPinJointAlloc);
+	rb_define_method(c_cpPinJoint, "initialize", rb_cpPinJointInit, 4);
+	
+	VALUE c_cpSlideJoint = rb_define_class_under(m_cpJoint, "Slide", rb_cObject);
+	rb_include_module(c_cpSlideJoint, m_cpJoint);
+	rb_define_alloc_func(c_cpSlideJoint, rb_cpSlideJointAlloc);
+	rb_define_method(c_cpSlideJoint, "initialize", rb_cpSlideJointInit, 6);
+	
+	VALUE c_cpPivotJoint = rb_define_class_under(m_cpJoint, "Pivot", rb_cObject);
+	rb_include_module(c_cpPivotJoint, m_cpJoint);
+	rb_define_alloc_func(c_cpPivotJoint, rb_cpPivotJointAlloc);
+	rb_define_method(c_cpPivotJoint, "initialize", rb_cpPivotJointInit, 3);
+	
+	VALUE c_cpGrooveJoint = rb_define_class_under(m_cpJoint, "Groove", rb_cObject);
+	rb_include_module(c_cpGrooveJoint, m_cpJoint);
+	rb_define_alloc_func(c_cpGrooveJoint, rb_cpGrooveJointAlloc);
+	rb_define_method(c_cpGrooveJoint, "initialize", rb_cpGrooveJointInit, 5);
+}

data/ext/chipmunk/rb_cpShape.c

@@ -0,0 +1,292 @@
+/* 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);
+}