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