Raster bars: Difference between revisions

{{draft task}}

 

{{works with|Rakudo|2019.03}}

As there is no reference implementation, and rather sketchy task instructions, this may or may not fulfill the original task authors intent.

 

 

Generate random colored bars and display them. (They ended up looking more plastic than metallic; ah well.)

 

* Use Pg Up / Pg Dn to adjust raster bar height.

* Use Z / X to change the angle of the raster bars.

* Press Q to exit.

 

use Cairo;

 

 

my $window = SDL_CreateWindow(

SDL_WINDOWPOS_CENTERED_MASK,

SDL_WINDOWPOS_CENTERED_MASK,

my $render = SDL_CreateRenderer($window, -1, ACCELERATED +| PRESENTVSYNC);

 

 

my $event = SDL_Event.new;

K_X => 27,

K_Q => 20,

);

 

my $port = +@bars * $gap;

 

main: loop {

handle-event($event) while SDL_PollEvent($event);

 

 

if $dir > 0 {

} else {

}

 

for ^@bars {

SDL_RenderCopyEx( $render, @bars[$_], Nil,

)

}

 

SDL_RenderClear($render);

}

 

SDL_Quit();

 

sub gen-bar (@color) {

given Cairo::Context.new($bar) {

$lpat.add_color_stop_rgba( 1, |(@color »*» .3), 1);

$lpat.add_color_stop_rgba( .2, |(@color), 1);

.pattern($lpat);

.fill;

my $bar_texture = SDL_CreateTexture(

$render, %PIXELFORMAT<ARGB8888>,

);

 

SDL_UpdateTexture(

$bar_texture,

$bar.data, $bar.stride // 1

);

if KEY_CODES(.scancode) -> $comm {

given $comm {

when 'K_LEFT' { $gap = $gap < 32 ?? $gap !! $gap - 1; $port = +@bars * $gap; }

when 'K_RIGHT' { $gap++; $port += +@bars; }

when 'K_LCTRL' { $dir *= -1 }

when 'K_Q' { last main }

}

}

when *.type == WINDOWEVENT {

$width = .data1;

}

}

}