From f34b062d36e985443c317d42bd6e9492a164c855 Mon Sep 17 00:00:00 2001 From: Arcade Wise Date: Sat, 9 Sep 2023 16:39:42 -0400 Subject: visual errors! --- virtual-programs/errors.folk | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 virtual-programs/errors.folk (limited to 'virtual-programs/errors.folk') diff --git a/virtual-programs/errors.folk b/virtual-programs/errors.folk new file mode 100644 index 00000000..faf061d9 --- /dev/null +++ b/virtual-programs/errors.folk @@ -0,0 +1,11 @@ +When /p/ has error /err/ with info /info/ { + When the clock time is /t/ { + if {[expr [expr int($t)] % 2] == 1} { + Wish $p is outlined white + } else { + Wish $p is outlined red + } + } + + Wish $p has title $err +} \ No newline at end of file -- cgit v1.2.3 From 09c6c2a6f3459ad793204146eee85b4432402030 Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Mon, 11 Sep 2023 13:23:02 -0400 Subject: errors: Simplify blink expr, speed up blink --- virtual-programs/errors.folk | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'virtual-programs/errors.folk') diff --git a/virtual-programs/errors.folk b/virtual-programs/errors.folk index faf061d9..555b45bb 100644 --- a/virtual-programs/errors.folk +++ b/virtual-programs/errors.folk @@ -1,6 +1,6 @@ When /p/ has error /err/ with info /info/ { When the clock time is /t/ { - if {[expr [expr int($t)] % 2] == 1} { + if {[expr {(int($t * 5)) % 2}] == 1} { Wish $p is outlined white } else { Wish $p is outlined red -- cgit v1.2.3