Skip to content

Commit 4c38f68

Browse files
committed
fix CylindricalEquidistantAxes coord calculation
1 parent 42bb440 commit 4c38f68

File tree

1 file changed

+2
-2
lines changed
  • lib/PDL/Graphics/TriD

1 file changed

+2
-2
lines changed

lib/PDL/Graphics/TriD/GL.pm

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -78,8 +78,8 @@ sub PDL::Graphics::TriD::CylindricalEquidistantAxes::togl {
7878
# can be changed to topo heights?
7979
my $verts = zeroes(3,$ns[0],$ns[1]);
8080
$verts->slice("2") .= 1012.5;
81-
$verts->slice("0") .= $verts->ylinvals($nc[0],$nc[0]+$nadd[0]*($ns[0]-1));
82-
$verts->slice("1") .= $verts->zlinvals($nc[1],$nc[1]+$nadd[1]*($ns[1]-1));
81+
$verts->slice("0") .= $verts->slice("0")->ylinvals($nc[0],$nc[0]+$nadd[0]*($ns[0]-1));
82+
$verts->slice("1") .= $verts->slice("0")->zlinvals($nc[1],$nc[1]+$nadd[1]*($ns[1]-1));
8383
my $tverts = zeroes(3,$ns[0],$ns[1]);
8484
$tverts = $this->transform($tverts,$verts,[0,1,2]);
8585
glDisable(GL_LIGHTING);

0 commit comments

Comments
 (0)