Raster bars: Difference between revisions
m
→{{header|Perl 6}}: Remove some unnecessary boilerplate that is extraneous to this task
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: twiddle with runtime parameters) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Remove some unnecessary boilerplate that is extraneous to this task) |
||
Line 16:
use Cairo;
my $width = 800;
my $height = 800;
Line 31:
my @bars = (^64).map: { gen-bar( rand xx 3 ) };
my $event = SDL_Event.new;
Line 72 ⟶ 70:
}
}
}
when *.type == WINDOWEVENT {
Line 92 ⟶ 89:
SDL_RenderPresent($render);
SDL_RenderClear($render);
Line 104 ⟶ 99:
given Cairo::Context.new($bar) {
my Cairo::Pattern::Gradient::Linear $lpat .= create(0.0, 0.0, 0.0, 32.0);
$lpat.add_color_stop_rgba( 1, |(@color »*» .3), 1 );
$lpat.add_color_stop_rgba( .2, |(@color), 1 );
$lpat.add_color_stop_rgba( .
$lpat.add_color_stop_rgba(
.rectangle(0, 0, 32, 32);
.pattern($lpat);
|