Add plane class

Author: jtpalmer

lib/ODE/Collision/Plane.pm

@@ -0,0 +1,38 @@
+package ODE::Collision::Plane;
+use strict;
+use warnings;
+use vars qw(@ISA);
+require DynaLoader;
+our @ISA = qw(DynaLoader);
+
+bootstrap ODE::Collision::Plane;
+
+1;
+
+__END__
+
+=head1 NAME
+
+ODE::Collision::Plane - Plane Geometry for Collision Detection
+
+=head1 SYNOPSIS
+
+  use ODE;
+  use ODE::Collision::Plane;
+
+=head1 METHODS
+
+
+
+=head1 ACKNOWLEDGEMENTS
+
+Documentation almost taken verbatim from L<ODE's|http://opende.sourceforge.net/docs/group__collide__sphere.html>.
+
+=head1 AUTHORS
+
+See L<ODE/AUTHORS>.
+
+=head1 COPYRIGHT AND LICENSE
+
+See L<ODE/COPYRIGHT AND LICENSE>.
+

lib/ODE/Collision/Plane.xs

@@ -0,0 +1,44 @@
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+#include "ppport.h"
+#include "helper.h"
+
+#include <ode/ode.h>
+
+MODULE = ODE::Collision::Plane		PACKAGE = ODE::Collision::Plane		PREFIX = ocp_
+
+dGeomID
+ocp_create_plane( space, a, b, c, d )
+		dSpaceID space
+		dReal a
+		dReal b
+		dReal c
+		dReal d
+	PREINIT:
+		char *CLASS = "ODE::Collision::Plane";
+	CODE:
+		RETVAL = dCreatePlane( space, a, b, c, d );
+	OUTPUT:
+		RETVAL
+
+void
+ocp_set_params( plane, a, b, c, d )
+		dGeomID plane
+		dReal a
+		dReal b
+		dReal c
+		dReal d
+	CODE:
+		dGeomPlaneSetParams( plane, a, b, c, d );
+
+AV *
+ocp_get_params( plane )
+		dGeomID plane
+	CODE:
+		dVector4 params;
+		dGeomPlaneGetParams( plane, params );
+		RETVAL = dv4_to_av(params);
+	OUTPUT:
+		RETVAL
+

src/helper.h

@@ -13,6 +13,17 @@ AV *dv3_to_av( dVector3 v )
 	return array_ref;
 }
 
+AV *dv4_to_av( dVector4 v )
+{
+	AV* array_ref = newAV();
+	av_push( array_ref, newSVnv(v[0]) );
+	av_push( array_ref, newSVnv(v[1]) );
+	av_push( array_ref, newSVnv(v[2]) );
+	av_push( array_ref, newSVnv(v[3]) );
+	sv_2mortal( (SV *)array_ref );
+	return array_ref;
+}
+
 AV *ptr_to_av( dReal *p, int count )
 {
 	AV* array_ref = newAV();

t/00-load.t

@@ -5,11 +5,12 @@ use Test::Most 'bail';
 BEGIN {
 	my @modules = qw /
 		ODE
-		ODE::Collision::Sphere
 		ODE::Collision::Box
+		ODE::Collision::Plane
 		ODE::Collision::Space
-		ODE::Objects::World
+		ODE::Collision::Sphere
 		ODE::Objects::Body
+		ODE::Objects::World
 		/;
 	plan tests => scalar @modules;
 

t/01-plane.t

@@ -0,0 +1,29 @@
+#!perl
+use strict;
+use warnings;
+use Test::More;
+use ODE::Collision::Space;
+use ODE::Collision::Plane;
+
+can_ok( 'ODE::Collision::Plane', qw( create_plane set_params get_params ) );
+
+my $space_id = ODE::Collision::Space::simple_space_create();
+
+# params (a, b, c, d) where (a, b, c) is a unit vector
+my @params = ( 0.3, 0.4, undef, 0.6 );
+$params[2] = sqrt( 1 - $params[0] * $params[0] - $params[1] * $params[1] );
+
+my $plane = ODE::Collision::Plane::create_plane($space_id, @params);
+ok( $plane, 'create_plane' );
+
+cmp_ok( abs( ODE::Collision::Plane::get_params($plane)->[0] - $params[0] ),
+    '<', 1e-5, 'get_params a' );
+cmp_ok( abs( ODE::Collision::Plane::get_params($plane)->[1] - $params[1] ),
+    '<', 1e-5, 'get_params b' );
+cmp_ok( abs( ODE::Collision::Plane::get_params($plane)->[2] - $params[2] ),
+    '<', 1e-5, 'get_params c' );
+cmp_ok( abs( ODE::Collision::Plane::get_params($plane)->[3] - $params[3] ),
+    '<', 1e-5, 'get_params d' );
+
+done_testing();
+