From 09d5b2e8529e2b403873100eb53044772c2a763f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= <acwervo@gmail.com>
Date: Tue, 24 Jan 2023 21:43:53 -0500
Subject: Add folk-cwervo, update fillRect, testbed -> test

---
 virtual-programs/camera-slice.folk |  2 --
 virtual-programs/test.folk         | 16 ++++++++++++++++
 virtual-programs/testbed.folk      |  5 -----
 3 files changed, 16 insertions(+), 7 deletions(-)
 create mode 100644 virtual-programs/test.folk
 delete mode 100644 virtual-programs/testbed.folk

(limited to 'virtual-programs')

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
-- 
cgit v1.2.3