File Coverage

blib/lib/Math/SO3.pm

Criterion	Covered	Total	%
statement	33	39	84.6
branch	6	12	50.0
condition			n/a
subroutine	6	7	85.7
pod	0	5	0.0
total	45	63	71.4

package Math::SO3;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;
require DynaLoader;
require AutoLoader;

@ISA = qw(Exporter DynaLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(

);
$VERSION = '0.90';

bootstrap Math::SO3 $VERSION;

# Preloaded methods go here.

sub format_matrix
  {
    my($self, $how)=@_;
    my(@elems);

    $how="%10.5f" unless defined($how);

    @elems=unpack "d9", $$self;

    sprintf "[[$how $how $how] [$how $how $how] [$how $how $how]]", @elems;
  }

sub format_eigenvector
  {
    my($self, $how)=@_;
    my($angle, $dir_str, @dir);

    $how="%10.5f" unless defined($how);

    ($angle, $dir_str)=$self->turning_angle_and_dir("d");

    if(defined($angle))
      {
	@dir=unpack "d3", $dir_str;
	sprintf "",
	        $angle, @dir;
      }
    else
      {
	"";
      }
  }

sub format_euler_zxz
  {
    my($self, $how)=@_;
    my($phi, $theta, $psi);

    $how="%10.5f" unless defined($how);

    ($phi, $theta, $psi)=$self->euler_angles_zxz('d');

    sprintf "",
    $psi, $theta, $phi;
  }


sub format_euler_yxz
  {
    my($self, $how)=@_;
    my($heading, $pitch, $roll);

    $how="%10.5f" unless defined($how);

    ($heading, $pitch, $roll)=$self->euler_angles_yxz('d');

    sprintf "",
    $heading, $pitch, $roll;
  }


sub new
  {
    my($class, @args)=@_;
    my($so3, $x);

    if($x=ref $class)
      {
	$so3=\ ($$class.''); # copy-constructor
	$class=$x;
      }
    else
      {
	$so3=\ (pack "d9", 1,0,0, 0,1,0, 0,0,1);
      }
    $|=1;
    bless $so3, $class;
    $so3->turn(@args);
    $so3;
  }



# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__