diff options
| author | Andrés Cuervo <acwervo@gmail.com> | 2023-04-24 19:11:47 +0000 |
|---|---|---|
| committer | Andrés Cuervo <acwervo@gmail.com> | 2023-04-24 19:11:47 +0000 |
| commit | 5d28f7b6b3bfd48bc9b8710b0c4f215fc8cdbe61 (patch) | |
| tree | cd7c5e9a4eb0d9a81f51c129f73575c912231fc3 /virtual-programs | |
| parent | Don't project id onto tag corners. Works in the dark! (diff) | |
| download | folk-5d28f7b6b3bfd48bc9b8710b0c4f215fc8cdbe61.tar.gz folk-5d28f7b6b3bfd48bc9b8710b0c4f215fc8cdbe61.zip | |
Add halo message
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/label.folk | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/virtual-programs/label.folk b/virtual-programs/label.folk index 52bfae11..036e8752 100644 --- a/virtual-programs/label.folk +++ b/virtual-programs/label.folk @@ -23,3 +23,17 @@ When /thing/ has region /region/ { } } } + +proc text {coords text angle} { + Display::text Display::fb [lindex $coords 0] [lindex $coords 1] _ $text $angle +} + +When /anyone/ wishes /p/ has halo message /message/ { + When $p has region /r/ { + lassign [lindex $r 0] a b c d + lassign $a x y + text $a $message 0 + text $d $message 180 + Wish $this is labelled TEST + } +}
\ No newline at end of file |