replace with actual broadcast

Author: mohawk2

lib/PDL/Graphics/TriD.pm

@@ -899,7 +899,6 @@ sub PDL::contour3d {
   graph_object(PDL::Graphics::TriD::Contours->new(@_));
 }
 
-# XXX Should enable different positioning...
 *imagrgb3d=*imagrgb3d=\&PDL::imagrgb3d;
 sub PDL::imagrgb3d { &checkargs;
   require PDL::Graphics::TriD::Image;

lib/PDL/Graphics/TriD/Graph.pm

@@ -25,7 +25,7 @@ PDL::Graphics::TriD::Graph - PDL 3D graph object with axes
 use strict;
 use warnings;
 use base qw/PDL::Graphics::TriD::Object/;
-use PDL::LiteF; # XXX F needed?
+use PDL::LiteF;
 use PDL::Graphics::TriD::Objects; # axes use Lines etc
 
 use fields qw(Data DataBind UnBound DefaultAxes DefaultAxisName Axis );

lib/PDL/Graphics/TriD/Object.pm

@@ -67,14 +67,7 @@ sub realcoords {
   } elsif (@c == 2 and $type eq "LINE") {
     @c = (@c[0,1], $c[0]->xvals);
   }
-  # XXX
   confess "Must have 3 coordinates if no interpretation (here '$type')" if @c != 3;
-  # allow a constant (either pdl or not) to be introduced in one dimension
-  foreach(0..2) {
-    if (ref($c[$_]) ne "PDL" or $c[$_]->nelem==1) {
-      $c[$_] = $c[$_]*(PDL->ones($c[($_+1)%3]->dims));
-    }
-  }
   my $g = PDL::ImageND::combcoords(@c);
   $g->dump if $PDL::Graphics::TriD::verbose;
   $g;

lib/PDL/Graphics/TriD/Quaternion.pm

@@ -5,8 +5,6 @@
 # Should probably use PDL and C... ?
 #
 # Stored as [c,x,y,z].
-#
-# XXX REMEMBER!!!! First component = cos(angle/2), *NOT* cos(angle)
 
 package PDL::Graphics::TriD::Quaternion;