Rosetta Code

Vibrating rectangles: Difference between revisions

Page Discussion

Vibrating rectangles (view source)

Revision as of 21:05, 4 September 2018

91 bytes removed ,  5 years ago
m
→‎{{header|Perl 6}}: minor twiddles
m (was missing first 3 lines of program)
m (→‎{{header|Perl 6}}: minor twiddles)
Line 63:
my %r = :tl<┌>, :h<─>, :tr<┐>, :v<│>, :bl<└>, :br<┘>;
 
my %@colors = rd« => "\e[1;31m", gn\e[1;94m =>\e[1;33m "\e[1;32m",35m yw\e[1;36m =>\e[1;32m "\e[1;33m",34m »;
bu => "\e[1;34m", mg => "\e[1;35m", cy => "\e[1;36m";
 
# color palette
my @c = flat %@colors<rd>[0] xx 12, %@colors<bu>[3] xx 12, %@colors<yw>[2] xx 12;
 
my @vibe;▼
 
rect($_, 31-$_) for 0..15;▼
 
print "\e[?25l"; # hide the cursor
Line 81 ⟶ 76:
 
my $rot = 1;
 
▲my @vibe;
 
loop {
▲ rect($_, 31-$_) for 0..^15;
display @vibe;
@c.=rotate($rot);
if ++$ %% 30 {
@c = |%@colors.values.rollpick(3);
@c = sort(flat @c xx 12);
$rot *= -1;
}
rect($_, 31-$_) for 0..15;
sleep .1;
}
Thundergnat
10,351

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/283031"