Math::Geometry - Geometry related functions
use Math::Geometry; @P2=rotx(@P1,$angle); @P3=rotx(@P1,$angle); @N =triangle_normal(@P1,@P2,@P3); @ZP=zplane_project(@P1,$d);
This is about to get a massive overhaul, but first im adding tests, lots of lovely lovely tests.
Currently for zplane_project onto a plane with normal of the z axis and z=0, the function returns the orthographic projections as opposed to a perspective projection. I'm currently looking into how to properly handle z=0 and will update it shortly.
This package implements classic geometry methods. It should be considered alpha software and any feedback at all is greatly appreciated. The following methods are available:
Also known as the cross product, given two vectors in Geometry space, the vector_product of the two vectors, is a vector which is perpendicular to the plane of AB with length equal to the length of A multiplied by the length of B, multiplied by the sin of @, where @ is the angle between the two vectors.
Given a triangle ABC that defines a plane P. This function will return a vector N, which is a normal to the plane P.
($Nx,$Ny,$Nz) = triangle_normal(($Ax,$Ay,$Az),($Bx,$By,$Bz),($Cx,$Cy,$Cz));
Project a point in Geometry space onto a plane with the z-axis as the normal, at a distance d from z=0.
($x2,$y2,$z2) = zplane_project ($x1,$y1,$z1,$d);
Rotate about the x axis r radians.
($x2,$y2,$z2) = rotx ($x1,$y1,$z1,$r);
Rotate about the y axis r radians.
($x2,$y2,$z2) = roty ($x1,$y1,$z1,$r);
Rotate about the z axis r radians.
($x2,$y2,$z2) = rotz ($x1,$y1,$z1,$r);
Convert degree's to radians.
Convert radians to degree's.
Returns an approximate value of Pi, the code has been cribed from Pg146, Programming Perl 2nd Ed.
Greg McCarroll <email@example.com> - http://www.mccarroll.org.uk/~gem/
Copyright 2006 by Greg McCarroll <firstname.lastname@example.org>
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.