Spinning rod animation/Text: Difference between revisions

Content added Content deleted
(Rename Perl 6 -> Raku, alphabetize, minor clean-up)
(→‎{{header|Raku}}: Minor twiddles, expand slightly)
Line 467: Line 467:


my $clock = throbber.new( :frames("🕐" .. "🕛") );
my $clock = throbber.new( :frames("🕐" .. "🕛") );
print "\b \nSomething else with a delay... ";
print "\r\nSomething else with a delay... ";
until my $done {
until my $done {
# do something in a loop;
# do something in a loop;
sleep 1/12;
sleep 1/12;
print $clock.next;
print "\b", $clock.next;
$done = True if $++ >= 60;
$done = True if $++ >= 60;
}

my $moon = throbber.new( :frames('🌑🌒🌓🌔🌕🌖🌗🌘'.comb) );
print "\r\nGonna be a long night... ";
until my $end {
# do something in a loop;
sleep 1/8;
print "\b", $moon.next;
$end = True if $++ >= 60;
}
}


my $scroll = throbber.new( :frames('PLEASE STAND BY... '.comb), :delay(.1), :marquee );
my $scroll = throbber.new( :frames('PLEASE STAND BY... '.comb), :delay(.1), :marquee );
print "\b \nEXPERIENCING TECHNICAL DIFFICULTIES: { $scroll.frames.join }";
print "\r\nEXPERIENCING TECHNICAL DIFFICULTIES: { $scroll.frames.join }";
print $scroll.next for ^95;
print $scroll.next for ^95;


Retrieved from "https://rosettacode.org/wiki/Spinning_rod_animation/Text"