https://bugzilla.redhat.com/show_bug.cgi?id=1410774 --- Comment #3 from Petr Pisar <ppisar@xxxxxxxxxx> --- 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); -- You are receiving this mail because: You are on the CC list for the bug. _______________________________________________ perl-devel mailing list -- perl-devel@xxxxxxxxxxxxxxxxxxxxxxx To unsubscribe send an email to perl-devel-leave@xxxxxxxxxxxxxxxxxxxxxxx
