extract Scale vars in Pol::transform

Author: mohawk2

lib/PDL/Graphics/TriD/Graph.pm

@@ -419,13 +419,15 @@ sub transform {
   my $i = 0;
   barf "Wrong number of arguments to transform $this\n" if @$inds != 3;
   $data = $data->dice_axis(0, $inds);
+  my ($longrange, $latrange) = map $this->{Scale}[$_][1] - $this->{Scale}[$_][0], 0,1;
+  my $pressure_max = $this->{Scale}[2][1];
   $point->slice("(0)") +=
     0.5+($data->slice("(0)")-$this->{Center}[0]) /
-      ($this->{Scale}[0][1] - $this->{Scale}[0][0])
+      $longrange
 	*cos($data->slice("(1)")*DEG2RAD);
   $point->slice("(1)") +=
     0.5+($data->slice("(1)")-$this->{Center}[1]) /
-      ($this->{Scale}[1][1] - $this->{Scale}[1][0])
+      $latrange
 	*cos($data->slice("(1)")*DEG2RAD);
 # Longitude transformation
 #  $point->slice("(0)") =
@@ -436,7 +438,7 @@ sub transform {
 # Vertical transformation
 #  -7.2*log($data->slice("(2)")/1012.5
   $point->slice("(2)") .=
-    log($data->slice("(2)")/1012.5)/log($this->{Scale}[2][1]/1012.5);
+    log($data->slice("(2)")/1012.5)/log($pressure_max/1012.5);
   $point;
 }