demos/test5.p to also show with no colours

Author: mohawk2

demos/test5.p

@@ -22,9 +22,13 @@ my @objs = (
 );
 my $i = 0;
 @objs = map mk_trid($i++, @$_), @objs;
-my ($below_obj, $above_obj) = map mk_trid($_, 'LineStrip'), -1, 0+@objs;
+my ($below_obj, undef, $above_obj) = map mk_trid($_, 'LineStrip'), -1, @objs/2;
 
-sub mk_trid { "PDL::Graphics::TriD::$_[1]"->new($y+pdl(0,0,$_[0]),$c,$_[2]) }
+sub mk_trid {
+  my $class = "PDL::Graphics::TriD::$_[1]";
+  ($class->new($y+pdl(0,0,$_[0]),$c,$_[2]),
+    $class->new($y+pdl(0,0,$_[0]+0.5),undef,$_[2]));
+}
 
 my $win = PDL::Graphics::TriD::get_current_window();
 my $g = PDL::Graphics::TriD::Graph->new;

lib/PDL/Demos/TriD1.pm

@@ -169,9 +169,7 @@ my @demo = (
 	# The reason for the [] around $x,$y,$z:
 	# 1. You can give all the coordinates and colors in one ndarray.
 	$c = zeroes 3,$size+1;
-	$coords =
-		sin((3+3*xvals $c)*yvals $c);
-	$colors = $coords;
+	$colors = $coords = sin((3+3*xvals $c)*yvals $c);
 	line3d $coords, $colors;        # Draw a curved line, colored
 					# (this works also for lattices, etc.)
 	# [press 'q' in the graphics window when done]