Raster bars: Difference between revisions
m
→{{header|Perl 6}}: twiddle with runtime parameters
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: case matters) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: twiddle with runtime parameters) |
||
Line 16:
use Cairo;
my $width =
my $height =
SDL_Init(VIDEO);
Line 30:
my $render = SDL_CreateRenderer($window, -1, ACCELERATED +| PRESENTVSYNC);
my @bars = (^
SDL_SetRenderDrawBlendMode($render, 1);
Line 47:
);
my $dir = -1;
my $step =
my $incr = 1;
my $y = 0;
my $gap =
$height += 32;
Line 87:
for ^@bars {
my $this-y = ($y + $gap * $_ - $height);
$this-y -= $gap * @bars if $this-y > $height;
SDL_RenderCopy( $render, @bars[$_], Nil, SDL_Rect.new(0, $this-y, $width, 32) );
}
| |||