https://bugzilla.redhat.com/show_bug.cgi?id=1410774
--- Comment #3 from Petr Pisar ppisar@redhat.com --- This is the minimal reproducer:
use PDL; use PDL::Config; use PDL::Graphics::PLplot;
my $dev = 'xfig';
# Test shade plotting (low level interface) plsdev ($dev); plsfnam ("test12.$dev"); plspage (0,0, 600,600, 0,0); plinit(); pladv (0); plvpor(0.1, 0.9, 0.1, 0.9); plwind (-1, 1, -1, 1); plpsty(0);
my $nx = 35; my $ny = 46; my $x = (sequence($nx) - ($nx/2))/($nx/2); my $y = (sequence($ny) - ($ny/2))/(($ny/2) - 1.0); my $xv = $x->dummy(1, $y->nelem); my $yv = $y->dummy(0, $x->nelem); my $z = -sin(7*$xv) * cos (7*$yv) + $xv**2 - $yv**2; my $nsteps = 15; my ($zmin, $zmax) = $z->minmax; my $clevel = ((sequence($nsteps)*(($zmax - $zmin)/($nsteps-1))) + $zmin); my $xmap = ((sequence($nx)*(2/($nx-1))) + -1); # map X coords linearly to -1 to 1 my $ymap = ((sequence($ny)*(2/($ny-1))) + -1); my $grid = plAllocGrid ($xmap, $ymap); plshades($z, -1, 1, -1, 1, $clevel, 2, 0, 0, 1, 0, &pltr1, $grid);