while( my $line = $Qresults->dequeue ) {
        my( $y, $l ) = @{ $line };
        my $x = 0;
        ## for all the line segments, and those same segments ( again in reverse order )
        for( @$l, reverse @$l ) {
            ## extract the count and the color
            my( $count, $color ) = @{ $_ };
            ## draw the line segment
            $i->line( $x, $y, $x + $count, $y, $color );
            ## accumulating your current x position as you go.
            $x += $count;
        }
    }