my( $c, @lineSegs ) = 1;
        for my $x ( 0 .. $X - 2 ) {
            ++$c, next if $colors[ $x ] == $colors[ $x + 1 ];
            push @lineSegs, [ $c, $colors[ $x ] ];
            $c = 1;
        }
        push @lineSegs, [ $c, $colors[ - 1] ];
        $Qout->enqueue( [ $y, \@lineSegs ] );