diff options
| author | Andrés Cuervo <acwervo@gmail.com> | 2023-01-25 02:43:53 +0000 |
|---|---|---|
| committer | Andrés Cuervo <acwervo@gmail.com> | 2023-01-25 02:43:53 +0000 |
| commit | 09d5b2e8529e2b403873100eb53044772c2a763f (patch) | |
| tree | 1bf384d83a6187a3f37691fadb24b9cfeb94617b /virtual-programs | |
| parent | Fix commit with serialized environment (diff) | |
| download | folk-09d5b2e8529e2b403873100eb53044772c2a763f.tar.gz folk-09d5b2e8529e2b403873100eb53044772c2a763f.zip | |
Add folk-cwervo, update fillRect, testbed -> test
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/camera-slice.folk | 2 | ||||
| -rw-r--r-- | virtual-programs/test.folk | 16 | ||||
| -rw-r--r-- | virtual-programs/testbed.folk | 5 |
3 files changed, 16 insertions, 7 deletions
diff --git a/virtual-programs/camera-slice.folk b/virtual-programs/camera-slice.folk index 96a7cbf4..038a4b0d 100644 --- a/virtual-programs/camera-slice.folk +++ b/virtual-programs/camera-slice.folk @@ -12,5 +12,3 @@ When $this has camera image /im/ { # filter $im } } - - diff --git a/virtual-programs/test.folk b/virtual-programs/test.folk new file mode 100644 index 00000000..fee4e01e --- /dev/null +++ b/virtual-programs/test.folk @@ -0,0 +1,16 @@ +Wish $this has filename "test.folk" + +# Display::stroke {{500 500} {600 400}} 10 white +# Display::fillRect 200 200 450 450 black + +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 green
\ No newline at end of file diff --git a/virtual-programs/testbed.folk b/virtual-programs/testbed.folk deleted file mode 100644 index 15137ff2..00000000 --- a/virtual-programs/testbed.folk +++ /dev/null @@ -1,5 +0,0 @@ -Wish $this is outlined yellow - -When $this has region /region/ { - Wish $this is labelled $region -}
\ No newline at end of file |