Jump to content

Image noise: Difference between revisions

→‎{{header|Perl 6}}: use native loops and Bool.pick for better FPS
m (→‎{{header|Perl 6}}: we don't need SDL_INIT_TIMER)
(→‎{{header|Perl 6}}: use native loops and Bool.pick for better FPS)
Line 1,766:
SDL_RenderClear($renderer);
SDL_SetRenderDrawColor($renderer, 255, 255, 255, 0);
forloop ^$w(my Xint ^$hi; ->$i < $w; $i, = $ji + 1) {
loop (my int $j; $j < $h; $j = $j + 1) {
SDL_RenderDrawPoint( $renderer, $i, $j ) if rand < Bool.5;pick
}
}
SDL_RenderPresent($renderer);
1,934

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.