From dd52cc436f0010e1eab85721c2ad86f446c9acde Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= <acwervo@gmail.com>
Date: Thu, 9 Feb 2023 17:02:54 -0500
Subject: Archive test, add back images

---
 virtual-programs/archive/test.folk | 13 +++++++++++++
 virtual-programs/camera-slice.folk |  2 --
 virtual-programs/images.folk       |  2 --
 virtual-programs/test.folk         | 13 -------------
 4 files changed, 13 insertions(+), 17 deletions(-)
 create mode 100644 virtual-programs/archive/test.folk
 delete mode 100644 virtual-programs/test.folk

(limited to 'virtual-programs')

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
diff --git a/virtual-programs/camera-slice.folk b/virtual-programs/camera-slice.folk
index 3fac49da..4812a302 100644
--- a/virtual-programs/camera-slice.folk
+++ b/virtual-programs/camera-slice.folk
@@ -2,8 +2,6 @@ Wish $this has filename "camera-slice.folk"
 Wish $this has camera image
 Wish $this is outlined thick palegoldenrod
 
-return
-
 When $this has camera image /im/ {
 	When $this has region /r/ {
 		set coords [lmap n [lindex $r 0 0] {expr $n * 1}]
diff --git a/virtual-programs/images.folk b/virtual-programs/images.folk
index 498c79cb..84c74faa 100644
--- a/virtual-programs/images.folk
+++ b/virtual-programs/images.folk
@@ -22,8 +22,6 @@ namespace eval ::image {
 	namespace ensemble create
 }
 
-return
-
 When /someone/ wishes /p/ has camera image {
 	When the camera frame is /f/ {
 		When $p has region /r/ {
diff --git a/virtual-programs/test.folk b/virtual-programs/test.folk
deleted file mode 100644
index 9b5c75f0..00000000
--- a/virtual-programs/test.folk
+++ /dev/null
@@ -1,13 +0,0 @@
-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
-- 
cgit v1.2.3