RosettaCodeData/Task/Animation/E/animation-2.e
Ingy döt Net 764da6cbbb CDE
2013-04-10 16:57:12 -07:00

17 lines
442 B
Text

def [reverse, stop] := {
var text := "Hello World! "
var leftward := false
def anim := timer.every(100, fn _ { # milliseconds
def s := text.size()
text := if (leftward) {
text(1, s) + text(0, 1)
} else {
text(s - 1, s) + text(0, s - 1)
}
print("\b" * s, text)
})
print("\n", text)
anim.start()
[def _() { leftward := !leftward; null }, anim.stop]
}