capture current incorrect Cylinder with non-square domain

Author: mohawk2

t/graph.t

@@ -27,6 +27,13 @@ is_pdl $cyl->transform($points2->zeroes, $points2, $inds), float('
   0.413176 0 0.101756; 0.586824 1 0.050878
 ');
 
+$cyl->init_scale;
+$cyl->add_scale(my $points3 = float('-80 -80 800; 80 50 900'), $inds);
+$cyl->finish_scale;
+is_pdl $cyl->transform($points2->zeroes, $points3, $inds), float('
+  0.413176 -0.388889 0.101756; 0.821394  1.055555 0.050878
+');
+
 my $pol = PDL::Graphics::TriD::PolarStereoAxes->new;
 $pol->init_scale;
 $pol->add_scale($points2, $inds);