Raster bars: Difference between revisions

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

my $dir = -1;

my $step = 5;

my $incr = 1;

my $gap = 140;

my $bh = 64;

$height += 32;

my $port = +@bars * $gap;

my $y = $dir > 0 ?? $height - $port !! $height;

while SDL_PollEvent($event) {

my $casted_event = SDL_CastEvent($event);

given $casted_event {

when *.type == QUIT { last main }

when *.type == KEYDOWN {

if KEY_CODES(.scancode) -> $comm {

given $comm {

when 'K_UP' { $step += $incr }

when 'K_DOWN' { $step -= $incr if $step > $incr }

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

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

when 'K_PGUP' { $bh += 2 }

when 'K_PGDN' { $bh = $bh >= 34 ?? $bh - 2!! $bh }

when 'K_SPACE' { $step = $step ?? 0 !! $incr }

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

}

}

}

when *.type == WINDOWEVENT {

if .event == 5 {

$width = .data1;

$height = .data2 + 32;

}

}

}

}

if $y > 0 { $y = $height - $port }

if $y < $height - $port { $y = 0 }

my $this-y = $y + $gap * $_;

SDL_RenderCopy( $render, @bars[$_], Nil, SDL_Rect.new(0, $this-y, $width, $bh) );

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

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

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

$lpat.add_color_stop_rgba( 0, |(@color »+» .8), 1 );