test normalise_as

Author: mohawk2

MANIFEST

@@ -41,5 +41,6 @@ MANIFEST			This list of files
 MANIFEST.SKIP
 t/arcball.t
 t/graph.t
+t/object.t
 t/objects.t
 t/quaternion.t

lib/PDL/Graphics/TriD/Object.pm

@@ -4,6 +4,7 @@ use strict;
 use warnings;
 use Scalar::Util qw(weaken);
 use Carp 'confess';
+use PDL::ImageND;
 
 use fields qw(Objects IsValid ChangedSub Impl Options);
 

t/object.t

@@ -0,0 +1,35 @@
+use strict;
+use warnings;
+use PDL;
+use PDL::Graphics::TriD::Object;
+use Test::More;
+use Test::PDL;
+
+my $o = PDL::Graphics::TriD::Object->new;
+eval { $o->normalise_as('', [pdl(1)]) };
+like $@, qr/Must have 3 coordinates if no interpretation/;
+is_pdl $o->normalise_as('', [pdl(1), pdl(4), pdl(7)]), float(1,4,7);
+eval { $o->normalise_as('COLOR', pdl(1,4,7)) };
+like $@, qr/Given 1D ndarray as colour but no points to match/;
+
+sub PDL::Graphics::TriD::Object::cdummies { $_[1]->dummy(1,$_[2]->getdim(1)); }
+is_pdl $o->normalise_as('COLOR', pdl(1,4,7), zeroes(2,4)), float('1 4 7; 1 4 7; 1 4 7; 1 4 7');
+
+is_pdl $o->normalise_as('', [SURF2D=>pdl('1 4 7;5 8 9')]), float('
+  [0 0 1; 1 0 4; 2 0 7]
+  [0 1 5; 1 1 8; 2 1 9]
+');
+
+is_pdl $o->normalise_as('', [LINE=>pdl('1 4 7'), pdl('5 8 9')]), float('
+  1 5 0; 4 8 1; 7 9 2
+');
+is_pdl $o->normalise_as('', [LINE=>pdl('1 4 7')]), float('
+  0 1 0; 1 4 0; 2 7 0
+');
+
+is_pdl $o->normalise_as('', [POLAR2D=>pdl('1 4 7;5 8 9')]), float('
+  [0 0 1; 0         0 4;  0        0 7]
+  [0 1 5; 0.000092 -1 8; -0.000185 1 9]
+');
+
+done_testing;