Select Code to Download

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

    while( my $line = $Qresults->dequeue ) {
        my( $y, $l ) = @{ $line };
...
            $i->line( $x, $y, $x + $count, $y, $color );
            $x += $count;
        }

        ## calculate the Mandelbrot values for half the line
        my @colors;
...
        
        ## Queue back the line segments for half the line.
        $Qout->enqueue( [ $y, \@lineSegs ] );

    while( my $line = $Qresults->dequeue ) {
        my( $y, $l ) = @{ $line };
...
            $x += $count;
        }
    }