diff options
| author | Andrés Cuervo <acwervo@gmail.com> | 2023-02-09 22:02:54 +0000 |
|---|---|---|
| committer | Andrés Cuervo <acwervo@gmail.com> | 2023-02-09 22:02:54 +0000 |
| commit | dd52cc436f0010e1eab85721c2ad86f446c9acde (patch) | |
| tree | 984e508ad88b2fb265cddf8d202722721a356118 /virtual-programs/archive | |
| parent | Add watchdog that restarts Folk service if heartbeat takes too long (diff) | |
| download | folk-dd52cc436f0010e1eab85721c2ad86f446c9acde.tar.gz folk-dd52cc436f0010e1eab85721c2ad86f446c9acde.zip | |
Archive test, add back images
Diffstat (limited to 'virtual-programs/archive')
| -rw-r--r-- | virtual-programs/archive/test.folk | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/virtual-programs/archive/test.folk b/virtual-programs/archive/test.folk new file mode 100644 index 00000000..9b5c75f0 --- /dev/null +++ b/virtual-programs/archive/test.folk @@ -0,0 +1,13 @@ +Wish $this has filename "test.folk" + +When $this has region /r/ { + set points [lindex $r 0] + lassign $points one two three four + lassign $one a b + lassign $three c d + # Wish $this is labelled "$a $b $c $d" + # Display::fillRect $a $b $c $d skyblue + Display::stroke [list [list $a $b] [list $c $d]] 3 skyblue +} + +Wish $this is outlined thick magenta |