From 1fc7bf85a7642255761aca8707e98a3aa3a67448 Mon Sep 17 00:00:00 2001 From: Ed J Date: Sun, 29 Sep 2024 05:20:38 +0000 Subject: [PATCH] add polylines to test plot --- t/simple.t | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/t/simple.t b/t/simple.t index f7b29ed..e52df3a 100644 --- a/t/simple.t +++ b/t/simple.t @@ -140,6 +140,8 @@ my $r9 = rvals(9,9); my $r9minus = -$r9; my $s9 = sequence(9,9); my $xyr9 = pdl(xvals(9,9),yvals(9,9),$r9)*20; +my $sqpoly = pdl('1 5; 3 5; 3 3; 1 3; 1 5; 5 5; 7 5; 7 3; 5 3; 5 5'); +my $pen = pdl('1 1 1 1 0 1 1 1 1 0'); # Test imag my $x100 = xvals(100,100); my $y100 = yvals(100,100); @@ -425,16 +427,17 @@ is_deeply $new[1], { is($@, '', "Multiplot declaration was OK"); $w->image( $r9,{wedge=>1} ); $w->image( $r9minus,{wedge=>1} ); $w->plot(with=>'image', $r9, with=>'contours', $r9, {j=>1}); - $w->image( $xyr9 ); - ask_yn qq{Testing $engine engine: You should see two bullseyes across the top (one in + $w->plot(with=>'image', $xyr9, with=>'polylines', $sqpoly, $pen, + {xrange=>[0,8],yrange=>[0,8],j=>1}); + ask_yn +qq{Testing $engine engine: You should see two bullseyes across the top (one in negative print), a bullseye with contours at bottom left, and an RGB blur (if supported by the engine - otherwise a modified gradient) at -bottom right. The top two panels should have colorbar wedges to the +bottom right w/2 squares. The top two panels should have colorbar wedges to the right of the image.}, "multiplot OK"; } } - # Continue the simple engine and convenience interfaces { my $type = 'image';