create all ::GL ndarrays with float, not default type

Author: mohawk2

lib/PDL/Graphics/TriD/Contours.pm

@@ -114,7 +114,7 @@ sub new{
 #
   my $cvals;
   if (!defined($this->{Options}{ContourVals}) || $this->{Options}{ContourVals}->isempty){
-    $cvals=zeroes(int(($this->{Options}{ContourMax}-$this->{Options}{ContourMin})/$this->{Options}{ContourInt}+1));
+    $cvals=zeroes(float(), int(($this->{Options}{ContourMax}-$this->{Options}{ContourMin})/$this->{Options}{ContourInt}+1));
     $cvals = $cvals->xlinvals($this->{Options}{ContourMin},$this->{Options}{ContourMax});
   }else{
     $cvals = $this->{Options}{ContourVals};

lib/PDL/Graphics/TriD/GL.pm

@@ -76,11 +76,11 @@ sub PDL::Graphics::TriD::CylindricalEquidistantAxes::togl {
     $ns[$dim] = int($width/$nadd[$dim])+1;
   }
   # can be changed to topo heights?
-  my $verts = zeroes(3,$ns[0],$ns[1]);
+  my $verts = zeroes(PDL::float(),3,$ns[0],$ns[1]);
   $verts->slice("2") .= 1012.5;
   $verts->slice("0") .= $verts->slice("0")->ylinvals($nc[0],$nc[0]+$nadd[0]*($ns[0]-1));
   $verts->slice("1") .= $verts->slice("0")->zlinvals($nc[1],$nc[1]+$nadd[1]*($ns[1]-1));
-  my $tverts = zeroes(3,$ns[0],$ns[1]);
+  my $tverts = zeroes(PDL::float(),3,$ns[0],$ns[1]);
   $tverts = $this->transform($tverts,$verts,[0,1,2]);
   glDisable(GL_LIGHTING);
   glColor3d(1,1,1);
@@ -106,7 +106,7 @@ sub PDL::Graphics::TriD::CylindricalEquidistantAxes::togl {
 sub PDL::Graphics::TriD::EuclidAxes::gdraw {
   my ($this, $points) = @_;
   print "gdraw: got object type " . ref($this) . "\n" if $PDL::Graphics::TriD::verbose;
-  my $axisvals = zeroes(3,$this->{NDiv}+1)->ylinvals($this->{Scale}->dog)->t->flat->t;
+  my $axisvals = zeroes(PDL::float(),3,$this->{NDiv}+1)->ylinvals($this->{Scale}->dog)->t->flat->t;
   my @label = map sprintf("%.3f", $_), @{ $axisvals->flat->unpdl };
   push @label, @{$this->{Names}};
   glColor3d(1,1,1);

lib/PDL/Graphics/TriD/Graph.pm

@@ -133,8 +133,8 @@ sub new {
   my $class = $_[0];
   my $options = ref($_[-1]) eq 'HASH' ? pop : $class->get_valid_options;
   my $ndiv = $options->{NDiv};
-  my $points = zeroes(3,3)->append(my $id3 = identity(3));
-  my $starts = zeroes(1,$ndiv+1)->ylinvals(0,1)->append(zeroes(2,$ndiv+1));
+  my $points = zeroes(PDL::float(),3,3)->append(my $id3 = identity(3));
+  my $starts = zeroes(PDL::float(),1,$ndiv+1)->ylinvals(0,1)->append(zeroes(PDL::float(),2,$ndiv+1));
   my $ends = $starts + append(0, ones 2) * -0.1;
   my $dupseq = yvals($ndiv+1,3)->flat;
   $_ = $_->dup(1,3)->rotate($dupseq) for $starts, $ends;

lib/PDL/Graphics/TriD/Objects.pm

@@ -217,7 +217,7 @@ sub smoothn {
   my $ortho = $trip->crossp($trid);
   $ortho->norm($ortho); # normalise inplace
   # now add to vertices to smooth
-  my $aver = ref($p)->zeroes($p->dims);
+  my $aver = ref($p)->zeroes(PDL::float(), $p->dims);
   # step 1, upper right tri0, upper left tri1
   $aver->lags(1,1,2)->slice(':,:,:,1:-1') += $ortho;
   # step 2, lower right tri0, lower left tri1